(* 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[ 7133347, 145166] NotebookOptionsPosition[ 7067426, 144036] NotebookOutlinePosition[ 7068131, 144059] CellTagsIndexPosition[ 7068088, 144056] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MEC-E1050 Finite Element Method in Solids 2023", "Title", InitializationCell->True, CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725629008207`*^9, {3.5568726649396567`*^9, 3.5568726677478175`*^9}, 3.618709835758954*^9, 3.629777498181036*^9, 3.661174828401641*^9, {3.685234578060045*^9, 3.6852345824842978`*^9}, { 3.68523485439185*^9, 3.6852348785262303`*^9}, {3.6852638608992662`*^9, 3.685263861779268*^9}, {3.6853203463091555`*^9, 3.6853203574191704`*^9}, { 3.688455489182722*^9, 3.688455490812724*^9}, {3.7162065219450207`*^9, 3.716206522795353*^9}, 3.743648703897718*^9, 3.7739888865504923`*^9, { 3.81147447309474*^9, 3.8114744732320685`*^9}, 3.8431824599791775`*^9, { 3.872143185312078*^9, 3.8721431855064206`*^9}, {3.9070591005828896`*^9, 3.907059106219293*^9}},ExpressionUUID->"88382003-a489-4214-981a-\ b19c8fc5cd6f"], Cell[CellGroupData[{ Cell["FEM DEFINITIONS", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}},ExpressionUUID->"cb3a1f75-9a10-41d6-99b3-\ f59ad344b30e"], Cell[CellGroupData[{ Cell["DEFS defs ", "Subsection", CellChangeTimes->{{3.4770537307790003`*^9, 3.4770537313562*^9}},ExpressionUUID->"a2b5157e-9931-41be-af94-56c2731080a7"], 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.4426462585778456`*^9, 3.4426462590770454`*^9}, 3.4770537732734003`*^9, {3.4770538084514*^9, 3.4770539107874002`*^9}, { 3.4770539837018003`*^9, 3.4770539840762*^9}, {3.6310184366218147`*^9, 3.631018437292616*^9}, {3.685233451807683*^9, 3.685233452477684*^9}, { 3.685234382901882*^9, 3.6852343866400967`*^9}, {3.6853442041034565`*^9, 3.6853443400412316`*^9}, {3.6853443751512394`*^9, 3.685344377332364*^9}, 3.6853454114825144`*^9, {3.6868316461612635`*^9, 3.6868318084514904`*^9}, { 3.686832766952832*^9, 3.6868328092028913`*^9}, {3.686832846372944*^9, 3.686832931023062*^9}, {3.6872635529744654`*^9, 3.6872635616644773`*^9}, { 3.6875150430418844`*^9, 3.6875151112847824`*^9}, {3.687743582879592*^9, 3.6877436675097103`*^9}, {3.687743698119753*^9, 3.6877437374098077`*^9}, { 3.6877437674998503`*^9, 3.687743819059922*^9}, {3.687744657251096*^9, 3.687744669171112*^9}, {3.692421446310708*^9, 3.69242161182094*^9}, { 3.6926015199824505`*^9, 3.692601820564872*^9}, {3.6926909355497313`*^9, 3.6926909367897334`*^9}, {3.6927677148447485`*^9, 3.692767777644837*^9}, { 3.692767831454912*^9, 3.6927678718849688`*^9}, {3.6942322376116867`*^9, 3.6942324085019264`*^9}, {3.694415508707368*^9, 3.694415535947406*^9}, { 3.6944156219175262`*^9, 3.6944156308775387`*^9}, {3.694415674217599*^9, 3.694415743297696*^9}, 3.6944162623784227`*^9, 3.694416759679119*^9, { 3.6946871199157624`*^9, 3.694687178045844*^9}, 3.6946872406459312`*^9, { 3.6948454377388935`*^9, 3.6948454739389443`*^9}, {3.694845622699153*^9, 3.694845623739154*^9}, {3.6948457209192905`*^9, 3.6948457976193976`*^9}, { 3.724304012886026*^9, 3.724304060229605*^9}, {3.73313814515314*^9, 3.7331381540290995`*^9}, {3.733138190908001*^9, 3.7331382926372166`*^9}, { 3.7458091168859*^9, 3.745809330453831*^9}, {3.7530811243190904`*^9, 3.7530811449186587`*^9}, {3.7561686396442633`*^9, 3.756168670119571*^9}, { 3.7600603151211576`*^9, 3.7600603156835256`*^9}, {3.7894796484099903`*^9, 3.789479649089468*^9}, {3.789479692503845*^9, 3.7894797188708086`*^9}, { 3.7894797500361404`*^9, 3.789479784847563*^9}, 3.7894799681885223`*^9, { 3.789480438163148*^9, 3.7894804422051945`*^9}, {3.7894806002852697`*^9, 3.789480655832934*^9}, {3.8166040129889574`*^9, 3.8166041495837865`*^9}, { 3.816604189186468*^9, 3.816604214802972*^9}, {3.8166042734773865`*^9, 3.8166043972850933`*^9}, {3.816604428267262*^9, 3.816604499850178*^9}, { 3.8166081703698654`*^9, 3.8166082203890176`*^9}, {3.8210655469757404`*^9, 3.821065597044009*^9}, {3.821065646217851*^9, 3.821065659621196*^9}, { 3.821065714586218*^9, 3.8210658123471637`*^9}, {3.8210658715411763`*^9, 3.821065940333043*^9}, 3.8210659934232154`*^9, {3.821151689134054*^9, 3.8211516901175613`*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"d722d9d5-e5a8-4723-b032-a2dac3cb4341"] }, Closed]], Cell[CellGroupData[{ Cell["SHAPE defs ", "Subsection",ExpressionUUID->"2880ece4-57d6-4da6-850e-b3d83def7f8f"], 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.4684605726744003`*^9}, { 3.471399186098*^9, 3.4713991974236*^9}, {3.471404873455*^9, 3.4714048739854*^9}, {3.4820580083386*^9, 3.4820580095086*^9}, { 3.4820588874835997`*^9, 3.4820588977016*^9}, {3.6187193088566475`*^9, 3.6187193100797176`*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"949f3c6e-b286-43ed-a34f-aa3dd4dc50a2"] }, Closed]], Cell[CellGroupData[{ Cell["QUAD defs ", "Subsection",ExpressionUUID->"259608e3-64c5-4b1e-83e1-b5792f128b91"], 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[{"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.4426462761434455`*^9, {3.4426463580278454`*^9, 3.4426463672786455`*^9}, 3.4461855349388*^9, {3.4468649264091997`*^9, 3.4468649477656*^9}, 3.4770653198157997`*^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.4822977608296003`*^9, 3.48229777267*^9}, {3.482298444565*^9, 3.4822984493698*^9}, {3.4822986565578003`*^9, 3.4822987152293997`*^9}, { 3.4822987471470003`*^9, 3.4822988202018003`*^9}, {3.4823218768966*^9, 3.4823219047738*^9}, {3.6320400759127555`*^9, 3.6320400774188414`*^9}, { 3.6339410644178886`*^9, 3.633941069742193*^9}, {3.633942002306533*^9, 3.6339420034775996`*^9}, 3.6565732333204584`*^9, {3.685329942084824*^9, 3.6853299995431104`*^9}, {3.6881195224183316`*^9, 3.6881195236983337`*^9}, {3.6881195571483803`*^9, 3.6881195915584283`*^9}, {3.688120564569791*^9, 3.6881205683897963`*^9}, { 3.6881206185098658`*^9, 3.688120642069899*^9}, {3.688284719785588*^9, 3.688284729985602*^9}, {3.6882848245567346`*^9, 3.688284827776739*^9}, { 3.688284875506806*^9, 3.6882848867468214`*^9}, {3.688350375413198*^9, 3.688350378173202*^9}, 3.6883504111932483`*^9, {3.7455544449212356`*^9, 3.745554465572897*^9}, {3.7455544990494084`*^9, 3.7455545172795343`*^9}, { 3.74644306965172*^9, 3.746443076505107*^9}, {3.7468733511314077`*^9, 3.7468733665022874`*^9}, {3.763815192640204*^9, 3.7638152262175827`*^9}, { 3.76381555999401*^9, 3.763815576658593*^9}, {3.763815629456071*^9, 3.7638156433643184`*^9}, {3.7638156760642715`*^9, 3.763815680110509*^9}, { 3.763816314054133*^9, 3.763816315160985*^9}, {3.7641283974818926`*^9, 3.7641284022168202`*^9}, {3.764128466623234*^9, 3.764128512308055*^9}, { 3.7641285516285644`*^9, 3.764128597474304*^9}, {3.7641286389761047`*^9, 3.764128668115802*^9}, {3.7661439599999857`*^9, 3.766144017439571*^9}, { 3.8413897282608337`*^9, 3.8413897551839*^9}, {3.8413907066897593`*^9, 3.841390726628026*^9}, 3.8413907607649965`*^9, {3.8435604066446185`*^9, 3.843560438358281*^9}, {3.8435605553679347`*^9, 3.843560556538128*^9}, { 3.8435617747579966`*^9, 3.8435617981268296`*^9}, {3.8435621954269557`*^9, 3.8435621959062867`*^9}, {3.8445744705479603`*^9, 3.84457448460798*^9}, { 3.844574539146332*^9, 3.844574603163684*^9}, 3.8445746860003757`*^9, { 3.8721492282062855`*^9, 3.872149229483136*^9}, {3.8721492692823997`*^9, 3.8721492926678143`*^9}, {3.872330854573894*^9, 3.872330873686554*^9}, { 3.8736820802074738`*^9, 3.8736820984942775`*^9}, {3.9077604485295186`*^9, 3.9077604767562885`*^9}, {3.9079064703652925`*^9, 3.9079064878761053`*^9}, {3.9080893027606564`*^9, 3.90808931639783*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"112ff001-71b5-4ee9-8554-8dbbd43cfe73"], 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"]}], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], 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.8413897580019073`*^9, 3.8413905824006023`*^9}, { 3.841390641631239*^9, 3.841390651680857*^9}, {3.841390686922451*^9, 3.841390692801841*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"41ea94fa-3471-4e94-8419-fc65bb1db3f9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.8413900780711346`*^9, 3.8413901203216476`*^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->"5c70b6b9-c30b-46b3-afce-eb7f67ce14e8"], Cell[BoxData[ FractionBox["1", "6"]], "Output", CellChangeTimes->{ 3.8413900780711346`*^9, 3.8413901203216476`*^9, 3.841390186370854*^9, 3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 3.841390583991149*^9}, 3.841390653783507*^9, 3.8413906934584646`*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"ccdfb145-d222-436f-9263-b885bb4f0ac1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["INTEGRATE defs ", "Subsection",ExpressionUUID->"d89c3d2e-31e8-470a-bafe-d6836a98655c"], 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[227]:=",ExpressionUUID->"a165fbae-254d-4945-9f41-5f8ade16ec6f"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FORCE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.817531303014368*^9, 3.8175313048303127`*^9}, {3.8175314979069576`*^9, 3.8175315153006535`*^9}, 3.817531608989934*^9},ExpressionUUID->"86437964-b67c-4d4e-90d0-\ d30496792bce"], Cell[CellGroupData[{ Cell["NULL ELEMENT defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.7606078822118464`*^9, 3.7606078873319845`*^9}, {3.7606079926026382`*^9, 3.7606079992085595`*^9}},ExpressionUUID->"e9926d23-a09f-4166-aecd-\ 9400bd019c99"], 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.7606079691729827`*^9, 3.7606079699771805`*^9}, { 3.760608006624578*^9, 3.760608064931302*^9}, {3.7880761427660694`*^9, 3.788076155873885*^9}, {3.788424805091097*^9, 3.7884248740992002`*^9}, { 3.817531967792331*^9, 3.817531969861539*^9}},ExpressionUUID->"60b1d3ba-de0b-48aa-902a-\ 3a83e87980ed"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.7606078822118464`*^9, 3.7606078873319845`*^9}, {3.766555151642228*^9, 3.7665551755834265`*^9}, {3.774244544239236*^9, 3.7742445459997997`*^9}, { 3.787895139092532*^9, 3.787895139619763*^9}},ExpressionUUID->"2ccf49ca-79f2-4805-b085-\ 32b3d650d437"], 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.5007051491098003`*^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.5576610278447356`*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, { 3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, { 3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, { 3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^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.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, { 3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 3.6926170726717157`*^9}, {3.6926171281517935`*^9, 3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, { 3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, { 3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, { 3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, { 3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, { 3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, { 3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607910807132*^9, 3.760607911704075*^9}, {3.766555201350331*^9, 3.7665553560217686`*^9}, { 3.7665553926814957`*^9, 3.766555405620928*^9}, {3.76663078538684*^9, 3.766630788445305*^9}, {3.7666308695077744`*^9, 3.7666309155844073`*^9}, { 3.766630963805001*^9, 3.766630964328018*^9}, {3.7666310063775616`*^9, 3.766631007597319*^9}, {3.766631053754822*^9, 3.7666310557693295`*^9}, { 3.766631102143116*^9, 3.766631182053177*^9}, {3.774244592505701*^9, 3.774244606024996*^9}, {3.774244666999945*^9, 3.774244780885934*^9}, { 3.7742448195924053`*^9, 3.7742448333656425`*^9}, {3.7742448971593103`*^9, 3.7742449615049114`*^9}, {3.774245098242358*^9, 3.7742451238780427`*^9}, { 3.77424518753212*^9, 3.7742451943686037`*^9}, {3.7742452586200476`*^9, 3.7742453104279203`*^9}, {3.7742469442792187`*^9, 3.7742472465608587`*^9}, {3.774247297716411*^9, 3.774247331264948*^9}, { 3.78807546567931*^9, 3.7880755830304527`*^9}, 3.78807562415361*^9, { 3.788075666988602*^9, 3.7880756768677874`*^9}, 3.788075710101962*^9, { 3.788075747380065*^9, 3.7880757482704797`*^9}, {3.7880760000927234`*^9, 3.788076030825418*^9}, 3.817437852364077*^9, {3.8408458462334127`*^9, 3.8408458682568913`*^9}, {3.840847529962968*^9, 3.840847547834058*^9}, { 3.8944246217953663`*^9, 3.8944246232021036`*^9}, {3.9051718275449295`*^9, 3.9051718628810635`*^9}, {3.9051718967467747`*^9, 3.9051719521760015`*^9}, {3.9051719969909573`*^9, 3.9051720896784105`*^9}, {3.9051729661377645`*^9, 3.905172970953158*^9}, { 3.9051730431857777`*^9, 3.9051731904742894`*^9}}, CellLabel-> "In[233]:=",ExpressionUUID->"21781e36-b245-4c73-b2fa-7dfa637f51a1"] }, 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->"eaa35285-81e7-40b4-b2c5-\ 8d13aed3621f"], 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.5007051491098003`*^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.5576610278447356`*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, { 3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, { 3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, { 3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^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.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, { 3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 3.6926170726717157`*^9}, {3.6926171281517935`*^9, 3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, { 3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, { 3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, { 3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, { 3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, { 3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, { 3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, { 3.7650816994300117`*^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.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, { 3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, { 3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.7880757985887327`*^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.7884247886832037`*^9}, {3.820469573319458*^9, 3.8204696119241095`*^9}, { 3.820469713680828*^9, 3.820469726202425*^9}, {3.820469774985937*^9, 3.8204697820405493`*^9}, {3.8204709818632145`*^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.8298844266880245`*^9, 3.8298844622541885`*^9}, {3.829890944882238*^9, 3.8298909629438314`*^9}, { 3.829891002598065*^9, 3.8298910041502285`*^9}, {3.8298910779119153`*^9, 3.8298911107781134`*^9}, {3.8298912682866173`*^9, 3.829891271409994*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"1330ddda-ed28-4d07-b43b-4691aea868bc"] }, 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.7885746509362783`*^9}},ExpressionUUID->"ed5ef1fa-01d9-4d4f-a2aa-\ 7ac2ee0a277c"], 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.5007051491098003`*^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.5576610278447356`*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, { 3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, { 3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, { 3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^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.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, { 3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 3.6926170726717157`*^9}, {3.6926171281517935`*^9, 3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, { 3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, { 3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, { 3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, { 3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, { 3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, { 3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, { 3.7650816994300117`*^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.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, { 3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, { 3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.7880757985887327`*^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.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, { 3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, {3.821150888214839*^9, 3.8211509294646425`*^9}, { 3.8211509603238955`*^9, 3.8211510555185704`*^9}, {3.8211511473842373`*^9, 3.821151233654641*^9}}, CellLabel-> "In[251]:=",ExpressionUUID->"9d6dfabb-bde7-4c44-9528-20da7d9d9de0"] }, 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.7885746509362783`*^9}, { 3.789441075232401*^9, 3.7894410761072865`*^9}},ExpressionUUID->"c74e8a16-8a3e-4487-b326-\ 2ea0ac7abafb"], 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.5007051491098003`*^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.5576610278447356`*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, { 3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, { 3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, { 3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^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.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, { 3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 3.6926170726717157`*^9}, {3.6926171281517935`*^9, 3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, { 3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, { 3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, { 3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, { 3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, { 3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, { 3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, { 3.7650816994300117`*^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.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, { 3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, { 3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.7880757985887327`*^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.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, { 3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, {3.789441083494993*^9, 3.7894410929575987`*^9}, { 3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 3.821614000501048*^9}, {3.821778980163827*^9, 3.821779023170026*^9}, { 3.8526149197908554`*^9, 3.8526149264241767`*^9}, {3.8526150097945175`*^9, 3.8526151076594424`*^9}, {3.8526151937844095`*^9, 3.8526153799795046`*^9}, {3.8526154236433077`*^9, 3.852615428357727*^9}, 3.852615738143323*^9, {3.85261577369608*^9, 3.8526157754718657`*^9}, { 3.852615819281072*^9, 3.8526158733183727`*^9}, 3.8526167397965617`*^9, { 3.85261723461384*^9, 3.8526172417322617`*^9}, {3.8526178141348553`*^9, 3.8526178535724907`*^9}, 3.852617953477276*^9, {3.8526936587753305`*^9, 3.852693709451621*^9}, {3.8526943296373367`*^9, 3.852694418011649*^9}, { 3.852694451913797*^9, 3.852694569753277*^9}, {3.852699051213097*^9, 3.85269906934655*^9}, {3.8526991193491087`*^9, 3.85269912274557*^9}, { 3.894424571462335*^9, 3.894424592392272*^9}}, CellLabel-> "In[257]:=",ExpressionUUID->"4307d1b1-da3f-464a-a32a-7995695d6541"] }, 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.7885746509362783`*^9}, { 3.789441075232401*^9, 3.7894410761072865`*^9}, {3.8223693498062468`*^9, 3.8223693569381757`*^9}},ExpressionUUID->"1cdfed34-4f44-42f0-a145-\ 829e8aa5245c"], 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.5007051491098003`*^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.5576610278447356`*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, { 3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, { 3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, { 3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^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.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, { 3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 3.6926170726717157`*^9}, {3.6926171281517935`*^9, 3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, { 3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, { 3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, { 3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, { 3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, { 3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, { 3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, { 3.7650816994300117`*^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.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, { 3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, { 3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.7880757985887327`*^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.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, { 3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, {3.789441083494993*^9, 3.7894410929575987`*^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[262]:=",ExpressionUUID->"2c527f04-6c37-4046-845c-95fc47b8219d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.8175313791665382`*^9, 3.8175313820813637`*^9}, {3.817531489041069*^9, 3.81753151263837*^9}, 3.817531603785071*^9},ExpressionUUID->"67285ce7-d82f-41e3-a6e2-\ 2cadc9c8944d"], 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.6853205513594418`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.817437563190297*^9, 3.817437574730232*^9}},ExpressionUUID->"eecc05f4-082f-4ea4-8833-\ b9432509fcd7"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, { 3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, { 3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, { 3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, { 3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, { 3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, { 3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, { 3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, { 3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 3.6934602635146914`*^9}, {3.6948453326087465`*^9, 3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, { 3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 3.7530837044483657`*^9}, {3.7530839780537753`*^9, 3.7530840044915133`*^9}, {3.7530841230935698`*^9, 3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, { 3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, { 3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, { 3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, { 3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, { 3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, { 3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 3.78807666464567*^9}, 3.790134342393529*^9, {3.81147586433552*^9, 3.8114758660676584`*^9}, {3.8114759011903524`*^9, 3.8114759016633973`*^9}, 3.8114759988439693`*^9, 3.8114761633171883`*^9, {3.816603834074288*^9, 3.8166039336563835`*^9}, {3.8170006770430465`*^9, 3.817000724749156*^9}, { 3.8170007595398445`*^9, 3.817000786405624*^9}, 3.8170037199219055`*^9, { 3.8170045080782423`*^9, 3.8170045294203014`*^9}, {3.81700457884058*^9, 3.81700458306651*^9}, {3.8170046136020584`*^9, 3.8170046363287716`*^9}, { 3.8170054362323685`*^9, 3.817005516642319*^9}, {3.817005553771696*^9, 3.8170057022018414`*^9}, {3.817438004752759*^9, 3.817438079208784*^9}, { 3.8174381095342855`*^9, 3.817438111564824*^9}, {3.817438162423845*^9, 3.81743817388716*^9}, 3.8174382117090836`*^9, 3.8174382843486643`*^9, 3.817438365153536*^9, {3.8174384271840076`*^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.8875170236188602`*^9}, {3.887517058030882*^9, 3.8875170700336304`*^9}, {3.8875172105926237`*^9, 3.887517223359357*^9}}, CellLabel-> "In[263]:=",ExpressionUUID->"8c073c8d-0706-4e83-893c-5df4b377e8ca"] }, 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.6853205513594418`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.765078647709998*^9, 3.7650786536233745`*^9}, { 3.787894934272877*^9, 3.787894940030588*^9}, 3.8174375910297575`*^9},ExpressionUUID->"11fd43b9-caa7-4d32-b82f-\ feb20ad07129"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, { 3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, { 3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, { 3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, { 3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, { 3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, { 3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, { 3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, { 3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 3.6934602635146914`*^9}, {3.6948453326087465`*^9, 3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, { 3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 3.7530837044483657`*^9}, {3.7530839780537753`*^9, 3.7530840044915133`*^9}, {3.7530841230935698`*^9, 3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, { 3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, { 3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650786786571007`*^9, 3.765078730242957*^9}, {3.765079011319233*^9, 3.7650790213991427`*^9}, { 3.765079090426065*^9, 3.7650790915198584`*^9}, {3.7880750541013985`*^9, 3.7880751871791787`*^9}, 3.7880763476153545`*^9, {3.7880764088125978`*^9, 3.788076439490058*^9}, {3.788076727654149*^9, 3.788076736195205*^9}, { 3.7880769509878035`*^9, 3.788076996669318*^9}, {3.788157806923176*^9, 3.7881578103397293`*^9}, {3.788157887685897*^9, 3.7881579246081514`*^9}, 3.788166841222316*^9, {3.788245673127977*^9, 3.7882457332638197`*^9}, { 3.7884249270350504`*^9, 3.788424928787249*^9}, {3.796348073487073*^9, 3.796348235983635*^9}, 3.8204695675454354`*^9, 3.8210644461664095`*^9, { 3.8211518525046625`*^9, 3.8211518941528387`*^9}, {3.821151937357603*^9, 3.821152092267825*^9}, {3.8211521441264668`*^9, 3.821152293547024*^9}}, CellLabel-> "In[270]:=",ExpressionUUID->"47e5f451-a6d3-4a47-bac9-cfbda8063918"] }, 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.6853205513594418`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 3.8174375960916395`*^9},ExpressionUUID->"6d25bb91-fb19-48e1-b342-\ edba8ba57903"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, { 3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, { 3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, { 3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, { 3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, { 3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, { 3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, { 3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, { 3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 3.6934602635146914`*^9}, {3.6948453326087465`*^9, 3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, { 3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 3.7530837044483657`*^9}, {3.7530839780537753`*^9, 3.7530840044915133`*^9}, {3.7530841230935698`*^9, 3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, { 3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, { 3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, { 3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, { 3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, { 3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, { 3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, { 3.7890210765394955`*^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[277]:=",ExpressionUUID->"c19e2fb5-fdc7-48d2-adac-2f9250dbee7e"] }, 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.6853205513594418`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}},ExpressionUUID->"6189b05a-d7c5-47d8-b836-\ 4858c162234b"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, { 3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, { 3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, { 3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, { 3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, { 3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, { 3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, { 3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, { 3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 3.6934602635146914`*^9}, {3.6948453326087465`*^9, 3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, { 3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 3.7530837044483657`*^9}, {3.7530839780537753`*^9, 3.7530840044915133`*^9}, {3.7530841230935698`*^9, 3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, { 3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, { 3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, { 3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, { 3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, { 3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, { 3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, { 3.7890210765394955`*^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.8942765641905127`*^9, 3.8942765816140594`*^9}, {3.8945103089631004`*^9, 3.8945103685910916`*^9}, {3.8945104040414968`*^9, 3.8945104854781523`*^9}, 3.8945105434694643`*^9, {3.894510582963648*^9, 3.894510617366144*^9}}, CellLabel-> "In[280]:=",ExpressionUUID->"7661e187-3a47-482f-ab52-af9fbf7a9753"] }, 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.6853205513594418`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}, { 3.8223694156960897`*^9, 3.8223694175391617`*^9}},ExpressionUUID->"9437abe6-9f46-4050-bf02-\ de966bdb5454"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, { 3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, { 3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, { 3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, { 3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, { 3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, { 3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, { 3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, { 3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 3.6934602635146914`*^9}, {3.6948453326087465`*^9, 3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, { 3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 3.7530837044483657`*^9}, {3.7530839780537753`*^9, 3.7530840044915133`*^9}, {3.7530841230935698`*^9, 3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, { 3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, { 3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, { 3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, { 3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, { 3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, { 3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, { 3.7890210765394955`*^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[284]:=",ExpressionUUID->"4490eba9-29e7-4f47-804d-1b5f11dca07a"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["BEAM MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.8175314748809648`*^9, 3.817531482757032*^9}, {3.8175315215912895`*^9, 3.817531523916857*^9}, 3.8175315939049935`*^9},ExpressionUUID->"9b068719-9f7a-4418-ab5e-\ ca0ed75c7742"], Cell[CellGroupData[{ Cell["BAR ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.7878946919412775`*^9, 3.7878946924724035`*^9}, 3.7878949434473147`*^9},ExpressionUUID->"568fa040-cf3d-4218-b2d4-\ 14fa7b6448e6"], 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[{ "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"}], "}"}]}], ";", "\[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[{"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[{ FractionBox["1", RowBox[{"30", " ", SuperscriptBox["h0", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"AA1", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE1"}], "+", RowBox[{"2", " ", "EE2"}], "-", "EE3"}], ")"}]}], "+", RowBox[{"2", " ", "AA2", " ", RowBox[{"(", RowBox[{"EE1", "+", RowBox[{"8", " ", "EE2"}], "+", "EE3"}], ")"}]}], "+", RowBox[{"AA3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "EE1"}], "+", RowBox[{"2", " ", "EE2"}], "+", RowBox[{"4", " ", "EE3"}]}], ")"}]}]}], ")"}]}], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fx1", " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"fx3", " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"2", " ", "fx2", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^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.7816755757937236`*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, { 3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, { 3.8217742761087155`*^9, 3.821774333135168*^9}, {3.821774750423011*^9, 3.8217747610558224`*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.8217750368892345`*^9, 3.8217752594972935`*^9}, {3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, { 3.843625137403534*^9, 3.8436253106688747`*^9}, {3.8436254114664454`*^9, 3.843625482254491*^9}, {3.8436258314013753`*^9, 3.843625832963335*^9}, { 3.84362587330585*^9, 3.8436258882972155`*^9}, {3.843625938953411*^9, 3.8436259929118633`*^9}, {3.8530325799408607`*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.9018533091880617`*^9, {3.9018585891562185`*^9, 3.9018586097064247`*^9}, {3.9018587106531086`*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.9018589488518696`*^9}, { 3.901858992261612*^9, 3.9018590260422306`*^9}, {3.9018590897224593`*^9, 3.9018591187323227`*^9}, {3.901859278375826*^9, 3.9018592845118017`*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.9019357192954197`*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.9019359034954214`*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.9019362566385403`*^9}, { 3.9019369248683205`*^9, 3.901937137318808*^9}, {3.9019373013295336`*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.9019576452909517`*^9, 3.901957677685415*^9}, 3.901957733970273*^9, {3.9089344641885195`*^9, 3.908934470918261*^9}, 3.90893467914025*^9}, CellLabel-> "In[287]:=",ExpressionUUID->"dcfb3860-7bc8-44ad-857d-e09d41820290"], Cell[BoxData[{ RowBox[{ 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[{ "r0", ",", "h0", ",", "ix0", ",", "ux1", ",", "ux2", ",", "\[Delta]ux1", ",", "\[Delta]ux2", ",", "Em", ",", "Am", ",", "fXm", ",", "fYm", ",", "fZm", ",", "nl", ",", "rule", ",", "\[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[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux1", ",", "\[Delta]ux2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}], "]"}]}], ";", "\[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[{"Em", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Am", "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXm", "=", RowBox[{"fX", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fYm", "=", RowBox[{"fY", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fZm", "=", RowBox[{"fZ", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "=", RowBox[{ RowBox[{"-", "Am"}], " ", RowBox[{"Em", "/", "h0"}], " ", "*", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Delta]ux1", "-", "\[Delta]ux2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]Wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}], "*", RowBox[{"h0", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"\[Delta]Wint", "+", "\[Delta]Wext"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}]}], "\[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[{ "r0", ",", "h0", ",", "ix0", ",", "ux1", ",", "ux2", ",", "Em", ",", "Am", ",", "fXm", ",", "fYm", ",", "fZm", ",", "nl", ",", "rule", ",", "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[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[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[{"Em", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Am", "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXm", "=", RowBox[{"fX", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fYm", "=", RowBox[{"fY", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fZm", "=", RowBox[{"fZ", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Uint", "=", RowBox[{"Am", " ", RowBox[{"Em", "/", "h0"}], " ", "*", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Uext", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], "*", RowBox[{"h0", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Uint", "+", "Uext"}], "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^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.7816755757937236`*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, { 3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, { 3.8217742761087155`*^9, 3.821774333135168*^9}, {3.821774750423011*^9, 3.8217747610558224`*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.8217750368892345`*^9, 3.8217752594972935`*^9}, {3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, { 3.843625137403534*^9, 3.8436253106688747`*^9}, {3.8436254114664454`*^9, 3.843625482254491*^9}, {3.8436258314013753`*^9, 3.843625832963335*^9}, { 3.84362587330585*^9, 3.8436258882972155`*^9}, {3.843625938953411*^9, 3.8436259929118633`*^9}, {3.8530325799408607`*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.9018533091880617`*^9, {3.9018585891562185`*^9, 3.9018586097064247`*^9}, {3.9018587106531086`*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.9018589488518696`*^9}, { 3.901858992261612*^9, 3.9018590260422306`*^9}, {3.9018590897224593`*^9, 3.9018591187323227`*^9}, {3.901859278375826*^9, 3.9018592845118017`*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.9019357192954197`*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.9019359034954214`*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.9019362566385403`*^9}, { 3.9019369248683205`*^9, 3.901937137318808*^9}, {3.9019373013295336`*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.9019576452909517`*^9, 3.901957677685415*^9}, 3.901957733970273*^9, 3.9089344641885195`*^9},ExpressionUUID->"5ea0bce4-84ce-492d-89b9-\ 3e847d88ba6a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "A_", "}"}], ",", RowBox[{"{", "fx_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]", ",", "s", ",", "x", ",", "uu", ",", "\[Delta]uu", ",", "F", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[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[{"(*", RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", " ", "=", RowBox[{ RowBox[{"EE", "[", "x", "]"}], "*", RowBox[{"A", "[", "x", "]"}], " ", "*", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], "]"}]}], "*", "F"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uu", "]"}], "*", RowBox[{"fx", "[", "x", "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "h0"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^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.7816755757937236`*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, { 3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, 3.820025011696958*^9, {3.9019372748230505`*^9, 3.9019372762771883`*^9}, { 3.9019373564769745`*^9, 3.9019373610921593`*^9}, 3.9022757208717446`*^9},ExpressionUUID->"fdae9222-9e4e-488c-bd6b-\ b4f3f20163ae"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.7878946971705894`*^9, 3.7878946984332533`*^9}, 3.787894946958498*^9},ExpressionUUID->"4b9a3adb-ddc5-4f1c-bb1a-\ 35752a62e73f"], 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[{"{", "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[{"{", "fx_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "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"}], "}"}]}], ";", "\[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[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"6", " ", "h0"}]], RowBox[{"(", RowBox[{ RowBox[{"3", " ", "fx", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, { 3.753019452689951*^9, 3.753019484970434*^9}, {3.7530196011509657`*^9, 3.753019673352596*^9}, {3.753019831211974*^9, 3.75301989711664*^9}, 3.7530200045416303`*^9, {3.7885030525030107`*^9, 3.7885030592759047`*^9}, { 3.818904755546356*^9, 3.8189048128461294`*^9}, 3.820024775397682*^9}, CellLabel-> "In[293]:=",ExpressionUUID->"5e2f721b-ed56-4b79-9ea8-8d1f94b66f93"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"GENERICBAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", "ff_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]", ",", "s", ",", "x", ",", "uu", ",", "u0", ",", "u2", ",", "\[Delta]uu", ",", "F", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "AAA", ",", "EEE", ",", "\[Rho]\[Rho]\[Rho]", ",", "fff"}], "}"}], ",", "\[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[{"u0", "=", " ", RowBox[{"uu", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"u2", "=", " ", RowBox[{"uu", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", " ", "=", RowBox[{ RowBox[{"EE", "[", "x", "]"}], " ", RowBox[{"AA", "[", "x", "]"}], " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u0"}], "/", "h0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u0"}], "/", "h0"}], "]"}]}], " ", "F"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "u0", "]"}], " ", RowBox[{"ff", "[", "x", "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "u0", "]"}]}], " ", RowBox[{"\[Rho]\[Rho]", "[", "x", "]"}], " ", RowBox[{"AA", "[", "x", "]"}], " ", "u2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "h0"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, { 3.753019452689951*^9, 3.753019484970434*^9}, {3.7530196011509657`*^9, 3.753019673352596*^9}, {3.753019831211974*^9, 3.75301989711664*^9}, 3.7530200045416303`*^9, {3.7885030525030107`*^9, 3.7885030592759047`*^9}, { 3.818904755546356*^9, 3.8189048128461294`*^9}, 3.820024775397682*^9},ExpressionUUID->"9811c46f-63bc-4216-b1b4-\ d29a18bf4e52"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (stab) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.756267607734783*^9, 3.756267609945469*^9}, 3.7878947030333853`*^9},ExpressionUUID->"c72e91cc-693f-4ef5-a493-\ 086e7069f242"], 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.7562676525896635`*^9, 3.756267707097726*^9}, {3.7606671297197995`*^9, 3.7606671693669567`*^9}, {3.7885030281334577`*^9, 3.78850303141934*^9}, { 3.7885030692138157`*^9, 3.7885030730711346`*^9}, {3.7888331112134047`*^9, 3.788833121736215*^9}, 3.7890211201729145`*^9, {3.850965595585096*^9, 3.8509656478473897`*^9}}, CellLabel-> "In[295]:=",ExpressionUUID->"7a5a368b-5362-4a49-8b5b-c4d3dd4b2f50"] }, 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.7878947246772313`*^9}},ExpressionUUID->"bb2740ac-ec0f-41e6-92a7-\ db34eeaaa4da"], 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]", "[", 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, 3.753020083991325*^9, {3.7530201458865404`*^9, 3.753020147585074*^9}, { 3.7894406851054068`*^9, 3.7894406982798967`*^9}, {3.789456736272064*^9, 3.789456831643631*^9}, {3.8216141464350357`*^9, 3.821614249465634*^9}, { 3.8217727479052997`*^9, 3.8217727798972683`*^9}, {3.8217728196181326`*^9, 3.821772858846867*^9}, {3.8217733416981835`*^9, 3.8217733490574265`*^9}, { 3.852693331201587*^9, 3.8526934718702607`*^9}}, CellLabel-> "In[297]:=",ExpressionUUID->"35e5187b-5439-4349-8c79-2e276a933f2f"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (tmec) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.753019375620509*^9, 3.753019378557259*^9}, {3.7530200248509674`*^9, 3.7530200339415607`*^9}, 3.7575039589097877`*^9, {3.7878947510437098`*^9, 3.7878947515126114`*^9}, 3.7901298129642305`*^9},ExpressionUUID->"ccb08159-1c02-418a-a04d-\ cf4a0477d307"], 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, 3.7530202209165316`*^9, {3.7898060059373465`*^9, 3.7898060199153595`*^9}, { 3.8223694609291615`*^9, 3.8223694626206393`*^9}, {3.850614635752848*^9, 3.850614714304345*^9}, {3.8506148466526003`*^9, 3.850615010959174*^9}, { 3.8506155810199738`*^9, 3.8506156273379755`*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"27681318-7fa4-43e2-82fd-3f4b32f00609"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 3.787894760728943*^9}, 3.7878948945295725`*^9},ExpressionUUID->"a4000ffe-f46b-4157-85fc-\ 82a4512a98e6"], 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[{ "r0", ",", "h0", ",", "ix0", ",", "\[Theta]x", ",", "\[Delta]\[Theta]x", ",", "GG1", ",", "GG2", ",", "GG3", ",", "JJ1", ",", "JJ2", ",", "JJ3", ",", "mx1", ",", "mx2", ",", "mx3", ",", "nl", ",", "rule"}], "}"}], ",", "\[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[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "i_", "]"}], ":=", RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "i_", "]"}], ":=", RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]x", "[", "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[{"GG1", ",", "GG2", ",", "GG3"}], "}"}], "=", RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"JJ1", ",", "JJ2", ",", "JJ3"}], "}"}], "=", RowBox[{"JJ", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx1", ",", "mx2", ",", "mx3"}], "}"}], "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{ RowBox[{"mX", " ", "/.", "rule"}], ",", RowBox[{"mY", " ", "/.", "rule"}], ",", RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"30", " ", SuperscriptBox["h0", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"JJ1", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "GG1"}], "+", RowBox[{"2", " ", "GG2"}], "-", "GG3"}], ")"}]}], "+", RowBox[{"2", " ", "JJ2", " ", RowBox[{"(", RowBox[{"GG1", "+", RowBox[{"8", " ", "GG2"}], "+", "GG3"}], ")"}]}], "+", RowBox[{"JJ3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "GG1"}], "+", RowBox[{"2", " ", "GG2"}], "+", RowBox[{"4", " ", "GG3"}]}], ")"}]}]}], ")"}]}], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mx1", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"mx3", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"2", " ", "mx2", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.9089347640478306`*^9, 3.908934764877185*^9}}, CellLabel-> "In[303]:=",ExpressionUUID->"f3ba3a74-d66e-414a-8df1-d6fda4182eb2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[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[{ "r0", ",", "h0", ",", "ix0", ",", "\[Theta]x", ",", "\[Delta]\[Theta]x", ",", "GG1", ",", "GG2", ",", "GG3", ",", "JJ1", ",", "JJ2", ",", "JJ3", ",", "mx1", ",", "mx2", ",", "mx3", ",", "nl", ",", "rule"}], "}"}], ",", "\[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[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "i_", "]"}], ":=", RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "i_", "]"}], ":=", RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]x", "[", "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[{"GG1", ",", "GG2", ",", "GG3"}], "}"}], "=", RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"JJ1", ",", "JJ2", ",", "JJ3"}], "}"}], "=", RowBox[{"JJ", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx1", ",", "mx2", ",", "mx3"}], "}"}], "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{ RowBox[{"mX", " ", "/.", "rule"}], ",", RowBox[{"mY", " ", "/.", "rule"}], ",", RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"30", " ", SuperscriptBox["h0", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"JJ1", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "GG1"}], "+", RowBox[{"2", " ", "GG2"}], "-", "GG3"}], ")"}]}], "+", RowBox[{"2", " ", "JJ2", " ", RowBox[{"(", RowBox[{"GG1", "+", RowBox[{"8", " ", "GG2"}], "+", "GG3"}], ")"}]}], "+", RowBox[{"JJ3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "GG1"}], "+", RowBox[{"2", " ", "GG2"}], "+", RowBox[{"4", " ", "GG3"}]}], ")"}]}]}], ")"}]}], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mx1", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"mx3", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"2", " ", "mx2", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, { 3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, { 3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, { 3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, { 3.8175324830973916`*^9, 3.817532552103792*^9}, {3.843704806259609*^9, 3.843704863557214*^9}, {3.8437049017363043`*^9, 3.8437049180939226`*^9}, { 3.901849144128734*^9, 3.9018491466402416`*^9}},ExpressionUUID->"2874f95e-75cd-4bdb-8106-\ 150c430d882a"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 3.787894760728943*^9}, 3.7878948945295725`*^9, {3.78815413936168*^9, 3.788154140564639*^9}},ExpressionUUID->"d3117ef6-9d9a-4098-8a9b-\ a474801fbceb"], 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[{ "r0", ",", "h0", ",", "ix0", ",", "\[Theta]x", ",", "\[Delta]\[Theta]x", ",", "rule", ",", "mx"}], "}"}], ",", "\[IndentingNewLine]", "\[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]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], "=", RowBox[{ RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"6", " ", "h0"}]], RowBox[{"(", RowBox[{ RowBox[{"3", " ", "mx", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"JJ", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, { 3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, { 3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, { 3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, { 3.788154182393029*^9, 3.7881542008707867`*^9}, {3.788154262468212*^9, 3.788154413095205*^9}, {3.788154445865172*^9, 3.7881544989994373`*^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}}, CellLabel-> "In[305]:=",ExpressionUUID->"5237a2a8-7531-4861-8ec7-231c8ac680cf"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (stab) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 3.787894760728943*^9}, 3.7878948945295725`*^9, {3.7890211428141956`*^9, 3.7890211435642633`*^9}},ExpressionUUID->"7901318a-a955-4960-9a6e-\ a062432dc242"], 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, { 3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, { 3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, { 3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, { 3.789021170161874*^9, 3.7890212153743477`*^9}}, CellLabel-> "In[307]:=",ExpressionUUID->"e79801e6-6827-4821-94b7-d026f09b7353"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (nonl) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 3.787894760728943*^9}, 3.7878948945295725`*^9, {3.7890211428141956`*^9, 3.7890211435642633`*^9}, {3.8216143327381015`*^9, 3.8216143387229114`*^9}},ExpressionUUID->"c56a5950-a048-4998-9c61-\ 40cd30785ecb"], 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.4426466268192453`*^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.4461863473556004`*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.4938811515079627`*^9, 3.4938811517107615`*^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.4957208443914003`*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.4957212942609997`*^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.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, { 3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, { 3.5007044087455997`*^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.5007163981823997`*^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.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527897997`*^9}, {3.5625699941459312`*^9, 3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, { 3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, { 3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 3.6297781672591486`*^9}, {3.6297782105906267`*^9, 3.6297787648833303`*^9}, {3.6297788067577257`*^9, 3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.6306592122375627`*^9, 3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, {3.6308362111739593`*^9, 3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, { 3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, { 3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, { 3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, { 3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, { 3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, { 3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, { 3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, { 3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, { 3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, { 3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, { 3.685341231602439*^9, 3.6853412388978567`*^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.6858541341643257`*^9, {3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, { 3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^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.6860123945753937`*^9}, {3.6860124484754686`*^9, 3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, { 3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, { 3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, { 3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, { 3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, { 3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, { 3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 3.6871473693028083`*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, { 3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, { 3.6924127522818885`*^9, 3.6924127586918974`*^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.6924168804381475`*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.6924169565082536`*^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.6927725838615656`*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^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.6937159892942686`*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, { 3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004557`*^9, 3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, { 3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, { 3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, { 3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, { 3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, { 3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.7496992868619986`*^9}, {3.7496993728466873`*^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.7530192458219423`*^9, 3.753019353286773*^9}, { 3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, { 3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 3.7739877466065903`*^9}, {3.7739878599976892`*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, { 3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, { 3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, { 3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, { 3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, { 3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, { 3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, { 3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, { 3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, { 3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, { 3.789021170161874*^9, 3.7890212153743477`*^9}, {3.8216143478699703`*^9, 3.821614443850371*^9}}, CellLabel-> "In[308]:=",ExpressionUUID->"ee5e6990-5413-45ba-bc80-9cf3278c9f04"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, { 3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 3.8519941462255764`*^9}},ExpressionUUID->"27b88952-8e52-493c-9a6e-\ a80f1369d864"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, { 3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, { 3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^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.8200273875005593`*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, { 3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, { 3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, { 3.851994384355441*^9, 3.851994388857566*^9}, {3.8519946139658265`*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.8520925534144993`*^9}}, CellLabel-> "In[309]:=",ExpressionUUID->"42f06758-5237-4e15-8583-023c92558984"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, { 3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 3.8519941462255764`*^9}, {3.8520799546994066`*^9, 3.852079955796615*^9}},ExpressionUUID->"bd9573d6-69c3-43f7-9842-\ 565f7c148867"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, 3.7633844800900145`*^9, {3.7650666220235834`*^9, 3.765066676848461*^9}, { 3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.7650670769609847`*^9}, {3.765075343296377*^9, 3.765075345014902*^9}, { 3.765075479631569*^9, 3.7650755114191623`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, {3.76507585422694*^9, 3.765075872425325*^9}, { 3.7650760811750383`*^9, 3.7650762635610576`*^9}, {3.7650763100785646`*^9, 3.765076323109063*^9}, {3.7650763765120716`*^9, 3.765076385469493*^9}, { 3.7650764317497897`*^9, 3.7650764864127855`*^9}, 3.765076672990033*^9, { 3.7650767604139767`*^9, 3.7650767965644426`*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, {3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, {3.7650770147173185`*^9, 3.7650770820420313`*^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.7650900911122713`*^9, 3.765090094160341*^9}, {3.765090519594511*^9, 3.7650905411898503`*^9}, { 3.7885193337832556`*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.7885194472501445`*^9}, {3.7885195529105897`*^9, 3.788519558251149*^9}, { 3.7885305232444134`*^9, 3.788530576893549*^9}, 3.788530695024667*^9, { 3.7885307280202837`*^9, 3.788530769626217*^9}, {3.7963483332994423`*^9, 3.796348466639106*^9}, {3.820027614612806*^9, 3.8200276304022093`*^9}, 3.8200276853924747`*^9, {3.829884589354769*^9, 3.8298846124571314`*^9}, 3.8520842379402337`*^9, {3.8520842684576464`*^9, 3.8520843062238846`*^9}, { 3.852084804512635*^9, 3.8520849353565645`*^9}, {3.8520851998691287`*^9, 3.852085265248603*^9}}, CellLabel-> "In[313]:=",ExpressionUUID->"4c35fd39-04a0-43ae-8dce-8b99138d4077"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, { 3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 3.8519941462255764`*^9}, {3.852427723407469*^9, 3.852427728727656*^9}},ExpressionUUID->"6e887df6-0cf9-40b9-b1d6-\ 8a3551c1b98e"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, { 3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, { 3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^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.8200273875005593`*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, { 3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, { 3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, { 3.851994384355441*^9, 3.851994388857566*^9}, {3.8519946139658265`*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.8520925534144993`*^9}, {3.85242776319461*^9, 3.852427782014557*^9}}, CellLabel-> "In[316]:=",ExpressionUUID->"05ee036c-9237-43ea-812c-20f26b8ccdfc"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, { 3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851995002562483*^9, 3.851995003043193*^9}},ExpressionUUID->"9e8bd901-5371-42e0-825b-\ 9f97356685c7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", 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[{"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}}, CellLabel-> "In[317]:=",ExpressionUUID->"99c39953-ed80-419c-bccd-bce5bd42d46f"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, { 3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, { 3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^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.8200273875005593`*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, { 3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, { 3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 3.8459716159320116`*^9}, {3.8754078006530256`*^9, 3.8754078338810463`*^9}, {3.901862474143671*^9, 3.9018624830719957`*^9}, { 3.9018626927148514`*^9, 3.9018627304761505`*^9}, {3.9018627816543417`*^9, 3.901862823926278*^9}, {3.9018631045751925`*^9, 3.901863298922026*^9}, { 3.9018633325066304`*^9, 3.9018634212072554`*^9}, {3.901863454589965*^9, 3.901863533031896*^9}, {3.9018635806692953`*^9, 3.9018635875748515`*^9}, { 3.9019311072211623`*^9, 3.901931309788501*^9}, {3.9019314301032715`*^9, 3.901931431054244*^9}, {3.901931467635719*^9, 3.901931504726559*^9}, { 3.901932364463219*^9, 3.901932378737213*^9}, {3.9019327373745213`*^9, 3.9019328813594475`*^9}, {3.9019329254652176`*^9, 3.9019329447067842`*^9}, {3.901932992981395*^9, 3.901933100237834*^9}, { 3.901933158149428*^9, 3.901933186202359*^9}, {3.9019334472019854`*^9, 3.9019334708118753`*^9}, {3.9019335323741903`*^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.9019412018094945`*^9, 3.9019412853248825`*^9}, {3.9019417929066167`*^9, 3.901941839500992*^9}, { 3.9019419531468377`*^9, 3.9019419931515484`*^9}, {3.9019421558237867`*^9, 3.9019421748097467`*^9}, {3.9019422729058495`*^9, 3.9019422947296243`*^9}, {3.9019425447980947`*^9, 3.9019425735330234`*^9}, 3.9019432011259775`*^9, 3.9019433019117823`*^9, {3.9019433916631427`*^9, 3.9019434068710995`*^9}, {3.9019444133350906`*^9, 3.9019445690600624`*^9}, 3.901944878193474*^9, {3.9019575852652316`*^9, 3.901957626860855*^9}, { 3.902306725915485*^9, 3.902306824541399*^9}, {3.90230685833694*^9, 3.902306859754896*^9}, {3.9023069235765295`*^9, 3.9023070273841867`*^9}, { 3.90230705949677*^9, 3.9023071988234973`*^9}, {3.902307349760401*^9, 3.902307355535943*^9}, 3.9023604974200444`*^9},ExpressionUUID->"44edfb23-52f1-4fb0-aac2-\ 46fe58366ff2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", "E8001", "|", RowBox[{"E1005", " ", "Classical", " ", "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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, { 3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, { 3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^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.8200273875005593`*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, { 3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, { 3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 3.8459716159320116`*^9}, {3.8754078006530256`*^9, 3.8754078338810463`*^9}, {3.901862474143671*^9, 3.9018624830719957`*^9}, { 3.9018626927148514`*^9, 3.9018627304761505`*^9}, {3.9018627816543417`*^9, 3.901862823926278*^9}, {3.9018631045751925`*^9, 3.901863298922026*^9}, { 3.9018633325066304`*^9, 3.9018634212072554`*^9}, {3.901863454589965*^9, 3.901863533031896*^9}, {3.9018635806692953`*^9, 3.9018635875748515`*^9}, { 3.9019311072211623`*^9, 3.901931309788501*^9}, {3.9019314301032715`*^9, 3.901931431054244*^9}, {3.901931467635719*^9, 3.901931504726559*^9}, { 3.901932364463219*^9, 3.901932378737213*^9}, {3.9019327373745213`*^9, 3.9019328813594475`*^9}, {3.9019329254652176`*^9, 3.9019329447067842`*^9}, {3.901932992981395*^9, 3.901933100237834*^9}, { 3.901933158149428*^9, 3.901933186202359*^9}, {3.9019334472019854`*^9, 3.9019334708118753`*^9}, {3.9019335323741903`*^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.9019412018094945`*^9, 3.9019412853248825`*^9}, {3.9019417929066167`*^9, 3.901941839500992*^9}, { 3.9019419531468377`*^9, 3.9019419931515484`*^9}, {3.9019421558237867`*^9, 3.9019421748097467`*^9}, {3.9019422729058495`*^9, 3.9019422947296243`*^9}, {3.9019425447980947`*^9, 3.9019425735330234`*^9}, 3.9019432011259775`*^9, 3.9019433019117823`*^9, {3.9019433916631427`*^9, 3.9019434068710995`*^9}, {3.9019444133350906`*^9, 3.9019445690600624`*^9}, 3.901944878193474*^9, {3.9019575852652316`*^9, 3.901957626860855*^9}, { 3.902306725915485*^9, 3.902306824541399*^9}, {3.90230685833694*^9, 3.902306859754896*^9}, {3.9023069235765295`*^9, 3.9023070273841867`*^9}, { 3.90230705949677*^9, 3.9023071988234973`*^9}, {3.902307349760401*^9, 3.902307355535943*^9}, {3.9023604974200444`*^9, 3.902360545503408*^9}}, CellLabel-> "In[323]:=",ExpressionUUID->"79b19e6e-2d72-4d8d-9472-5bf96b08cd42"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"element", " ", "build", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Kappa]x_"}], "}"}], ",", 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]", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "FF", ",", "FFINV", ",", "PP", ",", "ns", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "Irr", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wbrn", ",", "\[Delta]WW", ",", "equ", ",", "sol", ",", "bl", ",", "EEE", ",", "GGG", ",", "\[Kappa]\[Kappa]\[Kappa]", ",", "AAA", ",", "SSz", ",", "SSy", ",", "IIyy", ",", "IIzz", ",", "IIyz", ",", "ffx", ",", "ffy", ",", "ffz", ",", "mmx", ",", "mmy", ",", "mmz", ",", "\[Alpha]"}], "}"}], ",", "\[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[{"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]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"use", " ", "two", " ", "internal", " ", "nodes"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", " ", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "\[Alpha]"}], "}"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "1", "]"}], ",", RowBox[{"b", "[", "2", "]"}], ",", RowBox[{"b", "[", "3", "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "4", "]"}], ",", RowBox[{"b", "[", "5", "]"}], ",", RowBox[{"b", "[", "6", "]"}]}], "}"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "7", "]"}], ",", RowBox[{"b", "[", "8", "]"}], ",", RowBox[{"b", "[", "9", "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "10", "]"}], ",", RowBox[{"b", "[", "11", "]"}], ",", RowBox[{"b", "[", "12", "]"}]}], "}"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGG", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "GG", "]"}], "===", "Function"}], ",", RowBox[{"GG", "[", "x", "]"}], ",", "GG"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sz", "]"}], "===", "Function"}], ",", RowBox[{"Sz", "[", "x", "]"}], ",", "Sz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sy", "]"}], "===", "Function"}], ",", RowBox[{"Sy", "[", "x", "]"}], ",", "Sy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyy", "]"}], "===", "Function"}], ",", RowBox[{"Iyy", "[", "x", "]"}], ",", "Iyy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIzz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Izz", "]"}], "===", "Function"}], ",", RowBox[{"Izz", "[", "x", "]"}], ",", "Izz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyz", "]"}], "===", "Function"}], ",", RowBox[{"Iyz", "[", "x", "]"}], ",", "Iyz"}], "]"}]}], ";", "\[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[{"mmx", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mx", "]"}], "===", "Function"}], ",", RowBox[{"mx", "[", "x", "]"}], ",", "mx"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "my", "]"}], "===", "Function"}], ",", RowBox[{"my", "[", "x", "]"}], ",", "my"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mz", "]"}], "===", "Function"}], ",", RowBox[{"mz", "[", "x", "]"}], ",", "mz"}], "]"}]}], ";", "\[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[{"EEE", " ", "AAA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GGG", " ", "AAA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GGG", " ", "AAA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "SSy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GGG"}], " ", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "SSz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Kappa]x", "*", RowBox[{"(", RowBox[{ RowBox[{"GGG", " ", "IIyy"}], "+", RowBox[{"GGG", " ", "IIzz"}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "IIyy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}], ",", RowBox[{"EEE", " ", "IIzz"}]}], "}"}]}], "}"}]}], ";", "\[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]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]"}], "+", RowBox[{"CE", ".", "\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]"}], "+", 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[{"ffx", ",", "ffy", ",", "ffz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mmx", ",", "mmy", ",", "mmz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wbrn", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"2", ";;", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"2", ";;", "3"}], "]"}], "]"}]}], "*", "bl"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wbrn"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wbrn"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"eliminate", " ", "internals"}], "*)"}], "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Delta]b", "[", "ii", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "12"}], "}"}]}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", "ii", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "go", " ", "to", " ", "the", " ", "Bernoulli", " ", "limit"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{"\[Delta]WW", " ", "/.", "sol"}], ",", RowBox[{"bl", "\[Rule]", "Infinity"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[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]", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "FF", ",", "FFINV", ",", "PP", ",", "ns", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "Irr", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wbrn", ",", "\[Delta]WW", ",", "equ", ",", "sol", ",", "bl", ",", "EEE", ",", "GGG", ",", "\[Kappa]\[Kappa]\[Kappa]", ",", "AAA", ",", "SSz", ",", "SSy", ",", "IIyy", ",", "IIzz", ",", "IIyz", ",", "ffx", ",", "ffy", ",", "ffz", ",", "mmx", ",", "mmy", ",", "mmz", ",", "\[Alpha]"}], "}"}], ",", "\[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[{"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]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"use", " ", "two", " ", "internal", " ", "nodes"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", " ", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "\[Alpha]"}], "}"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "1", "]"}], ",", RowBox[{"b", "[", "2", "]"}], ",", RowBox[{"b", "[", "3", "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "4", "]"}], ",", RowBox[{"b", "[", "5", "]"}], ",", RowBox[{"b", "[", "6", "]"}]}], "}"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "7", "]"}], ",", RowBox[{"b", "[", "8", "]"}], ",", RowBox[{"b", "[", "9", "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", "10", "]"}], ",", RowBox[{"b", "[", "11", "]"}], ",", RowBox[{"b", "[", "12", "]"}]}], "}"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGG", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "GG", "]"}], "===", "Function"}], ",", RowBox[{"GG", "[", "x", "]"}], ",", "GG"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sz", "]"}], "===", "Function"}], ",", RowBox[{"Sz", "[", "x", "]"}], ",", "Sz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sy", "]"}], "===", "Function"}], ",", RowBox[{"Sy", "[", "x", "]"}], ",", "Sy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyy", "]"}], "===", "Function"}], ",", RowBox[{"Iyy", "[", "x", "]"}], ",", "Iyy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIzz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Izz", "]"}], "===", "Function"}], ",", RowBox[{"Izz", "[", "x", "]"}], ",", "Izz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyz", "]"}], "===", "Function"}], ",", RowBox[{"Iyz", "[", "x", "]"}], ",", "Iyz"}], "]"}]}], ";", "\[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[{"mmx", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mx", "]"}], "===", "Function"}], ",", RowBox[{"mx", "[", "x", "]"}], ",", "mx"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "my", "]"}], "===", "Function"}], ",", RowBox[{"my", "[", "x", "]"}], ",", "my"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mz", "]"}], "===", "Function"}], ",", RowBox[{"mz", "[", "x", "]"}], ",", "mz"}], "]"}]}], ";", "\[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[{"EEE", " ", "AAA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GGG", " ", "AAA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GGG", " ", "AAA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "SSy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GGG"}], " ", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "SSz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"GGG", " ", "IIyy"}], "+", RowBox[{"GGG", " ", "IIzz"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "IIyy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}], ",", RowBox[{"EEE", " ", "IIzz"}]}], "}"}]}], "}"}]}], ";", "\[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]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]"}], "+", RowBox[{"CE", ".", "\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]"}], "+", 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[{"ffx", ",", "ffy", ",", "ffz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mmx", ",", "mmy", ",", "mmz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wbrn", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"2", ";;", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"2", ";;", "3"}], "]"}], "]"}]}], "*", "bl"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wbrn"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wbrn"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"eliminate", " ", "internals"}], "*)"}], "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Delta]b", "[", "ii", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "12"}], "}"}]}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", "ii", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "go", " ", "to", " ", "the", " ", "Bernoulli", " ", "limit"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{"\[Delta]WW", " ", "/.", "sol"}], ",", RowBox[{"bl", "\[Rule]", "Infinity"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, 3.851995321450799*^9, 3.8519953606861525`*^9, {3.9019413608980026`*^9, 3.901941371915325*^9}, {3.9019441484505076`*^9, 3.9019441640068502`*^9}},ExpressionUUID->"78f789b1-55c9-45bf-a595-\ a4aedbc461d3"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp 1:st) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362982159668*^9}, {3.787894778048681*^9, 3.7878948056524777`*^9}, {3.787894853900061*^9, 3.7878948799797325`*^9}, 3.788518934866293*^9, {3.7885300329539347`*^9, 3.7885300364009333`*^9}, 3.788530671733654*^9, {3.8200271779079833`*^9, 3.8200271816696315`*^9}, { 3.820027559976658*^9, 3.820027565268735*^9}, {3.8519950922439923`*^9, 3.8519950951031284`*^9}, {3.852092988966981*^9, 3.852092991459448*^9}},ExpressionUUID->"fbcc1a48-7fbe-4786-b89a-\ 013010ef5943"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, {3.763363167452371*^9, 3.7633631784968414`*^9}, { 3.7633632517661986`*^9, 3.7633633364892464`*^9}, 3.763363375651574*^9, { 3.7633634067692766`*^9, 3.7633634260616302`*^9}, 3.7740707523990946`*^9, { 3.7740707829932833`*^9, 3.7740707878092556`*^9}, {3.7740708390374384`*^9, 3.7740708397395124`*^9}, {3.783227748950984*^9, 3.7832277492008963`*^9}, { 3.783227785707693*^9, 3.7832278143641577`*^9}, {3.7832278856705203`*^9, 3.7832279652392664`*^9}, {3.7832285261117268`*^9, 3.7832285921982536`*^9}, {3.783228737502862*^9, 3.78322877106949*^9}, { 3.783228913503404*^9, 3.783228974160059*^9}, {3.7832316543548126`*^9, 3.783231867293047*^9}, {3.78324783313018*^9, 3.7832478882254915`*^9}, { 3.783247918659526*^9, 3.783247936428216*^9}, {3.783247974038493*^9, 3.783247982976531*^9}, {3.783313226071577*^9, 3.7833132588540363`*^9}, 3.783313524738693*^9, 3.783314136984562*^9, 3.7834872060638447`*^9, 3.7837554878717237`*^9, {3.7837555335024405`*^9, 3.783755772186054*^9}, { 3.7838247043960843`*^9, 3.7838247173728824`*^9}, {3.7838316560507956`*^9, 3.7838316617616296`*^9}, 3.783831747278124*^9, {3.7838318003068686`*^9, 3.783831865083964*^9}, {3.783832157749748*^9, 3.7838321754150395`*^9}, 3.7838360879476986`*^9, {3.7838361186647277`*^9, 3.7838361777821407`*^9}, 3.7838382113157587`*^9, {3.78790294596488*^9, 3.7879029543299*^9}, { 3.7879030013387113`*^9, 3.7879030724054327`*^9}, {3.788518535581091*^9, 3.7885185816698837`*^9}, 3.7885186656840887`*^9, {3.788518750049559*^9, 3.7885188089248676`*^9}, {3.7922858050278015`*^9, 3.792285809644437*^9}, { 3.7922858997988377`*^9, 3.7922859032607307`*^9}, {3.792285934988084*^9, 3.7922859387881565`*^9}, {3.792286145687361*^9, 3.792286169387656*^9}, { 3.792286200995656*^9, 3.792286297490285*^9}, {3.792286331275391*^9, 3.792286495725276*^9}, {3.7922865286612988`*^9, 3.7922866344845324`*^9}, 3.792286868323101*^9, {3.792287008797488*^9, 3.792287076398588*^9}, { 3.847260050156146*^9, 3.8472600520411935`*^9}, {3.8472600827470026`*^9, 3.847260083816955*^9}, {3.847260159371749*^9, 3.8472603245136585`*^9}, { 3.8472610396461535`*^9, 3.847261042450612*^9}, {3.8611531848063846`*^9, 3.8611533094140654`*^9}, {3.8611534192342343`*^9, 3.86115345351521*^9}, { 3.8611574733568163`*^9, 3.861157585128314*^9}, {3.8611576472702165`*^9, 3.861157667943701*^9}, {3.8611577144000273`*^9, 3.8611577481431246`*^9}, { 3.8611632355045013`*^9, 3.8611632377814045`*^9}, {3.8611632785878115`*^9, 3.8611632869508305`*^9}}, CellLabel-> "In[329]:=",ExpressionUUID->"c5153e4f-f20c-44fe-8685-08d062832088"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018818586525*^9}, { 3.7650665335992107`*^9, 3.765066539129182*^9}, {3.7878948161443896`*^9, 3.787894878450323*^9}, 3.7885192008078794`*^9, {3.8200277665922365`*^9, 3.8200277671230316`*^9}, {3.85199502324076*^9, 3.8519950237805815`*^9}},ExpressionUUID->"450f5ed7-0a36-48de-823d-\ abcc6ff4b10d"], 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[{"{", 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[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}]}], ";", "\[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[{"\[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", InitializationCell->True, CellChangeTimes->{{3.887436622649624*^9, 3.8874366389309998`*^9}, { 3.887436674331359*^9, 3.887436694327297*^9}, {3.887436729714511*^9, 3.887436823783098*^9}}, CellLabel-> "In[337]:=",ExpressionUUID->"1d7fcbef-cf63-465b-9394-1034bc7a3cf2"], 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[{"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", ",", "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", ",", "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_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 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", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", 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_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h", ",", "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", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz"}], "}"}], ",", "\[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[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fy", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"my", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mz", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"420", " ", SuperscriptBox["h", "3"]}]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "210"}], " ", "fx", " ", SuperscriptBox["h", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"420", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"70", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"70", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"720", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"5", " ", "fz", " ", SuperscriptBox["h", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"5", " ", "fy", " ", SuperscriptBox["h", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"360", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["h", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"15", " ", "fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"15", " ", "mx", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["h", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", "mz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"10", " ", "my", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"for", " ", "detailed", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", "iy0_", ",", RowBox[{"{", RowBox[{"yz_", ",", "obj_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, 3.7633844800900145`*^9, {3.7650666220235834`*^9, 3.765066676848461*^9}, { 3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.7650670769609847`*^9}, {3.765075343296377*^9, 3.765075345014902*^9}, { 3.765075479631569*^9, 3.7650755114191623`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, {3.76507585422694*^9, 3.765075872425325*^9}, { 3.7650760811750383`*^9, 3.7650762635610576`*^9}, {3.7650763100785646`*^9, 3.765076323109063*^9}, {3.7650763765120716`*^9, 3.765076385469493*^9}, { 3.7650764317497897`*^9, 3.7650764864127855`*^9}, 3.765076672990033*^9, { 3.7650767604139767`*^9, 3.7650767965644426`*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, {3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, {3.7650770147173185`*^9, 3.7650770820420313`*^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.7650900911122713`*^9, 3.765090094160341*^9}, {3.765090519594511*^9, 3.7650905411898503`*^9}, { 3.7885193337832556`*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.7885194472501445`*^9}, {3.7885195529105897`*^9, 3.788519558251149*^9}, { 3.7885305232444134`*^9, 3.788530576893549*^9}, 3.788530695024667*^9, { 3.7885307280202837`*^9, 3.788530769626217*^9}, {3.7963483332994423`*^9, 3.796348466639106*^9}, {3.820027614612806*^9, 3.8200276304022093`*^9}, 3.8200276853924747`*^9, {3.829884589354769*^9, 3.8298846124571314`*^9}, { 3.8520843315211163`*^9, 3.8520844713778353`*^9}, {3.852084551874168*^9, 3.852084660898754*^9}, {3.861157859395157*^9, 3.861157879471175*^9}, { 3.8611624669486127`*^9, 3.8611624948732452`*^9}, {3.861162530634388*^9, 3.8611625341321726`*^9}, {3.861162566428459*^9, 3.8611626015227003`*^9}}, CellLabel-> "In[169]:=",ExpressionUUID->"1151c495-0417-4f77-8161-7340f15d7ae9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "GG_", ",", "\[Rho]\[Rho]_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Xi]", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "NL", ",", "NQ", ",", "FF", ",", "FFINV", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "Irr", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "\[Delta]wbrn", ",", "\[Delta]WW", ",", "equ", ",", "sol", ",", "bl", ",", "EEE", ",", "GGG", ",", "\[Rho]\[Rho]\[Rho]", ",", "\[Kappa]\[Kappa]\[Kappa]", ",", "AAA", ",", "SSz", ",", "SSy", ",", "IIyy", ",", "IIzz", ",", "IIyz", ",", "JJp", ",", "ffx", ",", "ffy", ",", "ffz", ",", "mmx", ",", "mmy", ",", "mmz", ",", "A\[Rho]", ",", "B\[Rho]", ",", "C\[Rho]", ",", "\[Epsilon]0", ",", "\[Kappa]0"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"\[Xi]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]0", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "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[{"use", " ", "simple"}], "*)"}], "\[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\[Alpha]0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h\[Alpha]0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", 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[{"w", "=", RowBox[{"NQ", ".", 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[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "v"}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], ".", "FFINV"}]}], ";", "\[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[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGG", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "GG", "]"}], "===", "Function"}], ",", RowBox[{"GG", "[", "x", "]"}], ",", "GG"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]\[Rho]\[Rho]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Rho]\[Rho]", "]"}], "===", "Function"}], ",", RowBox[{"\[Rho]\[Rho]", "[", "x", "]"}], ",", "\[Rho]\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]\[Kappa]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Kappa]\[Kappa]", "]"}], "===", "Function"}], ",", RowBox[{"\[Kappa]\[Kappa]", "[", "x", "]"}], ",", "\[Kappa]\[Kappa]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sz", "]"}], "===", "Function"}], ",", RowBox[{"Sz", "[", "x", "]"}], ",", "Sz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sy", "]"}], "===", "Function"}], ",", RowBox[{"Sy", "[", "x", "]"}], ",", "Sy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyy", "]"}], "===", "Function"}], ",", RowBox[{"Iyy", "[", "x", "]"}], ",", "Iyy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIzz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Izz", "]"}], "===", "Function"}], ",", RowBox[{"Izz", "[", "x", "]"}], ",", "Izz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyz", "]"}], "===", "Function"}], ",", RowBox[{"Iyz", "[", "x", "]"}], ",", "Iyz"}], "]"}]}], ";", "\[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[{"mmx", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mx", "]"}], "===", "Function"}], ",", RowBox[{"mx", "[", "x", "]"}], ",", "mx"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "my", "]"}], "===", "Function"}], ",", RowBox[{"my", "[", "x", "]"}], ",", "my"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mz", "]"}], "===", "Function"}], ",", RowBox[{"mz", "[", "x", "]"}], ",", "mz"}], "]"}]}], ";", "\[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[{"EEE", " ", "AAA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GGG", " ", "AAA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GGG", " ", "AAA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "SSy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GGG"}], " ", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "SSz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "\[Kappa]\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{"IIyy", "+", "IIzz"}], ")"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "IIyy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}], ",", RowBox[{"EEE", " ", "IIzz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inertia", " ", "properties"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AAA", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "AAA", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "AAA"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"C\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "SSy", ",", RowBox[{"-", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"SSz", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"IIyy", "+", "IIzz"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "IIyy", ",", RowBox[{"-", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "IIyz"}], ",", "IIzz"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]0", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "/", "h\[Alpha]0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]0", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]0"}], "+", RowBox[{"CE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]0"}], "+", RowBox[{"BE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]0", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]0", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"ffx", ",", "ffy", ",", "ffz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mmx", ",", "mmy", ",", "mmz"}], "}"}]}]}]}], ";", "\[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[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.885090789492631*^9, 3.8850908124909244`*^9}, 3.8850915079845037`*^9}, CellLabel-> "In[341]:=",ExpressionUUID->"bad642f1-fa5d-4d6c-9dde-a8164e9722c1"], Cell[BoxData[ RowBox[{"\[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_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE", ",", "GG", ",", "\[Rho]\[Rho]", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 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]_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", 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[{ "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", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz"}], "}"}], ",", "\[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", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fy", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"my", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mz", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"420", " ", SuperscriptBox["h0", "3"]}]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "210"}], " ", "fx", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"720", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"5", " ", "fz", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"5", " ", "fy", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "-", RowBox[{"360", " ", "EE", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", "GG", " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"10", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", "GG", " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"10", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"15", " ", "fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"15", " ", "mx", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Iyy"}], " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", "my"}], "+", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", "mz"}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"420", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"70", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"156", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"54", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"54", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"156", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "22"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "13"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"13", " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"22", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"22", " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, 3.7633844800900145`*^9, {3.7650666220235834`*^9, 3.765066676848461*^9}, { 3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.7650670769609847`*^9}, {3.765075343296377*^9, 3.765075345014902*^9}, { 3.765075479631569*^9, 3.7650755114191623`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, {3.76507585422694*^9, 3.765075872425325*^9}, { 3.7650760811750383`*^9, 3.7650762635610576`*^9}, {3.7650763100785646`*^9, 3.765076323109063*^9}, {3.7650763765120716`*^9, 3.765076385469493*^9}, { 3.7650764317497897`*^9, 3.7650764864127855`*^9}, 3.765076672990033*^9, { 3.7650767604139767`*^9, 3.7650767965644426`*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, {3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, {3.7650770147173185`*^9, 3.7650770820420313`*^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.7650900911122713`*^9, 3.765090094160341*^9}, {3.765090519594511*^9, 3.7650905411898503`*^9}, { 3.7885193337832556`*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.7885194472501445`*^9}, {3.7885195529105897`*^9, 3.788519558251149*^9}, { 3.7885305232444134`*^9, 3.7885305903888035`*^9}, {3.7885308807721663`*^9, 3.78853088502055*^9}, {3.8200276995553846`*^9, 3.82002773164934*^9}, 3.829884585166191*^9, {3.8298846167331247`*^9, 3.82988461691162*^9}},ExpressionUUID->"93e6aa41-4059-43f3-96f6-\ 72ffdef67f05"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "GG_", ",", "\[Rho]\[Rho]_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Xi]", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "NL", ",", "NQ", ",", "FF", ",", "FFINV", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "Irr", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "\[Delta]wbrn", ",", "\[Delta]WW", ",", "equ", ",", "sol", ",", "bl", ",", "EEE", ",", "GGG", ",", "\[Rho]\[Rho]\[Rho]", ",", "\[Kappa]\[Kappa]\[Kappa]", ",", "AAA", ",", "SSz", ",", "SSy", ",", "IIyy", ",", "IIzz", ",", "IIyz", ",", "JJp", ",", "ffx", ",", "ffy", ",", "ffz", ",", "mmx", ",", "mmy", ",", "mmz", ",", "A\[Rho]", ",", "B\[Rho]", ",", "C\[Rho]", ",", "\[Epsilon]0", ",", "\[Kappa]0"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"\[Xi]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]0", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "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[{"use", " ", "simple"}], "*)"}], "\[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\[Alpha]0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h\[Alpha]0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", 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[{"w", "=", RowBox[{"NQ", ".", 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[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "v"}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], ".", "FFINV"}]}], ";", "\[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[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGG", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "GG", "]"}], "===", "Function"}], ",", RowBox[{"GG", "[", "x", "]"}], ",", "GG"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]\[Rho]\[Rho]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Rho]\[Rho]", "]"}], "===", "Function"}], ",", RowBox[{"\[Rho]\[Rho]", "[", "x", "]"}], ",", "\[Rho]\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]\[Kappa]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Kappa]\[Kappa]", "]"}], "===", "Function"}], ",", RowBox[{"\[Kappa]\[Kappa]", "[", "x", "]"}], ",", "\[Kappa]\[Kappa]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sz", "]"}], "===", "Function"}], ",", RowBox[{"Sz", "[", "x", "]"}], ",", "Sz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sy", "]"}], "===", "Function"}], ",", RowBox[{"Sy", "[", "x", "]"}], ",", "Sy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyy", "]"}], "===", "Function"}], ",", RowBox[{"Iyy", "[", "x", "]"}], ",", "Iyy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIzz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Izz", "]"}], "===", "Function"}], ",", RowBox[{"Izz", "[", "x", "]"}], ",", "Izz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyz", "]"}], "===", "Function"}], ",", RowBox[{"Iyz", "[", "x", "]"}], ",", "Iyz"}], "]"}]}], ";", "\[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[{"mmx", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mx", "]"}], "===", "Function"}], ",", RowBox[{"mx", "[", "x", "]"}], ",", "mx"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "my", "]"}], "===", "Function"}], ",", RowBox[{"my", "[", "x", "]"}], ",", "my"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mz", "]"}], "===", "Function"}], ",", RowBox[{"mz", "[", "x", "]"}], ",", "mz"}], "]"}]}], ";", "\[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[{"EEE", " ", "AAA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GGG", " ", "AAA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GGG", " ", "AAA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "SSy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GGG"}], " ", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "SSz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "\[Kappa]\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{"IIyy", "+", "IIzz"}], ")"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "IIyy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}], ",", RowBox[{"EEE", " ", "IIzz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inertia", " ", "properties"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AAA", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "AAA", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "AAA"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"C\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "SSy", ",", RowBox[{"-", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"SSz", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"IIyy", "+", "IIzz"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "IIyy", ",", RowBox[{"-", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "IIyz"}], ",", "IIzz"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]0", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "/", "h\[Alpha]0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]0", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]0"}], "+", RowBox[{"CE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]0"}], "+", RowBox[{"BE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]0", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]0", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"ffx", ",", "ffy", ",", "ffz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mmx", ",", "mmy", ",", "mmz"}], "}"}]}]}]}], ";", "\[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[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[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", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAMB", ",", 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", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAMV", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "Jp_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "NL", ",", "NQ", ",", "FF", ",", "FFINV", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "Irr", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "\[Delta]wbrn", ",", "\[Delta]WW", ",", "equ", ",", "sol", ",", "bl", ",", "EEE", ",", "GGG", ",", "\[Rho]\[Rho]\[Rho]", ",", "\[Kappa]\[Kappa]\[Kappa]", ",", "AAA", ",", "SSz", ",", "SSy", ",", "IIyy", ",", "IIzz", ",", "IIyz", ",", "JJp", ",", "ffx", ",", "ffy", ",", "ffz", ",", "mmx", ",", "mmy", ",", "mmz", ",", "A\[Rho]", ",", "B\[Rho]", ",", "C\[Rho]", ",", "\[Epsilon]0", ",", "\[Kappa]0"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"\[Xi]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]0", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "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[{"use", " ", "simple"}], "*)"}], "\[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\[Alpha]0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h\[Alpha]0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", 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[{"w", "=", RowBox[{"NQ", ".", 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[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "v"}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], ".", "FFINV"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"rule", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"rule", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"rule", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"rule", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGG", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "GG", "]"}], "===", "Function"}], ",", RowBox[{"GG", "[", "x", "]"}], ",", "GG"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]\[Rho]\[Rho]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Rho]\[Rho]", "]"}], "===", "Function"}], ",", RowBox[{"\[Rho]\[Rho]", "[", "x", "]"}], ",", "\[Rho]\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sz", "]"}], "===", "Function"}], ",", RowBox[{"Sz", "[", "x", "]"}], ",", "Sz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SSy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Sy", "]"}], "===", "Function"}], ",", RowBox[{"Sy", "[", "x", "]"}], ",", "Sy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyy", "]"}], "===", "Function"}], ",", RowBox[{"Iyy", "[", "x", "]"}], ",", "Iyy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIzz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Izz", "]"}], "===", "Function"}], ",", RowBox[{"Izz", "[", "x", "]"}], ",", "Izz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIyz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Iyz", "]"}], "===", "Function"}], ",", RowBox[{"Iyz", "[", "x", "]"}], ",", "Iyz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"JJp", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "Jp", "]"}], "===", "Function"}], ",", RowBox[{"Jp", "[", "x", "]"}], ",", "Jp"}], "]"}]}], ";", "\[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[{"mmx", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mx", "]"}], "===", "Function"}], ",", RowBox[{"mx", "[", "x", "]"}], ",", "mx"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmy", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "my", "]"}], "===", "Function"}], ",", RowBox[{"my", "[", "x", "]"}], ",", "my"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmz", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "mz", "]"}], "===", "Function"}], ",", RowBox[{"mz", "[", "x", "]"}], ",", "mz"}], "]"}]}], ";", "\[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[{"EEE", " ", "AAA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GGG", " ", "AAA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GGG", " ", "AAA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "SSy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GGG"}], " ", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "SSz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GGG", " ", "JJp"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EEE", " ", "IIyy"}], ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EEE"}], " ", "IIyz"}], ",", RowBox[{"EEE", " ", "IIzz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inertia", " ", "properties"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AAA", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "AAA", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "AAA"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"C\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "SSy", ",", RowBox[{"-", "SSz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "SSy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"SSz", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"\[Rho]\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"IIyy", "+", "IIzz"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "IIyy", ",", RowBox[{"-", "IIyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "IIyz"}], ",", "IIzz"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]0", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "/", "h\[Alpha]0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]0", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]0"}], "+", RowBox[{"CE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]0"}], "+", RowBox[{"BE", ".", "\[Kappa]0"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]0", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]0", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"ffx", ",", "ffy", ",", "ffz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mmx", ",", "mmy", ",", "mmz"}], "}"}]}]}]}], ";", "\[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[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[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_", ",", "Jp_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "Jp", ",", 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[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Ixy_", ",", "Jp_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h", ",", "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[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"420", " ", SuperscriptBox["h", "3"]}]], RowBox[{"(", RowBox[{ RowBox[{"210", " ", "fx", " ", SuperscriptBox["h", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"420", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"70", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"70", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"22", " ", "h", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "720"}], " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"360", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"6", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"6", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"6", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "GG", " ", "Jp", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "GG", " ", "Jp", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "GG", " ", "Jp", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "GG", " ", "Jp", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"20", " ", "EE", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"10", " ", "EE", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sy", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"10", " ", "EE", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"20", " ", "EE", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "EE", " ", "Sz", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"5", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], "-", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", SuperscriptBox["h", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"10", " ", "mz", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"10", " ", "mz", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"10", " ", "my", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"10", " ", "my", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", "fy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"30", " ", "fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"30", " ", "mx", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"21", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"9", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"21", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"9", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"30", " ", "mx", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"9", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"21", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"9", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"21", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"21", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"9", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"21", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"9", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"20", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"20", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"10", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"10", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"9", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"21", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"9", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"21", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"10", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"10", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"20", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"20", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"8", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"8", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"5", " ", "Sy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"8", " ", "Iyy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"8", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"8", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"8", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"5", " ", "Sz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"8", " ", "Ixy", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"8", " ", "Izz", " ", "\[Rho]\[Rho]", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", "fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", "fy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"Sy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, 3.7633844800900145`*^9, {3.7650666220235834`*^9, 3.765066676848461*^9}, { 3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.7650670769609847`*^9}, {3.765075343296377*^9, 3.765075345014902*^9}, { 3.765075479631569*^9, 3.7650755114191623`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, {3.76507585422694*^9, 3.765075872425325*^9}, { 3.7650760811750383`*^9, 3.7650762635610576`*^9}, {3.7650763100785646`*^9, 3.765076323109063*^9}, {3.7650763765120716`*^9, 3.765076385469493*^9}, { 3.7650764317497897`*^9, 3.7650764864127855`*^9}, 3.765076672990033*^9, { 3.7650767604139767`*^9, 3.7650767965644426`*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, {3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, {3.7650770147173185`*^9, 3.7650770820420313`*^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.7650900911122713`*^9, 3.765090094160341*^9}, {3.765090519594511*^9, 3.7650905411898503`*^9}, { 3.7885193337832556`*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.7885194472501445`*^9}, {3.7885195529105897`*^9, 3.788519558251149*^9}, { 3.7885305232444134`*^9, 3.7885305903888035`*^9}, {3.7885308807721663`*^9, 3.78853088502055*^9}, {3.8200276995553846`*^9, 3.82002773164934*^9}},ExpressionUUID->"f0a302c2-7c34-478a-8549-\ 925dd3c0f634"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (vibr 1:st) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362982159668*^9}, {3.787894778048681*^9, 3.7878948056524777`*^9}, {3.787894853900061*^9, 3.7878948799797325`*^9}, 3.788518934866293*^9, {3.7885300329539347`*^9, 3.7885300364009333`*^9}, 3.788530671733654*^9, {3.8200271779079833`*^9, 3.8200271816696315`*^9}, { 3.820027559976658*^9, 3.820027565268735*^9}, {3.8519950922439923`*^9, 3.8519950951031284`*^9}, {3.852092988966981*^9, 3.852092991459448*^9}, { 3.861163315088343*^9, 3.8611633172552843`*^9}},ExpressionUUID->"2682fd43-240c-45f1-be84-\ bcda68ad1890"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", 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_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iy0", ",", "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", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Delta]Wint", ",", "\[Delta]Wext", ",", "\[Delta]Wine"}], "}"}], ",", "\[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[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iy0", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], ",", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fy", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "=", RowBox[{ RowBox[{"-", FractionBox["1", SuperscriptBox["h0", "3"]]}], RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "J", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wext", "=", RowBox[{ FractionBox["1", "12"], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fx", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"fz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"fy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ";", "\[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[{"ux", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", RowBox[{"70", " ", RowBox[{"ux", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"uz", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"12", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"uz", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}]}], "+", RowBox[{"12", " ", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uz", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]y", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uy", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"12", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uy", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}]}], "-", RowBox[{"12", " ", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", RowBox[{"1", ",", "0"}], "]"}], "-", RowBox[{"\[Delta]uy", "[", RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"1", ",", "2"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"1", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"2", ",", "0"}], "]"}], " ", RowBox[{"\[Theta]z", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "\[Delta]Wint", "+", "\[Delta]Wext", "+", "\[Delta]Wine"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, {3.763363167452371*^9, 3.7633631784968414`*^9}, { 3.7633632517661986`*^9, 3.7633633364892464`*^9}, 3.763363375651574*^9, { 3.7633634067692766`*^9, 3.7633634260616302`*^9}, 3.7740707523990946`*^9, { 3.7740707829932833`*^9, 3.7740707878092556`*^9}, {3.7740708390374384`*^9, 3.7740708397395124`*^9}, {3.783227748950984*^9, 3.7832277492008963`*^9}, { 3.783227785707693*^9, 3.7832278143641577`*^9}, {3.7832278856705203`*^9, 3.7832279652392664`*^9}, {3.7832285261117268`*^9, 3.7832285921982536`*^9}, {3.783228737502862*^9, 3.78322877106949*^9}, { 3.783228913503404*^9, 3.783228974160059*^9}, {3.7832316543548126`*^9, 3.783231867293047*^9}, {3.78324783313018*^9, 3.7832478882254915`*^9}, { 3.783247918659526*^9, 3.783247936428216*^9}, {3.783247974038493*^9, 3.783247982976531*^9}, {3.783313226071577*^9, 3.7833132588540363`*^9}, 3.783313524738693*^9, 3.783314136984562*^9, 3.7834872060638447`*^9, 3.7837554878717237`*^9, {3.7837555335024405`*^9, 3.783755772186054*^9}, { 3.7838247043960843`*^9, 3.7838247173728824`*^9}, {3.7838316560507956`*^9, 3.7838316617616296`*^9}, 3.783831747278124*^9, {3.7838318003068686`*^9, 3.783831865083964*^9}, {3.783832157749748*^9, 3.7838321754150395`*^9}, 3.7838360879476986`*^9, {3.7838361186647277`*^9, 3.7838361777821407`*^9}, 3.7838382113157587`*^9, {3.78790294596488*^9, 3.7879029543299*^9}, { 3.7879030013387113`*^9, 3.7879030724054327`*^9}, {3.788518535581091*^9, 3.7885185816698837`*^9}, 3.7885186656840887`*^9, {3.788518750049559*^9, 3.7885188089248676`*^9}, {3.7922858050278015`*^9, 3.792285809644437*^9}, { 3.7922858997988377`*^9, 3.7922859032607307`*^9}, {3.792285934988084*^9, 3.7922859387881565`*^9}, {3.792286145687361*^9, 3.792286169387656*^9}, { 3.792286200995656*^9, 3.792286297490285*^9}, {3.792286331275391*^9, 3.792286495725276*^9}, {3.7922865286612988`*^9, 3.7922866344845324`*^9}, 3.792286868323101*^9, {3.792287008797488*^9, 3.792287076398588*^9}, { 3.847260050156146*^9, 3.8472600520411935`*^9}, {3.8472600827470026`*^9, 3.847260083816955*^9}, {3.847260159371749*^9, 3.8472603245136585`*^9}, { 3.8472610396461535`*^9, 3.847261042450612*^9}, {3.8611531848063846`*^9, 3.8611533094140654`*^9}, {3.8611534192342343`*^9, 3.86115345351521*^9}, { 3.8611574733568163`*^9, 3.861157585128314*^9}, {3.8611576472702165`*^9, 3.861157667943701*^9}, {3.8611577144000273`*^9, 3.8611577481431246`*^9}, { 3.8611632355045013`*^9, 3.8611632377814045`*^9}, {3.8611632785878115`*^9, 3.8611632869508305`*^9}, 3.861163338711623*^9, 3.8611633942376785`*^9, { 3.861163442477656*^9, 3.8611635026103888`*^9}, 3.8611636139991503`*^9, { 3.8611637160405345`*^9, 3.8611637513470693`*^9}, 3.8611639227999945`*^9, { 3.8611639537914276`*^9, 3.861163956170941*^9}, {3.8611645570998807`*^9, 3.861164579586949*^9}, {3.8611648027854824`*^9, 3.8611648275617456`*^9}, { 3.8611648597129927`*^9, 3.861164927561531*^9}, 3.8611658933771553`*^9, 3.8611659556126223`*^9, {3.861165986544061*^9, 3.8611660505738163`*^9}, { 3.861166240432451*^9, 3.8611662421863394`*^9}, {3.861166291413879*^9, 3.8611662921005597`*^9}, {3.861166749112932*^9, 3.861166773527692*^9}, 3.8611669305040135`*^9, 3.8611669862430563`*^9, {3.8612643006141276`*^9, 3.861264315003033*^9}}, CellLabel-> "In[342]:=",ExpressionUUID->"4eec8df8-f45e-46ca-b99b-b2bb8fc7e641"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018818586525*^9}, { 3.7633844046177063`*^9, 3.7633844068273706`*^9}, {3.787894828329872*^9, 3.787894876950384*^9}, 3.788519172464745*^9},ExpressionUUID->"9ebb074d-4d72-48a8-9cf6-\ 4c32d244602e"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, { 3.788530117667017*^9, 3.788530117980694*^9}, 3.7885303696209583`*^9, 3.788530509305438*^9, {3.78853083351016*^9, 3.788530862892729*^9}, { 3.788530925928982*^9, 3.7885309671960435`*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, {3.788533559801361*^9, 3.7885336574548807`*^9}, { 3.788533916375413*^9, 3.7885339589240637`*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, {3.788571051580041*^9, 3.788571053084015*^9}, 3.7885714852753925`*^9, {3.7885715554496107`*^9, 3.7885715772004504`*^9}, { 3.788571696555899*^9, 3.7885717388241262`*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.7885718526796875`*^9, {3.7885719048201413`*^9, 3.788571938458513*^9}, {3.7885720197107735`*^9, 3.7885720203433733`*^9}, { 3.7885721579483404`*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.7885724747998886`*^9}, {3.7885725451809406`*^9, 3.7885725476052*^9}, { 3.788572796561078*^9, 3.7885727975057955`*^9}, 3.788572839094982*^9, { 3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.7885731714659753`*^9}, {3.7885733915788927`*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.7885736607323666`*^9, 3.7885736628162546`*^9}, {3.788573695779252*^9, 3.788573697977635*^9}, { 3.788573733478549*^9, 3.7885737372812753`*^9}, 3.788573918957203*^9, { 3.7885742166825914`*^9, 3.788574217920394*^9}, {3.7888329679101725`*^9, 3.788833009852073*^9}, {3.788833043135027*^9, 3.7888330914074025`*^9}, { 3.7888332335219045`*^9, 3.7888332629628363`*^9}, 3.7890212989633403`*^9, { 3.818906513404701*^9, 3.818906542445839*^9}, {3.852337533659197*^9, 3.8523375850504904`*^9}}, CellLabel-> "In[343]:=",ExpressionUUID->"7e4b6666-3a5e-45ea-a96b-7a94e360f6da"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, { 3.788530117667017*^9, 3.788530117980694*^9}, 3.7885303696209583`*^9, 3.788530509305438*^9, {3.78853083351016*^9, 3.788530862892729*^9}, { 3.788530925928982*^9, 3.7885309671960435`*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, {3.788533559801361*^9, 3.7885336574548807`*^9}, { 3.788533916375413*^9, 3.7885339589240637`*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, {3.788571051580041*^9, 3.788571053084015*^9}, 3.7885714852753925`*^9, {3.7885715554496107`*^9, 3.7885715772004504`*^9}, { 3.788571696555899*^9, 3.7885717388241262`*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.7885718526796875`*^9, {3.7885719048201413`*^9, 3.788571938458513*^9}, {3.7885720197107735`*^9, 3.7885720203433733`*^9}, { 3.7885721579483404`*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.7885724747998886`*^9}, {3.7885725451809406`*^9, 3.7885725476052*^9}, { 3.788572796561078*^9, 3.7885727975057955`*^9}, 3.788572839094982*^9, { 3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.7885731714659753`*^9}, {3.7885733915788927`*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.7885736607323666`*^9, 3.7885736628162546`*^9}, {3.788573695779252*^9, 3.788573697977635*^9}, { 3.788573733478549*^9, 3.7885738111703186`*^9}, {3.7888332726117997`*^9, 3.788833305367669*^9}},ExpressionUUID->"adab9ab6-5173-42f2-b654-\ 9513c61feb0c"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (nonl xz) defs ", "Subsection", CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, { 3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.8216146694524984`*^9, 3.8216146730659995`*^9}, {3.852092974762933*^9, 3.8520929752366495`*^9}, { 3.8524280520829296`*^9, 3.8524280542544956`*^9}, {3.852428196459839*^9, 3.8524281972980237`*^9}},ExpressionUUID->"016f3205-e07d-4083-b61d-\ 00f0d3f81c9f"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, { 3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.5579872166989803`*^9, {3.5599618621582537`*^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.6297802564412937`*^9, 3.6297802957377625`*^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.6297813946972933`*^9, 3.6297814529165955`*^9}, { 3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, { 3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, { 3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, { 3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, { 3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, { 3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, { 3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, { 3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, { 3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, { 3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, { 3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, { 3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, { 3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, { 3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, { 3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, { 3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, { 3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, { 3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, { 3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, { 3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, { 3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.6305687195002403`*^9}, {3.6305687542132254`*^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.6305703751399374`*^9, 3.630570526177576*^9}, { 3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, { 3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, { 3.6305892509956455`*^9, 3.6305892594820604`*^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.6305974605306463`*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, { 3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, { 3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, { 3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, { 3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, {3.6306760107574763`*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, { 3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, { 3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 3.6307213064777765`*^9}, {3.6307477437169704`*^9, 3.6307478284095197`*^9}, {3.6307478614971776`*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, { 3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 3.6307481498324842`*^9}, {3.6307489182430334`*^9, 3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.6307495547241516`*^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.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^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.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, { 3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, { 3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, { 3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, { 3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, { 3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, { 3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^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.6352172024924936`*^9, 3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 3.6352199485115566`*^9}, {3.6352200714185867`*^9, 3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, { 3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 3.6352205276526823`*^9}, {3.6352253191447396`*^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.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 3.6630719878027077`*^9}, {3.6630720702554235`*^9, 3.6630720807290225`*^9}, {3.6630721155740156`*^9, 3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, { 3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, { 3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 3.6852541660656357`*^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.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, { 3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, { 3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, { 3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, {3.6853311309428225`*^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.6853588857151337`*^9}, { 3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, { 3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, { 3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, { 3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, { 3.68605365168902*^9, 3.6860541446091995`*^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.6860552301962633`*^9}, {3.6860553465409174`*^9, 3.6860553998749685`*^9}, {3.6860556017188663`*^9, 3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, { 3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.6868048404922705`*^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.6868217282873783`*^9}, {3.6868225192884855`*^9, 3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, { 3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, { 3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, { 3.6868255183026843`*^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.6868272414950967`*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, { 3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, { 3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, { 3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, { 3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 3.6889087063437433`*^9}, {3.6889091647443852`*^9, 3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, { 3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, { 3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, { 3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, { 3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, { 3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, {3.6925390913352747`*^9, 3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^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.6925404886113567`*^9}, { 3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, { 3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, { 3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, { 3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, { 3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 3.6929664798829117`*^9}, {3.6929665643330297`*^9, 3.6929666141830997`*^9}, {3.6929670390036945`*^9, 3.6929670405536966`*^9}, {3.6929670861037607`*^9, 3.6929670952937737`*^9}, {3.6929671302538223`*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, { 3.6930146982034283`*^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.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, { 3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^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.6940907995669713`*^9, 3.6940909688872085`*^9}, { 3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.6940957644739223`*^9}, {3.6940960602743363`*^9, 3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, { 3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, {3.6946658702212186`*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, { 3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, { 3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^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.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, { 3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^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.7498177601545563`*^9, { 3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, { 3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 3.7505627331565337`*^9}, {3.7505627632642183`*^9, 3.7505627635859113`*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, { 3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, { 3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, { 3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, { 3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, { 3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, { 3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, { 3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, { 3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, { 3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, { 3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, { 3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, { 3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^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.7639580928074217`*^9}, { 3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, { 3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157394`*^9}, {3.7838342453955064`*^9, 3.7838342564437876`*^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.7838387026691084`*^9, 3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, { 3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, { 3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, { 3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, { 3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^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.8200273875005593`*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, { 3.8216146854806337`*^9, 3.8216146951363287`*^9}, {3.8216147521969256`*^9, 3.8216148295973682`*^9}, {3.852428110418418*^9, 3.8524282580965376`*^9}, { 3.8524282926566954`*^9, 3.8524283525785737`*^9}, {3.8524418028142138`*^9, 3.852441835111664*^9}, {3.8526155162841244`*^9, 3.852615518838768*^9}, { 3.852618384835059*^9, 3.8526183854788876`*^9}, {3.8526185653384037`*^9, 3.8526185655779724`*^9}, {3.852952260237672*^9, 3.8529522878415303`*^9}, { 3.8529525793242254`*^9, 3.8529525856490264`*^9}, {3.852959535316224*^9, 3.8529595898176904`*^9}, {3.8529665599131017`*^9, 3.852966564916722*^9}, { 3.852966693544965*^9, 3.852966727285118*^9}, {3.8529678456095867`*^9, 3.8529678780810432`*^9}}, CellLabel-> "In[348]:=",ExpressionUUID->"cbc84c99-28f1-4a62-9632-2e7a91b2a486"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp ++) defs ", "Subsection", CellChangeTimes->{{3.5579867801590133`*^9, 3.557986782249417*^9}, { 3.7530188279461737`*^9, 3.75301883733206*^9}, {3.7878948627741256`*^9, 3.787894875357033*^9}, {3.8216145697031803`*^9, 3.821614594102014*^9}},ExpressionUUID->"bbc505ac-d886-4568-83e2-\ 321f8b4a38b6"], 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.4430692071717997`*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780003`*^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.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938004`*^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.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^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.4444085087539997`*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944463997`*^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.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, { 3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^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.4466138994342003`*^9, 3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^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.4466395515755997`*^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.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, { 3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, { 3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, { 3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 3.4467283356012*^9}, {3.4467283707636003`*^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.4467818107525997`*^9, { 3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, { 3.4470344113984003`*^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.4470549103449388`*^9, 3.4470549116169386`*^9}, { 3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, { 3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, { 3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, { 3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, { 3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, { 3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, { 3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, { 3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, { 3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, { 3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^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.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, { 3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 3.4801246860536003`*^9}, {3.4801247748176003`*^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.4938987575920324`*^9, 3.4938987586840324`*^9}, {3.4941630624049997`*^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.4941641455754004`*^9}, {3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, { 3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, { 3.4950990979779997`*^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.4951006496219997`*^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.4987332972446003`*^9}, { 3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, { 3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, { 3.4987371921029997`*^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.5009573226744003`*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 3.5009898480289354`*^9}, {3.5009901464413357`*^9, 3.5009901475333357`*^9}, {3.5009901801997356`*^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.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 3.557658496030287*^9}, {3.5576585501779823`*^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.5576592187719584`*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.5577536609544907`*^9, 3.5577536637936954`*^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.5577549509363565`*^9, 3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, { 3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 3.5578389248635225`*^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.5578393285922318`*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 3.5578944029629993`*^9}, {3.5578944607611012`*^9, 3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, { 3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, { 3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, { 3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, { 3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, { 3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, { 3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, { 3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986797646644*^9, 3.55798683514911*^9, {3.557987389828085*^9, 3.5579873922616887`*^9}, { 3.5579875133023014`*^9, 3.5579875144099035`*^9}, {3.557997154019827*^9, 3.5579971543474274`*^9}, {3.5579990909992294`*^9, 3.5579990915764303`*^9}, {3.7515496219127665`*^9, 3.7515496234124207`*^9}, {3.7515496694634647`*^9, 3.751549670619442*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"0ac30366-d3eb-41d7-9c44-b7127840eb1a"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.817531574263208*^9, 3.8175315898614454`*^9}},ExpressionUUID->"93220a6d-0173-4e77-911e-\ dacc355adefd"], Cell[CellGroupData[{ Cell["PLANE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.7661404367673664`*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.902293247089567*^9, 3.9022932539618015`*^9}},ExpressionUUID->"2a82557e-888a-4c11-8f80-\ 7aab10a2d264"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRESS", ",", 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[{"PLANESTRESS", ",", 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[{"PLANESTRESS", ",", 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", ",", "ul", ",", "vl", ",", "rule", ",", "Em", ",", "\[Nu]m", ",", "tm", ",", "fXm", ",", "fYm", ",", "fZm", ",", "NN", ",", "u", ",", "v", ",", "\[Epsilon]\[Epsilon]", ",", "EM", ",", "N", ",", "\[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[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"use", " ", "the", " ", "mean", " ", "values"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "]"}]}], ",", RowBox[{"a1_", ":>", "a1"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Em", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Nu]m", "=", RowBox[{"\[Nu]\[Nu]", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"tm", "=", RowBox[{"tt", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXm", "=", RowBox[{"fX", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fYm", "=", RowBox[{"fY", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"fZm", "=", RowBox[{"fZ", " ", "/.", "rule"}]}], ";", "\[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"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl"}], "}"}], ".", "NN"}]}], ";", "\[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[{"N", "=", RowBox[{"tt", "*", RowBox[{"EM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densiities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}], "*", "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]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRESS", ",", 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[{"PLANESTRESS", ",", 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[{"PLANESTRESS", ",", 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, { 3.7831421588326306`*^9, 3.783142170925208*^9}, {3.783142395749114*^9, 3.7831425154306135`*^9}, {3.7831425557309313`*^9, 3.783142564092332*^9}, { 3.7831427526814885`*^9, 3.783142754255293*^9}, {3.7831428098757677`*^9, 3.7831428571042147`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, { 3.7834095081721888`*^9, 3.783409552999109*^9}, {3.783409588525758*^9, 3.7834095907684803`*^9}, {3.783409662061564*^9, 3.7834096810274954`*^9}, { 3.7834097163188562`*^9, 3.7834098893742294`*^9}, {3.7834100221449327`*^9, 3.783410060241215*^9}, {3.7834101051335173`*^9, 3.7834101131745987`*^9}, { 3.783410606354042*^9, 3.783410612361685*^9}, {3.783410755716464*^9, 3.7834107918890605`*^9}, {3.7834108581708117`*^9, 3.7834108764020586`*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.7836572912656827`*^9}, {3.783657346545521*^9, 3.7836573583072553`*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.7847857118559847`*^9}, {3.7847931085113173`*^9, 3.7847931143650365`*^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.8146753026102443`*^9}, 3.8146767508872194`*^9, {3.8146767833631124`*^9, 3.8146768340288363`*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.8197788819676495`*^9}, {3.8200281551494493`*^9, 3.8200282443038893`*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.8469114507424884`*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.8469120984335556`*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.8469128572750063`*^9}, {3.8469129263437014`*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.8469133963598742`*^9, 3.8469134147191906`*^9}, { 3.8469134714459963`*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.8469135761291294`*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.8471062610359097`*^9}, { 3.8471075005414257`*^9, 3.8471075008503447`*^9}, {3.9022824720923843`*^9, 3.9022824781198587`*^9}, {3.9022829600169086`*^9, 3.9022831505965166`*^9}, {3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.9022842471553926`*^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.9022869290658464`*^9, 3.9022869806505194`*^9}, {3.9022870115481963`*^9, 3.9022870451170187`*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, { 3.902287261429595*^9, 3.9022872621972094`*^9}, {3.9022872922374983`*^9, 3.9022874011891346`*^9}, {3.9022884549195256`*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.9022932854613237`*^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.9093727797025776`*^9}, {3.909372814307292*^9, 3.9093728384376974`*^9}, {3.9093731372968454`*^9, 3.9093731533934703`*^9}, {3.909373331450612*^9, 3.9093733322065353`*^9}, 3.909373370357567*^9, {3.9093734274450407`*^9, 3.9093734449044933`*^9}, { 3.9093734820444093`*^9, 3.909373484221746*^9}, {3.9093736040532603`*^9, 3.909373655570702*^9}, {3.909373686899842*^9, 3.909373711076169*^9}, { 3.9093738526540537`*^9, 3.909373891412511*^9}, {3.9093739960283036`*^9, 3.90937401900063*^9}}, CellLabel-> "In[350]:=",ExpressionUUID->"3dcc9f4c-83a8-4f2c-bae8-bd605f9a206d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, { 3.7831421588326306`*^9, 3.783142170925208*^9}, {3.783142395749114*^9, 3.7831425154306135`*^9}, {3.7831425557309313`*^9, 3.783142564092332*^9}, { 3.7831427526814885`*^9, 3.783142754255293*^9}, {3.7831428098757677`*^9, 3.7831428571042147`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, { 3.7834095081721888`*^9, 3.783409552999109*^9}, {3.783409588525758*^9, 3.7834095907684803`*^9}, {3.783409662061564*^9, 3.7834096810274954`*^9}, { 3.7834097163188562`*^9, 3.7834098893742294`*^9}, {3.7834100221449327`*^9, 3.783410060241215*^9}, {3.7834101051335173`*^9, 3.7834101131745987`*^9}, { 3.783410606354042*^9, 3.783410612361685*^9}, {3.783410755716464*^9, 3.7834107918890605`*^9}, {3.7834108581708117`*^9, 3.7834108764020586`*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.7836572912656827`*^9}, {3.783657346545521*^9, 3.7836573583072553`*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.7847857118559847`*^9}, {3.7847931085113173`*^9, 3.7847931143650365`*^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.8146753026102443`*^9}, 3.8146767508872194`*^9, {3.8146767833631124`*^9, 3.8146768340288363`*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.8197788819676495`*^9}, {3.8200281551494493`*^9, 3.8200282443038893`*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.8469114507424884`*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.8469120984335556`*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.8469128572750063`*^9}, {3.8469129263437014`*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.8469133963598742`*^9, 3.8469134147191906`*^9}, { 3.8469134714459963`*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.8469135761291294`*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.8471062610359097`*^9}, { 3.8471075005414257`*^9, 3.8471075008503447`*^9}, {3.9022824720923843`*^9, 3.9022824781198587`*^9}, {3.9022829600169086`*^9, 3.9022831505965166`*^9}, {3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.9022842471553926`*^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.9022869290658464`*^9, 3.9022869806505194`*^9}, {3.9022870115481963`*^9, 3.9022870451170187`*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, { 3.902287261429595*^9, 3.9022872621972094`*^9}, {3.9022872922374983`*^9, 3.9022874011891346`*^9}, {3.9022884549195256`*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.9022932854613237`*^9, 3.9022933353721776`*^9}, {3.909367911293672*^9, 3.9093679394245987`*^9}, {3.9093680822641273`*^9, 3.909368084958804*^9}, { 3.9093682380554733`*^9, 3.9093682713258443`*^9}, 3.9093683479378915`*^9, { 3.9093684423586426`*^9, 3.909368455786158*^9}, {3.90936854137303*^9, 3.909368589477632*^9}, {3.909370163861785*^9, 3.909370165610799*^9}}, CellLabel-> "In[354]:=",ExpressionUUID->"4b447767-6eee-475f-84a2-4bcf9249462a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "xg", ",", "yg", ",", "jac", ",", "x3", ",", "y3", ",", "x6", ",", "y6", ",", "x", ",", "y", ",", "K3", ",", "N3", ",", "N6", ",", "u", ",", "v", ",", "\[Psi]", ",", "E\[Sigma]", ",", "\[Delta]w", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wmap", ",", "NN", ",", "FF", ",", "\[Epsilon]\[Epsilon]", ",", "tri"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "for", " ", "the", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x3", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y3", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"K3", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"xg", "=", RowBox[{"K3", ".", "x3"}]}], ";", "\[IndentingNewLine]", RowBox[{"yg", "=", RowBox[{"K3", ".", "y3"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "xg"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "xg"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "yg"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "yg"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"x6", "=", RowBox[{"Join", "[", RowBox[{"x3", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "#", "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x3", ",", RowBox[{"RotateLeft", "[", "x3", "]"}]}], "}"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y6", " ", "=", RowBox[{"Join", "[", RowBox[{"y3", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "#", "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"y3", ",", RowBox[{"RotateLeft", "[", "y3", "]"}]}], "}"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "x3", ",", "y3"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N6", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "x6", ",", "y6", ",", RowBox[{"x6", "*", "y6"}], ",", RowBox[{"x6", "^", "2"}], ",", RowBox[{"y6", "^", "2"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", "*", "y"}], ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"y", "^", "2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"N6", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"N6", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{"N3", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[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[{"E\[Sigma]", "=", 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[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"E\[Sigma]", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"(", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}], ")"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xg"}], ",", RowBox[{"y", "\[Rule]", "yg"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], "*", "fX"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "v", "]"}], "*", "fY"}]}], ")"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xg"}], ",", RowBox[{"y", "\[Rule]", "yg"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"TWODIM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", "node_", "]"}]}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TWODIM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"TWODIM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}], "]"}]}], "}"}], ",", "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[{"I1", ",", "I2", ",", "I3"}], "}"}]}], ";", "\[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[{"If", "[", RowBox[{ RowBox[{"MODE", "===", "DISP"}], ",", "\[IndentingNewLine]", RowBox[{ 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[{"Return", "[", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Simplify", "[", RowBox[{"\[Sigma]", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}], "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", "node_", "]"}]}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", "node", "]"}]}], "}"}], ",", "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_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e1", ",", "e2", ",", "e3", ",", "nn", ",", "PP", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "EECC", ",", "CCEE", ",", "CCCC", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3"}], "}"}]}], ";", "\[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[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[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", " ", "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[{ RowBox[{"(", RowBox[{"PP", ".", "nn"}], ")"}], "*", RowBox[{"(", RowBox[{"nn", ".", "\[Phi]\[Theta]\[Psi]"}], ")"}]}]}]}], ";", "\[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[{"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]", RowBox[{"EECC", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "l", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCEE", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCCC", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "l", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"tt", "*", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "EEEE", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"EECC", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "CCCC", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "CCEE"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "nn", ",", "nn"}], "]"}], "*", RowBox[{"1", "/", RowBox[{"(", RowBox[{"nn", ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE", ".", "nn"}], ")"}], ".", "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[{"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]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"EMS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "Mz_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "nodes_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e1", ",", "e2", ",", "e3", ",", "nn", ",", "PP", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "EECC", ",", "CCEE", ",", "CCCC", ",", "\[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]"}]}], "}"}]}], ";", 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[{"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]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[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", " ", "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[{ RowBox[{"(", RowBox[{"PP", ".", "nn"}], ")"}], "*", RowBox[{"(", RowBox[{"nn", ".", "\[Phi]\[Theta]\[Psi]"}], ")"}]}]}]}], ";", "\[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[{"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]", RowBox[{"EECC", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "l", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCEE", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCCC", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "l", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"tt", "*", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "EEEE", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"EECC", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "CCCC", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "CCEE"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "nn", ",", "nn"}], "]"}], "*", RowBox[{"1", "/", RowBox[{"(", RowBox[{"nn", ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE", ".", "nn"}], ")"}], ".", "nn"}], ")"}]}]}], ")"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", "-", 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[{"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]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "model_"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]0_", ",", "\[Lambda]\[Lambda]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "enode", " ", ",", "NN", ",", "\[Alpha]", ",", "\[Beta]", ",", "X", ",", "Y", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uv", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wlag"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ns", " ", "=", RowBox[{"Dimensions", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"enode", " ", "=", RowBox[{"Flatten", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "*", "\[Beta]"}], ",", RowBox[{"\[Alpha]", "*", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}], "=", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "ns", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", 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[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uv", "=", RowBox[{ RowBox[{"NN", "[", "ns", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "2", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uv"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uv"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"plane", "-", RowBox[{ "stress", " ", "or", " ", "strain", " ", "symmetric", " ", "elasticity", " ", "dyad"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "l", ",", "k"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "l", ",", "k"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "2"}], "}"}]}], "]"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"tt", "[", RowBox[{"X", ",", "Y"}], "]"}], "*", RowBox[{ RowBox[{"EE", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"model", "===", "strain"}], ",", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"tt", "[", RowBox[{"X", ",", "Y"}], "]"}], "*", RowBox[{ RowBox[{"EE", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]0", "[", RowBox[{"X", ",", "Y"}], "]"}], "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}], "+", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "DISP"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uv", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"fX", "[", RowBox[{"X", ",", "Y"}], "]"}], ",", RowBox[{"fY", "[", RowBox[{"X", ",", "Y"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wlag", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Lambda]\[Lambda]", "[", RowBox[{"X", ",", "Y"}], "]"}], "]"}], ".", "uv"}], "+", RowBox[{ RowBox[{"\[Lambda]\[Lambda]", "[", RowBox[{"X", ",", "Y"}], "]"}], ".", RowBox[{"\[Delta]", "[", "uv", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wlag"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Beta]", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "\[Delta]WW", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "POSTP"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{"\[Sigma]", "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Beta]", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "\[Delta]WW", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "at", " ", "the", " ", "centerpoint"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "STRESS"}], ",", RowBox[{"Return", "[", RowBox[{"\[Sigma]", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "/;", " ", RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"computational", " ", "homogenization", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"tt_", ",", "\[Epsilon]0_", ",", "\[Lambda]\[Lambda]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "\[Alpha]", ",", "\[Beta]", ",", "X", ",", "Y", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uv", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "s", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wlag"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ns", " ", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "6", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["\[Beta]", "2"]}], "-", RowBox[{"3", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}]}], ",", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], ",", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Beta]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Beta]", "+", "\[Alpha]"}], ")"}]}], ",", RowBox[{"4", " ", "\[Beta]", " ", "\[Alpha]"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Beta]", "+", "\[Alpha]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}], "=", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "ns", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uv", "=", RowBox[{ RowBox[{"NN", "[", "ns", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uv"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uv"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"plane", "-", RowBox[{ "stress", " ", "or", " ", "strain", " ", "symmetric", " ", "elasticity", " ", "dyad"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "l", ",", "k"}], "]"}], "]"}], "+", RowBox[{"IIII", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "l", ",", "k"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", "2"}], "}"}]}], "]"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"tt", "[", RowBox[{"X", ",", "Y"}], "]"}], "*", RowBox[{ RowBox[{"EE", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"model", "===", "strain"}], ",", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"tt", "[", RowBox[{"X", ",", "Y"}], "]"}], "*", RowBox[{ RowBox[{"EE", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", RowBox[{"\[Nu]\[Nu]", "[", RowBox[{"X", ",", "Y"}], "]"}]}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]0", "[", RowBox[{"X", ",", "Y"}], "]"}], "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}], "+", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "DISP"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uv", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"fX", "[", RowBox[{"X", ",", "Y"}], "]"}], ",", RowBox[{"fY", "[", RowBox[{"X", ",", "Y"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wlag", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Lambda]\[Lambda]", "[", RowBox[{"X", ",", "Y"}], "]"}], "]"}], ".", "uv"}], "+", RowBox[{ RowBox[{"\[Lambda]\[Lambda]", "[", RowBox[{"X", ",", "Y"}], "]"}], ".", RowBox[{"\[Delta]", "[", "uv", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wlag"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "\[Delta]WW", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "POSTP"}], ",", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{"\[Sigma]", "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", RowBox[{"Return", "[", "\[Delta]WW", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "at", " ", "the", " ", "centerpoint"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MODE", "\[Equal]", "STRESS"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{"\[Sigma]", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"s", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"s", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}]}], "}"}], "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "/;", " ", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", "3", "}"}]}], " ", "||", RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", "6", "}"}]}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, { 3.7831421588326306`*^9, 3.783142170925208*^9}, {3.783142395749114*^9, 3.7831425154306135`*^9}, {3.7831425557309313`*^9, 3.783142564092332*^9}, { 3.7831427526814885`*^9, 3.783142754255293*^9}, {3.7831428098757677`*^9, 3.7831428571042147`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, { 3.7834095081721888`*^9, 3.783409552999109*^9}, {3.783409588525758*^9, 3.7834095907684803`*^9}, {3.783409662061564*^9, 3.7834096810274954`*^9}, { 3.7834097163188562`*^9, 3.7834098893742294`*^9}, {3.7834100221449327`*^9, 3.783410060241215*^9}, {3.7834101051335173`*^9, 3.7834101131745987`*^9}, { 3.783410606354042*^9, 3.783410612361685*^9}, {3.783410755716464*^9, 3.7834107918890605`*^9}, {3.7834108581708117`*^9, 3.7834108764020586`*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.7836572912656827`*^9}, {3.783657346545521*^9, 3.7836573583072553`*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.7847857118559847`*^9}, {3.7847931085113173`*^9, 3.7847931143650365`*^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.8146753026102443`*^9}, 3.8146767508872194`*^9, {3.8146767833631124`*^9, 3.8146768340288363`*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.8197788819676495`*^9}, {3.8200281551494493`*^9, 3.8200282443038893`*^9}, 3.820028306018581*^9},ExpressionUUID->"95a66290-baa4-467c-ab52-\ 5f398d7ff50f"] }, Open ]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stre) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.7661404367673664`*^9}, { 3.7834159393565364`*^9, 3.783415939864867*^9}, {3.790129829798637*^9, 3.7901298377928085`*^9}, {3.8874361725753107`*^9, 3.887436175021082*^9}},ExpressionUUID->"f8d9bcc8-2394-4572-802f-\ e8d90d90fee4"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANESTRESS", ",", 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, { 3.7831421588326306`*^9, 3.783142170925208*^9}, {3.783142395749114*^9, 3.7831425154306135`*^9}, {3.7831425557309313`*^9, 3.783142564092332*^9}, { 3.7831427526814885`*^9, 3.783142754255293*^9}, {3.7831428098757677`*^9, 3.7831428571042147`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, { 3.7834095081721888`*^9, 3.783409552999109*^9}, {3.783409588525758*^9, 3.7834095907684803`*^9}, {3.783409662061564*^9, 3.7834096810274954`*^9}, { 3.7834097163188562`*^9, 3.7834098893742294`*^9}, {3.7834100221449327`*^9, 3.783410060241215*^9}, {3.7834101051335173`*^9, 3.7834101131745987`*^9}, { 3.783410606354042*^9, 3.783410612361685*^9}, {3.783410755716464*^9, 3.7834107918890605`*^9}, {3.7834108581708117`*^9, 3.7834108764020586`*^9}, {3.7834159554758463`*^9, 3.7834161146811748`*^9}, {3.7834161647621775`*^9, 3.783416208755393*^9}, { 3.7834163179588566`*^9, 3.7834163817031116`*^9}, {3.7834164360783715`*^9, 3.7834164850567703`*^9}, {3.7834166132894554`*^9, 3.7834166233562546`*^9}, 3.783416674821188*^9, {3.783417354030015*^9, 3.7834173639170065`*^9}, 3.783417417707629*^9, {3.8146751632720823`*^9, 3.814675196666747*^9}, { 3.847249940282611*^9, 3.8472499529957237`*^9}, {3.90936972629681*^9, 3.909369729810444*^9}, {3.909369767295085*^9, 3.9093697815631723`*^9}, 3.909370085721197*^9}, CellLabel-> "In[356]:=",ExpressionUUID->"ca5d2c29-4368-405f-9535-152c01462e8a"] }, Open ]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.7574178626155615`*^9, 3.757417866610338*^9}, { 3.7882369565320654`*^9, 3.788236957825534*^9}},ExpressionUUID->"b9c851ba-8696-4548-907c-\ 1f5ac36d6e4e"], 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, 3.7574180050911236`*^9, {3.7882499486380305`*^9, 3.788249965805548*^9}, 3.788250180826583*^9, {3.7882504752171006`*^9, 3.788250476401018*^9}, { 3.788250589938117*^9, 3.788250591161209*^9}, {3.7882506821511555`*^9, 3.7882506894349337`*^9}, {3.8146753539411077`*^9, 3.814675358135168*^9}, { 3.8200284878289385`*^9, 3.8200284930218515`*^9}, {3.820028529332723*^9, 3.8200285764790335`*^9}}, CellLabel-> "In[358]:=",ExpressionUUID->"fc2cf228-2d65-48ab-9b23-d5122487d6ec"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.7661404367673664`*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.7890213529026747`*^9, 3.7890213537383194`*^9}},ExpressionUUID->"819d6f04-a2ad-4c09-b6c7-\ 8bb59597faa3"], 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, { 3.7831421588326306`*^9, 3.783142170925208*^9}, {3.783142395749114*^9, 3.7831425154306135`*^9}, {3.7831425557309313`*^9, 3.783142564092332*^9}, { 3.7831427526814885`*^9, 3.783142754255293*^9}, {3.7831428098757677`*^9, 3.7831428571042147`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, { 3.7834095081721888`*^9, 3.783409552999109*^9}, {3.783409588525758*^9, 3.7834095907684803`*^9}, {3.783409662061564*^9, 3.7834096810274954`*^9}, { 3.7834097163188562`*^9, 3.7834098893742294`*^9}, {3.7834100221449327`*^9, 3.783410060241215*^9}, {3.7834101051335173`*^9, 3.7834101131745987`*^9}, { 3.783410606354042*^9, 3.783410612361685*^9}, {3.783410755716464*^9, 3.7834107918890605`*^9}, {3.7834108581708117`*^9, 3.7834108764020586`*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.7836572912656827`*^9}, {3.783657346545521*^9, 3.7836573583072553`*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.7847857118559847`*^9}, {3.7847931085113173`*^9, 3.7847931143650365`*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, 3.7890213628913355`*^9, {3.789021393201993*^9, 3.789021408295926*^9}, {3.7890214429674954`*^9, 3.7890214979516497`*^9}, { 3.7890215681110067`*^9, 3.7890215803212132`*^9}, {3.7890216445484834`*^9, 3.789021733239565*^9}, {3.7890218407693024`*^9, 3.789021950403524*^9}}, CellLabel-> "In[360]:=",ExpressionUUID->"6634e120-b453-4f84-8a85-a572ddda398b"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.7574169773814163`*^9, 3.7574169848245335`*^9}, { 3.7574180750707226`*^9, 3.757418078890803*^9}, {3.7577456071227565`*^9, 3.7577456152773933`*^9}, 3.790129668121153*^9},ExpressionUUID->"8a93012e-eaf6-48d0-a4c1-\ a68b4795d253"], 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574171303554697`*^9, 3.7574171843446183`*^9}, {3.7574172301540523`*^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.8146753964039536`*^9}, {3.8216148844365788`*^9, 3.8216149206900663`*^9}, 3.8217798501935825`*^9}, CellLabel-> "In[363]:=",ExpressionUUID->"f56e04b1-d506-4ae6-8d4b-4ad0843094d7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]_", ",", "\[Nu]_"}], "}"}], ",", RowBox[{"{", "t_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pol", ",", "sha", ",", "nod", ",", "x", ",", "y", ",", "NN", ",", "u", ",", "v", ",", "E\[Sigma]", ",", "EE", ",", "\[Delta]E", ",", "SS", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]WW"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nod", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"sha", "=", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pol", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nod", ",", "1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"sha", " ", ".", RowBox[{"Inverse", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"sha", " ", "/.", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", "pol"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nod", ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nod", ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"plane", " ", "stress", " ", "elasticity"}], "*)"}], "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", RowBox[{ RowBox[{"\[CapitalEpsilon]", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EE", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "^", "2"}]}], ")"}], "/", "2"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "^", "2"}]}], ")"}], "/", "2"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}], ")"}], "+", 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"}], ")"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]E", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "]"}], RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], "]"}], RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], "*", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "*", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "]"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}], "*", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "*", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], "]"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"t", " ", RowBox[{"E\[Sigma]", ".", "EE"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"\[Delta]E", ".", "SS"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], RowBox[{"Polygon", "[", "pol", "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"L", ">", "0"}]}]}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574171303554697`*^9, 3.7574171843446183`*^9}, {3.7574172301540523`*^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.8146753964039536`*^9}, {3.8216148844365788`*^9, 3.8216149206900663`*^9}, 3.8217798501935825`*^9},ExpressionUUID->"36d23eee-c000-42e6-8392-\ dbd28285e8d4"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.7577458100953183`*^9, 3.757745817919499*^9}, { 3.7901297746587725`*^9, 3.79012978895208*^9}},ExpressionUUID->"1459acfd-7ecf-47ef-b071-\ 68cc987b58b2"], 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.4426473093646455`*^9, 3.4426474078630457`*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.4426606694491997`*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782003`*^9, 3.4426609236566*^9}, {3.4426609993859997`*^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.4431850385318003`*^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.4455261966926003`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552349997`*^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.4455285464407997`*^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.4461848544096003`*^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.4512642788766003`*^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.4939932082060003`*^9}, {3.4939932399988003`*^9, 3.4939932614955997`*^9}, {3.493993300014*^9, 3.4939933073304*^9}, { 3.4939933992174*^9, 3.4939934078129997`*^9}, {3.4939934932314*^9, 3.493993515009*^9}, {3.4939935468556004`*^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.4994879529370003`*^9, 3.4994879707794*^9}, { 3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202003`*^9, 3.4994881177334003`*^9}, {3.4994884740218*^9, 3.4994884920554*^9}, { 3.4994885948282003`*^9, 3.4994886477434*^9}, {3.4994886790369997`*^9, 3.4994886860257998`*^9}, {3.4994887712953997`*^9, 3.4994887717478*^9}, { 3.6305517490219865`*^9, 3.6305518383945436`*^9}, 3.6305519329151096`*^9, { 3.6305521477354264`*^9, 3.6305521796235647`*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, {3.6305523097380066`*^9, 3.6305523261429453`*^9}, { 3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, {3.630552564078554*^9, 3.630552660703081*^9}, { 3.6308069732471952`*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, {3.632037136188613*^9, 3.6320372275628395`*^9}, { 3.632037282822*^9, 3.6320372864142056`*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, {3.6320374068820953`*^9, 3.632037461262206*^9}, { 3.632037495368157*^9, 3.6320375996761227`*^9}, {3.632037657282418*^9, 3.6320377668306837`*^9}, {3.6320377993975463`*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, { 3.632037974774577*^9, 3.63203804108137*^9}, {3.632038115937651*^9, 3.6320381168477035`*^9}, {3.632038171547832*^9, 3.6320381721648674`*^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.6320387578143644`*^9, 3.632038876049127*^9}, {3.632038925681966*^9, 3.6320390116098804`*^9}, {3.6320390559574175`*^9, 3.632039057440502*^9}, { 3.6320390909984217`*^9, 3.6320392794842024`*^9}, {3.6320393098219376`*^9, 3.6320393228646836`*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, { 3.6320395408921537`*^9, 3.6320395753041224`*^9}, {3.632039607865985*^9, 3.6320396287681804`*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, { 3.632040008307889*^9, 3.632040011081047*^9}, {3.632040111200774*^9, 3.6320401709411907`*^9}, {3.6320402797014112`*^9, 3.6320403974661474`*^9}, {3.6320411172793183`*^9, 3.6320411297080293`*^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.6320416691688843`*^9}, { 3.6320420632294235`*^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.6320430712580795`*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.6320432062678013`*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.6345677461009674`*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.6346120417672334`*^9}, {3.6346121382917542`*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.6346126554953365`*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.6348726356017313`*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.6348776427762833`*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, {3.63487832072106*^9, 3.634878440448908*^9}, { 3.6852817264030714`*^9, 3.6852817834531507`*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, {3.6879451060223227`*^9, 3.6879451445423765`*^9}, { 3.6879452810225677`*^9, 3.6879452918025827`*^9}, {3.6879455589529567`*^9, 3.687945567592969*^9}, {3.6879456213830442`*^9, 3.6879456613631*^9}, { 3.6879457292931952`*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, {3.6880230753425574`*^9, 3.688023230782775*^9}, 3.688023348002939*^9, {3.688023553833227*^9, 3.6880235620032387`*^9}, { 3.6880236295333333`*^9, 3.6880236382433453`*^9}, 3.6880237756035376`*^9, { 3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443466`*^9, 3.688111797854414*^9}, {3.6881166477118034`*^9, 3.688116649471806*^9}, { 3.688118444084318*^9, 3.6881185798545084`*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, {3.688118855204894*^9, 3.688118917084981*^9}, { 3.6881194959182944`*^9, 3.688119497718297*^9}, {3.6881196404384966`*^9, 3.688119655048517*^9}, {3.688119702888584*^9, 3.688119727678619*^9}, { 3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.6881202044892864`*^9, 3.688120237039332*^9}, {3.688120497669697*^9, 3.688120502989704*^9}, { 3.688120738340034*^9, 3.6881207493700495`*^9}, {3.6882745101002936`*^9, 3.6882745118602962`*^9}, {3.6883042728760366`*^9, 3.688304806616784*^9}, { 3.6883051027271986`*^9, 3.6883051086172066`*^9}, {3.6883054642977047`*^9, 3.6883054716377153`*^9}, {3.688306465909107*^9, 3.6883064729091167`*^9}, { 3.6883066024792986`*^9, 3.6883066550893717`*^9}, {3.6883071311300383`*^9, 3.688307145950059*^9}, 3.6883073798003864`*^9, {3.6887815904603148`*^9, 3.6887816040203333`*^9}, 3.6887816433103886`*^9, {3.6887816741004314`*^9, 3.688781699230467*^9}, {3.6887817847405863`*^9, 3.688781813880627*^9}, { 3.688781885830728*^9, 3.6887819020407505`*^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.6927732729025297`*^9, 3.692773282242543*^9}, {3.6927733353526173`*^9, 3.6927734137827272`*^9}, 3.6927736473730545`*^9, {3.6934868115444183`*^9, 3.693486813494421*^9}, { 3.6934868553944798`*^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.6934874585553246`*^9}, {3.6939897066669016`*^9, 3.6939897907970195`*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, { 3.6939901042074585`*^9, 3.693990124237486*^9}, {3.69399018398757*^9, 3.6939902403476486`*^9}, {3.6939902781277018`*^9, 3.69399032732777*^9}, { 3.6939903908278594`*^9, 3.693990609328165*^9}, {3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.6939907769384003`*^9}, { 3.6939908128884506`*^9, 3.6939908380384855`*^9}, {3.6939908895785575`*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, { 3.6939910395887675`*^9, 3.6939910643988028`*^9}, {3.693991107098862*^9, 3.6939911407889094`*^9}, {3.6939911957989864`*^9, 3.6939913838692493`*^9}, {3.6939918465598974`*^9, 3.693991856479911*^9}, { 3.6939919173699965`*^9, 3.6939919296100135`*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.6939921266502895`*^9, 3.6939921416103106`*^9}, { 3.6939921886903763`*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.6940813990399256`*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.6943365695452733`*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.6943368708856955`*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.6943379730472383`*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.6943381564174953`*^9, 3.694338172057517*^9}, { 3.6943382111375713`*^9, 3.6943382179975815`*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.6943388672484903`*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694723`*^9, 3.6943395881794996`*^9}, 3.6943396627096043`*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.6943398885999203`*^9, 3.6943400438301373`*^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.6944161612482815`*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.6944179310727587`*^9, 3.6944179657728076`*^9}, {3.6944182927132654`*^9, 3.694418302313279*^9}, { 3.6944316170705633`*^9, 3.6944316923568697`*^9}, {3.6944318163219357`*^9, 3.694431820105152*^9}, {3.6965609549111967`*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.6965611422314587`*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.6965635322048044`*^9}, {3.696563569074856*^9, 3.6965635745148635`*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.6965637807551527`*^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.6965963803627987`*^9, {3.7244123642779827`*^9, 3.7244123648119507`*^9}, { 3.7255912428848085`*^9, 3.7255912492295227`*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.7255917405776634`*^9, 3.7255917613142586`*^9}, { 3.7255980783777914`*^9, 3.7255980873943977`*^9}, {3.725598135321295*^9, 3.7255981566673255`*^9}, {3.7255985463958807`*^9, 3.7255985750395555`*^9}, {3.725598660297285*^9, 3.725598669548276*^9}, { 3.7255989613446465`*^9, 3.7255989963014574`*^9}, {3.7255990922803245`*^9, 3.725599092624111*^9}, {3.7255991287997694`*^9, 3.7255991802271013`*^9}, 3.7255992673973975`*^9, {3.725599302619891*^9, 3.725599630275236*^9}, { 3.7255996917974653`*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.7256002767652473`*^9}, 3.7256003308803263`*^9, {3.7256003995281887`*^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.7259413530325947`*^9}, { 3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, { 3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.7259488880408845`*^9}, {3.7262144247900543`*^9, 3.7262144477456355`*^9}, {3.7574170493225684`*^9, 3.757417053184463*^9}, 3.757746126576226*^9, 3.7577461878004365`*^9, {3.7901299755504103`*^9, 3.7901299864607277`*^9}, {3.822369517016216*^9, 3.8223695503530917`*^9}, 3.853212126776141*^9, {3.8532121589674606`*^9, 3.85321225468412*^9}}, CellLabel-> "In[365]:=",ExpressionUUID->"5792b052-d9be-4642-94b8-5ca29af3db82"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.871450004900112*^9, 3.8714500365529003`*^9}, {3.8765469159617367`*^9, 3.8765469182582693`*^9}, 3.8874361994924974`*^9},ExpressionUUID->"51e6947d-eb6f-4d3b-8938-\ c15e87497910"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{ RowBox[{"E8001", " ", "MITC3"}], "-", "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", ",", "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", ",", "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]", "\[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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, 3.8755002849072685`*^9, { 3.875500611466708*^9, 3.8755006132665915`*^9}, {3.8755006679343586`*^9, 3.8755007435723333`*^9}, {3.8755009312134657`*^9, 3.8755010030386705`*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.8813762376752605`*^9, 3.8813762417202497`*^9}, {3.8814522157341814`*^9, 3.881452220873501*^9}, { 3.8816298270827007`*^9, 3.881629827691717*^9}, {3.8816310429666224`*^9, 3.881631045327747*^9}, {3.881631142975204*^9, 3.881631144525417*^9}, { 3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}}, CellLabel-> "In[367]:=",ExpressionUUID->"96f49a95-e03a-4bf7-ae4f-7c1b9ded5371"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221266`*^9, 3.788321388914168*^9}, {3.8714499934964027`*^9, 3.8714499957097816`*^9}, 3.887436204997558*^9},ExpressionUUID->"40af9bb4-f9dd-46eb-aa70-\ 55355bae86e5"], 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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, 3.8755002849072685`*^9, { 3.875500611466708*^9, 3.8755006132665915`*^9}, {3.8755006679343586`*^9, 3.8755007435723333`*^9}, {3.8755009312134657`*^9, 3.8755010030386705`*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.8813762376752605`*^9, 3.8813762417202497`*^9}, {3.8814522157341814`*^9, 3.881452220873501*^9}, { 3.8816298270827007`*^9, 3.881629827691717*^9}, {3.8816310429666224`*^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.8829240313428383`*^9, {3.882924165353904*^9, 3.882924385597968*^9}, { 3.8829244736655493`*^9, 3.8829245350893607`*^9}, {3.882924571592681*^9, 3.882924648904628*^9}, {3.882924688614608*^9, 3.8829246996433496`*^9}, { 3.8869300641683235`*^9, 3.886930072145953*^9}}, CellLabel-> "In[369]:=",ExpressionUUID->"59b16f2f-0f59-4e42-b807-a562e043eb64"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221266`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.871449974024082*^9, 3.871449982071842*^9}, 3.8874362080815163`*^9},ExpressionUUID->"3434d93c-a4a5-4777-8d5f-\ d1a0b60a42a0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "MITC3"}], "-", "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", ",", "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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, 3.8755002849072685`*^9, { 3.875500611466708*^9, 3.8755006132665915`*^9}, {3.8755006679343586`*^9, 3.8755007435723333`*^9}, {3.8755009312134657`*^9, 3.8755010030386705`*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.8813762376752605`*^9, 3.8813762417202497`*^9}, {3.8814522157341814`*^9, 3.881452220873501*^9}, { 3.8816298270827007`*^9, 3.881629827691717*^9}, {3.8816310429666224`*^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.8838807801551867`*^9, 3.883880780289626*^9}}, CellLabel-> "In[371]:=",ExpressionUUID->"a59def62-55a0-4ce9-83e3-58a97ed6aef8"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.8508856098994403`*^9, 3.8508856108810315`*^9}, {3.8714499673000307`*^9, 3.8714499696619635`*^9}, 3.8874362142899017`*^9},ExpressionUUID->"8dbd43a7-1163-4abe-8685-\ 46771154b84b"], 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", ",", "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", ",", "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[{ 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"}], "+", "\[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]\[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]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, {3.8508856215909443`*^9, 3.8508856323318715`*^9}, 3.8508857589241543`*^9, {3.8618419633653316`*^9, 3.861841997560587*^9}, {3.8618420487441854`*^9, 3.861842114128385*^9}, { 3.861842163009183*^9, 3.8618422233512383`*^9}, 3.8618423867236786`*^9, 3.8816319430759635`*^9, 3.8816319753570204`*^9, {3.881632016294094*^9, 3.8816320293707075`*^9}, {3.881632064066745*^9, 3.8816320701036043`*^9}, { 3.8816321503156757`*^9, 3.8816321748042283`*^9}, {3.8816322150035825`*^9, 3.8816323302988663`*^9}, {3.8816323972196245`*^9, 3.8816324149554744`*^9}, {3.881632779885769*^9, 3.8816327838631463`*^9}, { 3.8816348458655357`*^9, 3.8816348490255485`*^9}, 3.8816361489840307`*^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.8816492826887045`*^9}, {3.881902003658046*^9, 3.8819020105924845`*^9}}, CellLabel-> "In[373]:=",ExpressionUUID->"fed63024-e531-4bd9-9dd1-0305a3e80eb7"], Cell[BoxData[ RowBox[{ 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[{ 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[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], ")"}]}], ",", RowBox[{ 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[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[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]"}]}], ",", 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]", "\[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]\[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]"}]], "Input", CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, {3.8508856215909443`*^9, 3.8508856323318715`*^9}, 3.8508857589241543`*^9, {3.8618419633653316`*^9, 3.861841997560587*^9}, {3.8618420487441854`*^9, 3.861842114128385*^9}, { 3.861842163009183*^9, 3.8618422233512383`*^9}, 3.8618423867236786`*^9, 3.8816319430759635`*^9, 3.8816319753570204`*^9},ExpressionUUID->"d7cfbf73-188c-4211-919f-\ f8d2a3477023"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.887436111686203*^9, 3.8874361124864607`*^9}},ExpressionUUID->"3545cf78-2b34-414e-aa94-\ d8386fcfb240"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{ RowBox[{"E8001", " ", "MITC3"}], "-", "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[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ 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]", 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", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "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_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 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"}], "]"}], "+", "\[IndentingNewLine]", 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", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "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", ",", "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", ",", "map", ",", "GG", ",", "\[Nu]"}], "}"}], ",", "\[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[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Nu]", "=", "\[Nu]\[Nu]"}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[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]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[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", "/", "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]", "\[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"}], ",", 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", ",", "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", ",", "uint", ",", "uext", ",", "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[{"potential", " ", "energies"}], "*)"}], "\[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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, 3.8755002849072685`*^9, { 3.875500611466708*^9, 3.8755006132665915`*^9}, {3.8755006679343586`*^9, 3.8755007435723333`*^9}, {3.8755009312134657`*^9, 3.8755010030386705`*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.8813762376752605`*^9, 3.8813762417202497`*^9}, {3.8814522157341814`*^9, 3.881452220873501*^9}, { 3.8816298270827007`*^9, 3.881629827691717*^9}, {3.8816310429666224`*^9, 3.881631045327747*^9}, {3.881631142975204*^9, 3.881631144525417*^9}, { 3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, {3.887507779988152*^9, 3.887507781177014*^9}, { 3.8875080098268633`*^9, 3.887508010029726*^9}, {3.887508082460498*^9, 3.8875080831607714`*^9}, {3.894424308084665*^9, 3.8944243083751755`*^9}, { 3.894424341736974*^9, 3.894424391353844*^9}, {3.9001236642512035`*^9, 3.9001237296990185`*^9}, 3.900202762754384*^9, {3.901944360777698*^9, 3.901944376018205*^9}, {3.901957807659685*^9, 3.9019578134056377`*^9}, 3.901958061928696*^9, {3.9022861670115952`*^9, 3.902286233169402*^9}, { 3.9022862709001417`*^9, 3.9022862885010586`*^9}, {3.902705132921283*^9, 3.9027051719569254`*^9}, {3.902887979691972*^9, 3.902888127450615*^9}, { 3.9030562783914547`*^9, 3.9030563342515774`*^9}, {3.9030563777534714`*^9, 3.9030564413492336`*^9}, {3.903056485883499*^9, 3.9030565085599885`*^9}, { 3.9030565656866765`*^9, 3.9030567546652565`*^9}, {3.903057093107236*^9, 3.9030571524477763`*^9}, {3.903059808074484*^9, 3.9030598084349136`*^9}}, CellLabel-> "In[375]:=",ExpressionUUID->"936fe8d5-44ca-47e4-a61a-bb4c31d39150"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E8001"}], "|", " ", RowBox[{ RowBox[{"E1005", " ", "MITC7"}], "-", "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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.871450164125084*^9, 3.8714502554214287`*^9}, {3.872142572742197*^9, 3.8721427609373026`*^9}, {3.872142840427541*^9, 3.8721428408830557`*^9}, { 3.8721428966550007`*^9, 3.8721429174244213`*^9}, {3.8721449963870077`*^9, 3.8721450395071917`*^9}, 3.872145191693225*^9, {3.8721452535558662`*^9, 3.8721452614683323`*^9}, {3.8721454606452484`*^9, 3.8721454612072396`*^9}, {3.8721454959954505`*^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.8721474977051926`*^9, 3.8721474978919225`*^9}, 3.8721475466992073`*^9, {3.8721481391060658`*^9, 3.8721481393035316`*^9}, {3.872148320754292*^9, 3.872148397395355*^9}, { 3.8721484582091312`*^9, 3.872148480628766*^9}, {3.8721485940324416`*^9, 3.8721486070369906`*^9}, {3.8721486632901263`*^9, 3.8721487520433817`*^9}, {3.872148824743201*^9, 3.872148902742444*^9}, { 3.8721489359498405`*^9, 3.872149023546156*^9}, {3.8722133930091505`*^9, 3.8722133934518394`*^9}, {3.8722135049967504`*^9, 3.8722135292099743`*^9}, {3.8722136599651427`*^9, 3.872213681955471*^9}, { 3.8722137445969744`*^9, 3.872213809151699*^9}, {3.8722138865871696`*^9, 3.8722139295251293`*^9}, {3.872213982536057*^9, 3.87221403848046*^9}, { 3.8722140989552727`*^9, 3.872214107845528*^9}, {3.872214137895868*^9, 3.8722142893449726`*^9}, {3.8722144170517235`*^9, 3.8722145472945094`*^9}, {3.8722145786749644`*^9, 3.872214590315936*^9}, 3.87221471091652*^9, {3.8722150427882786`*^9, 3.8722150439020815`*^9}, { 3.8722152572933474`*^9, 3.8722153717038975`*^9}, {3.872215411022002*^9, 3.8722154543882294`*^9}, {3.872215550375183*^9, 3.872215740499053*^9}, { 3.8722157757875776`*^9, 3.8722158071983013`*^9}, {3.872215920096699*^9, 3.8722159319054713`*^9}, {3.8722160301905756`*^9, 3.872216078912943*^9}, { 3.8722161146277065`*^9, 3.8722161292769456`*^9}, 3.872216309435096*^9, { 3.8722169367936273`*^9, 3.872216939128669*^9}, {3.872217105838874*^9, 3.8722171088004866`*^9}, {3.872303780081046*^9, 3.872303786357215*^9}, { 3.8723038261085763`*^9, 3.872303872254692*^9}, {3.8723299322801666`*^9, 3.8723299331835876`*^9}, {3.8723303810927143`*^9, 3.872330453374918*^9}, 3.8723305516466827`*^9, {3.8723306559668875`*^9, 3.8723306710310755`*^9}, 3.872330715269043*^9, {3.872331028051035*^9, 3.8723310379440203`*^9}, 3.872331487604269*^9, 3.8723316379997387`*^9, {3.8724861509066615`*^9, 3.872486161039858*^9}, 3.8724862799626684`*^9, 3.8724863936003914`*^9, 3.872486468278393*^9, {3.8733654691049976`*^9, 3.8733654698712363`*^9}, { 3.8736779444532623`*^9, 3.873677950380515*^9}, {3.8754996924828625`*^9, 3.8754996949044285`*^9}, {3.8754997353708515`*^9, 3.8754997405560007`*^9}, {3.8754998347031307`*^9, 3.8754998937304335`*^9}, {3.875499932595894*^9, 3.8754999689474635`*^9}, { 3.8812849154371758`*^9, 3.8812849189337654`*^9}, 3.881284954231558*^9, { 3.881451602713085*^9, 3.881451614093295*^9}, {3.881451714045*^9, 3.8814517157468743`*^9}, {3.8814521694170623`*^9, 3.8814521793386126`*^9}, {3.8814522420137105`*^9, 3.881452256693831*^9}, { 3.88145331366347*^9, 3.8814533148097057`*^9}, {3.8814541164513035`*^9, 3.881454118586579*^9}, {3.8816296130134025`*^9, 3.881629614829296*^9}, { 3.8816296630292835`*^9, 3.8816296633358917`*^9}, {3.8996140402271814`*^9, 3.899614052414727*^9}, {3.899614144726322*^9, 3.899614220781108*^9}, { 3.8996143991840954`*^9, 3.8996144059957037`*^9}, {3.8996144843251734`*^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.9002034111973305`*^9}, { 3.9002034424934406`*^9, 3.900203568473293*^9}, {3.900203618968501*^9, 3.9002038569123955`*^9}, {3.9002040352384586`*^9, 3.900204057363124*^9}, { 3.900645114185281*^9, 3.9006451422183666`*^9}, {3.900645178356884*^9, 3.900645249212589*^9}, {3.9006453302126966`*^9, 3.900645333591104*^9}, 3.9006454336889153`*^9, 3.9006455518391867`*^9, {3.9006455870513678`*^9, 3.900645593188841*^9}, {3.900645629987667*^9, 3.900645649347145*^9}, { 3.900645767812078*^9, 3.900645774339058*^9}, {3.9006636807791896`*^9, 3.90066368267039*^9}, {3.9007190867447896`*^9, 3.900719190990218*^9}, { 3.9007192678826637`*^9, 3.900719285241291*^9}, {3.900719351095579*^9, 3.9007193749411306`*^9}, {3.9007194238763733`*^9, 3.9007194371794863`*^9}, {3.900719488553488*^9, 3.9007195024516025`*^9}, { 3.900719558492564*^9, 3.900719575941984*^9}, {3.900719626662781*^9, 3.9007196682795525`*^9}, {3.900719731035082*^9, 3.900719798059276*^9}, { 3.9007199479018154`*^9, 3.900720118873615*^9}, {3.9007201960089903`*^9, 3.9007202079736977`*^9}, {3.9017061524220524`*^9, 3.9017061633008237`*^9}, {3.902360328950551*^9, 3.9023604265731034`*^9}, { 3.9024547057599287`*^9, 3.902455082025207*^9}, {3.9024555244565516`*^9, 3.9024555596654696`*^9}, {3.902705203839532*^9, 3.90270527895368*^9}, { 3.9027053103449783`*^9, 3.9027053134517817`*^9}, {3.902705388953588*^9, 3.902705397807787*^9}, 3.902705702452123*^9, {3.9027060175344095`*^9, 3.9027060759699917`*^9}, {3.9027061195093584`*^9, 3.90270613225747*^9}, { 3.90270640763892*^9, 3.9027064124182596`*^9}, {3.90270645896745*^9, 3.90270651421517*^9}, {3.902706585563101*^9, 3.9027065868456507`*^9}, { 3.9027138615096445`*^9, 3.9027138636103616`*^9}, {3.903052832707532*^9, 3.9030529160200434`*^9}}, CellLabel-> "In[381]:=",ExpressionUUID->"860d8d18-754c-4568-bd72-f938383a0ffe"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}, { 3.887436124423489*^9, 3.8874361253195915`*^9}},ExpressionUUID->"3cf428d9-95c3-40a4-bef8-\ 744b32549798"], 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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^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.7890962452874937`*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, {3.7890963300637918`*^9, 3.789096330454324*^9}, { 3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119373`*^9}, {3.82004560462539*^9, 3.820045628865552*^9}, { 3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.8200458146656227`*^9}, {3.8200459471200194`*^9, 3.820045947496038*^9}, { 3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.8435478596811757`*^9}, {3.8435479019503555`*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, { 3.8435611914261384`*^9, 3.8435611920632486`*^9}, {3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, { 3.8443920425579967`*^9, 3.844392043749901*^9}, {3.844392085066965*^9, 3.84439210220125*^9}, 3.8443921338951335`*^9, {3.8443921701680193`*^9, 3.8443921937971706`*^9}, {3.844513395563983*^9, 3.8445134085996456`*^9}, { 3.8447683674104347`*^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.8451845184651327`*^9, 3.845184537503073*^9}, {3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085572977`*^9, {3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, { 3.8452553159491444`*^9, 3.845255398239421*^9}, {3.8452554316887584`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, { 3.8452556104383307`*^9, 3.845255693908064*^9}, {3.845527992682146*^9, 3.8455280119549503`*^9}, {3.8455280677849493`*^9, 3.8455282068632755`*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.8455283972662654`*^9}, { 3.8455285111156416`*^9, 3.845528620724532*^9}, {3.8455286507394857`*^9, 3.8455286778537693`*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, { 3.8455288134263644`*^9, 3.8455288242659492`*^9}, {3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, { 3.8455293978278055`*^9, 3.8455293981111383`*^9}, {3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.8456096065189395`*^9}, { 3.845609662788809*^9, 3.845609668689152*^9}, {3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, { 3.8456103094907556`*^9, 3.845610323020236*^9}, {3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.8456107866420207`*^9, {3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, { 3.8456116165491714`*^9, 3.8456117283491564`*^9}, {3.8456117769969835`*^9, 3.8456118220363483`*^9}, {3.8456118703237553`*^9, 3.8456119831151495`*^9}, {3.8456124022981386`*^9, 3.8456124224583464`*^9}, {3.8456127164733524`*^9, 3.845612740344495*^9}, { 3.845780852075635*^9, 3.8457808657114325`*^9}, {3.8457821230286026`*^9, 3.845782123716519*^9}, {3.8457825521920204`*^9, 3.845782609179036*^9}, { 3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, {3.8457828344736314`*^9, 3.8457828358311925`*^9}, { 3.845783094796917*^9, 3.8457830991701584`*^9}, {3.8457833361542873`*^9, 3.845783501335464*^9}, {3.845783531957113*^9, 3.8457835680525503`*^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.8457886169047403`*^9}, {3.8457887088707514`*^9, 3.8457887217894297`*^9}, {3.8457887909210815`*^9, 3.8457888144201937`*^9}, {3.8457888906519327`*^9, 3.8457889466368628`*^9}, {3.8457890416459827`*^9, 3.845789052312254*^9}, { 3.845789116545609*^9, 3.8457891180744157`*^9}, {3.845789226429738*^9, 3.8457892292024574`*^9}, {3.845790510151396*^9, 3.845790519684927*^9}, 3.8457906357570543`*^9, {3.8458635760826883`*^9, 3.845863582446103*^9}, { 3.8458636696732097`*^9, 3.845863680633752*^9}, {3.8458637198783617`*^9, 3.845863725217595*^9}, 3.8458643039964285`*^9, {3.845864896377093*^9, 3.8458649228570347`*^9}, 3.8458654592977276`*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752007`*^9, 3.8458662253983583`*^9, { 3.845866315341114*^9, 3.845866316735467*^9}, {3.8458664630238924`*^9, 3.845866520383334*^9}, {3.845866555205945*^9, 3.845866566614134*^9}, { 3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.8458670231028185`*^9}, 3.8458671129063563`*^9, 3.8458672295699835`*^9, 3.845867522574538*^9, {3.845867616322856*^9, 3.845867616819559*^9}, { 3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.8458680066485095`*^9, {3.845868278532402*^9, 3.845868302364672*^9}, {3.8458688185729504`*^9, 3.845868834819693*^9}, { 3.845869294519817*^9, 3.845869295105886*^9}, 3.8755002849072685`*^9, { 3.875500611466708*^9, 3.8755006132665915`*^9}, {3.8755006679343586`*^9, 3.8755007435723333`*^9}, {3.8755009312134657`*^9, 3.8755010030386705`*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.8813762376752605`*^9, 3.8813762417202497`*^9}, {3.8814522157341814`*^9, 3.881452220873501*^9}, { 3.8816298270827007`*^9, 3.881629827691717*^9}, {3.8816310429666224`*^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.8829240313428383`*^9, {3.882924165353904*^9, 3.882924385597968*^9}, { 3.8829244736655493`*^9, 3.8829245350893607`*^9}, {3.882924571592681*^9, 3.882924648904628*^9}, {3.882924688614608*^9, 3.8829246996433496`*^9}, { 3.8869300641683235`*^9, 3.886930072145953*^9}}, CellLabel-> "In[383]:=",ExpressionUUID->"607b645f-758a-44c3-ab8a-17fa77675746"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221266`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.852336979003788*^9, 3.8523369803815904`*^9}, { 3.887436129324578*^9, 3.887436130154041*^9}},ExpressionUUID->"cdd1c494-27f5-4371-a70b-\ dee6f967266d"], 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_", ",", "GG_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "FF", ",", "FFINV", ",", "jac", ",", "NN", ",", "u", ",", "ux", ",", "uy", ",", "uz", ",", "v", ",", "vx", ",", "vy", ",", "vz", ",", "w", ",", "wx", ",", "wy", ",", "wz", ",", "\[Phi]", ",", "\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z", ",", "\[Theta]", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z", ",", "AA", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Phi]", ",", "wc", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "\[Delta]wmap", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "QQ", ",", "tri", ",", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ARNOLD", "-", "FALCK"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "for", " ", "the", " ", "plate", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Sqrt", "[", RowBox[{"r\[Gamma]", ".", "r\[Gamma]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]", ",", RowBox[{"r\[Gamma]", "/", "jac"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", " ", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"wc", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "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[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "projection", "*)"}], "\[IndentingNewLine]", RowBox[{"AA", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "jac", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]"}], "}"}], "=", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]"}], "}"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "/", "AA"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "derivatives", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy", ",", "wz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{"ux", ",", "vy", ",", RowBox[{"uy", "+", "vx"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{"\[Theta]x", ",", RowBox[{"-", "\[Phi]y"}], ",", RowBox[{ RowBox[{"-", "\[Phi]x"}], "+", "\[Theta]y"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}], "+", RowBox[{"{", RowBox[{"\[Pi]\[Theta]", ",", RowBox[{"-", "\[Pi]\[Phi]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", 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[{"MM", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "E\[Sigma]"}], ")"}], ".", "\[Kappa]\[Kappa]"}]}], ";", "\[IndentingNewLine]", RowBox[{"QQ", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "tt", "*", "GG", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"E\[Sigma]", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "MM"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "QQ"}]}]}], ";", "\[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[{"wx", ",", "wy"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{"-", "0.1"}], "*", RowBox[{"\[Delta]", "[", RowBox[{"wc", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"wc", "-", "w"}], ")"}], "*", RowBox[{"tt", "/", "AA"}], "*", "EE"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wmap", "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "*)"}], "\[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", ",", "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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.789124218156231*^9, 3.789124220106046*^9}, {3.789124254593116*^9, 3.7891242583777695`*^9}, {3.7891243156014767`*^9, 3.789124326373148*^9}, { 3.789125154499303*^9, 3.7891252228031907`*^9}, {3.8200454708911095`*^9, 3.8200454840718527`*^9}, {3.8509666497276897`*^9, 3.8509666516620097`*^9}, {3.850966717721876*^9, 3.8509667189933705`*^9}, 3.8509667763101106`*^9, {3.8509668228841643`*^9, 3.850966844061469*^9}, { 3.8509668794855585`*^9, 3.8509669485542307`*^9}, {3.850966982527851*^9, 3.8509670397380314`*^9}}, CellLabel-> "In[385]:=",ExpressionUUID->"7c3e4c4e-0e01-45b4-a740-a9f018da5247"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8533873958221235`*^9, 3.853387408038947*^9}, 3.8618404867698007`*^9, {3.887436134185497*^9, 3.887436134984416*^9}},ExpressionUUID->"642c621f-7718-4f20-94e6-\ c3cad7cb5a98"], Cell[BoxData[ RowBox[{ RowBox[{"(*", 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", ",", "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", ",", "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[{ 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"}], "+", "\[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]\[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]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.8533874217568007`*^9, 3.8533874449588337`*^9}, {3.8941749624438114`*^9, 3.894174981259178*^9}, {3.894175078423134*^9, 3.8941750847702913`*^9}, { 3.894175140785881*^9, 3.8941751437198577`*^9}, {3.8941752242858543`*^9, 3.894175403335781*^9}, {3.8944244608608513`*^9, 3.8944244643200006`*^9}, { 3.894440339650135*^9, 3.894440372557103*^9}}, CellLabel-> "In[387]:=",ExpressionUUID->"58ddf8fb-0ea6-44ee-8c9d-b49b4371a5dd"], Cell[BoxData[{ RowBox[{ 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", ",", "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", ",", "uint", ",", "uext", ",", "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[{ 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"}], "+", "\[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[{"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]", "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.8533874217568007`*^9, 3.8533874449588337`*^9}, {3.8941749624438114`*^9, 3.894174981259178*^9}, {3.894175078423134*^9, 3.8941750847702913`*^9}, { 3.894175140785881*^9, 3.8941751437198577`*^9}, {3.8941752242858543`*^9, 3.894175403335781*^9}, {3.8944244608608513`*^9, 3.8944244643200006`*^9}, { 3.894440339650135*^9, 3.894440372557103*^9}}, CellLabel-> "In[389]:=",ExpressionUUID->"402962ca-70af-4f34-aa5f-61b2f8c56332"], Cell[BoxData[{ RowBox[{ 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", ",", "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[{ 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.8533874217568007`*^9, 3.8533874449588337`*^9}, {3.8941749624438114`*^9, 3.894174981259178*^9}, 3.894175078423134*^9},ExpressionUUID->"8832cce2-09f1-43b6-b27c-\ 0b4f101ae2a4"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SHELL MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.817531574263208*^9, 3.8175315898614454`*^9}, {3.906854925804427*^9, 3.9068549273625436`*^9}},ExpressionUUID->"128ee05f-f88f-4fa7-a7f0-\ 2df7463eeb89"], Cell[CellGroupData[{ Cell["SHELL ELEMENT (disp) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9},ExpressionUUID->"71b4a6e8-2d68-490d-89b8-\ f5e8da86914b"], 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_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 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", ",", "NN", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "gg", ",", "EM", ",", "EMM", ",", "GG", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "edg"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[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[{ "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[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]l", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]l", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]l", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", 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[{"{", 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]", RowBox[{ RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", "xl"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", "yl"}], ";", "\[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"}], "]"}]}], ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[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]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], 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[{"w", "=", RowBox[{"w", "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u12", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"M3", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"u23", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"M3", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"u31", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"M3", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", StyleBox[ RowBox[{"w", "=", RowBox[{ RowBox[{"NN", ".", "wl"}], "+", RowBox[{"M3", ".", RowBox[{"du", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], "\[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"}], "+", "\[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", "/", "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]", "\[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[{"TRI3", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.9068564159718266`*^9, 3.9068564290967197`*^9}, 3.9068569170760655`*^9, {3.9068569505486803`*^9, 3.9068569508983045`*^9}, { 3.9068570706161394`*^9, 3.906857115947425*^9}, {3.9068573936452913`*^9, 3.9068574102980194`*^9}, {3.9076356778743663`*^9, 3.9076356878761315`*^9}, {3.9076357213600492`*^9, 3.907635772461808*^9}, { 3.9076358230203495`*^9, 3.9076358341704893`*^9}},ExpressionUUID->"c92c9985-e4fc-4352-87d0-\ e52867eec9c0"], 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_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 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"}], "]"}], "+", "\[IndentingNewLine]", 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", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "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", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "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", ",", "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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.871450164125084*^9, 3.8714502554214287`*^9}, {3.872142572742197*^9, 3.8721427609373026`*^9}, {3.872142840427541*^9, 3.8721428408830557`*^9}, { 3.8721428966550007`*^9, 3.8721429174244213`*^9}, {3.8721449963870077`*^9, 3.8721450395071917`*^9}, 3.872145191693225*^9, {3.8721452535558662`*^9, 3.8721452614683323`*^9}, {3.8721454606452484`*^9, 3.8721454612072396`*^9}, {3.8721454959954505`*^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.8721474977051926`*^9, 3.8721474978919225`*^9}, 3.8721475466992073`*^9, {3.8721481391060658`*^9, 3.8721481393035316`*^9}, {3.872148320754292*^9, 3.872148397395355*^9}, { 3.8721484582091312`*^9, 3.872148480628766*^9}, {3.8721485940324416`*^9, 3.8721486070369906`*^9}, {3.8721486632901263`*^9, 3.8721487520433817`*^9}, {3.872148824743201*^9, 3.872148902742444*^9}, { 3.8721489359498405`*^9, 3.872149023546156*^9}, {3.8722133930091505`*^9, 3.8722133934518394`*^9}, {3.8722135049967504`*^9, 3.8722135292099743`*^9}, {3.8722136599651427`*^9, 3.872213681955471*^9}, { 3.8722137445969744`*^9, 3.872213809151699*^9}, {3.8722138865871696`*^9, 3.8722139295251293`*^9}, {3.872213982536057*^9, 3.87221403848046*^9}, { 3.8722140989552727`*^9, 3.872214107845528*^9}, {3.872214137895868*^9, 3.8722142893449726`*^9}, {3.8722144170517235`*^9, 3.8722145472945094`*^9}, {3.8722145786749644`*^9, 3.872214590315936*^9}, 3.87221471091652*^9, {3.8722150427882786`*^9, 3.8722150439020815`*^9}, { 3.8722152572933474`*^9, 3.8722153717038975`*^9}, {3.872215411022002*^9, 3.8722154543882294`*^9}, {3.872215550375183*^9, 3.872215740499053*^9}, { 3.8722157757875776`*^9, 3.8722158071983013`*^9}, {3.872215920096699*^9, 3.8722159319054713`*^9}, {3.8722160301905756`*^9, 3.872216078912943*^9}, { 3.8722161146277065`*^9, 3.8722161292769456`*^9}, 3.872216309435096*^9, { 3.8722169367936273`*^9, 3.872216939128669*^9}, {3.872217105838874*^9, 3.8722171088004866`*^9}, {3.872303780081046*^9, 3.872303786357215*^9}, { 3.8723038261085763`*^9, 3.872303872254692*^9}, {3.8723299322801666`*^9, 3.8723299331835876`*^9}, {3.8723303810927143`*^9, 3.872330453374918*^9}, 3.8723305516466827`*^9, {3.8723306559668875`*^9, 3.8723306710310755`*^9}, 3.872330715269043*^9, {3.872331028051035*^9, 3.8723310379440203`*^9}, 3.872331487604269*^9, 3.8723316379997387`*^9, {3.8724861509066615`*^9, 3.872486161039858*^9}, 3.8724862799626684`*^9, 3.8724863936003914`*^9, 3.872486468278393*^9, {3.8733654691049976`*^9, 3.8733654698712363`*^9}, { 3.8736779444532623`*^9, 3.873677950380515*^9}, {3.8754996924828625`*^9, 3.8754996949044285`*^9}, {3.8754997353708515`*^9, 3.8754997405560007`*^9}, {3.8754998347031307`*^9, 3.8754998937304335`*^9}, {3.875499932595894*^9, 3.8754999689474635`*^9}, { 3.9068551977604685`*^9, 3.9068552181345425`*^9}, {3.9068553190866437`*^9, 3.9068553911348085`*^9}}, CellLabel-> "In[391]:=",ExpressionUUID->"98902c26-2910-42a9-a34c-ed5229503a8e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Alpha]\[Alpha]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "nnl", ",", "ed", ",", "rx", ",", "ry", ",", "rn", ",", "ex", ",", "ey", ",", "en", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xx", ",", "yy", ",", "nn", ",", "AA", ",", "xc", ",", "NN", ",", "MM", ",", "NM", ",", "ux", ",", "uy", ",", "un", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]n", ",", "\[Theta]x3", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]y3", ",", "\[Pi]\[Theta]x1", ",", "\[Pi]\[Theta]x2", ",", "\[Pi]\[Theta]x3", ",", "\[Pi]\[Theta]y1", ",", "\[Pi]\[Theta]y2", ",", "\[Pi]\[Theta]y3", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "\[Theta]z3", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fn", ",", "r12", ",", "r23", ",", "r31", ",", "e12", ",", "e23", ",", "e31", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[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[{"rn", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"rn", "/", RowBox[{"Sqrt", "[", RowBox[{"rn", ".", "rn"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"en", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rn", ".", "rn"}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xx", ",", "yy", ",", "nn"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "en"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "un"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "en"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]n"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "en"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fn"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "en"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"xx", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", RowBox[{"yy", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "un"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]n"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"ed", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"nl", ",", RowBox[{"RotateLeft", "[", "nl", "]"}]}], "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r12", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yy", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"yy", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"xx", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xx", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"e12", "=", RowBox[{"r12", "/", RowBox[{"Norm", "[", "r12", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r23", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yy", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"yy", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"xx", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xx", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"e23", "=", RowBox[{"r23", "/", RowBox[{"Norm", "[", "r23", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r31", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yy", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"yy", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"xx", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xx", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"e31", "=", RowBox[{"r31", "/", RowBox[{"Norm", "[", "r31", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Theta]x1", ",", "\[Pi]\[Theta]y1"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "/", "2"}], "+", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{"e12", ",", "e31"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"e12", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"e31", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}]}], "}"}]}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Theta]x2", ",", "\[Pi]\[Theta]y2"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "/", "2"}], "+", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{"e12", ",", "e23"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"e12", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"e23", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}]}], "}"}]}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Theta]x3", ",", "\[Pi]\[Theta]y3"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "/", "2"}], "+", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{"e31", ",", "e23"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"e31", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"e23", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"\[Theta]y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "}"}]}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ "\[Pi]\[Theta]x1", ",", "\[Pi]\[Theta]x2", ",", "\[Pi]\[Theta]x3"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ "\[Pi]\[Theta]y1", ",", "\[Pi]\[Theta]y2", ",", "\[Pi]\[Theta]y3"}], "}"}]}]}], ";", "\[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[{"\[Alpha]\[Alpha]", "*", "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", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xx", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", RowBox[{"yy", "[", 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[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Arnold", "-", "Falk"}], "*)"}], "\[IndentingNewLine]", 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[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 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"}], "]"}], "+", "\[IndentingNewLine]", 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", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "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", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], "\[IndentingNewLine]", "\[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", ",", "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]", "\[IndentingNewLine]", 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_", ",", "n12_", ",", "n23_", ",", "n31_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "ml", ",", "mat", ",", "ed", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "AA", ",", "xl", ",", "yl", ",", "zl", ",", "x", ",", "y", ",", "z", ",", "ul", ",", "vl", ",", "wl", ",", "u", ",", "v", ",", "w", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]", ",", "fx", ",", "fy", ",", "fz", ",", "NN", ",", "MM", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"{", RowBox[{"n12", ",", "n23", ",", "n31"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\[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[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "xl"}], "}"}], "=", 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[{"ml", ",", "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]", RowBox[{"MM", "=", RowBox[{"mat", ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "MM"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}], "+", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", "NN"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "nl", "]"}], ",", RowBox[{"\[Theta]y", "[", "nl", "]"}], ",", RowBox[{"\[Theta]z", "[", "nl", "]"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"projection", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]x", "[", "nl", "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", "\[Phi]l", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]y", "[", "nl", "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", "\[Theta]l", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]z", "[", "nl", "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", "\[Psi]l", "]"}]}]}], ";", "\[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[{"TRI3", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.871450164125084*^9, 3.8714502554214287`*^9}, {3.872142572742197*^9, 3.8721427609373026`*^9}, {3.872142840427541*^9, 3.8721428408830557`*^9}, { 3.8721428966550007`*^9, 3.8721429174244213`*^9}, {3.8721449963870077`*^9, 3.8721450395071917`*^9}, 3.872145191693225*^9, {3.8721452535558662`*^9, 3.8721452614683323`*^9}, {3.8721454606452484`*^9, 3.8721454612072396`*^9}, {3.8721454959954505`*^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.8721474977051926`*^9, 3.8721474978919225`*^9}, 3.8721475466992073`*^9, {3.8721481391060658`*^9, 3.8721481393035316`*^9}, {3.872148320754292*^9, 3.872148397395355*^9}, { 3.8721484582091312`*^9, 3.872148480628766*^9}, {3.8721485940324416`*^9, 3.8721486070369906`*^9}, {3.8721486632901263`*^9, 3.8721487520433817`*^9}, {3.872148824743201*^9, 3.872148902742444*^9}, { 3.8721489359498405`*^9, 3.872149023546156*^9}, {3.8722133930091505`*^9, 3.8722133934518394`*^9}, {3.8722135049967504`*^9, 3.8722135292099743`*^9}, {3.8722136599651427`*^9, 3.872213681955471*^9}, { 3.8722137445969744`*^9, 3.872213809151699*^9}, {3.8722138865871696`*^9, 3.8722139295251293`*^9}, {3.872213982536057*^9, 3.87221403848046*^9}, { 3.8722140989552727`*^9, 3.872214107845528*^9}, {3.872214137895868*^9, 3.8722142893449726`*^9}, {3.8722144170517235`*^9, 3.8722145472945094`*^9}, {3.8722145786749644`*^9, 3.872214590315936*^9}, 3.87221471091652*^9, {3.8722150427882786`*^9, 3.8722150439020815`*^9}, { 3.8722152572933474`*^9, 3.8722153717038975`*^9}, {3.872215411022002*^9, 3.8722154543882294`*^9}, {3.872215550375183*^9, 3.872215740499053*^9}, { 3.8722157757875776`*^9, 3.8722158071983013`*^9}, {3.872215920096699*^9, 3.8722159319054713`*^9}, {3.8722160301905756`*^9, 3.872216078912943*^9}, { 3.8722161146277065`*^9, 3.8722161292769456`*^9}, 3.872216309435096*^9, { 3.8722169367936273`*^9, 3.872216939128669*^9}, {3.872217105838874*^9, 3.8722171088004866`*^9}, {3.872303780081046*^9, 3.872303786357215*^9}, { 3.8723038261085763`*^9, 3.872303872254692*^9}, {3.8723299322801666`*^9, 3.8723299331835876`*^9}, {3.8723303810927143`*^9, 3.872330453374918*^9}, 3.8723305516466827`*^9, {3.8723306559668875`*^9, 3.8723306710310755`*^9}, 3.872330715269043*^9, {3.872331028051035*^9, 3.8723310379440203`*^9}, 3.872331487604269*^9, 3.8723316379997387`*^9, {3.8724861509066615`*^9, 3.872486161039858*^9}, 3.8724862799626684`*^9, 3.8724863936003914`*^9, 3.872486468278393*^9, {3.8733654691049976`*^9, 3.8733654698712363`*^9}, { 3.8736779444532623`*^9, 3.873677950380515*^9}, {3.8754996924828625`*^9, 3.8754996949044285`*^9}, {3.8754997353708515`*^9, 3.8754997405560007`*^9}}, CellLabel-> "In[272]:=",ExpressionUUID->"914883af-b74c-4ec4-a2f4-40a5b9b6dec0"], Cell[BoxData[{ RowBox[{ 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.871450164125084*^9, 3.8714502554214287`*^9}, {3.872142572742197*^9, 3.8721427609373026`*^9}, {3.872142840427541*^9, 3.8721428408830557`*^9}, { 3.8721428966550007`*^9, 3.8721429174244213`*^9}, {3.8721449963870077`*^9, 3.8721450395071917`*^9}, 3.872145191693225*^9}, CellLabel-> "In[279]:=",ExpressionUUID->"2316a8a3-0ffd-4872-8a26-459d03673b42"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELLS", ",", 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[{ "nod", ",", "edg", ",", "row", ",", "dof", ",", "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]", ",", "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]", ",", "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"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nod", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"edg", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"nod", ",", RowBox[{"RotateLeft", "[", "nod", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "[", RowBox[{"i_", ",", "j_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nod", ",", "i", ",", "j"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "i", ",", "j"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "2", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "]"}]}], ")"}], "/", "3"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"2", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "]"}]}]}], ")"}], "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"row", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"row", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}], "]"}], "&"}], ",", "edg"}], "]"}], ",", RowBox[{ RowBox[{"row", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "[", "nod", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "*", "\[Alpha]", "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", "*", "\[Alpha]"}], "+", RowBox[{"9", "*", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"1", "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", "*", " ", "\[Beta]"}], "+", RowBox[{"9", " ", "*", SuperscriptBox["\[Beta]", "2"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"11", " ", "\[Beta]"}], "+", RowBox[{"18", " ", SuperscriptBox["\[Beta]", "2"]}], "-", RowBox[{"9", " ", SuperscriptBox["\[Beta]", "3"]}], "-", RowBox[{"9", " ", "*", SuperscriptBox["\[Alpha]", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"36", "*", "\[Beta]"}], "-", RowBox[{"27", "*", SuperscriptBox["\[Beta]", "2"]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Alpha]"}]}], ")"}], "*", "\[Beta]"}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Alpha]", "*", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "9"}], "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", "*", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", "*", "\[Beta]"}], "+", RowBox[{"3", "*", SuperscriptBox["\[Beta]", "2"]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"6", "*", "\[Beta]"}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", "\[Alpha]", "*", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", "*", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", "*", "\[Beta]"}], "+", RowBox[{"3", "*", SuperscriptBox["\[Beta]", "2"]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"6", "*", "\[Beta]"}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "9"}], "/", "2"}], "*", " ", "\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Alpha]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "27"}], "*", "\[Alpha]", "*", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nod", ",", "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[{"u", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"2", ",", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"2", ",", "3"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"3", ",", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"3", ",", "2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{"MM", ".", RowBox[{"dof", "[", RowBox[{"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[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[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]"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", "\[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"}], ")"}], "*", " ", "GG", "*", "\[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]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.8448250537576227`*^9, 3.8448251771278715`*^9}, { 3.8448252137845707`*^9, 3.8448252155580893`*^9}, {3.8448254288715434`*^9, 3.8448254325068684`*^9}, {3.844825473502449*^9, 3.844825487394247*^9}, { 3.8448255700281677`*^9, 3.8448256123923707`*^9}, {3.8448258113699675`*^9, 3.8448259039303937`*^9}, {3.8448259506719284`*^9, 3.844826284306115*^9}, { 3.8448268689947243`*^9, 3.8448268699886227`*^9}, 3.8448270259285955`*^9, { 3.8448271042647657`*^9, 3.8448271098964405`*^9}, {3.844827241092888*^9, 3.844827245842145*^9}, {3.8449345617461205`*^9, 3.844934602408169*^9}, { 3.844934658197948*^9, 3.8449348350524793`*^9}, {3.844935059720586*^9, 3.8449350605941477`*^9}, {3.844936139535534*^9, 3.8449361403797927`*^9}, { 3.8449953938751106`*^9, 3.8449953942218556`*^9}, {3.844995606823018*^9, 3.8449956071318903`*^9}, {3.8449970717317686`*^9, 3.8449970738159122`*^9}, 3.844997131164296*^9, {3.8449973802320213`*^9, 3.844997380443988*^9}, 3.8450114546701565`*^9, {3.8450127082731895`*^9, 3.84501270987388*^9}, { 3.8450127530150876`*^9, 3.845012810587885*^9}, 3.8450128586967945`*^9, { 3.8450132292910776`*^9, 3.8450132368337135`*^9}, {3.8450133572020845`*^9, 3.845013369791489*^9}, {3.845013427008649*^9, 3.845013479380189*^9}, { 3.8450138434327407`*^9, 3.845013858812168*^9}, {3.8450141220982046`*^9, 3.84501413941072*^9}, 3.8450144174596987`*^9}, CellLabel-> "In[281]:=",ExpressionUUID->"96f38bdf-8181-4a2b-a6fc-2fcc7dd1d82a"], Cell[BoxData[ 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", ",", "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"}], "}"}], ",", "\[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]", "\[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[{"(*", "projection", "*)"}], "\[IndentingNewLine]", RowBox[{"AA", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "jac", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "/", "AA"}]}], ";", "\[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[{"\[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"}], ")"}], "*", " ", "GG", "*", "\[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"}], "/", "10"}], "*", 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[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{ RowBox[{"(", "\[Delta]wmap", ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243266930485`*^9}, 3.8451858142422566`*^9}, CellLabel-> "In[282]:=",ExpressionUUID->"e9fb1fdb-0989-41a6-96e5-b9b38bb3dfec"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[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[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "FF", ",", "FFINV", ",", "jac", ",", "NN", ",", "u", ",", "ux", ",", "uy", ",", "uz", ",", "v", ",", "vx", ",", "vy", ",", "vz", ",", "w", ",", "wx", ",", "wy", ",", "wz", ",", "\[Phi]", ",", "\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z", ",", "\[Theta]", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z", ",", "AA", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Phi]", ",", "wc", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "\[Delta]wmap", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "QQ", ",", "tri", ",", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "for", " ", "the", " ", "plate", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Sqrt", "[", RowBox[{"r\[Gamma]", ".", "r\[Gamma]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]", ",", RowBox[{"r\[Gamma]", "/", "jac"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", " ", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"wc", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "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[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "projection", "*)"}], "\[IndentingNewLine]", RowBox[{"AA", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "jac", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]"}], "}"}], "=", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]"}], "}"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "/", "AA"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "derivatives", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy", ",", "wz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{"ux", ",", "vy", ",", RowBox[{"uy", "+", "vx"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{"\[Theta]x", ",", RowBox[{"-", "\[Phi]y"}], ",", RowBox[{ RowBox[{"-", "\[Phi]x"}], "+", "\[Theta]y"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}], "+", RowBox[{"{", RowBox[{"\[Pi]\[Theta]", ",", RowBox[{"-", "\[Pi]\[Phi]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", 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[{"MM", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "E\[Sigma]"}], ")"}], ".", "\[Kappa]\[Kappa]"}]}], ";", "\[IndentingNewLine]", RowBox[{"QQ", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "tt", "*", "GG", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"E\[Sigma]", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "MM"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "QQ"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", " ", ",", "fY", ",", "fZ"}], "}"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}], "]"}], ".", "NN", ".", RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}]}]}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{"-", "0.1"}], "*", RowBox[{"\[Delta]", "[", RowBox[{"wc", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"wc", "-", "w"}], ")"}], "*", RowBox[{"tt", "/", "AA"}], "*", "EE"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wmap", "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}}, CellLabel-> "In[283]:=",ExpressionUUID->"70ee26ef-7261-4312-aaea-09b1d9796420"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1005", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ 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_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "NN", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "f\[Alpha]", ",", "f\[Beta]", ",", "fn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]", ",", "Q\[Alpha]", ",", "Q\[Beta]", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "-", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Alpha]"}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Beta]"}]}], ",", RowBox[{"4", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Alpha]"}], ",", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "-", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Alpha]"}], "-", RowBox[{"2", " ", "\[Alpha]", " ", "\[Beta]"}]}], ",", RowBox[{"4", " ", "\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{"\[Beta]", "-", RowBox[{"2", " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Beta]"}]}], " ", ",", RowBox[{"4", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"node", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "to", " ", "orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], "*", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", RowBox[{"h\[Alpha]", "*", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"in", " ", "flat", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "transform", " ", "into", " ", "the", " ", "material", " ", "\[Alpha]\[Beta]n"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "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]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], "/", "h\[Beta]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[CapitalTheta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[CapitalTheta]"}], "/", "h\[Beta]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[CapitalTheta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], "/", "h\[Beta]"}], "-", "\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Beta]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Beta]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Alpha]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Beta]\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Beta]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", "GG", "*", "\[Kappa]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Beta]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint1", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Beta]"}], "}"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint2", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Beta]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint1", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "+", RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{ RowBox[{"(", "\[Delta]wint2", ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[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[{"ELEMENT", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "NN", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "f\[Alpha]", ",", "f\[Beta]", ",", "fn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]", ",", "Q\[Alpha]", ",", "Q\[Beta]", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "*", "\[Alpha]", "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", "*", "\[Alpha]"}], "+", RowBox[{"9", "*", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"1", "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", "*", " ", "\[Beta]"}], "+", RowBox[{"9", " ", "*", SuperscriptBox["\[Beta]", "2"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"(", RowBox[{"2", "-", RowBox[{"9", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"11", " ", "\[Beta]"}], "+", RowBox[{"18", " ", SuperscriptBox["\[Beta]", "2"]}], "-", RowBox[{"9", " ", SuperscriptBox["\[Beta]", "3"]}], "-", RowBox[{"9", " ", "*", SuperscriptBox["\[Alpha]", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"36", "*", "\[Beta]"}], "-", RowBox[{"27", "*", SuperscriptBox["\[Beta]", "2"]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Alpha]"}]}], ")"}], "*", "\[Beta]"}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Alpha]", "*", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "9"}], "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Beta]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", " ", "\[Beta]", "*", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", "*", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", "*", "\[Beta]"}], "+", RowBox[{"3", "*", SuperscriptBox["\[Beta]", "2"]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"6", "*", "\[Beta]"}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"9", "/", "2"}], "*", "\[Alpha]", "*", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", "*", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", "*", "\[Beta]"}], "+", RowBox[{"3", "*", SuperscriptBox["\[Beta]", "2"]}], "+", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"6", "*", "\[Beta]"}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "9"}], "/", "2"}], "*", " ", "\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", "*", "\[Alpha]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "27"}], "*", "\[Alpha]", "*", "\[Beta]", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "to", " ", "orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], "*", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", RowBox[{"h\[Alpha]", "*", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"in", " ", "flat", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "transform", " ", "into", " ", "the", " ", "material", " ", "\[Alpha]\[Beta]n"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "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]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], "/", "h\[Beta]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[CapitalTheta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[CapitalTheta]"}], "/", "h\[Beta]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[CapitalTheta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], "/", "h\[Beta]"}], "-", "\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Beta]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Beta]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Alpha]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Beta]\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Beta]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", "GG", "*", "\[Kappa]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Beta]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Beta]"}], "}"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}], "/;", " ", RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", "10", "}"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[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[{"ELEMENT", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n\[Alpha]", ",", "n\[Beta]", ",", "nne", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "enode", ",", "NN", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "f\[Alpha]", ",", "f\[Beta]", ",", "fn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]", ",", "Q\[Alpha]", ",", "Q\[Beta]", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "nodes", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "n\[Beta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nne", " ", "=", RowBox[{"n\[Alpha]", "*", "n\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"enode", "=", RowBox[{"Flatten", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "to", " ", "orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], "*", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", RowBox[{"h\[Alpha]", "*", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"in", " ", "flat", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "transform", " ", "into", " ", "the", " ", "material", " ", "\[Alpha]\[Beta]n"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "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]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], "/", "h\[Beta]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[CapitalTheta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[CapitalTheta]"}], "/", "h\[Beta]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[CapitalTheta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], "/", "h\[Beta]"}], "-", "\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Beta]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Beta]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Alpha]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Beta]\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Beta]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", "GG", "*", "\[Kappa]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Beta]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Beta]"}], "}"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", "\[Alpha]"}], "]"}], ",", "\[Beta]"}], "]"}]}]}], "]"}], "/;", " ", RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}]}]}], ";"}], "\[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_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"ELEMENT", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n\[Alpha]", ",", "n\[Beta]", ",", "nne", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "enode", ",", "NN", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]", ",", "f\[Alpha]", ",", "f\[Beta]", ",", "fn", ",", "m\[Alpha]", ",", "m\[Beta]", ",", "mn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]", ",", "Q\[Alpha]", ",", "Q\[Beta]", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "nodes", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "n\[Beta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nne", " ", "=", RowBox[{"n\[Alpha]", "*", "n\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"enode", "=", RowBox[{"Flatten", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "to", " ", "orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], "*", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", RowBox[{"h\[Alpha]", "*", "h\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"in", " ", "flat", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "transform", " ", "into", " ", "the", " ", "material", " ", "\[Alpha]\[Beta]n"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"m\[Alpha]", ",", "m\[Beta]", ",", "mn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"strain", " ", "measures", " ", "with", " ", "non"}], "-", RowBox[{"symmetric", " ", "\[Epsilon]"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], "/", "h\[Beta]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[CapitalTheta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[CapitalTheta]"}], "/", "h\[Beta]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[CapitalTheta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], "/", "h\[Beta]"}], "-", "\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Beta]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Beta]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Beta]\[Alpha]", "=", RowBox[{"tt", "*", "GG", "*", "\[Epsilon]\[Beta]\[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]\[Beta]\[Beta]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Beta]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Beta]\[Beta]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Beta]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", "GG", "*", "\[Kappa]\[Alpha]\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Beta]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Beta]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Beta]\[Beta]", ",", "\[Epsilon]\[Alpha]\[Beta]", ",", "\[Epsilon]\[Beta]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Beta]\[Beta]", ",", "N\[Alpha]\[Beta]", ",", "N\[Beta]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Beta]\[Beta]", ",", "M\[Alpha]\[Beta]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Beta]"}], "}"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"m\[Alpha]", ",", "m\[Beta]", ",", "mn"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", "\[Alpha]"}], "]"}], ",", "\[Beta]"}], "]"}]}]}], "]"}], "/;", " ", RowBox[{ RowBox[{"Dimensions", "[", "node", "]"}], "\[Equal]", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.6302476464502306`*^9, 3.6302477023607283`*^9}, {3.630247749738012*^9, 3.6302479456119556`*^9}, { 3.630247987076829*^9, 3.6302480916126122`*^9}, {3.6302481317670827`*^9, 3.630248155245124*^9}, {3.6302481927163897`*^9, 3.63024823257446*^9}, { 3.6302869660869403`*^9, 3.6302871959065437`*^9}, {3.6302872330814095`*^9, 3.630287236560216*^9}, {3.630287274421482*^9, 3.6302874119357233`*^9}, { 3.6302874551009994`*^9, 3.6302874699990253`*^9}, {3.6302875003722787`*^9, 3.6302877505343184`*^9}, {3.63038960251799*^9, 3.630389603672392*^9}, { 3.630808954640574*^9, 3.6308089697374372`*^9}, {3.6308090558753643`*^9, 3.63080905807349*^9}, {3.633681137596347*^9, 3.6336812675647807`*^9}, { 3.633692346227066*^9, 3.6336923608039*^9}, {3.6336924823428516`*^9, 3.633692482984888*^9}, {3.6336927709053564`*^9, 3.633692779378841*^9}, { 3.635474649291499*^9, 3.6354747135141726`*^9}, {3.635474757347679*^9, 3.635474767084236*^9}, {3.7326781791979923`*^9, 3.7326782541070137`*^9}, { 3.732678384546839*^9, 3.732678387154627*^9}, {3.7326784528278866`*^9, 3.7326784536419926`*^9}, {3.7326785658888392`*^9, 3.732678606948255*^9}, { 3.7326786429394207`*^9, 3.732678671328236*^9}, 3.7326787139495087`*^9, 3.7326824710029726`*^9, {3.732682535085518*^9, 3.7326825394060144`*^9}, { 3.732788367344186*^9, 3.7327883679512634`*^9}, {3.733659479173915*^9, 3.733659479686716*^9}, {3.733659736778194*^9, 3.733659738223981*^9}, { 3.733660235678305*^9, 3.7336603371354585`*^9}, {3.733660451788246*^9, 3.733660466320716*^9}, {3.733660509132059*^9, 3.7336605685538363`*^9}, 3.7336606346231527`*^9, {3.7336606902677946`*^9, 3.7336607839480886`*^9}, { 3.7336608179615364`*^9, 3.7336608319530153`*^9}, {3.733660881327427*^9, 3.733660897330119*^9}, {3.7336609300986814`*^9, 3.7336609594994287`*^9}, { 3.73366136360488*^9, 3.733661402781823*^9}, {3.733661450979083*^9, 3.7336615506703176`*^9}, {3.733661609102705*^9, 3.7336616507411423`*^9}, { 3.7336616844880095`*^9, 3.7336616852837515`*^9}, 3.7336618066988688`*^9, { 3.7336620707975283`*^9, 3.7336621071155624`*^9}, {3.7337028629370823`*^9, 3.733703205450749*^9}, {3.733703243487465*^9, 3.7337032610824347`*^9}, { 3.733703298061898*^9, 3.7337033664147425`*^9}, {3.7337033982918806`*^9, 3.73370344248729*^9}, {3.7337034777924*^9, 3.7337035051606703`*^9}, { 3.733703582604458*^9, 3.733703668421293*^9}, 3.73370371853176*^9, { 3.7337039455508604`*^9, 3.7337039986094637`*^9}, 3.7337040398626404`*^9, { 3.733709014619094*^9, 3.733709032928876*^9}, {3.733710962294444*^9, 3.7337109655993176`*^9}, {3.7337116551468105`*^9, 3.7337116628867064`*^9}, {3.734177223332971*^9, 3.7341772262673383`*^9}, { 3.734177304096835*^9, 3.7341773117663164`*^9}, {3.7341773527732897`*^9, 3.7341774236892753`*^9}, {3.734177567269784*^9, 3.7341775896576233`*^9}, { 3.7341776260785637`*^9, 3.7341776336188316`*^9}, {3.7341776647735634`*^9, 3.734177725567827*^9}, {3.7341777815164194`*^9, 3.734177803193592*^9}, { 3.76372700789438*^9, 3.763727008977229*^9}, {3.826362782570422*^9, 3.8263628105149765`*^9}, {3.826362869553932*^9, 3.826362899896824*^9}, 3.826363328101153*^9, {3.840426739187541*^9, 3.840426900661952*^9}, { 3.8411217229845905`*^9, 3.8411217360480766`*^9}, {3.8411217736618304`*^9, 3.84112182564371*^9}, {3.8411218641628623`*^9, 3.8411221348500795`*^9}, { 3.8411222111856875`*^9, 3.8411224614927535`*^9}, {3.8411226025233316`*^9, 3.84112265659787*^9}, {3.841122702844118*^9, 3.8411227358089767`*^9}, { 3.841122767000372*^9, 3.841122789115695*^9}, {3.8411228263291655`*^9, 3.841122840147561*^9}, {3.8411229052717075`*^9, 3.8411229596287527`*^9}, { 3.8411230527118196`*^9, 3.841123112582203*^9}, 3.8411231449179096`*^9, 3.8411234197043743`*^9, {3.8411252927002463`*^9, 3.8411252949718075`*^9}, { 3.841128200732338*^9, 3.841128200920005*^9}, {3.841128712216941*^9, 3.8411287125067186`*^9}, {3.841133254755392*^9, 3.8411332882095027`*^9}, { 3.8411333562672715`*^9, 3.8411333591533422`*^9}, {3.841134926084315*^9, 3.8411349277121115`*^9}, {3.841134957993024*^9, 3.841135019642999*^9}, 3.8448244774776583`*^9}, CellLabel-> "In[284]:=",ExpressionUUID->"c7f86a0a-ea87-47c4-89fc-f9256c590eec"] }, Open ]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (vibr) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}},ExpressionUUID->"ed1764f3-6209-4f99-821d-\ 7dba3512520a"], 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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.851830237371579*^9, 3.85183025145358*^9}, {3.8518305063752985`*^9, 3.8518305308315496`*^9}, {3.85183140764212*^9, 3.85183143774364*^9}, { 3.8518315502903214`*^9, 3.851831695377967*^9}, {3.8518317645218363`*^9, 3.8518318373277397`*^9}, {3.851831868636403*^9, 3.8518319116186705`*^9}, 3.8518326393678236`*^9, {3.8518327098385625`*^9, 3.8518327278877563`*^9}, { 3.8518328055583944`*^9, 3.8518328759243045`*^9}, {3.8518329524762464`*^9, 3.851833079376422*^9}, {3.8518331291035*^9, 3.8518331302995796`*^9}, { 3.851833160508073*^9, 3.8518331634172173`*^9}, {3.851833237532813*^9, 3.851833414086164*^9}, {3.851833456249548*^9, 3.8518334931437445`*^9}, { 3.851833544068002*^9, 3.8518335453597345`*^9}, {3.851833575552421*^9, 3.8518336800045*^9}, {3.8518337143881235`*^9, 3.8518337258246155`*^9}, { 3.8518346908371735`*^9, 3.8518347174611683`*^9}, {3.8518347530809784`*^9, 3.8518347692487164`*^9}, {3.8518349597532296`*^9, 3.851835071000081*^9}}, CellLabel-> "In[395]:=",ExpressionUUID->"5e7fe1db-abc9-4d1d-a8e0-b3ff47866d12"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (stab) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.6303896204112215`*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.7658855563942738`*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221266`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.852336979003788*^9, 3.8523369803815904`*^9}},ExpressionUUID->"7301a79d-d7a0-461d-a6f9-\ dd3b4d0f7af2"], 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_", ",", "GG_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "FF", ",", "FFINV", ",", "jac", ",", "NN", ",", "u", ",", "ux", ",", "uy", ",", "uz", ",", "v", ",", "vx", ",", "vy", ",", "vz", ",", "w", ",", "wx", ",", "wy", ",", "wz", ",", "\[Phi]", ",", "\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z", ",", "\[Theta]", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z", ",", "AA", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Phi]", ",", "wc", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "\[Delta]wmap", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "QQ", ",", "tri", ",", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ARNOLD", "-", "FALCK"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "mapping", " ", "for", " ", "the", " ", "plate", " ", "geometry"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Sqrt", "[", RowBox[{"r\[Gamma]", ".", "r\[Gamma]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"r\[Alpha]", ",", "r\[Beta]", ",", RowBox[{"r\[Gamma]", "/", "jac"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", " ", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"wc", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "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[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "projection", "*)"}], "\[IndentingNewLine]", RowBox[{"AA", "=", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "jac", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]"}], "}"}], "=", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]"}], "}"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "/", "AA"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "derivatives", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy", ",", "wz"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]x", ",", "\[Phi]y", ",", "\[Phi]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z"}], "}"}], "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}], ",", "0"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{"ux", ",", "vy", ",", RowBox[{"uy", "+", "vx"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{"\[Theta]x", ",", RowBox[{"-", "\[Phi]y"}], ",", RowBox[{ RowBox[{"-", "\[Phi]x"}], "+", "\[Theta]y"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}], "+", RowBox[{"{", RowBox[{"\[Pi]\[Theta]", ",", RowBox[{"-", "\[Pi]\[Phi]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", 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[{"MM", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "E\[Sigma]"}], ")"}], ".", "\[Kappa]\[Kappa]"}]}], ";", "\[IndentingNewLine]", RowBox[{"QQ", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "tt", "*", "GG", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"E\[Sigma]", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "MM"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "QQ"}]}]}], ";", "\[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[{"wx", ",", "wy"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"wx", ",", "wy"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{"-", "0.1"}], "*", RowBox[{"\[Delta]", "[", RowBox[{"wc", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"wc", "-", "w"}], ")"}], "*", RowBox[{"tt", "/", "AA"}], "*", "EE"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wmap", "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "*)"}], "\[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", ",", "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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.789124218156231*^9, 3.789124220106046*^9}, {3.789124254593116*^9, 3.7891242583777695`*^9}, {3.7891243156014767`*^9, 3.789124326373148*^9}, { 3.789125154499303*^9, 3.7891252228031907`*^9}, {3.8200454708911095`*^9, 3.8200454840718527`*^9}, {3.8509666497276897`*^9, 3.8509666516620097`*^9}, {3.850966717721876*^9, 3.8509667189933705`*^9}, 3.8509667763101106`*^9, {3.8509668228841643`*^9, 3.850966844061469*^9}, { 3.8509668794855585`*^9, 3.8509669485542307`*^9}, {3.850966982527851*^9, 3.8509670397380314`*^9}}, CellLabel-> "In[397]:=",ExpressionUUID->"297a356b-6633-481d-a368-e069bdb3ca49"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (nonl) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8533873958221235`*^9, 3.853387408038947*^9}, 3.8618404867698007`*^9},ExpressionUUID->"e0ce3787-f7ae-4b11-9458-\ 0e73d07c6938"], 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", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^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.6295206788826766`*^9, 3.6295207067911253`*^9}, {3.6295207408927855`*^9, 3.629520753700408*^9}, { 3.629521020590745*^9, 3.6295210354395943`*^9}, {3.6295211107369013`*^9, 3.62952114882508*^9}, {3.6295212327348795`*^9, 3.6295212477237363`*^9}, { 3.6295213424816394`*^9, 3.629521343230441*^9}, {3.6295215363119802`*^9, 3.6295216753550243`*^9}, {3.629521922272258*^9, 3.6295219939855833`*^9}, { 3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, {3.629522755188921*^9, 3.62952288580795*^9}, { 3.629522918084407*^9, 3.6295233421087513`*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, {3.629523424274096*^9, 3.6295234533369465`*^9}, { 3.6295235190130625`*^9, 3.629523521680667*^9}, 3.6295235894315863`*^9, { 3.6295237270706277`*^9, 3.629523799454755*^9}, {3.6295238514808464`*^9, 3.629523883460902*^9}, {3.6295239376085978`*^9, 3.6295239442386093`*^9}, { 3.6295241089904985`*^9, 3.629524177537019*^9}, 3.629524211888279*^9, { 3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.6295259599109507`*^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.6295268598453307`*^9}, { 3.6295269393898706`*^9, 3.6295269586559043`*^9}, {3.6295271490074387`*^9, 3.6295272149019547`*^9}, {3.6295272553684254`*^9, 3.6295272827620735`*^9}, {3.6295274137087035`*^9, 3.6295274761244135`*^9}, {3.6295275252801*^9, 3.6295279912529182`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.6295282905550437`*^9, 3.6295284308616905`*^9}, 3.6295285402022824`*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.6295287666834803`*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.6295293426208916`*^9, 3.6295293491261034`*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.6295296539506383`*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.6295297445555973`*^9, 3.629529766426836*^9}, {3.6295298053333044`*^9, 3.6295298209489317`*^9}, {3.6295308380551186`*^9, 3.6295308386635194`*^9}, {3.629532377840223*^9, 3.6295323811630287`*^9}, { 3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, {3.62953259842461*^9, 3.6295326002654133`*^9}, { 3.6295326327758703`*^9, 3.6295326715107384`*^9}, {3.629532742428463*^9, 3.6295328288058147`*^9}, {3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396367`*^9, 3.629533193562456*^9}, 3.6295350321720915`*^9, 3.629535158485513*^9, {3.629535245471266*^9, 3.6295352687465067`*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, { 3.6295355043381205`*^9, 3.6295355262249594`*^9}, {3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, { 3.6295446682009234`*^9, 3.629544668466124*^9}, {3.6296010216162376`*^9, 3.6296010236442413`*^9}, {3.629601079336339*^9, 3.6296010902875586`*^9}, 3.6296011425476503`*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, { 3.629623884428093*^9, 3.629623914723346*^9}, {3.6296239662190366`*^9, 3.6296239738006496`*^9}, {3.6296240514731865`*^9, 3.6296240920176573`*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.6296256512247963`*^9, 3.6296256817072496`*^9}, {3.6296260472626915`*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.6296281088266973`*^9}, {3.6296281406819534`*^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.6296337764967575`*^9, 3.6296338344040594`*^9}, {3.6296342997684765`*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.6296345320060844`*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.6296348599810605`*^9, 3.6296348746918864`*^9}, {3.6296349071867433`*^9, 3.629635023172947*^9}, 3.6296350995818815`*^9, {3.6296363797201295`*^9, 3.6296363868961425`*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.6296369192782774`*^9, 3.6296369318830996`*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.6296376418091464`*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.6296393829750047`*^9, {3.6296395546065063`*^9, 3.6296395649961243`*^9}, { 3.62964113386068*^9, 3.6296412507048855`*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.6296855551269727`*^9, 3.6296855804270077`*^9}, {3.6297079065796247`*^9, 3.6297079070476255`*^9}, {3.6297080850439377`*^9, 3.629708135728427*^9}, { 3.6297083496516027`*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.6297089402482414`*^9, 3.6297089618542795`*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.6297107810514746`*^9, 3.6297107850138817`*^9}, {3.6297109100481014`*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.6297115007275386`*^9}, {3.6297115377464037`*^9, 3.6297115441112146`*^9}, 3.6297116025645175`*^9, {3.6298716505389357`*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.6298785221786494`*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.6298789171723433`*^9}, {3.6298802128122005`*^9, 3.6298802929723125`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.6298989036744275`*^9, 3.6298989486493063`*^9}, {3.629899016868226*^9, 3.6298991622448816`*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.6299002595352087`*^9}, 3.6299005011236343`*^9, {3.6299005468317146`*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.6299011689220085`*^9, 3.6299012295125146`*^9}, {3.6299013754039707`*^9, 3.6299014166036434`*^9}, 3.6299014589733176`*^9, {3.6299015096734066`*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.6299016974665365`*^9}, {3.629901952339784*^9, 3.6299019599057975`*^9}, 3.6299020306051216`*^9, {3.6299022330934772`*^9, 3.6299022682559395`*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.6299503101150723`*^9, 3.6299503156998825`*^9}, {3.629950355058751*^9, 3.629950498937804*^9}, { 3.6299555415202007`*^9, 3.6299555507086167`*^9}, {3.6299556061667137`*^9, 3.6299557553497763`*^9}, {3.629955788499834*^9, 3.6299558948608212`*^9}, { 3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.6299585082765827`*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.6299586356508064`*^9}, {3.629958715073346*^9, 3.6299588186419287`*^9}, { 3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, {3.6299595293323765`*^9, 3.6299596037913074`*^9}, { 3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.6299597841120243`*^9}, {3.629959826622099*^9, 3.629959862533362*^9}, { 3.6299599051682367`*^9, 3.6299599235918694`*^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.6299605636609936`*^9}, {3.6299606195870914`*^9, 3.6299606581971593`*^9}, {3.629960824228251*^9, 3.6299608755367413`*^9}, { 3.629960906658796*^9, 3.6299609978409557`*^9}, {3.6299610312250147`*^9, 3.629961070646284*^9}, {3.629961135698398*^9, 3.6299611643088484`*^9}, { 3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.6299722439717965`*^9, 3.629972300007095*^9}, {3.6299723670872126`*^9, 3.6299723937008595`*^9}, { 3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, {3.6299729203577843`*^9, 3.6299729350218105`*^9}, {3.6299729720874753`*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.6299731230177402`*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.6299740374133463`*^9, 3.629974083823428*^9}, { 3.6299742505565205`*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.6299744466176653`*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.6299747850134597`*^9}, {3.6299748226095257`*^9, 3.6299748237483273`*^9}, 3.6299748618435946`*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.6299753175515947`*^9}, { 3.6299754601982455`*^9, 3.6299754625382495`*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.6299835439883366`*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.6299919807040443`*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.6299922299300823`*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.6299923603151107`*^9}, {3.6299924387676487`*^9, 3.6299924398440504`*^9}, {3.6299925764846907`*^9, 3.6299926096347485`*^9}, {3.6299928122323046`*^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.6299932618718944`*^9}, {3.6299933276572104`*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, { 3.6303896387100534`*^9, 3.630389666774503*^9}, {3.6303896967889557`*^9, 3.6303897095341783`*^9}, {3.6303897587054644`*^9, 3.630389880448078*^9}, { 3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.6303909789240074`*^9}, { 3.6303910572205453`*^9, 3.6303911291054716`*^9}, {3.630391163035531*^9, 3.6303911740803504`*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, { 3.6303913396902413`*^9, 3.630391404570755*^9}, {3.630391479513287*^9, 3.6303917572873745`*^9}, {3.630391868905571*^9, 3.6303920027226057`*^9}, { 3.630392064327114*^9, 3.630392219843787*^9}, {3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.6303924441097813`*^9}, { 3.6303926866122074`*^9, 3.6303927118530517`*^9}, {3.630392795671999*^9, 3.6303928006172075`*^9}, {3.6303986032190485`*^9, 3.6303986046230516`*^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.6303992555185947`*^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.6303997453120623`*^9}, {3.6303998546994543`*^9, 3.6303999880484886`*^9}, {3.6304000742074394`*^9, 3.630400123441126*^9}, { 3.6304001724564123`*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, {3.630400358190338*^9, 3.6304003597503414`*^9}, { 3.6304004587481155`*^9, 3.6304004640521245`*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, {3.630400567199506*^9, 3.630400593516752*^9}, { 3.6304012340070767`*^9, 3.6304013035207987`*^9}, {3.6304013614749007`*^9, 3.630401367933312*^9}, {3.630401686939398*^9, 3.6304017294598303`*^9}, { 3.630401794020523*^9, 3.6304018922061386`*^9}, {3.6304019687775183`*^9, 3.630401987153569*^9}, {3.630402072749465*^9, 3.63040208297405*^9}, { 3.6304022247881613`*^9, 3.630402255931943*^9}, 3.630402329306139*^9, { 3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, {3.6304025620694523`*^9, 3.630402575015193*^9}, { 3.6304026411829777`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, {3.630402783923142*^9, 3.6304027982389607`*^9}, { 3.6304028797236214`*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.6304031598846455`*^9}, {3.630403236330018*^9, 3.6304032404072514`*^9}, { 3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.6304039512829113`*^9}, 3.6304039831437335`*^9, {3.630404015975611*^9, 3.6304040663624935`*^9}, {3.630404173614628*^9, 3.630404246945822*^9}, { 3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, {3.6304045301800222`*^9, 3.6304045579486103`*^9}, { 3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, {3.6304050364729805`*^9, 3.630405098270515*^9}, { 3.6304051736118245`*^9, 3.6304051965901384`*^9}, {3.6304053802536435`*^9, 3.63040539242334*^9}, {3.630406035965148*^9, 3.630406041998493*^9}, { 3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.6304062707025747`*^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.6304070081447535`*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, {3.6304080609339695`*^9, 3.630408121202417*^9}, { 3.6304081585485525`*^9, 3.6304081832129636`*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.6304934333363276`*^9, {3.63049350751357*^9, 3.630493677593298*^9}, {3.630493716898546*^9, 3.6304937846684227`*^9}, 3.630493922944331*^9, {3.6304939556752033`*^9, 3.630494117430455*^9}, { 3.6304941486092386`*^9, 3.6304941767788496`*^9}, {3.6304942118648567`*^9, 3.6304942530272107`*^9}, {3.6304942838399734`*^9, 3.6304942845820155`*^9}, {3.6304943454054947`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.6308075480801234`*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.6308077644745007`*^9}, { 3.6308078081089964`*^9, 3.6308078670123653`*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.6308081080891542`*^9, 3.6308081919599514`*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.6308091998195972`*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.6308095448223305`*^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.6320400558356075`*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.6354750875145636`*^9}, {3.6354751334091887`*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.6354754820331287`*^9}, 3.635475512931896*^9, {3.6354756222781506`*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.6354757798291616`*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.6354759738382587`*^9}, {3.6354760213729773`*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.6354761719365892`*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.6593347077219453`*^9, 3.659334720701168*^9}, { 3.6593348752974396`*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.6593350070240707`*^9}, {3.6593350466949406`*^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.6593360629605274`*^9}, { 3.6593361352354546`*^9, 3.6593361504454813`*^9}, {3.6593363929479074`*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.6884748265656157`*^9, 3.6884748268716326`*^9}, {3.6884748600075283`*^9, 3.688474861420609*^9}, { 3.6885242858240776`*^9, 3.6885243001140976`*^9}, {3.6888842911675606`*^9, 3.6888843311676164`*^9}, {3.688966242423658*^9, 3.688966263933688*^9}, { 3.6897393587897596`*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, { 3.6898595970621734`*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, {3.689859768552414*^9, 3.6898597721424184`*^9}, { 3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.6898608811139708`*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.6898611496043468`*^9, 3.6898611683243732`*^9}, {3.689861462024784*^9, 3.6898615624849253`*^9}, { 3.6898616142149973`*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, { 3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.7326779208190203`*^9}, {3.7519672427004185`*^9, 3.7519672444968877`*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, { 3.751967484127989*^9, 3.751967510853814*^9}, {3.7519675409404893`*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, { 3.7519676829383273`*^9, 3.7519676841255474`*^9}, {3.7519677154775553`*^9, 3.7519677953499403`*^9}, 3.751967827811061*^9, {3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, { 3.751968264817631*^9, 3.751968270722477*^9}, {3.7519689618119907`*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.7519691395895615`*^9}, { 3.751969242782174*^9, 3.7519692581691785`*^9}, {3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, { 3.7519695894526725`*^9, 3.751969614306203*^9}, {3.7523200108586655`*^9, 3.752320012354121*^9}, {3.7553831315619707`*^9, 3.755383134119626*^9}, { 3.7553831893197794`*^9, 3.755383241814331*^9}, {3.7553832736267967`*^9, 3.7553832810757113`*^9}, {3.7554336536222963`*^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.7554468921547422`*^9}, {3.7554469323588533`*^9, 3.755446936867403*^9}, { 3.7554470190332975`*^9, 3.7554472776872244`*^9}, {3.7555217323692026`*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.7555217972041793`*^9}, { 3.755522561453134*^9, 3.755522564231819*^9}, {3.755522601885935*^9, 3.7555226037287407`*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, { 3.7555234832604623`*^9, 3.7555235920444417`*^9}, {3.7555239506007543`*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.7555240812793446`*^9}, { 3.7555241238138275`*^9, 3.7555241268985643`*^9}, {3.7555242930449886`*^9, 3.7555243378577013`*^9}, {3.7555256673767824`*^9, 3.7555256808205338`*^9}, {3.7555258588384123`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.7555260436531134`*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.7556080025382996`*^9}, { 3.7556094344057455`*^9, 3.7556094348690443`*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.7559618979231987`*^9, 3.755961939470047*^9}, {3.7559620323724904`*^9, 3.7559620330864005`*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.7560029626855392`*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492863`*^9, 3.7560056663855457`*^9}, { 3.7560057813555765`*^9, 3.7560057863836613`*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.7560920727337685`*^9}, {3.75609212911592*^9, 3.7560921293252516`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911004`*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.7560932986236534`*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.7560936019456573`*^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.7564436397451363`*^9, 3.7564436403231254`*^9}, { 3.7636034984570236`*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.7636035527617817`*^9}, {3.7636036049384193`*^9, 3.7636036392233057`*^9}, {3.7636036850937223`*^9, 3.763603692587598*^9}, { 3.7636037258272257`*^9, 3.7636037459031096`*^9}, {3.7636037792254367`*^9, 3.76360387572289*^9}, {3.763603971837229*^9, 3.7636040341423655`*^9}, { 3.763604066526084*^9, 3.7636040756798687`*^9}, {3.7636041452118535`*^9, 3.763604278007333*^9}, {3.763604317710966*^9, 3.7636043271387568`*^9}, { 3.7636043584877644`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.7636044504114943`*^9}, {3.763604615444647*^9, 3.7636048082554193`*^9}, 3.763604854904996*^9, {3.7636133594095488`*^9, 3.7636133618464766`*^9}, { 3.7636136063756704`*^9, 3.7636136315671196`*^9}, {3.7636990373827705`*^9, 3.7636990431157646`*^9}, {3.763699090332087*^9, 3.763699110952259*^9}, { 3.763699227420497*^9, 3.7636993642943506`*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, {3.7637001721125274`*^9, 3.763700181422837*^9}, { 3.763700248063385*^9, 3.7637003918630466`*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, {3.7637007583576717`*^9, 3.7637007603074865`*^9}, {3.7637137795793185`*^9, 3.7637137822587233`*^9}, {3.7637148704355187`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.7637275933445053`*^9}, {3.7637276688363667`*^9, 3.7637276694756594`*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.7638048385675254`*^9}, 3.7638051033646154`*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.7638141184594107`*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.7638146925645113`*^9}, { 3.7638147709278784`*^9, 3.7638147811883087`*^9}, {3.7638148155281043`*^9, 3.763814819843194*^9}, {3.7638150259647446`*^9, 3.763815028601293*^9}, { 3.7638151529595194`*^9, 3.763815155849978*^9}, {3.7638163770262136`*^9, 3.763816380851597*^9}, {3.7638164181856327`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.7638166173645625`*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.7638580060526443`*^9}, {3.763858082269992*^9, 3.7638581746835337`*^9}, { 3.7638582163351564`*^9, 3.7638582415275116`*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, {3.763858941318697*^9, 3.763858956626134*^9}, { 3.7638602435602536`*^9, 3.763860245408451*^9}, {3.7638694636456347`*^9, 3.7638694647177277`*^9}, {3.7638708199536576`*^9, 3.763870829436488*^9}, { 3.763871287170555*^9, 3.7638712876184006`*^9}, {3.763943214376035*^9, 3.7639432984591475`*^9}, {3.763943418832348*^9, 3.7639434335508127`*^9}, { 3.76394347113767*^9, 3.7639435187320576`*^9}, {3.763943585908682*^9, 3.7639436125255404`*^9}, {3.763951722152746*^9, 3.76395172989299*^9}, { 3.7639517863423367`*^9, 3.7639519945900664`*^9}, {3.763952081515512*^9, 3.7639521530710773`*^9}, {3.763952353248129*^9, 3.763952357026309*^9}, { 3.7639524211903834`*^9, 3.7639524243979177`*^9}, {3.7639527174925117`*^9, 3.7639527180252266`*^9}, {3.7641265625745993`*^9, 3.7641265632314167`*^9}, {3.764126605555829*^9, 3.7641266075095396`*^9}, { 3.7641268313964133`*^9, 3.7641268543573804`*^9}, {3.764127044657903*^9, 3.7641270479422092`*^9}, {3.7641271442332697`*^9, 3.7641271469362774`*^9}, {3.764127227626192*^9, 3.7641272592640233`*^9}, { 3.764127335707515*^9, 3.7641273386484756`*^9}, {3.764127429843852*^9, 3.7641274364304185`*^9}, {3.7641275071859307`*^9, 3.764127516803895*^9}, 3.7641276043548007`*^9, {3.7641276925365753`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.7641280050343323`*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.7641289910924444`*^9, 3.7641290126680794`*^9}, {3.7641290672285347`*^9, 3.7641290737798567`*^9}, {3.7641325425120363`*^9, 3.764132565390477*^9}, { 3.7641327425004654`*^9, 3.764132750040793*^9}, 3.7641327968340364`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.7641333488187037`*^9, 3.7641333525577593`*^9}, {3.764413145593136*^9, 3.7644131471236105`*^9}, { 3.764413201645049*^9, 3.7644132349609704`*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.7644134113425665`*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.7644136160674934`*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879405`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.7644200798862047`*^9, 3.7644200950961914`*^9}, { 3.7644201529471693`*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.7644203000939393`*^9}, { 3.7644203803359275`*^9, 3.7644203931390867`*^9}, 3.7644204418727274`*^9, { 3.7647259720700207`*^9, 3.7647261047260523`*^9}, {3.7647263483375626`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.7647270591828785`*^9, 3.7647270819631023`*^9}, { 3.7647272109090505`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.7647324813925114`*^9}, {3.7647349484962797`*^9, 3.7647349979358416`*^9}, {3.7647351097258167`*^9, 3.764735124772463*^9}, { 3.7647352810674453`*^9, 3.7647352901139917`*^9}, {3.7647353746429515`*^9, 3.764735379550926*^9}, {3.7647354596539807`*^9, 3.764735507677454*^9}, { 3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, {3.76473603649269*^9, 3.7647360592982664`*^9}, { 3.7647360998228803`*^9, 3.76473621551197*^9}, {3.7647362545599003`*^9, 3.764736286430997*^9}, {3.7647364592833533`*^9, 3.764736464019006*^9}, { 3.764736566167658*^9, 3.7647365918958225`*^9}, {3.764764761680134*^9, 3.7647648482473745`*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, {3.7647651742140284`*^9, 3.7647652517335076`*^9}, { 3.764765341266399*^9, 3.7647653614173465`*^9}, 3.764765400284145*^9, { 3.764765691384389*^9, 3.764765708710143*^9}, 3.7647657454275875`*^9, { 3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, {3.7647661964223824`*^9, 3.764766239375331*^9}, { 3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.7647670193029037`*^9}, {3.764767076590926*^9, 3.7647671160277977`*^9}, { 3.7647671493139205`*^9, 3.7647672079236426`*^9}, {3.764767458938404*^9, 3.7647674608323865`*^9}, {3.764810938444873*^9, 3.7648109399353456`*^9}, { 3.7648118616019874`*^9, 3.7648118695079126`*^9}, {3.7648120589477816`*^9, 3.7648124600413237`*^9}, {3.76481250476682*^9, 3.7648125259602103`*^9}, { 3.764812601341893*^9, 3.7648126577763243`*^9}, {3.7648126944039307`*^9, 3.7648128855627623`*^9}, {3.764812924923909*^9, 3.764812926481821*^9}, { 3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313235`*^9}, {3.7648136917777314`*^9, 3.764813697753367*^9}, { 3.7648137297570653`*^9, 3.764813747862262*^9}, 3.764813784221693*^9, { 3.7648138370678406`*^9, 3.7648141387969923`*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, {3.764814461366684*^9, 3.7648145835728483`*^9}, { 3.764814614769511*^9, 3.7648147525825167`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, {3.764815451671169*^9, 3.7648154601533747`*^9}, { 3.7648175917802963`*^9, 3.7648176401910563`*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, {3.766572999289345*^9, 3.7665729996020145`*^9}, { 3.7665730613126965`*^9, 3.7665730616706066`*^9}, {3.7840103262125545`*^9, 3.7840103546413517`*^9}, {3.784011309725755*^9, 3.7840113197719574`*^9}, { 3.784013374800973*^9, 3.7840133842981763`*^9}, {3.7840238533665447`*^9, 3.78402395932942*^9}, {3.784024091276659*^9, 3.784024112209529*^9}, { 3.7840242793219643`*^9, 3.784024296655184*^9}, {3.7840290670892677`*^9, 3.7840291348388853`*^9}, {3.784029222997594*^9, 3.784029542926179*^9}, { 3.784375172285057*^9, 3.784375319701829*^9}, {3.7843753678421807`*^9, 3.7843753788103914`*^9}, {3.7843754844339557`*^9, 3.784375827494117*^9}, { 3.784375862317687*^9, 3.7843759567563844`*^9}, {3.784376004941759*^9, 3.7843760080157185`*^9}, {3.784376101918992*^9, 3.7843761244332943`*^9}, { 3.784376181191763*^9, 3.7843762145091863`*^9}, {3.7843792489960337`*^9, 3.78437926273014*^9}, {3.7843793293934345`*^9, 3.784379368676588*^9}, { 3.7843796529835215`*^9, 3.7843796858862267`*^9}, {3.784450863324359*^9, 3.7844508986076546`*^9}, {3.7844510208392324`*^9, 3.784451027915551*^9}, { 3.7844511176315613`*^9, 3.7844511673791957`*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, {3.784451995615477*^9, 3.7844520110330954`*^9}, { 3.7844522907551537`*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.7847001627913013`*^9}, {3.7847004221290607`*^9, 3.7847004380767317`*^9}, 3.7847007913506136`*^9, {3.784781955129138*^9, 3.784781977787957*^9}, { 3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, { 3.78488220347418*^9, 3.7848822064697027`*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.7848835306495824`*^9, {3.7848836822092113`*^9, 3.7848837303696923`*^9}, 3.7848838199009576`*^9, {3.7848842507527857`*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.7848844645041113`*^9}, {3.784884559404122*^9, 3.7848845656634912`*^9}, { 3.7848852409944844`*^9, 3.7848852740337477`*^9}, {3.7848854548929386`*^9, 3.7848854893046365`*^9}, {3.7848856741783943`*^9, 3.784885691704702*^9}, { 3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.7848861057105627`*^9, {3.7848861627726107`*^9, 3.7848862212876124`*^9}, {3.784886306497995*^9, 3.7848863509322224`*^9}, 3.784886472690192*^9, {3.7848866596243*^9, 3.784886664116289*^9}, { 3.7848866987282944`*^9, 3.7848867077911897`*^9}, {3.78488676128524*^9, 3.7848868667029366`*^9}, {3.7848869381224003`*^9, 3.7848869414281464`*^9}, {3.7848870104508753`*^9, 3.784887039889447*^9}, { 3.7848871795058794`*^9, 3.7848871976746817`*^9}, {3.7848872311446314`*^9, 3.78488724075662*^9}, 3.784887405188785*^9, {3.784887591926689*^9, 3.7848876119305134`*^9}, {3.784887676620901*^9, 3.7848876786672792`*^9}, { 3.78488771054331*^9, 3.784887714354906*^9}, {3.7848877625809546`*^9, 3.7848878103041153`*^9}, 3.7848878862881575`*^9, {3.787717235155089*^9, 3.787717269464238*^9}, {3.7877174592607603`*^9, 3.7877174674038067`*^9}, { 3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.7877274973278403`*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.7877281704571557`*^9, 3.7877281735077004`*^9}, 3.7877282789827795`*^9, {3.7877286510229864`*^9, 3.787728665729192*^9}, { 3.7877287942225084`*^9, 3.787728807671986*^9}, {3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.7877296062090626`*^9}, { 3.787729794037467*^9, 3.7877297950347877`*^9}, {3.787729855548402*^9, 3.7877299039179935`*^9}, {3.7877300373241186`*^9, 3.787730068136018*^9}, { 3.7877301999859333`*^9, 3.7877302014150777`*^9}, {3.787732033225385*^9, 3.7877320471634016`*^9}, {3.787732077195259*^9, 3.7877320780358667`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, { 3.7877324857166643`*^9, 3.787732496655479*^9}, {3.7877325848303585`*^9, 3.78773258503596*^9}, {3.7877328504631166`*^9, 3.7877328625892415`*^9}, { 3.7877330254884944`*^9, 3.7877330271019044`*^9}, {3.787733136128061*^9, 3.7877331422258835`*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.7877334085329347`*^9, {3.7877337955932293`*^9, 3.7877337970498257`*^9}, {3.787733867727028*^9, 3.7877338687324905`*^9}, { 3.7877352224369583`*^9, 3.787735224161746*^9}, {3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.7877354268945775`*^9}, { 3.7877355100355635`*^9, 3.787735514671461*^9}, {3.7877356541994534`*^9, 3.7877356632141013`*^9}, 3.7877357913476543`*^9, 3.787736261837074*^9, { 3.7882542159043374`*^9, 3.7882542747998285`*^9}, {3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318524`*^9}, { 3.7882547349987383`*^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.7882553843544893`*^9, 3.788255423248046*^9}, { 3.78825567982127*^9, 3.7882556852479534`*^9}, {3.7882557908576803`*^9, 3.7882558029800806`*^9}, {3.7882560240494256`*^9, 3.7882560388846164`*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.7882561626372194`*^9}, { 3.7882562304311895`*^9, 3.78825629590362*^9}, {3.7882563614677362`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.7882564294158382`*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.7882565883311844`*^9, 3.788256591497148*^9}, {3.7882568409513097`*^9, 3.7882568724526567`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.7882570073831463`*^9, 3.7882570497349973`*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.7882573617262745`*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512347`*^9, 3.788276608568333*^9}, {3.7882767715851693`*^9, 3.7882768045752783`*^9}, {3.7882769342607436`*^9, 3.7882769409894867`*^9}, {3.7882770202208567`*^9, 3.7882770424485188`*^9}, {3.7882770760040703`*^9, 3.788277077341468*^9}, { 3.788277147336176*^9, 3.788277150397852*^9}, {3.7882772069909*^9, 3.7882772101572385`*^9}, {3.7882772503366175`*^9, 3.7882772773759403`*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, {3.788277450684473*^9, 3.788277482126852*^9}, { 3.78827754293396*^9, 3.788277545027956*^9}, {3.7883214550230436`*^9, 3.7883214742097826`*^9}, {3.788321520104019*^9, 3.788321685390153*^9}, { 3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, {3.7883220686363816`*^9, 3.788322220085001*^9}, { 3.7883255906192427`*^9, 3.788325646609389*^9}, {3.7883257976991563`*^9, 3.788325804097658*^9}, {3.788325969279187*^9, 3.7883259830028267`*^9}, { 3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, {3.788328648595448*^9, 3.788328762662589*^9}, { 3.7883288060890923`*^9, 3.7883288805716724`*^9}, {3.7883319188300047`*^9, 3.78833193230753*^9}, {3.7883321144947567`*^9, 3.788332115050151*^9}, { 3.7883333680456443`*^9, 3.7883333686272163`*^9}, 3.7883336421611414`*^9, { 3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.7883338348662343`*^9}, {3.7883339555470386`*^9, 3.7883339660305166`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, { 3.788334368484807*^9, 3.7883343918754945`*^9}, {3.7883345963739557`*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, { 3.7884115644712825`*^9, 3.7884115911998663`*^9}, {3.7884116673998833`*^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.7884129782039633`*^9}, { 3.7884155241723013`*^9, 3.7884155243798914`*^9}, 3.7884156619519596`*^9, { 3.7884162343262696`*^9, 3.788416236013459*^9}, {3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, { 3.789094077050009*^9, 3.7890940781167436`*^9}, {3.7890941254883175`*^9, 3.7890942919861226`*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, { 3.789094583794143*^9, 3.7890947278803444`*^9}, {3.7890947714417076`*^9, 3.7890948342626343`*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, { 3.789095256390032*^9, 3.78909525710861*^9}, {3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.7890960602768464`*^9}, { 3.7890960928429904`*^9, 3.789096098149865*^9}, {3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973257`*^9, 3.78909683859006*^9}, { 3.789096947653244*^9, 3.789097122315098*^9}, {3.7890971528708224`*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.7890975882562447`*^9}, { 3.7890976430709224`*^9, 3.789097656213524*^9}, {3.789107592314107*^9, 3.7891076537760305`*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, { 3.7891078105008087`*^9, 3.789107846610609*^9}, {3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.7891082064574785`*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.7891084751958127`*^9, 3.7891085010044174`*^9}, {3.7891085322441816`*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.7891088501491203`*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.7891091177554493`*^9}, { 3.7891091628149347`*^9, 3.7891092922346783`*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.7891111380334797`*^9, 3.7891113582877145`*^9}, { 3.789111396694514*^9, 3.7891114221541777`*^9}, {3.7891114539845037`*^9, 3.7891114952359962`*^9}, {3.789112929457416*^9, 3.7891129318274393`*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.7891144371217365`*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.7891148392057247`*^9}, { 3.7891148923150015`*^9, 3.789114904054755*^9}, {3.7891149560740595`*^9, 3.7891150071774015`*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.7891185439211864`*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.7891187854068985`*^9}, {3.7891188764873776`*^9, 3.7891188767373095`*^9}, {3.789121799028477*^9, 3.789121806719482*^9}, { 3.7891222627163153`*^9, 3.7891222774782734`*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, {3.789122431773783*^9, 3.7891224422816577`*^9}, { 3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529224`*^9, 3.7891226664045706`*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.7891229543768473`*^9}, {3.7891229964274464`*^9, 3.7891231044294157`*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, { 3.7891235661360893`*^9, 3.7891235688754067`*^9}, {3.8435393751961174`*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, { 3.8435484777900076`*^9, 3.8435484882620373`*^9}, {3.8435489691083994`*^9, 3.843548981201047*^9}, {3.8435491420371304`*^9, 3.8435491556997023`*^9}, { 3.8435491977347035`*^9, 3.8435491982438793`*^9}, 3.8435492510860806`*^9, { 3.8435495081660933`*^9, 3.8435495131948795`*^9}, {3.8435495856936626`*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, { 3.84355004136615*^9, 3.843550041760812*^9}, {3.843550160256809*^9, 3.8435501604677615`*^9}, {3.8435532120250945`*^9, 3.843553317388692*^9}, { 3.8435535239731655`*^9, 3.8435535314678483`*^9}, {3.8435535808757987`*^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.8435542071044455`*^9}, { 3.8435543508802266`*^9, 3.843554351606327*^9}, {3.843554424038799*^9, 3.8435544242271614`*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, { 3.843560832774662*^9, 3.8435608400783997`*^9}, {3.843561442743278*^9, 3.8435614495857325`*^9}, {3.8435616862804203`*^9, 3.8435617473408427`*^9}, {3.8435618416220255`*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.8435620399418516`*^9, 3.8435620427564726`*^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.8436143557463255`*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.8436148880544443`*^9}, { 3.843615637703328*^9, 3.8436156940260696`*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.8436211674899387`*^9}, { 3.8436212248219557`*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.8436235228419657`*^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.8437111173417163`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143283`*^9, 3.8437113718734703`*^9}, {3.8437115790188246`*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023905`*^9, 3.8437118104255657`*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.8437119637523017`*^9, 3.8437119924289055`*^9}, {3.843712070094509*^9, 3.843712071922304*^9}, { 3.8437303811976614`*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.8437307459908094`*^9}, {3.8437396200557556`*^9, 3.8437396419414387`*^9}, 3.843886670451059*^9, 3.8438867203204308`*^9, 3.84388678658553*^9, { 3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.8438869153482804`*^9}, {3.8443227935999327`*^9, 3.8443228741400695`*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, {3.8443255607450824`*^9, 3.84432556531176*^9}, { 3.8443257292349973`*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.8443271897353077`*^9}, 3.844327630363053*^9, 3.844327741570508*^9, { 3.8443278373713217`*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, {3.8443286085720377`*^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.8443300241626625`*^9}, { 3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.8443304466315546`*^9, 3.84438870778086*^9, {3.844388798979218*^9, 3.8443888166069407`*^9}, { 3.844388850689955*^9, 3.84438889324323*^9}, 3.8443891579040785`*^9, { 3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.8443894521629066`*^9}, 3.844389648527203*^9, {3.8443897876199207`*^9, 3.844389824625575*^9}, 3.8443900109195027`*^9, {3.844390820677456*^9, 3.8443908278248734`*^9}, {3.8443909207770224`*^9, 3.8443910088808312`*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, {3.844394341187828*^9, 3.8443943435847197`*^9}, { 3.8443944350783367`*^9, 3.8443944719623637`*^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.8443959211672125`*^9, 3.8443959248882713`*^9}, {3.8443960479537315`*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.8443967365950084`*^9, 3.8443967370378094`*^9}, 3.8443972200199785`*^9, {3.8444115993210382`*^9, 3.8444115995187025`*^9}, {3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.8444117955604706`*^9, 3.8444120838091917`*^9, 3.8444123486564503`*^9, { 3.8444124716223226`*^9, 3.8444124796999335`*^9}, {3.8444125495255537`*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, {3.844500043831334*^9, 3.8445000552814937`*^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.8445009435074234`*^9, 3.8445010378770485`*^9}, {3.844501486443882*^9, 3.844501488956464*^9}, { 3.844501593768973*^9, 3.8445016087484674`*^9}, {3.8445019589459047`*^9, 3.8445019618400517`*^9}, {3.8445142536442575`*^9, 3.844514303852824*^9}, { 3.844514457425339*^9, 3.8445145337724867`*^9}, {3.8445146121090136`*^9, 3.844514612805125*^9}, {3.8445152618516026`*^9, 3.8445152626808715`*^9}, { 3.84451667854188*^9, 3.8445166978368387`*^9}, {3.8445168384209423`*^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.8445647632618103`*^9, 3.844564764558693*^9}, {3.844564893032794*^9, 3.8445648966363597`*^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.8445667378245735`*^9}, { 3.84456677184741*^9, 3.8445669208491745`*^9}, {3.8445681586856985`*^9, 3.8445681603926296`*^9}, {3.844568433360468*^9, 3.8445684731196322`*^9}, { 3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, { 3.844569099528115*^9, 3.844569106514072*^9}, {3.8445691536508603`*^9, 3.8445691542699223`*^9}, {3.8445698639037194`*^9, 3.8445698642398653`*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, { 3.844570136399222*^9, 3.84457022295549*^9}, {3.8445702927401485`*^9, 3.8445702943727927`*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, { 3.844570433361819*^9, 3.844570434479186*^9}, {3.8445708385437922`*^9, 3.844570865548447*^9}, 3.8445719038536615`*^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.8445754934014444`*^9, {3.844575765512229*^9, 3.8445757670064106`*^9}, {3.8445797808579626`*^9, 3.8445797824906826`*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, {3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, { 3.8445808660823193`*^9, 3.8445808672575426`*^9}, {3.8445810704154396`*^9, 3.844581084375619*^9}, {3.8445812578925953`*^9, 3.8445812836521835`*^9}, { 3.8445814486128545`*^9, 3.844581454694955*^9}, 3.8445815919025917`*^9, 3.8445816963679733`*^9, 3.8445818761230197`*^9, {3.844581973276004*^9, 3.84458197871758*^9}, {3.8445820591801286`*^9, 3.8445820669279137`*^9}, { 3.844766120152509*^9, 3.844766220989109*^9}, {3.8447666299757333`*^9, 3.844766632861744*^9}, {3.8447669924782996`*^9, 3.844766998824834*^9}, { 3.844767166360729*^9, 3.8447671685821986`*^9}, {3.8447672972644825`*^9, 3.844767489140806*^9}, {3.8447675202758884`*^9, 3.8447677076499157`*^9}, { 3.8447677386160955`*^9, 3.844767751930085*^9}, {3.8447678367494764`*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, { 3.844823802025931*^9, 3.8448238152889323`*^9}, {3.844823957041947*^9, 3.8448239585139303`*^9}, {3.8448243004194326`*^9, 3.8448243149899445`*^9}, 3.8448243583360662`*^9, 3.844934867394837*^9, 3.845011466205801*^9, { 3.8450117207709064`*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, { 3.8450126148924513`*^9, 3.8450126150945854`*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, { 3.845183946334877*^9, 3.84518395366415*^9}, {3.8451840514184165`*^9, 3.8451840516680007`*^9}, {3.8451841516428566`*^9, 3.845184154374053*^9}, { 3.845184357905266*^9, 3.8451843580652475`*^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.8452088755132847`*^9, 3.845208885710583*^9}, { 3.8452090240719767`*^9, 3.8452090275669355`*^9}, {3.845209172626273*^9, 3.8452091859860196`*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, { 3.8452093525944805`*^9, 3.845209356766179*^9}, {3.8452094333426437`*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, { 3.845209834131934*^9, 3.845209849152528*^9}, {3.8452099760880327`*^9, 3.8452099795576005`*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, { 3.8452101492309895`*^9, 3.8452101507171693`*^9}, {3.845210218508196*^9, 3.8452102205052843`*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, { 3.8452104469844484`*^9, 3.845210448865471*^9}, {3.845210722276207*^9, 3.8452107618886013`*^9}, {3.8452108540735493`*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.8452113817145267`*^9, {3.8452544138546667`*^9, 3.845254415221461*^9}, {3.8452544682669744`*^9, 3.845254497242826*^9}, { 3.845254813158949*^9, 3.845254813962109*^9}, {3.845255159389332*^9, 3.8452551602997503`*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, { 3.8453730671369777`*^9, 3.845373072521226*^9}, {3.8453735876364107`*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, {3.8453744985094943`*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613575`*^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.8454413952988825`*^9, {3.8454605213498316`*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, { 3.8454607495560193`*^9, 3.8454607590768337`*^9}, {3.845462509735139*^9, 3.845462509985168*^9}, {3.8454655927984095`*^9, 3.8454655941092844`*^9}, { 3.8454656351939297`*^9, 3.8454657716449366`*^9}, {3.8454659031914606`*^9, 3.8454659091378775`*^9}, {3.8454660264366956`*^9, 3.845466050881938*^9}, { 3.8454670388067656`*^9, 3.8454670407645473`*^9}, {3.8454695818972855`*^9, 3.8454695927423058`*^9}, 3.8458628196288977`*^9, {3.8458629698321857`*^9, 3.8458629918325853`*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, { 3.8458631448574963`*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.8458633353940535`*^9}, { 3.845863395099148*^9, 3.8458634980995226`*^9}, 3.845863530554716*^9, { 3.8458725905500464`*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, {3.8458728091280556`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.8458730281409388`*^9, 3.8458730351358786`*^9}, { 3.8533874217568007`*^9, 3.8533874449588337`*^9}}, CellLabel-> "In[399]:=",ExpressionUUID->"c60c258e-186d-4949-a746-1c3791f3cb80"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, { 3.817531746848799*^9, 3.817531749407099*^9}},ExpressionUUID->"4cbc3e49-edcb-4343-9874-\ 64963ceb9d5d"], Cell[CellGroupData[{ Cell["SOLID ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673283`*^9, 3.7575037833217053`*^9}, {3.7884237836971426`*^9, 3.7884237842050157`*^9}},ExpressionUUID->"622ee295-b97d-4f32-9775-\ 471ce705cc39"], 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]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "only"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^9}, { 3.6293846391370816`*^9, 3.629384641102685*^9}, 3.6294302231277533`*^9, 3.629430298397886*^9, {3.6294304452097435`*^9, 3.6294304461769457`*^9}, 3.629430512991863*^9, {3.629430631630071*^9, 3.6294306397264853`*^9}, { 3.629430697477787*^9, 3.629430801373969*^9}, {3.6294470005483365`*^9, 3.629447006658345*^9}, {3.6294476264402127`*^9, 3.62944766022026*^9}, { 3.629455940543494*^9, 3.6294559434734983`*^9}, {3.6294560037335825`*^9, 3.6294560722536783`*^9}, {3.6294561182137423`*^9, 3.629456154053793*^9}, { 3.6294562173438816`*^9, 3.629456291433985*^9}, 3.629456575994384*^9, { 3.6294571194161444`*^9, 3.629457325936434*^9}, {3.6294573681664925`*^9, 3.629457469696635*^9}, {3.630830822369603*^9, 3.630830833380233*^9}, { 3.6308308916105633`*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, {3.630831001140828*^9, 3.6308310302394924`*^9}, { 3.6308311286591215`*^9, 3.6308311872784743`*^9}, {3.6308312724803476`*^9, 3.630831331484722*^9}, {3.630831362277484*^9, 3.630831473963872*^9}, { 3.6308315048656397`*^9, 3.6308315251297984`*^9}, {3.6308500199956975`*^9, 3.630850092130224*^9}, {3.6308926160699577`*^9, 3.630892648580415*^9}, { 3.6308926904976883`*^9, 3.6308930396419015`*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, {3.630893319631193*^9, 3.6308933413620315`*^9}, { 3.630893371735285*^9, 3.6308933746056895`*^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.6308943234305563`*^9, 3.6308945706597905`*^9}, {3.630894732057674*^9, 3.6308948540342884`*^9}, { 3.6308949175576*^9, 3.6308950352130065`*^9}, {3.6308963280663238`*^9, 3.6308964339281096`*^9}, {3.630896483785797*^9, 3.6308965147216516`*^9}, { 3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, {3.6339411434394083`*^9, 3.6339413336822896`*^9}, { 3.6339414012381535`*^9, 3.6339415162277308`*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, {3.633941898820614*^9, 3.633941918825758*^9}, { 3.633942028814049*^9, 3.6339421351881332`*^9}, 3.6339421753194284`*^9, { 3.6339527595260005`*^9, 3.633952797347164*^9}, {3.6339528326231813`*^9, 3.6339528434568014`*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, {3.6339533894880323`*^9, 3.633953398914572*^9}, { 3.6339534904578075`*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, {3.633955355536484*^9, 3.633955361782841*^9}, { 3.634613015576932*^9, 3.63461301623897*^9}, {3.6346130510409603`*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.6878638635768104`*^9, 3.6878639724170356`*^9}, 3.687864019557732*^9, 3.6878641001403413`*^9, { 3.687864195050747*^9, 3.6878641958857946`*^9}, {3.6878642401333256`*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.6878644606039357`*^9}, {3.6878646809015083`*^9, 3.6878646814075365`*^9}, {3.687864779357139*^9, 3.6878648062606783`*^9}, { 3.6878651827021837`*^9, 3.687865213182927*^9}, {3.6878652461998158`*^9, 3.6878652992218485`*^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.6878658387066827`*^9}, { 3.687865912326894*^9, 3.6878659163341227`*^9}, {3.6878659782786655`*^9, 3.687866006047254*^9}, {3.6878660595832973`*^9, 3.6878660659666624`*^9}, { 3.6878661218058558`*^9, 3.6878661872325983`*^9}, {3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, {3.6879301815930185`*^9, 3.6879301828630204`*^9}, {3.687930277763153*^9, 3.6879302977631817`*^9}, { 3.6879303280532236`*^9, 3.687930399193323*^9}, {3.6879304307033677`*^9, 3.6879304862434454`*^9}, {3.6879305350435133`*^9, 3.6879306368336563`*^9}, {3.6879308629839725`*^9, 3.6879309443840866`*^9}, {3.6880225059517603`*^9, 3.688022695772026*^9}, { 3.6880227285420723`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, { 3.6882843273150387`*^9, 3.6882845888454046`*^9}, {3.688285837009152*^9, 3.6882858406491575`*^9}, {3.688286818441526*^9, 3.688286844251562*^9}, { 3.6882870165218034`*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924467`*^9}, {3.6882875215825105`*^9, 3.688287521962511*^9}, { 3.6924976946811843`*^9, 3.6924978409113894`*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, {3.692498035281661*^9, 3.6924981004717526`*^9}, { 3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, {3.692502435097616*^9, 3.692502447592331*^9}, { 3.692502485821518*^9, 3.6925024860295296`*^9}, 3.6925027340347147`*^9, { 3.6940858758564043`*^9, 3.6940858848364167`*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, {3.6940861169567423`*^9, 3.694086419977166*^9}, { 3.6940872923193874`*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.6945281161723194`*^9, 3.694528128442337*^9}, {3.6945281951824303`*^9, 3.694528217482462*^9}, { 3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, {3.6945781605358806`*^9, 3.6945782254759717`*^9}, {3.6945782921660647`*^9, 3.694578304996083*^9}, { 3.694578337066128*^9, 3.6945783532861505`*^9}, {3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.6945784400462723`*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.7511979506411643`*^9, 3.751197960841903*^9}, { 3.755352558606639*^9, 3.7553526159830475`*^9}, {3.774071654702608*^9, 3.7740716613755894`*^9}, {3.774071748661003*^9, 3.7740718483755345`*^9}, { 3.7740718923844557`*^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.7740724933285646`*^9, 3.774072635753066*^9}, {3.774072687249714*^9, 3.7740727925054007`*^9}, {3.7740728598637686`*^9, 3.7740728945968986`*^9}, 3.774072979683737*^9, {3.774172222258683*^9, 3.7741722646358166`*^9}, { 3.7741723702318573`*^9, 3.7741723746656275`*^9}, {3.7741725406355767`*^9, 3.7741725730793257`*^9}, 3.7741726613919673`*^9, {3.7741727284394493`*^9, 3.774172868506016*^9}, {3.7741729101771226`*^9, 3.774173007341322*^9}, { 3.774173102959459*^9, 3.7741731324499664`*^9}, 3.774236409887308*^9, { 3.7742365098127813`*^9, 3.7742365393429565`*^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.7831381275811653`*^9}, {3.7831382197652965`*^9, 3.7831382711318674`*^9}, {3.7831383021548166`*^9, 3.783138316699332*^9}, { 3.7831384156346865`*^9, 3.7831384387677746`*^9}, {3.7831385999718432`*^9, 3.7831386289162683`*^9}, {3.783138703438572*^9, 3.7831388313574543`*^9}, { 3.7831388726832438`*^9, 3.7831389799876423`*^9}, {3.783139114486741*^9, 3.7831391207657857`*^9}, {3.7831392058372374`*^9, 3.7831392347077627`*^9}, {3.7831392881204815`*^9, 3.783139298414276*^9}, { 3.783139379567049*^9, 3.7831394938819885`*^9}, 3.7831396004671617`*^9, { 3.7831412786243258`*^9, 3.7831412860913258`*^9}, {3.7831414844000688`*^9, 3.7831415377807136`*^9}, {3.7831416766317453`*^9, 3.7831416816557817`*^9}, {3.7831417135337715`*^9, 3.7831417541137705`*^9}, {3.783141785061674*^9, 3.78314188080105*^9}, 3.783142056404602*^9, {3.7834133193911924`*^9, 3.783413370443163*^9}, { 3.7884238054537177`*^9, 3.788423817167117*^9}, {3.7884238549377203`*^9, 3.7884238763673477`*^9}, {3.788423922628934*^9, 3.7884239232207956`*^9}, { 3.788423982788879*^9, 3.7884239842015057`*^9}, {3.7884240163856163`*^9, 3.7884240253516703`*^9}, {3.8200253398852043`*^9, 3.8200254773530717`*^9}, 3.8411959691970887`*^9, {3.84318199280597*^9, 3.8431820660833826`*^9}, { 3.9016806816236825`*^9, 3.9016807053214116`*^9}, {3.9093658091934843`*^9, 3.9093659094386635`*^9}}, CellLabel-> "In[403]:=",ExpressionUUID->"1ba6c0f0-e01f-47cc-b26b-3f4fb79de419"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673283`*^9, 3.7575037970958652`*^9}, 3.788423792328411*^9},ExpressionUUID->"1121b9ae-2c3a-4f78-a75a-\ 761ddc5da1a6"], 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]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^9}, { 3.6293846391370816`*^9, 3.629384641102685*^9}, 3.6294302231277533`*^9, 3.629430298397886*^9, {3.6294304452097435`*^9, 3.6294304461769457`*^9}, 3.629430512991863*^9, {3.629430631630071*^9, 3.6294306397264853`*^9}, { 3.629430697477787*^9, 3.629430801373969*^9}, {3.6294470005483365`*^9, 3.629447006658345*^9}, {3.6294476264402127`*^9, 3.62944766022026*^9}, { 3.629455940543494*^9, 3.6294559434734983`*^9}, {3.6294560037335825`*^9, 3.6294560722536783`*^9}, {3.6294561182137423`*^9, 3.629456154053793*^9}, { 3.6294562173438816`*^9, 3.629456291433985*^9}, 3.629456575994384*^9, { 3.6294571194161444`*^9, 3.629457325936434*^9}, {3.6294573681664925`*^9, 3.629457469696635*^9}, {3.630830822369603*^9, 3.630830833380233*^9}, { 3.6308308916105633`*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, {3.630831001140828*^9, 3.6308310302394924`*^9}, { 3.6308311286591215`*^9, 3.6308311872784743`*^9}, {3.6308312724803476`*^9, 3.630831331484722*^9}, {3.630831362277484*^9, 3.630831473963872*^9}, { 3.6308315048656397`*^9, 3.6308315251297984`*^9}, {3.6308500199956975`*^9, 3.630850092130224*^9}, {3.6308926160699577`*^9, 3.630892648580415*^9}, { 3.6308926904976883`*^9, 3.6308930396419015`*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, {3.630893319631193*^9, 3.6308933413620315`*^9}, { 3.630893371735285*^9, 3.6308933746056895`*^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.6308943234305563`*^9, 3.6308945706597905`*^9}, {3.630894732057674*^9, 3.6308948540342884`*^9}, { 3.6308949175576*^9, 3.6308950352130065`*^9}, {3.6308963280663238`*^9, 3.6308964339281096`*^9}, {3.630896483785797*^9, 3.6308965147216516`*^9}, { 3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, {3.6339411434394083`*^9, 3.6339413336822896`*^9}, { 3.6339414012381535`*^9, 3.6339415162277308`*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, {3.633941898820614*^9, 3.633941918825758*^9}, { 3.633942028814049*^9, 3.6339421351881332`*^9}, 3.6339421753194284`*^9, { 3.6339527595260005`*^9, 3.633952797347164*^9}, {3.6339528326231813`*^9, 3.6339528434568014`*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, {3.6339533894880323`*^9, 3.633953398914572*^9}, { 3.6339534904578075`*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, {3.633955355536484*^9, 3.633955361782841*^9}, { 3.634613015576932*^9, 3.63461301623897*^9}, {3.6346130510409603`*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.6878638635768104`*^9, 3.6878639724170356`*^9}, 3.687864019557732*^9, 3.6878641001403413`*^9, { 3.687864195050747*^9, 3.6878641958857946`*^9}, {3.6878642401333256`*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.6878644606039357`*^9}, {3.6878646809015083`*^9, 3.6878646814075365`*^9}, {3.687864779357139*^9, 3.6878648062606783`*^9}, { 3.6878651827021837`*^9, 3.687865213182927*^9}, {3.6878652461998158`*^9, 3.6878652992218485`*^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.6878658387066827`*^9}, { 3.687865912326894*^9, 3.6878659163341227`*^9}, {3.6878659782786655`*^9, 3.687866006047254*^9}, {3.6878660595832973`*^9, 3.6878660659666624`*^9}, { 3.6878661218058558`*^9, 3.6878661872325983`*^9}, {3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, {3.6879301815930185`*^9, 3.6879301828630204`*^9}, {3.687930277763153*^9, 3.6879302977631817`*^9}, { 3.6879303280532236`*^9, 3.687930399193323*^9}, {3.6879304307033677`*^9, 3.6879304862434454`*^9}, {3.6879305350435133`*^9, 3.6879306368336563`*^9}, {3.6879308629839725`*^9, 3.6879309443840866`*^9}, {3.6880225059517603`*^9, 3.688022695772026*^9}, { 3.6880227285420723`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, { 3.6882843273150387`*^9, 3.6882845888454046`*^9}, {3.688285837009152*^9, 3.6882858406491575`*^9}, {3.688286818441526*^9, 3.688286844251562*^9}, { 3.6882870165218034`*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924467`*^9}, {3.6882875215825105`*^9, 3.688287521962511*^9}, { 3.6924976946811843`*^9, 3.6924978409113894`*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, {3.692498035281661*^9, 3.6924981004717526`*^9}, { 3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, {3.692502435097616*^9, 3.692502447592331*^9}, { 3.692502485821518*^9, 3.6925024860295296`*^9}, 3.6925027340347147`*^9, { 3.6940858758564043`*^9, 3.6940858848364167`*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, {3.6940861169567423`*^9, 3.694086419977166*^9}, { 3.6940872923193874`*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.6945281161723194`*^9, 3.694528128442337*^9}, {3.6945281951824303`*^9, 3.694528217482462*^9}, { 3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, {3.6945781605358806`*^9, 3.6945782254759717`*^9}, {3.6945782921660647`*^9, 3.694578304996083*^9}, { 3.694578337066128*^9, 3.6945783532861505`*^9}, {3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.6945784400462723`*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.7511979506411643`*^9, 3.751197960841903*^9}, { 3.755352558606639*^9, 3.7553526159830475`*^9}, 3.7575038949254227`*^9, { 3.7884241022211647`*^9, 3.788424103002448*^9}, {3.788424158557418*^9, 3.7884241691882877`*^9}, {3.788424255454542*^9, 3.788424261482607*^9}, { 3.78842429669483*^9, 3.788424433254586*^9}, {3.8200255168660507`*^9, 3.820025546496957*^9}, {3.8200255872523527`*^9, 3.8200255963085623`*^9}, { 3.820025628744812*^9, 3.8200257952584977`*^9}, {3.8200260474034243`*^9, 3.820026053432946*^9}}, CellLabel-> "In[408]:=",ExpressionUUID->"5ecab2be-6b5a-469d-9921-d479d15e6a32"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673283`*^9, 3.7575038085600357`*^9}, 3.7575039711454515`*^9, 3.790129876602686*^9},ExpressionUUID->"6f4268de-eb1e-4040-a780-\ 604f202daf11"], 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[{"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]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^9}, { 3.6293846391370816`*^9, 3.629384641102685*^9}, 3.6294302231277533`*^9, 3.629430298397886*^9, {3.6294304452097435`*^9, 3.6294304461769457`*^9}, 3.629430512991863*^9, {3.629430631630071*^9, 3.6294306397264853`*^9}, { 3.629430697477787*^9, 3.629430801373969*^9}, {3.6294470005483365`*^9, 3.629447006658345*^9}, {3.6294476264402127`*^9, 3.62944766022026*^9}, { 3.629455940543494*^9, 3.6294559434734983`*^9}, {3.6294560037335825`*^9, 3.6294560722536783`*^9}, {3.6294561182137423`*^9, 3.629456154053793*^9}, { 3.6294562173438816`*^9, 3.629456291433985*^9}, 3.629456575994384*^9, { 3.6294571194161444`*^9, 3.629457325936434*^9}, {3.6294573681664925`*^9, 3.629457469696635*^9}, {3.630830822369603*^9, 3.630830833380233*^9}, { 3.6308308916105633`*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, {3.630831001140828*^9, 3.6308310302394924`*^9}, { 3.6308311286591215`*^9, 3.6308311872784743`*^9}, {3.6308312724803476`*^9, 3.630831331484722*^9}, {3.630831362277484*^9, 3.630831473963872*^9}, { 3.6308315048656397`*^9, 3.6308315251297984`*^9}, {3.6308500199956975`*^9, 3.630850092130224*^9}, {3.6308926160699577`*^9, 3.630892648580415*^9}, { 3.6308926904976883`*^9, 3.6308930396419015`*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, {3.630893319631193*^9, 3.6308933413620315`*^9}, { 3.630893371735285*^9, 3.6308933746056895`*^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.6308943234305563`*^9, 3.6308945706597905`*^9}, {3.630894732057674*^9, 3.6308948540342884`*^9}, { 3.6308949175576*^9, 3.6308950352130065`*^9}, {3.6308963280663238`*^9, 3.6308964339281096`*^9}, {3.630896483785797*^9, 3.6308965147216516`*^9}, { 3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, {3.6339411434394083`*^9, 3.6339413336822896`*^9}, { 3.6339414012381535`*^9, 3.6339415162277308`*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, {3.633941898820614*^9, 3.633941918825758*^9}, { 3.633942028814049*^9, 3.6339421351881332`*^9}, 3.6339421753194284`*^9, { 3.6339527595260005`*^9, 3.633952797347164*^9}, {3.6339528326231813`*^9, 3.6339528434568014`*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, {3.6339533894880323`*^9, 3.633953398914572*^9}, { 3.6339534904578075`*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, {3.633955355536484*^9, 3.633955361782841*^9}, { 3.634613015576932*^9, 3.63461301623897*^9}, {3.6346130510409603`*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.6878638635768104`*^9, 3.6878639724170356`*^9}, 3.687864019557732*^9, 3.6878641001403413`*^9, { 3.687864195050747*^9, 3.6878641958857946`*^9}, {3.6878642401333256`*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.6878644606039357`*^9}, {3.6878646809015083`*^9, 3.6878646814075365`*^9}, {3.687864779357139*^9, 3.6878648062606783`*^9}, { 3.6878651827021837`*^9, 3.687865213182927*^9}, {3.6878652461998158`*^9, 3.6878652992218485`*^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.6878658387066827`*^9}, { 3.687865912326894*^9, 3.6878659163341227`*^9}, {3.6878659782786655`*^9, 3.687866006047254*^9}, {3.6878660595832973`*^9, 3.6878660659666624`*^9}, { 3.6878661218058558`*^9, 3.6878661872325983`*^9}, {3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, {3.6879301815930185`*^9, 3.6879301828630204`*^9}, {3.687930277763153*^9, 3.6879302977631817`*^9}, { 3.6879303280532236`*^9, 3.687930399193323*^9}, {3.6879304307033677`*^9, 3.6879304862434454`*^9}, {3.6879305350435133`*^9, 3.6879306368336563`*^9}, {3.6879308629839725`*^9, 3.6879309443840866`*^9}, {3.6880225059517603`*^9, 3.688022695772026*^9}, { 3.6880227285420723`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, { 3.6882843273150387`*^9, 3.6882845888454046`*^9}, {3.688285837009152*^9, 3.6882858406491575`*^9}, {3.688286818441526*^9, 3.688286844251562*^9}, { 3.6882870165218034`*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924467`*^9}, {3.6882875215825105`*^9, 3.688287521962511*^9}, { 3.6924976946811843`*^9, 3.6924978409113894`*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, {3.692498035281661*^9, 3.6924981004717526`*^9}, { 3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, {3.692502435097616*^9, 3.692502447592331*^9}, { 3.692502485821518*^9, 3.6925024860295296`*^9}, 3.6925027340347147`*^9, { 3.6940858758564043`*^9, 3.6940858848364167`*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, {3.6940861169567423`*^9, 3.694086419977166*^9}, { 3.6940872923193874`*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.6945281161723194`*^9, 3.694528128442337*^9}, {3.6945281951824303`*^9, 3.694528217482462*^9}, { 3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, {3.6945781605358806`*^9, 3.6945782254759717`*^9}, {3.6945782921660647`*^9, 3.694578304996083*^9}, { 3.694578337066128*^9, 3.6945783532861505`*^9}, {3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.6945784400462723`*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.7511979506411643`*^9, 3.751197960841903*^9}, { 3.755352558606639*^9, 3.7553526159830475`*^9}, {3.7575040694816446`*^9, 3.757504093838356*^9}, {3.7901321001392207`*^9, 3.7901321234170127`*^9}, { 3.8216149607895*^9, 3.821615019490923*^9}, {3.8532118261808352`*^9, 3.8532118691811304`*^9}}, CellLabel-> "In[412]:=",ExpressionUUID->"c7143ca0-8996-4fd7-a102-4fd44bb8e43e"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673283`*^9, 3.7575038085600357`*^9}, 3.757503967837716*^9, { 3.790129869617339*^9, 3.790129870017767*^9}},ExpressionUUID->"9de7445a-c1c4-4146-8e33-\ d2fc708a2537"], 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^9}, { 3.6293846391370816`*^9, 3.629384641102685*^9}, 3.6294302231277533`*^9, 3.629430298397886*^9, {3.6294304452097435`*^9, 3.6294304461769457`*^9}, 3.629430512991863*^9, {3.629430631630071*^9, 3.6294306397264853`*^9}, { 3.629430697477787*^9, 3.629430801373969*^9}, {3.6294470005483365`*^9, 3.629447006658345*^9}, {3.6294476264402127`*^9, 3.62944766022026*^9}, { 3.629455940543494*^9, 3.6294559434734983`*^9}, {3.6294560037335825`*^9, 3.6294560722536783`*^9}, {3.6294561182137423`*^9, 3.629456154053793*^9}, { 3.6294562173438816`*^9, 3.629456291433985*^9}, 3.629456575994384*^9, { 3.6294571194161444`*^9, 3.629457325936434*^9}, {3.6294573681664925`*^9, 3.629457469696635*^9}, {3.630830822369603*^9, 3.630830833380233*^9}, { 3.6308308916105633`*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, {3.630831001140828*^9, 3.6308310302394924`*^9}, { 3.6308311286591215`*^9, 3.6308311872784743`*^9}, {3.6308312724803476`*^9, 3.630831331484722*^9}, {3.630831362277484*^9, 3.630831473963872*^9}, { 3.6308315048656397`*^9, 3.6308315251297984`*^9}, {3.6308500199956975`*^9, 3.630850092130224*^9}, {3.6308926160699577`*^9, 3.630892648580415*^9}, { 3.6308926904976883`*^9, 3.6308930396419015`*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, {3.630893319631193*^9, 3.6308933413620315`*^9}, { 3.630893371735285*^9, 3.6308933746056895`*^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.6308943234305563`*^9, 3.6308945706597905`*^9}, {3.630894732057674*^9, 3.6308948540342884`*^9}, { 3.6308949175576*^9, 3.6308950352130065`*^9}, {3.6308963280663238`*^9, 3.6308964339281096`*^9}, {3.630896483785797*^9, 3.6308965147216516`*^9}, { 3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, {3.6339411434394083`*^9, 3.6339413336822896`*^9}, { 3.6339414012381535`*^9, 3.6339415162277308`*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, {3.633941898820614*^9, 3.633941918825758*^9}, { 3.633942028814049*^9, 3.6339421351881332`*^9}, 3.6339421753194284`*^9, { 3.6339527595260005`*^9, 3.633952797347164*^9}, {3.6339528326231813`*^9, 3.6339528434568014`*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, {3.6339533894880323`*^9, 3.633953398914572*^9}, { 3.6339534904578075`*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, {3.633955355536484*^9, 3.633955361782841*^9}, { 3.634613015576932*^9, 3.63461301623897*^9}, {3.6346130510409603`*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.6878638635768104`*^9, 3.6878639724170356`*^9}, 3.687864019557732*^9, 3.6878641001403413`*^9, { 3.687864195050747*^9, 3.6878641958857946`*^9}, {3.6878642401333256`*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.6878644606039357`*^9}, {3.6878646809015083`*^9, 3.6878646814075365`*^9}, {3.687864779357139*^9, 3.6878648062606783`*^9}, { 3.6878651827021837`*^9, 3.687865213182927*^9}, {3.6878652461998158`*^9, 3.6878652992218485`*^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.6878658387066827`*^9}, { 3.687865912326894*^9, 3.6878659163341227`*^9}, {3.6878659782786655`*^9, 3.687866006047254*^9}, {3.6878660595832973`*^9, 3.6878660659666624`*^9}, { 3.6878661218058558`*^9, 3.6878661872325983`*^9}, {3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, {3.6879301815930185`*^9, 3.6879301828630204`*^9}, {3.687930277763153*^9, 3.6879302977631817`*^9}, { 3.6879303280532236`*^9, 3.687930399193323*^9}, {3.6879304307033677`*^9, 3.6879304862434454`*^9}, {3.6879305350435133`*^9, 3.6879306368336563`*^9}, {3.6879308629839725`*^9, 3.6879309443840866`*^9}, {3.6880225059517603`*^9, 3.688022695772026*^9}, { 3.6880227285420723`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, { 3.6882843273150387`*^9, 3.6882845888454046`*^9}, {3.688285837009152*^9, 3.6882858406491575`*^9}, {3.688286818441526*^9, 3.688286844251562*^9}, { 3.6882870165218034`*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924467`*^9}, {3.6882875215825105`*^9, 3.688287521962511*^9}, { 3.6924976946811843`*^9, 3.6924978409113894`*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, {3.692498035281661*^9, 3.6924981004717526`*^9}, { 3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, {3.692502435097616*^9, 3.692502447592331*^9}, { 3.692502485821518*^9, 3.6925024860295296`*^9}, 3.6925027340347147`*^9, { 3.6940858758564043`*^9, 3.6940858848364167`*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, {3.6940861169567423`*^9, 3.694086419977166*^9}, { 3.6940872923193874`*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.6945281161723194`*^9, 3.694528128442337*^9}, {3.6945281951824303`*^9, 3.694528217482462*^9}, { 3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, {3.6945781605358806`*^9, 3.6945782254759717`*^9}, {3.6945782921660647`*^9, 3.694578304996083*^9}, { 3.694578337066128*^9, 3.6945783532861505`*^9}, {3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.6945784400462723`*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.7511979506411643`*^9, 3.751197960841903*^9}, { 3.755352558606639*^9, 3.7553526159830475`*^9}, {3.7901319321297035`*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132043231386*^9}, 3.7901320781631036`*^9, {3.8223695908336563`*^9, 3.8223695921212144`*^9}, { 3.8532115763306246`*^9, 3.853211679754381*^9}, {3.853211717157551*^9, 3.8532117537860675`*^9}, 3.85321180626235*^9}, CellLabel-> "In[414]:=",ExpressionUUID->"f6c84778-e2c5-49d3-98c8-675908d4b5ea"], 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.4426474258030453`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026003`*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777981997`*^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.4444845894505997`*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821731997`*^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.4445382726456003`*^9, 3.4445382910067997`*^9}, {3.4445383401312*^9, 3.4445383475880003`*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.4445385680783997`*^9, 3.4445385687648*^9}, {3.4445389411991997`*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.4445397807846003`*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706717997`*^9}, {3.4445416647242002`*^9, 3.4445416909477997`*^9}, {3.4445417660150003`*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414003`*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282003`*^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.4446166738822002`*^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.4447042728942003`*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.4447049861926003`*^9, 3.4447049877214003`*^9}, {3.4447050279296*^9, 3.4447050419695997`*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561963997`*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.4472134470179996`*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.4472136963059998`*^9, 3.4472137794384003`*^9}, {3.4472138235708*^9, 3.4472138388900003`*^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.4472171394658003`*^9, 3.4472171532874002`*^9}, {3.4472172028993998`*^9, 3.4472172216661997`*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209133997`*^9, 3.4472173334245996`*^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.4473920346633997`*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.4473923734379997`*^9}, {3.4473928098168*^9, 3.4473928648691998`*^9}, {3.4473931872432003`*^9, 3.4473932461800003`*^9}, {3.4473933026675997`*^9, 3.4473934579812*^9}, { 3.4473935755271997`*^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.5619794930439215`*^9, 3.5619795010155354`*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, {3.5619797417551584`*^9, 3.5619797448751636`*^9}, { 3.618719065033702*^9, 3.618719075426296*^9}, {3.6187194011669273`*^9, 3.6187194449454317`*^9}, {3.6187196998040085`*^9, 3.6187197102436056`*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, { 3.618722365406472*^9, 3.6187225412555304`*^9}, {3.6187226885009522`*^9, 3.6187227109872384`*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, { 3.618723424250035*^9, 3.6187234267291765`*^9}, {3.6187235105259695`*^9, 3.6187236491028957`*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, { 3.618723778837316*^9, 3.6187238310002995`*^9}, {3.6187239055875654`*^9, 3.618723940035536*^9}, {3.6187239782667227`*^9, 3.6187240219352207`*^9}, { 3.618724166762504*^9, 3.618724177411113*^9}, {3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, {3.6187294379838104`*^9, 3.618729708464281*^9}, {3.6187297631904106`*^9, 3.618729773195983*^9}, { 3.618729822648812*^9, 3.6187299321490746`*^9}, {3.618729984399063*^9, 3.61873000654133*^9}, {3.6187300746012225`*^9, 3.6187300860458775`*^9}, { 3.618731390835507*^9, 3.6187315116174154`*^9}, {3.618731747324897*^9, 3.6187318214091344`*^9}, {3.6187318769243097`*^9, 3.618732065297084*^9}, { 3.6187321012351394`*^9, 3.618732157420353*^9}, {3.618732188384124*^9, 3.6187322435542793`*^9}, {3.6187322786112847`*^9, 3.6187325478446836`*^9}, {3.6187325819856367`*^9, 3.6187326817653437`*^9}, {3.618732810863728*^9, 3.61873282594359*^9}, { 3.6187336474335766`*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, {3.6187342020362988`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, {3.618734712498495*^9, 3.618734712716508*^9}, 3.6187347739640107`*^9, {3.618738817361748*^9, 3.6187388333816643`*^9}, { 3.6187391349349127`*^9, 3.6187391457955337`*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, {3.618739528394417*^9, 3.618739534809784*^9}, { 3.618739972366811*^9, 3.61873997340687*^9}, {3.6187400416617737`*^9, 3.618740043022852*^9}, {3.6187400971579485`*^9, 3.618740107902563*^9}, { 3.6187401713671927`*^9, 3.6187401723312483`*^9}, {3.6187402613443394`*^9, 3.618740268819767*^9}, {3.6187403697625403`*^9, 3.6187404057615995`*^9}, { 3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.6187407823021364`*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, {3.6187418557605343`*^9, 3.6187419895921893`*^9}, { 3.618742022944097*^9, 3.61874204379729*^9}, {3.6187420836395683`*^9, 3.618742103384698*^9}, {3.620462440882641*^9, 3.6204624460519366`*^9}, { 3.6204624990259666`*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.6289135207155013`*^9, 3.6289135210805225`*^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.6289505050536256`*^9, 3.6289505113579865`*^9}, {3.62895070863527*^9, 3.6289507095043197`*^9}, {3.628951013180689*^9, 3.62895101407374*^9}, { 3.629190743153632*^9, 3.629190816645361*^9}, {3.6291909709608326`*^9, 3.629190981678051*^9}, {3.629191034624544*^9, 3.6291910410049553`*^9}, { 3.6293846391370816`*^9, 3.629384641102685*^9}, 3.6294302231277533`*^9, 3.629430298397886*^9, {3.6294304452097435`*^9, 3.6294304461769457`*^9}, 3.629430512991863*^9, {3.629430631630071*^9, 3.6294306397264853`*^9}, { 3.629430697477787*^9, 3.629430801373969*^9}, {3.6294470005483365`*^9, 3.629447006658345*^9}, {3.6294476264402127`*^9, 3.62944766022026*^9}, { 3.629455940543494*^9, 3.6294559434734983`*^9}, {3.6294560037335825`*^9, 3.6294560722536783`*^9}, {3.6294561182137423`*^9, 3.629456154053793*^9}, { 3.6294562173438816`*^9, 3.629456291433985*^9}, 3.629456575994384*^9, { 3.6294571194161444`*^9, 3.629457325936434*^9}, {3.6294573681664925`*^9, 3.629457469696635*^9}, {3.630830822369603*^9, 3.630830833380233*^9}, { 3.6308308916105633`*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, {3.630831001140828*^9, 3.6308310302394924`*^9}, { 3.6308311286591215`*^9, 3.6308311872784743`*^9}, {3.6308312724803476`*^9, 3.630831331484722*^9}, {3.630831362277484*^9, 3.630831473963872*^9}, { 3.6308315048656397`*^9, 3.6308315251297984`*^9}, {3.6308500199956975`*^9, 3.630850092130224*^9}, {3.6308926160699577`*^9, 3.630892648580415*^9}, { 3.6308926904976883`*^9, 3.6308930396419015`*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, {3.630893319631193*^9, 3.6308933413620315`*^9}, { 3.630893371735285*^9, 3.6308933746056895`*^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.6308943234305563`*^9, 3.6308945706597905`*^9}, {3.630894732057674*^9, 3.6308948540342884`*^9}, { 3.6308949175576*^9, 3.6308950352130065`*^9}, {3.6308963280663238`*^9, 3.6308964339281096`*^9}, {3.630896483785797*^9, 3.6308965147216516`*^9}, { 3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, {3.6339411434394083`*^9, 3.6339413336822896`*^9}, { 3.6339414012381535`*^9, 3.6339415162277308`*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, {3.633941898820614*^9, 3.633941918825758*^9}, { 3.633942028814049*^9, 3.6339421351881332`*^9}, 3.6339421753194284`*^9, { 3.6339527595260005`*^9, 3.633952797347164*^9}, {3.6339528326231813`*^9, 3.6339528434568014`*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, {3.6339533894880323`*^9, 3.633953398914572*^9}, { 3.6339534904578075`*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, {3.633955355536484*^9, 3.633955361782841*^9}, { 3.634613015576932*^9, 3.63461301623897*^9}, {3.6346130510409603`*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.6878638635768104`*^9, 3.6878639724170356`*^9}, 3.687864019557732*^9, 3.6878641001403413`*^9, { 3.687864195050747*^9, 3.6878641958857946`*^9}, {3.6878642401333256`*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.6878644606039357`*^9}, {3.6878646809015083`*^9, 3.6878646814075365`*^9}, {3.687864779357139*^9, 3.6878648062606783`*^9}, { 3.6878651827021837`*^9, 3.687865213182927*^9}, {3.6878652461998158`*^9, 3.6878652992218485`*^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.6878658387066827`*^9}, { 3.687865912326894*^9, 3.6878659163341227`*^9}, {3.6878659782786655`*^9, 3.687866006047254*^9}, {3.6878660595832973`*^9, 3.6878660659666624`*^9}, { 3.6878661218058558`*^9, 3.6878661872325983`*^9}, {3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, {3.6879301815930185`*^9, 3.6879301828630204`*^9}, {3.687930277763153*^9, 3.6879302977631817`*^9}, { 3.6879303280532236`*^9, 3.687930399193323*^9}, {3.6879304307033677`*^9, 3.6879304862434454`*^9}, {3.6879305350435133`*^9, 3.6879306368336563`*^9}, {3.6879308629839725`*^9, 3.6879309443840866`*^9}, {3.6880225059517603`*^9, 3.688022695772026*^9}, { 3.6880227285420723`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, { 3.6882843273150387`*^9, 3.6882845888454046`*^9}, {3.688285837009152*^9, 3.6882858406491575`*^9}, {3.688286818441526*^9, 3.688286844251562*^9}, { 3.6882870165218034`*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924467`*^9}, {3.6882875215825105`*^9, 3.688287521962511*^9}, { 3.6924976946811843`*^9, 3.6924978409113894`*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, {3.692498035281661*^9, 3.6924981004717526`*^9}, { 3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, {3.692502435097616*^9, 3.692502447592331*^9}, { 3.692502485821518*^9, 3.6925024860295296`*^9}, 3.6925027340347147`*^9, { 3.6940858758564043`*^9, 3.6940858848364167`*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, {3.6940861169567423`*^9, 3.694086419977166*^9}, { 3.6940872923193874`*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.6945281161723194`*^9, 3.694528128442337*^9}, {3.6945281951824303`*^9, 3.694528217482462*^9}, { 3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, {3.6945781605358806`*^9, 3.6945782254759717`*^9}, {3.6945782921660647`*^9, 3.694578304996083*^9}, { 3.694578337066128*^9, 3.6945783532861505`*^9}, {3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.6945784400462723`*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.7511979506411643`*^9, 3.751197960841903*^9}, { 3.755352558606639*^9, 3.7553526159830475`*^9}, {3.7901319321297035`*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132068764365*^9}},ExpressionUUID->"708d2e95-0c80-4c40-a711-\ af7774fa7b32"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SOLVER", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563159827469*^9, 3.7335631629996696`*^9}, { 3.7335632161458936`*^9, 3.733563217193006*^9}},ExpressionUUID->"664e356d-8724-48b3-9555-\ 0df24407f24d"], Cell[CellGroupData[{ Cell["DISP defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.7878928340449758`*^9}, 3.8223696918276553`*^9},ExpressionUUID->"086c307b-1357-4e95-a1f1-\ 7a89a24dae73"], 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.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^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.4933448763445997`*^9}, { 3.4933449778422003`*^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.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^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.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^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.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^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.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^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.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, {3.756128796258463*^9, 3.756128808101935*^9}, { 3.7561289636033297`*^9, 3.7561289674012337`*^9}, {3.7561291581496544`*^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.7561688096838417`*^9}, { 3.7562669791923923`*^9, 3.7562669871894484`*^9}, {3.7562671345571966`*^9, 3.7562671514185095`*^9}, {3.756267238618904*^9, 3.75626728245811*^9}, { 3.7562673231127896`*^9, 3.756267369934089*^9}, {3.7562679132987003`*^9, 3.7562679378330235`*^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.7563547516317015`*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, {3.7563549974812*^9, 3.7563550014513693`*^9}, { 3.756355080997491*^9, 3.756355089151907*^9}, {3.7563551640676885`*^9, 3.756355171626652*^9}, {3.756355203033866*^9, 3.7563553257026477`*^9}, { 3.7563554337406178`*^9, 3.7563554593890176`*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, {3.7563557326318254`*^9, 3.7563557465035677`*^9}, { 3.7563558550458755`*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, {3.7563560087797346`*^9, 3.7563560102950015`*^9}, { 3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.7567980844374113`*^9}, {3.7567981179139524`*^9, 3.756798154780326*^9}, { 3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, {3.75781775424854*^9, 3.7578177761870728`*^9}, { 3.75781956271533*^9, 3.757819566308566*^9}, 3.7878930157969465`*^9, 3.7878931876970196`*^9, {3.7890171909617825`*^9, 3.789017212740966*^9}, { 3.8152685002967186`*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, {3.8784336659556417`*^9, 3.8784336676694903`*^9}, { 3.894187640624601*^9, 3.894187654415968*^9}, {3.9015997321198063`*^9, 3.9015997334245377`*^9}, {3.9015997669767165`*^9, 3.9015997895153146`*^9}, {3.90159992846725*^9, 3.9015999492115145`*^9}, { 3.901600156171198*^9, 3.9016001572346563`*^9}, {3.902704530755273*^9, 3.9027046126226597`*^9}}, CellLabel-> "In[416]:=",ExpressionUUID->"c47b8bfd-3673-4e2f-8572-599b87871eff"] }, Open ]], Cell[CellGroupData[{ Cell["VIBR defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.7878928096029596`*^9, 3.787892817639742*^9}, 3.822369708831148*^9},ExpressionUUID->"1fb23608-c09c-43bc-af65-\ f59053d34745"], 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.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^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.4933448763445997`*^9}, { 3.4933449778422003`*^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.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^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.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^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.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^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.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^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.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, {3.756128796258463*^9, 3.756128808101935*^9}, { 3.7561289636033297`*^9, 3.7561289674012337`*^9}, {3.7561291581496544`*^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.7561688096838417`*^9}, { 3.7562669791923923`*^9, 3.7562669871894484`*^9}, {3.7562671345571966`*^9, 3.7562671514185095`*^9}, {3.756267238618904*^9, 3.75626728245811*^9}, { 3.7562673231127896`*^9, 3.756267369934089*^9}, {3.7562679132987003`*^9, 3.7562679378330235`*^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.7563547516317015`*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, {3.7563549974812*^9, 3.7563550014513693`*^9}, { 3.756355080997491*^9, 3.756355089151907*^9}, {3.7563551640676885`*^9, 3.756355171626652*^9}, {3.756355203033866*^9, 3.7563553257026477`*^9}, { 3.7563554337406178`*^9, 3.7563554593890176`*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, {3.7563557326318254`*^9, 3.7563557465035677`*^9}, { 3.7563558550458755`*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, {3.7563560087797346`*^9, 3.7563560102950015`*^9}, { 3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.7567980844374113`*^9}, {3.7567981179139524`*^9, 3.756798154780326*^9}, { 3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, {3.75781775424854*^9, 3.7578177761870728`*^9}, { 3.75781956271533*^9, 3.757819566308566*^9}, {3.787892909261981*^9, 3.787892939075147*^9}, 3.787893197839568*^9, {3.7883277627917256`*^9, 3.7883277632122145`*^9}, {3.788327835267661*^9, 3.788327837618348*^9}, { 3.8852864581695476`*^9, 3.885286492538041*^9}, {3.8852865922324305`*^9, 3.885286656855174*^9}, {3.8852878214996276`*^9, 3.8852878528577514`*^9}, { 3.8864262906438875`*^9, 3.886426310177136*^9}, {3.886917182007636*^9, 3.886917187040081*^9}}, CellLabel-> "In[423]:=",ExpressionUUID->"22a9bf89-2eba-42ce-a521-b9da27fa3679"] }, Closed]], Cell[CellGroupData[{ Cell["STAB defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.758253144538479*^9}, 3.7878928381949763`*^9, 3.822369712103414*^9},ExpressionUUID->"57f7d088-1e5a-487d-9f2f-\ 92c687f47367"], 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.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^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.4933448763445997`*^9}, { 3.4933449778422003`*^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.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^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.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^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.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^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.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^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.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, {3.756128796258463*^9, 3.756128808101935*^9}, { 3.7561289636033297`*^9, 3.7561289674012337`*^9}, {3.7561291581496544`*^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.7561688096838417`*^9}, { 3.7562669791923923`*^9, 3.7562669871894484`*^9}, {3.7562671345571966`*^9, 3.7562671514185095`*^9}, {3.756267238618904*^9, 3.75626728245811*^9}, { 3.7562673231127896`*^9, 3.756267369934089*^9}, {3.7562679132987003`*^9, 3.7562679378330235`*^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.7563547516317015`*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, {3.7563549974812*^9, 3.7563550014513693`*^9}, { 3.756355080997491*^9, 3.756355089151907*^9}, {3.7563551640676885`*^9, 3.756355171626652*^9}, {3.756355203033866*^9, 3.7563553257026477`*^9}, { 3.7563554337406178`*^9, 3.7563554593890176`*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, {3.7563557326318254`*^9, 3.7563557465035677`*^9}, { 3.7563558550458755`*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, {3.7563560087797346`*^9, 3.7563560102950015`*^9}, { 3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.7567980844374113`*^9}, {3.7567981179139524`*^9, 3.756798154780326*^9}, { 3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, {3.75781775424854*^9, 3.7578177761870728`*^9}, { 3.75781956271533*^9, 3.757819566308566*^9}, {3.758253198275837*^9, 3.7582532020405736`*^9}, {3.7582533756088347`*^9, 3.7582533985722675`*^9}, {3.760670938512352*^9, 3.76067094654175*^9}, { 3.7887482820103493`*^9, 3.7887483199991317`*^9}, {3.7887510286740055`*^9, 3.788751062737857*^9}, {3.788793141413883*^9, 3.788793141695051*^9}, { 3.7888311797760434`*^9, 3.7888312564184446`*^9}, {3.7888312978346624`*^9, 3.7888313137858887`*^9}, {3.788831356407742*^9, 3.7888313933141465`*^9}, { 3.7888314684197545`*^9, 3.7888315368553815`*^9}, {3.7888315954696364`*^9, 3.7888316472186213`*^9}, {3.788831857305335*^9, 3.788831917189584*^9}, { 3.788832255517164*^9, 3.788832334400532*^9}, {3.788832692802744*^9, 3.7888327546283236`*^9}, {3.788832880589661*^9, 3.788832889111374*^9}, { 3.788833325826789*^9, 3.7888333376722994`*^9}, {3.7888334458148613`*^9, 3.7888334462053633`*^9}, {3.7888341360558033`*^9, 3.7888341464830675`*^9}, {3.788834414977331*^9, 3.7888344465268445`*^9}, { 3.7888360737524185`*^9, 3.788836130856104*^9}, {3.7888363421132617`*^9, 3.788836345010672*^9}, {3.7888364482319136`*^9, 3.7888364523480806`*^9}, { 3.7888365732220283`*^9, 3.788836684808531*^9}, {3.7888368167754717`*^9, 3.7888368666444435`*^9}, {3.7888369683341913`*^9, 3.788836976352211*^9}, { 3.788837175638712*^9, 3.7888371869179506`*^9}, {3.788838309650617*^9, 3.788838324612111*^9}, {3.7888530458034954`*^9, 3.7888530623012686`*^9}, { 3.7889364043469267`*^9, 3.7889364238717265`*^9}, {3.7889365367269278`*^9, 3.788936567426444*^9}, {3.7889366124938154`*^9, 3.788936620487116*^9}, { 3.789125410293588*^9, 3.789125420141614*^9}, {3.7891256058149447`*^9, 3.789125607960622*^9}, {3.7891257972104635`*^9, 3.789125797405059*^9}, { 3.7891270413135867`*^9, 3.7891270457560563`*^9}, {3.7891270757650013`*^9, 3.789127077657934*^9}, {3.7891271091340284`*^9, 3.7891271251918364`*^9}, { 3.7891271735278482`*^9, 3.7891271838765836`*^9}, {3.7891272283986025`*^9, 3.7891272986842737`*^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[428]:=",ExpressionUUID->"c19963c9-1f1a-48a8-a9bb-2e1893c37b83"] }, Closed]], Cell[CellGroupData[{ Cell["NONL defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.7878928340449758`*^9}, {3.787893238336218*^9, 3.787893239616878*^9}, {3.822369723252593*^9, 3.822369724343676*^9}},ExpressionUUID->"0a048134-d541-4cf2-8f85-\ e9ff17c2f78d"], 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.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^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.4933448763445997`*^9}, { 3.4933449778422003`*^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.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^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.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^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.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^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.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^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.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, {3.756128796258463*^9, 3.756128808101935*^9}, { 3.7561289636033297`*^9, 3.7561289674012337`*^9}, {3.7561291581496544`*^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.7561688096838417`*^9}, { 3.7562669791923923`*^9, 3.7562669871894484`*^9}, {3.7562671345571966`*^9, 3.7562671514185095`*^9}, {3.756267238618904*^9, 3.75626728245811*^9}, { 3.7562673231127896`*^9, 3.756267369934089*^9}, {3.7562679132987003`*^9, 3.7562679378330235`*^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.7563547516317015`*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, {3.7563549974812*^9, 3.7563550014513693`*^9}, { 3.756355080997491*^9, 3.756355089151907*^9}, {3.7563551640676885`*^9, 3.756355171626652*^9}, {3.756355203033866*^9, 3.7563553257026477`*^9}, { 3.7563554337406178`*^9, 3.7563554593890176`*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, {3.7563557326318254`*^9, 3.7563557465035677`*^9}, { 3.7563558550458755`*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, {3.7563560087797346`*^9, 3.7563560102950015`*^9}, { 3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.7567980844374113`*^9}, {3.7567981179139524`*^9, 3.756798154780326*^9}, { 3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, {3.75781775424854*^9, 3.7578177761870728`*^9}, { 3.75781956271533*^9, 3.757819566308566*^9}, 3.7878930157969465`*^9, { 3.7878932625371447`*^9, 3.787893293562251*^9}, {3.789011658828579*^9, 3.789011685106179*^9}, {3.7890117693402524`*^9, 3.789011778591201*^9}, { 3.7890118169046745`*^9, 3.789011856496833*^9}, {3.789011916734619*^9, 3.7890119176130137`*^9}, {3.7890120044003463`*^9, 3.7890120790499506`*^9}, {3.7890170225675735`*^9, 3.7890170409915233`*^9}, {3.789137822804145*^9, 3.789137840140971*^9}, { 3.789138830369392*^9, 3.789138831966152*^9}, {3.7891389641705704`*^9, 3.7891389664011173`*^9}, {3.7891390002011633`*^9, 3.7891390083921847`*^9}, {3.7891390613275332`*^9, 3.789139181303717*^9}, { 3.7891788441595936`*^9, 3.7891788709933996`*^9}, {3.789197516887492*^9, 3.7891975292926593`*^9}, {3.789197640603428*^9, 3.7891976690423317`*^9}, { 3.7891980332343006`*^9, 3.789198036543322*^9}, {3.7894414019567575`*^9, 3.7894414188832755`*^9}, {3.7894415106536922`*^9, 3.7894415689767485`*^9}, {3.7894417279374404`*^9, 3.7894417609320536`*^9}, {3.7894418267668767`*^9, 3.789441867240697*^9}, { 3.7894419854165044`*^9, 3.7894419959085493`*^9}, {3.7894812275884027`*^9, 3.789481229196883*^9}, {3.789565208967163*^9, 3.789565222891079*^9}, { 3.7895652677339725`*^9, 3.789565310260277*^9}, {3.7897242364891343`*^9, 3.7897242407177544`*^9}, {3.8524287719473324`*^9, 3.852428794640484*^9}, { 3.852439296064255*^9, 3.8524393135928726`*^9}, {3.8524396227849884`*^9, 3.8524396273158197`*^9}, {3.8524399109547606`*^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.8530379856109133`*^9}, {3.85303807352728*^9, 3.853038096110407*^9}, {3.8530381808829203`*^9, 3.853038216537428*^9}, { 3.8941875709128933`*^9, 3.894187590983534*^9}, {3.8944242250699406`*^9, 3.894424256599369*^9}, {3.8944401953672743`*^9, 3.8944401969152937`*^9}}, CellLabel-> "In[430]:=",ExpressionUUID->"3afe77c6-ead7-4199-9329-ed7d136ffa8b"], 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->"0d91f613-0963-4177-80b3-3af2636d3fde"] }, Closed]], Cell[CellGroupData[{ Cell["TMEC defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.7878928340449758`*^9}, {3.822369175023527*^9, 3.8223691834150925`*^9}, {3.8223697280437837`*^9, 3.8223697285388823`*^9}},ExpressionUUID->"f69831af-5faf-423d-9391-\ eb1510ce89f5"], 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.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^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.4933448763445997`*^9}, { 3.4933449778422003`*^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.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^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.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^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.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^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.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^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.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, {3.756128796258463*^9, 3.756128808101935*^9}, { 3.7561289636033297`*^9, 3.7561289674012337`*^9}, {3.7561291581496544`*^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.7561688096838417`*^9}, { 3.7562669791923923`*^9, 3.7562669871894484`*^9}, {3.7562671345571966`*^9, 3.7562671514185095`*^9}, {3.756267238618904*^9, 3.75626728245811*^9}, { 3.7562673231127896`*^9, 3.756267369934089*^9}, {3.7562679132987003`*^9, 3.7562679378330235`*^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.7563547516317015`*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, {3.7563549974812*^9, 3.7563550014513693`*^9}, { 3.756355080997491*^9, 3.756355089151907*^9}, {3.7563551640676885`*^9, 3.756355171626652*^9}, {3.756355203033866*^9, 3.7563553257026477`*^9}, { 3.7563554337406178`*^9, 3.7563554593890176`*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, {3.7563557326318254`*^9, 3.7563557465035677`*^9}, { 3.7563558550458755`*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, {3.7563560087797346`*^9, 3.7563560102950015`*^9}, { 3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.7567980844374113`*^9}, {3.7567981179139524`*^9, 3.756798154780326*^9}, { 3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, {3.75781775424854*^9, 3.7578177761870728`*^9}, { 3.75781956271533*^9, 3.757819566308566*^9}, 3.7878930157969465`*^9, 3.7878931876970196`*^9, {3.7890171909617825`*^9, 3.789017212740966*^9}, { 3.8152685002967186`*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, {3.8223692003538074`*^9, 3.822369210700147*^9}, { 3.822369272776178*^9, 3.822369299587499*^9}, 3.8223697355995836`*^9, { 3.822370335148969*^9, 3.8223703474091916`*^9}}, CellLabel-> "In[440]:=",ExpressionUUID->"4a41b42f-12fd-4226-a2ca-8b3e1e470909"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PRE-POST", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^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.5568725055395393`*^9, 3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, { 3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 3.733563072583865*^9}, {3.733563159827469*^9, 3.7335631629996696`*^9}},ExpressionUUID->"39d272e7-f20b-4eef-92dd-\ 7a2463ee0890"], 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.6853205513594418`*^9}, {3.685326992341719*^9, 3.685326999819147*^9}, {3.685327113810607*^9, 3.685327116900611*^9}, { 3.76060719416889*^9, 3.760607206352191*^9}},ExpressionUUID->"83c19408-37ef-46bb-a835-\ 4a8304f0105c"], 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.4969394213417997`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 3.5599617392300377`*^9}, {3.5601312763250604`*^9, 3.5601312794606657`*^9}, {3.5601313134219255`*^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.6306497780604305`*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, { 3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, { 3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213163`*^9}, {3.6306573863011556`*^9, 3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, { 3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, { 3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, { 3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, { 3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, { 3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 3.6321886640741434`*^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.6853211801403227`*^9, 3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, { 3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 3.6853226020023127`*^9}, {3.6853270065604563`*^9, 3.685327020590476*^9}, { 3.685327067740542*^9, 3.6853271904307137`*^9}, {3.6853272344507756`*^9, 3.685327367150961*^9}, {3.685327539861203*^9, 3.685327565421239*^9}, { 3.6853276026012907`*^9, 3.685327613201306*^9}, 3.685327846481632*^9, { 3.7606071666879735`*^9, 3.760607186226157*^9}, {3.7606081322359104`*^9, 3.7606081444875402`*^9}, {3.7831752763351398`*^9, 3.783175293210803*^9}, { 3.783175332699009*^9, 3.783175341729051*^9}, {3.7888532050250206`*^9, 3.7888532418332033`*^9}}, CellLabel-> "In[441]:=",ExpressionUUID->"fa94f47e-479c-4f59-bc84-4c6fec03b773"] }, Closed]], Cell[CellGroupData[{ Cell["TOOL defs", "Subsection",ExpressionUUID->"02f5db09-96ec-4874-8031-bca572c9a0c5"], 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.7258920393300085`*^9, 3.725892047236313*^9}, {3.7258921328118224`*^9, 3.725892185576483*^9}}, CellLabel-> "In[444]:=",ExpressionUUID->"eba5d517-e569-45ca-a410-6a3d56d28540"] }, Closed]], Cell[CellGroupData[{ Cell["REFINE defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.9017786681617365`*^9, 3.9017786701790285`*^9}},ExpressionUUID->"909ecae6-288e-450e-8d6d-\ 924670e50837"], 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_"}], "}"}], "]"}], ":=", 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_", ",", "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"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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.9093692190580716`*^9, 3.909369305182468*^9}}, CellLabel-> "In[448]:=",ExpressionUUID->"db9170c3-80a8-400d-ae8b-1c40b67af528"], 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.9017797511228366`*^9, 3.9017798396481953`*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.9017799473878126`*^9}, {3.9017799894429646`*^9, 3.9017800658663025`*^9}, {3.9017801043224063`*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.9017803876488895`*^9}, { 3.901840688856732*^9, 3.90184074494683*^9}, {3.901840799236411*^9, 3.9018408433158417`*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.9018412503465137`*^9, 3.901841252566634*^9}, 3.901841489471627*^9, {3.9018416422969494`*^9, 3.901841644104319*^9}, 3.901841749559722*^9, {3.9018422102104535`*^9, 3.9018422603336587`*^9}, { 3.9018423204767904`*^9, 3.901842330887992*^9}, {3.901844658728829*^9, 3.9018446814606466`*^9}, {3.9018447720500755`*^9, 3.901844776029396*^9}, { 3.9018488833026915`*^9, 3.901848918025587*^9}, {3.9018489944102993`*^9, 3.9018490329291935`*^9}, {3.901849283833233*^9, 3.9018493322660627`*^9}, { 3.9018494487017307`*^9, 3.9018494495555553`*^9}},ExpressionUUID->"cc32cdb3-95ea-4a06-8848-\ 9d2a0b0c9b55"], 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.9024661916750975`*^9}, { 3.902466339739992*^9, 3.9024663958244715`*^9}, {3.9024664734657745`*^9, 3.902466513805814*^9}, 3.9024666066640844`*^9, {3.902466676604085*^9, 3.902466720314906*^9}, {3.9024667537597446`*^9, 3.902466944799135*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"5adb69fa-bafb-49b7-a500-4b36bcf914b3"], 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->"d5ab1252-471a-4527-96a8-142cf7503a87"] }, 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.9017797511228366`*^9, 3.9017798396481953`*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.9017799473878126`*^9}, {3.9017799894429646`*^9, 3.9017800658663025`*^9}, {3.9017801043224063`*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.9017803876488895`*^9}, { 3.901840688856732*^9, 3.90184074494683*^9}, {3.901840799236411*^9, 3.9018408433158417`*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.9018412503465137`*^9, 3.901841252566634*^9}, 3.901841489471627*^9},ExpressionUUID->"e8ac5de4-1403-4327-8eab-\ 481b90b5d699"], 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.4771111191308002`*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.4771318192214003`*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.6314094294772816`*^9, 3.631409430304083*^9}, { 3.6314095931215687`*^9, 3.6314095963195744`*^9}, {3.6314105089523773`*^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.6347884698816414`*^9, 3.63478847685104*^9}, {3.6347954098385844`*^9, 3.6347954141598315`*^9}, {3.6347956603329115`*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.6347962287334223`*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.6347967222076473`*^9}, {3.6348910182399282`*^9, 3.6348910703229065`*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.6351290927607307`*^9}, {3.6351291514160852`*^9, 3.6351291562713633`*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.6351296766311264`*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.6351340703167105`*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.6353108694909534`*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.6853593982958508`*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.6874387445294027`*^9, 3.687438822019511*^9}, 3.6874389450596833`*^9, {3.6874389956197543`*^9, 3.6874390405998173`*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, {3.6874392244700747`*^9, 3.687439453750396*^9}, { 3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, {3.6874397535808153`*^9, 3.6874397667108335`*^9}, 3.6874457948947306`*^9, {3.6874461481952252`*^9, 3.6874461564952374`*^9}, { 3.6876686346644025`*^9, 3.6876686478844213`*^9}, {3.6876686911644816`*^9, 3.687668823124666*^9}, {3.687668960604859*^9, 3.6876691302750964`*^9}, { 3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, {3.6876724948642445`*^9, 3.687672495474246*^9}, { 3.687672580794365*^9, 3.6876727153745537`*^9}, {3.687672853854748*^9, 3.6876729332848587`*^9}, {3.6876729722949133`*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.6879313344746327`*^9, {3.687931387314707*^9, 3.6879314004147253`*^9}, { 3.6879314569548044`*^9, 3.6879314600748086`*^9}, {3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.6879317511352158`*^9}, { 3.6879317991852837`*^9, 3.6879318101552987`*^9}, {3.6879318528753586`*^9, 3.687931875785391*^9}, {3.6880321738474593`*^9, 3.688032324857671*^9}, { 3.68811073769691*^9, 3.68811083105704*^9}, {3.688182194807842*^9, 3.6881822090088615`*^9}, {3.6881823158700113`*^9, 3.6881824932602596`*^9}, {3.6881827603406334`*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.6881831324711547`*^9}, {3.688183628661849*^9, 3.6881836750819144`*^9}, { 3.688211059016615*^9, 3.6882111198466997`*^9}, {3.6882111896067977`*^9, 3.6882112272568502`*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.6882118603977365`*^9}, {3.6882139698004313`*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.6882146560475082`*^9, 3.6882146684575257`*^9}, { 3.688214751567642*^9, 3.6882147680976653`*^9}, {3.688214804297716*^9, 3.6882149595979333`*^9}, {3.6882150203480186`*^9, 3.6882152133382883`*^9}, {3.6882152437383313`*^9, 3.688215312948428*^9}, 3.6882155446087523`*^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.6897387257888737`*^9, 3.6897388179090023`*^9}, { 3.6898585271206756`*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, {3.6940970096156654`*^9, 3.6940970747057567`*^9}, 3.6941413988145113`*^9, {3.694354094868929*^9, 3.6943541832790527`*^9}, { 3.694920239046096*^9, 3.694920319576208*^9}, {3.6949203962063155`*^9, 3.694920412426338*^9}, {3.6949204882764444`*^9, 3.6949204937164516`*^9}, 3.6949205606465454`*^9, {3.695100444594348*^9, 3.6951004570843654`*^9}, { 3.6973395634474907`*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, {3.697985573722165*^9, 3.697985597992199*^9}, { 3.6979856429622617`*^9, 3.6979856711723013`*^9}, {3.7244643325478783`*^9, 3.724464348643357*^9}, {3.724467403856756*^9, 3.724467437838467*^9}, { 3.7244675479335804`*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, { 3.724467772264612*^9, 3.724467824163081*^9}, {3.7244678625415535`*^9, 3.724467863396864*^9}, {3.724468018783759*^9, 3.72446802144991*^9}, { 3.7244681559004545`*^9, 3.7244681850540376`*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, {3.7244686219080153`*^9, 3.7244687024486265`*^9}, { 3.7244712391235456`*^9, 3.7244712430734224`*^9}, {3.7244712821065245`*^9, 3.724471282307459*^9}, {3.7244718283139167`*^9, 3.724471852982109*^9}, { 3.7245109260422964`*^9, 3.7245109717411103`*^9}, {3.7254180257070103`*^9, 3.725418132591786*^9}, {3.725418186497287*^9, 3.725418198564393*^9}, { 3.725418240702896*^9, 3.7254182427078333`*^9}, 3.7254182729821267`*^9, { 3.7254183742147875`*^9, 3.72541838162965*^9}, {3.7254184135842233`*^9, 3.7254184150237846`*^9}, {3.725418877464322*^9, 3.7254189569953265`*^9}, { 3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441193`*^9, 3.725419396185589*^9}, {3.725432214366968*^9, 3.725432235836476*^9}, { 3.7254322894678383`*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, {3.726401405512204*^9, 3.7264014071162825`*^9}, { 3.7264014439323297`*^9, 3.7264014462981124`*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, {3.726401682872032*^9, 3.726401718837957*^9}, { 3.726401899357152*^9, 3.7264019010212574`*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, {3.7264021595991826`*^9, 3.7264021616913195`*^9}, { 3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.7470408363290567`*^9}, {3.7471061663693695`*^9, 3.747106214420479*^9}, { 3.7471067469638214`*^9, 3.747106834372692*^9}, {3.7471068959871335`*^9, 3.747106915079779*^9}, {3.7471069588898473`*^9, 3.747106998742816*^9}, 3.747107044736511*^9, {3.747107087544964*^9, 3.7471070893575435`*^9}, { 3.7471138002489843`*^9, 3.747113811418234*^9}, {3.7471138500028563`*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.7471143424625273`*^9, 3.747114343868453*^9}, {3.7471148744458303`*^9, 3.747114931572899*^9}, { 3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.7471156387028475`*^9}, {3.747116431240279*^9, 3.7471164335522423`*^9}, { 3.7471164808222904`*^9, 3.7471166104321785`*^9}, {3.747116647876696*^9, 3.7471167102835293`*^9}, {3.74865997476248*^9, 3.7486600101981816`*^9}, { 3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, {3.7486604981713724`*^9, 3.748660508798976*^9}, { 3.7486929231374454`*^9, 3.7486929342382526`*^9}, {3.7486929737776747`*^9, 3.7486929903337507`*^9}, {3.7486930264117804`*^9, 3.7486931799453707`*^9}, {3.748693249361241*^9, 3.7486932724173203`*^9}, 3.7486933276281357`*^9, 3.7486939237519407`*^9, {3.7486939698417687`*^9, 3.7486939700127883`*^9}, {3.748694008103215*^9, 3.7486940757142344`*^9}, { 3.7486942326282196`*^9, 3.748694304005413*^9}, {3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.7486953104760585`*^9}, { 3.748695384723056*^9, 3.748695811151685*^9}, {3.7486958766029434`*^9, 3.7486959097256002`*^9}, {3.7486964229653544`*^9, 3.7486964578684864`*^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.7540574560189123`*^9, 3.754057472695193*^9}, {3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, {3.7540576696626444`*^9, 3.754057832330846*^9}, { 3.7540578903947163`*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.7540580513826957`*^9}, {3.7540978904321117`*^9, 3.7540979191340885`*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.7540980363245296`*^9, 3.754098095196913*^9}, { 3.7540981279820137`*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.7540983887416687`*^9}, {3.754098433086689*^9, 3.7540984487715254`*^9}, { 3.754098518107086*^9, 3.7540985418746586`*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.7540986329334645`*^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.7541260794470377`*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.7541264972202415`*^9, 3.754126628008542*^9}, { 3.7541266613158674`*^9, 3.754126719835323*^9}, 3.7541267961648273`*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.7541271553116074`*^9, 3.7541271992360067`*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.7541277175880594`*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.7555365688081875`*^9, 3.7555368169423947`*^9}, {3.7566194252966633`*^9, 3.756619503340211*^9}, { 3.7606073727611165`*^9, 3.7606074044677906`*^9}, {3.7639037635827665`*^9, 3.7639039669013567`*^9}, {3.7639040036658916`*^9, 3.7639040352749486`*^9}, {3.7639041491982164`*^9, 3.7639041498420076`*^9}, {3.7641295066295767`*^9, 3.7641296291063385`*^9}, 3.7641297671450467`*^9, {3.764129842917159*^9, 3.76412986403855*^9}, { 3.7641299539495287`*^9, 3.7641299638308244`*^9}, {3.764130242057335*^9, 3.764130264998592*^9}, {3.7641304121561837`*^9, 3.764130517277567*^9}, { 3.764905400658563*^9, 3.764905448073204*^9}, {3.7661917992707295`*^9, 3.7661918111029887`*^9}, {3.7661937058475633`*^9, 3.7661937308527126`*^9}, {3.766288732159727*^9, 3.7662887421574078`*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.7741666346924067`*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.7741681843844967`*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.7742383203485446`*^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.7742396127858567`*^9, 3.7742396524321165`*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.7742399183443785`*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.7742406200754595`*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.7742409420304427`*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.7742411489763308`*^9, 3.7742412065999565`*^9}, { 3.7751895563614497`*^9, 3.775189557474781*^9}, {3.7751896076191764`*^9, 3.7751897799276996`*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, {3.7956770978646717`*^9, 3.7956772181619654`*^9}, {3.8146735876267333`*^9, 3.814673589766639*^9}, { 3.8146739729339857`*^9, 3.8146740117645845`*^9}, {3.8146740671049843`*^9, 3.8146741049177666`*^9}, {3.8146741507745976`*^9, 3.8146741804277105`*^9}, {3.814674251422745*^9, 3.8146743106812353`*^9}, 3.814674726159151*^9, 3.814674968815707*^9, 3.814675018726674*^9, { 3.820993565028139*^9, 3.8209935658103247`*^9}, {3.8209936225592756`*^9, 3.8209937079555244`*^9}, {3.8209937406519527`*^9, 3.820993799726659*^9}, { 3.8449114536299915`*^9, 3.8449114597094784`*^9}, 3.844911489750399*^9, { 3.844911524811378*^9, 3.8449116115216727`*^9}, {3.8449116508263726`*^9, 3.8449118900319576`*^9}, {3.8449119415999355`*^9, 3.8449119426680517`*^9}, {3.8449119732971334`*^9, 3.8449120379798584`*^9}, {3.8449120825540514`*^9, 3.84491208370156*^9}, { 3.8449131304497786`*^9, 3.84491313620944*^9}, {3.844913600565547*^9, 3.844913684928097*^9}, {3.8449138096165752`*^9, 3.8449138945019174`*^9}, { 3.8469121733333035`*^9, 3.846912212029579*^9}, {3.846912263742777*^9, 3.846912264841491*^9}, {3.846913863799194*^9, 3.8469138819214835`*^9}, { 3.8518356301432843`*^9, 3.851835652475341*^9}, {3.853032777958458*^9, 3.853032812072734*^9}, {3.9017786748084583`*^9, 3.901778689159729*^9}, { 3.901778741625797*^9, 3.9017787528129835`*^9}, {3.9017789091343336`*^9, 3.9017789203043656`*^9}, 3.9017794692058954`*^9},ExpressionUUID->"a08a39b0-db35-4904-8d7c-\ e78405a982ef"] }, Closed]], Cell[CellGroupData[{ Cell["ENRICH defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}},ExpressionUUID->"c6581130-f010-4488-9ca3-\ 28c0cca1e24e"], 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.6979858329925275`*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.6984148464035425`*^9}, {3.6984149699237156`*^9, 3.6984149730637197`*^9}, {3.698415039563813*^9, 3.6984150501038275`*^9}, { 3.698415130973941*^9, 3.6984151547039742`*^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.6984156957947316`*^9}, {3.6984971216481996`*^9, 3.6984971440082307`*^9}, {3.698497256408388*^9, 3.6984972586283913`*^9}, { 3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086216`*^9, 3.69849751476875*^9}, {3.699107129086978*^9, 3.69910719511707*^9}, { 3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, { 3.700296892213687*^9, 3.7002969404537544`*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, {3.700298036047288*^9, 3.7002980600173216`*^9}, { 3.7002981562074566`*^9, 3.7002981872574997`*^9}, {3.7129791718840046`*^9, 3.7129791800257635`*^9}, {3.712979232875139*^9, 3.712979252111267*^9}, { 3.7129794197387886`*^9, 3.712979525828207*^9}, {3.7129795809903307`*^9, 3.712979590413209*^9}, {3.7129796478565316`*^9, 3.7129796809538364`*^9}, { 3.7129804673191423`*^9, 3.7129804748198795`*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, {3.7129807144235544`*^9, 3.712980726627682*^9}, { 3.7129807741799045`*^9, 3.7129807809461966`*^9}, {3.7129811406876945`*^9, 3.7129811475474696`*^9}, 3.7129820013233137`*^9, 3.712982092129925*^9, { 3.7129824843276033`*^9, 3.7129825137528653`*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, {3.7129827678737044`*^9, 3.712982856273471*^9}, { 3.7129829454548435`*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.7129832392986393`*^9}, {3.712983366989815*^9, 3.712983388023601*^9}, { 3.7129834186205378`*^9, 3.7129835372579465`*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, {3.7129840417335854`*^9, 3.712984063673375*^9}, 3.7129841515267477`*^9, {3.7129844471207294`*^9, 3.7129845210814824`*^9}, { 3.712984569477442*^9, 3.7129845739623785`*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, {3.712985039824218*^9, 3.71298523890793*^9}, 3.7129853718321877`*^9, {3.7129854137561316`*^9, 3.7129854179438295`*^9}, { 3.712985449603707*^9, 3.7129854556822214`*^9}, {3.7129855201112256`*^9, 3.712985525768077*^9}, {3.712985625231479*^9, 3.7129857027712817`*^9}, { 3.7129857629336724`*^9, 3.712985769059338*^9}, {3.7129858314881444`*^9, 3.712985835050726*^9}, {3.7129860602431355`*^9, 3.712986064853248*^9}, { 3.7129862394499397`*^9, 3.712986242887823*^9}, {3.7129866297240076`*^9, 3.7129866397563314`*^9}, {3.71298680167982*^9, 3.712986860763974*^9}, { 3.7129869813135347`*^9, 3.7129869942367897`*^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.7129953798398485`*^9, 3.712995411374176*^9}, { 3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.7129963339887047`*^9}, {3.7129963699143753`*^9, 3.7129965642163386`*^9}, {3.7129967399069395`*^9, 3.7129967825364337`*^9}, {3.7130023714774327`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.7130096859044127`*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964165`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.7138486952205644`*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813707`*^9, 3.7140410571662374`*^9}, {3.7500561163492336`*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.7504191179118333`*^9}, {3.750419148990396*^9, 3.7504192971886773`*^9}, { 3.7504193704776974`*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.7504196274570265`*^9}, {3.750419676396184*^9, 3.7504197005232496`*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.7504199674269505`*^9, { 3.75042000580826*^9, 3.7504200179820857`*^9}, {3.7504200623902054`*^9, 3.7504200725254693`*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.7606073008309183`*^9, 3.7606073145514975`*^9}, {3.7606073578977823`*^9, 3.760607359417551*^9}, {3.7606074424144297`*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.8448273760220327`*^9}, {3.8448275231364627`*^9, 3.8448275266575537`*^9}, 3.8448276238320646`*^9, {3.8448277812192287`*^9, 3.8448277848034983`*^9}, {3.844827829780749*^9, 3.8448278559054637`*^9}, { 3.844828686628151*^9, 3.8448286878814173`*^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.9017072115197773`*^9, 3.9017072148319273`*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.9023601501531086`*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}}, CellLabel-> "In[485]:=",ExpressionUUID->"085b00c9-ac19-4da6-b881-276f57e75583"], 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.6979858329925275`*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.6984148464035425`*^9}, {3.6984149699237156`*^9, 3.6984149730637197`*^9}, {3.698415039563813*^9, 3.6984150501038275`*^9}, { 3.698415130973941*^9, 3.6984151547039742`*^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.6984156957947316`*^9}, {3.6984971216481996`*^9, 3.6984971440082307`*^9}, {3.698497256408388*^9, 3.6984972586283913`*^9}, { 3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086216`*^9, 3.69849751476875*^9}, {3.699107129086978*^9, 3.69910719511707*^9}, { 3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, { 3.700296892213687*^9, 3.7002969404537544`*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, {3.700298036047288*^9, 3.7002980600173216`*^9}, { 3.7002981562074566`*^9, 3.7002981872574997`*^9}, {3.7129791718840046`*^9, 3.7129791800257635`*^9}, {3.712979232875139*^9, 3.712979252111267*^9}, { 3.7129794197387886`*^9, 3.712979525828207*^9}, {3.7129795809903307`*^9, 3.712979590413209*^9}, {3.7129796478565316`*^9, 3.7129796809538364`*^9}, { 3.7129804673191423`*^9, 3.7129804748198795`*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, {3.7129807144235544`*^9, 3.712980726627682*^9}, { 3.7129807741799045`*^9, 3.7129807809461966`*^9}, {3.7129811406876945`*^9, 3.7129811475474696`*^9}, 3.7129820013233137`*^9, 3.712982092129925*^9, { 3.7129824843276033`*^9, 3.7129825137528653`*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, {3.7129827678737044`*^9, 3.712982856273471*^9}, { 3.7129829454548435`*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.7129832392986393`*^9}, {3.712983366989815*^9, 3.712983388023601*^9}, { 3.7129834186205378`*^9, 3.7129835372579465`*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, {3.7129840417335854`*^9, 3.712984063673375*^9}, 3.7129841515267477`*^9, {3.7129844471207294`*^9, 3.7129845210814824`*^9}, { 3.712984569477442*^9, 3.7129845739623785`*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, {3.712985039824218*^9, 3.71298523890793*^9}, 3.7129853718321877`*^9, {3.7129854137561316`*^9, 3.7129854179438295`*^9}, { 3.712985449603707*^9, 3.7129854556822214`*^9}, {3.7129855201112256`*^9, 3.712985525768077*^9}, {3.712985625231479*^9, 3.7129857027712817`*^9}, { 3.7129857629336724`*^9, 3.712985769059338*^9}, {3.7129858314881444`*^9, 3.712985835050726*^9}, {3.7129860602431355`*^9, 3.712986064853248*^9}, { 3.7129862394499397`*^9, 3.712986242887823*^9}, {3.7129866297240076`*^9, 3.7129866397563314`*^9}, {3.71298680167982*^9, 3.712986860763974*^9}, { 3.7129869813135347`*^9, 3.7129869942367897`*^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.7129953798398485`*^9, 3.712995411374176*^9}, { 3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.7129963339887047`*^9}, {3.7129963699143753`*^9, 3.7129965642163386`*^9}, {3.7129967399069395`*^9, 3.7129967825364337`*^9}, {3.7130023714774327`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.7130096859044127`*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964165`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.7138486952205644`*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813707`*^9, 3.7140410571662374`*^9}, {3.7500561163492336`*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.7504191179118333`*^9}, {3.750419148990396*^9, 3.7504192971886773`*^9}, { 3.7504193704776974`*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.7504196274570265`*^9}, {3.750419676396184*^9, 3.7504197005232496`*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.7504199674269505`*^9, { 3.75042000580826*^9, 3.7504200179820857`*^9}, {3.7504200623902054`*^9, 3.7504200725254693`*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.7606073008309183`*^9, 3.7606073145514975`*^9}, {3.7606073578977823`*^9, 3.760607359417551*^9}, {3.7606074424144297`*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.8448273760220327`*^9}, {3.8448275231364627`*^9, 3.8448275266575537`*^9}, 3.8448276238320646`*^9, {3.8448277812192287`*^9, 3.8448277848034983`*^9}, {3.844827829780749*^9, 3.8448278559054637`*^9}, { 3.844828686628151*^9, 3.8448286878814173`*^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.9017072115197773`*^9, 3.9017072148319273`*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.9023601501531086`*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.9024471067794685`*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.9024473753522253`*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037024`*^9}, {3.9024484280373535`*^9, 3.9024486778527946`*^9}, {3.9024487499204283`*^9, 3.9024487542759676`*^9}, {3.9024488742689867`*^9, 3.9024488760042534`*^9}, {3.902449218490075*^9, 3.9024492192872424`*^9}},ExpressionUUID->"22beaf0b-4bf9-4c0d-8d19-\ f510c4095b8c"], 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.6979858329925275`*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.6984148464035425`*^9}, {3.6984149699237156`*^9, 3.6984149730637197`*^9}, {3.698415039563813*^9, 3.6984150501038275`*^9}, { 3.698415130973941*^9, 3.6984151547039742`*^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.6984156957947316`*^9}, {3.6984971216481996`*^9, 3.6984971440082307`*^9}, {3.698497256408388*^9, 3.6984972586283913`*^9}, { 3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086216`*^9, 3.69849751476875*^9}, {3.699107129086978*^9, 3.69910719511707*^9}, { 3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, { 3.700296892213687*^9, 3.7002969404537544`*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, {3.700298036047288*^9, 3.7002980600173216`*^9}, { 3.7002981562074566`*^9, 3.7002981872574997`*^9}, {3.7129791718840046`*^9, 3.7129791800257635`*^9}, {3.712979232875139*^9, 3.712979252111267*^9}, { 3.7129794197387886`*^9, 3.712979525828207*^9}, {3.7129795809903307`*^9, 3.712979590413209*^9}, {3.7129796478565316`*^9, 3.7129796809538364`*^9}, { 3.7129804673191423`*^9, 3.7129804748198795`*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, {3.7129807144235544`*^9, 3.712980726627682*^9}, { 3.7129807741799045`*^9, 3.7129807809461966`*^9}, {3.7129811406876945`*^9, 3.7129811475474696`*^9}, 3.7129820013233137`*^9, 3.712982092129925*^9, { 3.7129824843276033`*^9, 3.7129825137528653`*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, {3.7129827678737044`*^9, 3.712982856273471*^9}, { 3.7129829454548435`*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.7129832392986393`*^9}, {3.712983366989815*^9, 3.712983388023601*^9}, { 3.7129834186205378`*^9, 3.7129835372579465`*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, {3.7129840417335854`*^9, 3.712984063673375*^9}, 3.7129841515267477`*^9, {3.7129844471207294`*^9, 3.7129845210814824`*^9}, { 3.712984569477442*^9, 3.7129845739623785`*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, {3.712985039824218*^9, 3.71298523890793*^9}, 3.7129853718321877`*^9, {3.7129854137561316`*^9, 3.7129854179438295`*^9}, { 3.712985449603707*^9, 3.7129854556822214`*^9}, {3.7129855201112256`*^9, 3.712985525768077*^9}, {3.712985625231479*^9, 3.7129857027712817`*^9}, { 3.7129857629336724`*^9, 3.712985769059338*^9}, {3.7129858314881444`*^9, 3.712985835050726*^9}, {3.7129860602431355`*^9, 3.712986064853248*^9}, { 3.7129862394499397`*^9, 3.712986242887823*^9}, {3.7129866297240076`*^9, 3.7129866397563314`*^9}, {3.71298680167982*^9, 3.712986860763974*^9}, { 3.7129869813135347`*^9, 3.7129869942367897`*^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.7129953798398485`*^9, 3.712995411374176*^9}, { 3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.7129963339887047`*^9}, {3.7129963699143753`*^9, 3.7129965642163386`*^9}, {3.7129967399069395`*^9, 3.7129967825364337`*^9}, {3.7130023714774327`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.7130096859044127`*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964165`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.7138486952205644`*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813707`*^9, 3.7140410571662374`*^9}, {3.7500561163492336`*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.7504191179118333`*^9}, {3.750419148990396*^9, 3.7504192971886773`*^9}, { 3.7504193704776974`*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.7504196274570265`*^9}, {3.750419676396184*^9, 3.7504197005232496`*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.7504199674269505`*^9, { 3.75042000580826*^9, 3.7504200179820857`*^9}, {3.7504200623902054`*^9, 3.7504200725254693`*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.7606073008309183`*^9, 3.7606073145514975`*^9}, {3.7606073578977823`*^9, 3.760607359417551*^9}, {3.7606074424144297`*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.8448273760220327`*^9}, {3.8448275231364627`*^9, 3.8448275266575537`*^9}, 3.8448276238320646`*^9, {3.8448277812192287`*^9, 3.8448277848034983`*^9}, {3.844827829780749*^9, 3.8448278559054637`*^9}, { 3.844828686628151*^9, 3.8448286878814173`*^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.9017072115197773`*^9, 3.9017072148319273`*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.9023601501531086`*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.9024471067794685`*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.9024473753522253`*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037024`*^9}, {3.9024484280373535`*^9, 3.9024487397437124`*^9}, {3.9024487822041245`*^9, 3.902448796153398*^9}, { 3.9024489321199512`*^9, 3.9024489323900256`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"138654d5-247b-41aa-aaa1-5d8a03e9736c"], 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.9024488002338204`*^9, 3.9024488835680094`*^9, 3.902448935070481*^9}, CellLabel->"Out[8]=",ExpressionUUID->"0f4c5ac2-d252-4ec3-8f71-327d3aaaa03c"] }, 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.6979858329925275`*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.6984148464035425`*^9}, {3.6984149699237156`*^9, 3.6984149730637197`*^9}, {3.698415039563813*^9, 3.6984150501038275`*^9}, { 3.698415130973941*^9, 3.6984151547039742`*^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.6984156957947316`*^9}, {3.6984971216481996`*^9, 3.6984971440082307`*^9}, {3.698497256408388*^9, 3.6984972586283913`*^9}, { 3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086216`*^9, 3.69849751476875*^9}, {3.699107129086978*^9, 3.69910719511707*^9}, { 3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, { 3.700296892213687*^9, 3.7002969404537544`*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, {3.700298036047288*^9, 3.7002980600173216`*^9}, { 3.7002981562074566`*^9, 3.7002981872574997`*^9}, {3.7129791718840046`*^9, 3.7129791800257635`*^9}, {3.712979232875139*^9, 3.712979252111267*^9}, { 3.7129794197387886`*^9, 3.712979525828207*^9}, {3.7129795809903307`*^9, 3.712979590413209*^9}, {3.7129796478565316`*^9, 3.7129796809538364`*^9}, { 3.7129804673191423`*^9, 3.7129804748198795`*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, {3.7129807144235544`*^9, 3.712980726627682*^9}, { 3.7129807741799045`*^9, 3.7129807809461966`*^9}, {3.7129811406876945`*^9, 3.7129811475474696`*^9}, 3.7129820013233137`*^9, 3.712982092129925*^9, { 3.7129824843276033`*^9, 3.7129825137528653`*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, {3.7129827678737044`*^9, 3.712982856273471*^9}, { 3.7129829454548435`*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.7129832392986393`*^9}, {3.712983366989815*^9, 3.712983388023601*^9}, { 3.7129834186205378`*^9, 3.7129835372579465`*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, {3.7129840417335854`*^9, 3.712984063673375*^9}, 3.7129841515267477`*^9, {3.7129844471207294`*^9, 3.7129845210814824`*^9}, { 3.712984569477442*^9, 3.7129845739623785`*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, {3.712985039824218*^9, 3.71298523890793*^9}, 3.7129853718321877`*^9, {3.7129854137561316`*^9, 3.7129854179438295`*^9}, { 3.712985449603707*^9, 3.7129854556822214`*^9}, {3.7129855201112256`*^9, 3.712985525768077*^9}, {3.712985625231479*^9, 3.7129857027712817`*^9}, { 3.7129857629336724`*^9, 3.712985769059338*^9}, {3.7129858314881444`*^9, 3.712985835050726*^9}, {3.7129860602431355`*^9, 3.712986064853248*^9}, { 3.7129862394499397`*^9, 3.712986242887823*^9}, {3.7129866297240076`*^9, 3.7129866397563314`*^9}, {3.71298680167982*^9, 3.712986860763974*^9}, { 3.7129869813135347`*^9, 3.7129869942367897`*^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.7129953798398485`*^9, 3.712995411374176*^9}, { 3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.7129963339887047`*^9}, {3.7129963699143753`*^9, 3.7129965642163386`*^9}, {3.7129967399069395`*^9, 3.7129967825364337`*^9}, {3.7130023714774327`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.7130096859044127`*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964165`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.7138486952205644`*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813707`*^9, 3.7140410571662374`*^9}, {3.7500561163492336`*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.7504191179118333`*^9}, {3.750419148990396*^9, 3.7504192971886773`*^9}, { 3.7504193704776974`*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.7504196274570265`*^9}, {3.750419676396184*^9, 3.7504197005232496`*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.7504199674269505`*^9, { 3.75042000580826*^9, 3.7504200179820857`*^9}, {3.7504200623902054`*^9, 3.7504200725254693`*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.7606073008309183`*^9, 3.7606073145514975`*^9}, {3.7606073578977823`*^9, 3.760607359417551*^9}, {3.7606074424144297`*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.8448273760220327`*^9}, {3.8448275231364627`*^9, 3.8448275266575537`*^9}, 3.8448276238320646`*^9, {3.8448277812192287`*^9, 3.8448277848034983`*^9}, {3.844827829780749*^9, 3.8448278559054637`*^9}, { 3.844828686628151*^9, 3.8448286878814173`*^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.9017072115197773`*^9, 3.9017072148319273`*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.9023601501531086`*^9}},ExpressionUUID->"5dff6e0c-9a38-4b39-bbbb-\ 8f49f50fb690"] }, Closed]], Cell[CellGroupData[{ Cell["GREFINE defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}, {3.7597145150982075`*^9, 3.759714542190567*^9}, {3.7597145828965845`*^9, 3.7597145848583384`*^9}},ExpressionUUID->"341dbd34-147a-4298-9a14-\ 977adf877e4b"], 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.6979858329925275`*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.6984148464035425`*^9}, {3.6984149699237156`*^9, 3.6984149730637197`*^9}, {3.698415039563813*^9, 3.6984150501038275`*^9}, { 3.698415130973941*^9, 3.6984151547039742`*^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.6984156957947316`*^9}, {3.6984971216481996`*^9, 3.6984971440082307`*^9}, {3.698497256408388*^9, 3.6984972586283913`*^9}, { 3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086216`*^9, 3.69849751476875*^9}, {3.699107129086978*^9, 3.69910719511707*^9}, { 3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, { 3.700296892213687*^9, 3.7002969404537544`*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, {3.700298036047288*^9, 3.7002980600173216`*^9}, { 3.7002981562074566`*^9, 3.7002981872574997`*^9}, {3.7129791718840046`*^9, 3.7129791800257635`*^9}, {3.712979232875139*^9, 3.712979252111267*^9}, { 3.7129794197387886`*^9, 3.712979525828207*^9}, {3.7129795809903307`*^9, 3.712979590413209*^9}, {3.7129796478565316`*^9, 3.7129796809538364`*^9}, { 3.7129804673191423`*^9, 3.7129804748198795`*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, {3.7129807144235544`*^9, 3.712980726627682*^9}, { 3.7129807741799045`*^9, 3.7129807809461966`*^9}, {3.7129811406876945`*^9, 3.7129811475474696`*^9}, 3.7129820013233137`*^9, 3.712982092129925*^9, { 3.7129824843276033`*^9, 3.7129825137528653`*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, {3.7129827678737044`*^9, 3.712982856273471*^9}, { 3.7129829454548435`*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.7129832392986393`*^9}, {3.712983366989815*^9, 3.712983388023601*^9}, { 3.7129834186205378`*^9, 3.7129835372579465`*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, {3.7129840417335854`*^9, 3.712984063673375*^9}, 3.7129841515267477`*^9, {3.7129844471207294`*^9, 3.7129845210814824`*^9}, { 3.712984569477442*^9, 3.7129845739623785`*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, {3.712985039824218*^9, 3.71298523890793*^9}, 3.7129853718321877`*^9, {3.7129854137561316`*^9, 3.7129854179438295`*^9}, { 3.712985449603707*^9, 3.7129854556822214`*^9}, {3.7129855201112256`*^9, 3.712985525768077*^9}, {3.712985625231479*^9, 3.7129857027712817`*^9}, { 3.7129857629336724`*^9, 3.712985769059338*^9}, {3.7129858314881444`*^9, 3.712985835050726*^9}, {3.7129860602431355`*^9, 3.712986064853248*^9}, { 3.7129862394499397`*^9, 3.712986242887823*^9}, {3.7129866297240076`*^9, 3.7129866397563314`*^9}, {3.71298680167982*^9, 3.712986860763974*^9}, { 3.7129869813135347`*^9, 3.7129869942367897`*^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.7129953798398485`*^9, 3.712995411374176*^9}, { 3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.7129963339887047`*^9}, {3.7129963699143753`*^9, 3.7129965642163386`*^9}, {3.7129967399069395`*^9, 3.7129967825364337`*^9}, {3.7130023714774327`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.7130096859044127`*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964165`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.7138486952205644`*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813707`*^9, 3.7140410571662374`*^9}, {3.7500561163492336`*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.7504191179118333`*^9}, {3.750419148990396*^9, 3.7504192971886773`*^9}, { 3.7504193704776974`*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.7504196274570265`*^9}, {3.750419676396184*^9, 3.7504197005232496`*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.7504199674269505`*^9, { 3.75042000580826*^9, 3.7504200179820857`*^9}, {3.7504200623902054`*^9, 3.7504200725254693`*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.7597145916194983`*^9, 3.759714665591065*^9}, {3.75971472891543*^9, 3.759714824916602*^9}, {3.7597148706987467`*^9, 3.759714947478797*^9}, { 3.7597150349307227`*^9, 3.7597151634794807`*^9}, {3.759715246935138*^9, 3.7597153062491665`*^9}, {3.7597153377190075`*^9, 3.7597153870577526`*^9}, {3.7597154590071197`*^9, 3.759715500272478*^9}, { 3.7597155491240797`*^9, 3.7597155760904846`*^9}, {3.7597156273541317`*^9, 3.75971569203012*^9}, {3.759715739514512*^9, 3.7597157580149326`*^9}, { 3.7597158013411117`*^9, 3.75971588340364*^9}, {3.759715927490775*^9, 3.7597160612515965`*^9}, {3.759716123477256*^9, 3.759716134998943*^9}, { 3.7597192931263885`*^9, 3.7597193363351936`*^9}, {3.7597193773167334`*^9, 3.759719404125424*^9}, {3.7597244593792834`*^9, 3.759724529395421*^9}, { 3.7597247902250433`*^9, 3.759724797335229*^9}, {3.7597248368354387`*^9, 3.7597248400493813`*^9}, {3.759727702871601*^9, 3.7597277380976105`*^9}, { 3.759727774307602*^9, 3.759727786273531*^9}, {3.759727871612993*^9, 3.7597278889996324`*^9}, 3.7597279993022413`*^9, {3.75973165307685*^9, 3.7597316585755997`*^9}, {3.7597317206705837`*^9, 3.759731738556853*^9}, { 3.759731825620432*^9, 3.759731856878929*^9}, {3.759735536137723*^9, 3.7597356755580835`*^9}, {3.759743445765726*^9, 3.759743450812235*^9}, 3.7597442184489155`*^9}, CellLabel-> "In[486]:=",ExpressionUUID->"05dff643-0796-4a2e-9153-17814f274d46"] }, Closed]], Cell[CellGroupData[{ Cell["EXTRUDE defs", "Subsection", CellChangeTimes->{{3.6337757022685537`*^9, 3.6337757351784363`*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.7451438105166326`*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607554619519*^9, 3.7606075611760683`*^9}},ExpressionUUID->"54e69d30-8e83-44c8-9ee7-\ d18afe0c4908"], 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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, {3.7606075704439325`*^9, 3.76060759034247*^9}}, CellLabel-> "In[491]:=",ExpressionUUID->"30fed272-790d-475d-85ea-bc4e60d22afd"] }, Closed]], Cell[CellGroupData[{ Cell["TRIANGULATE defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.784699941516708*^9, 3.7846999469147763`*^9}},ExpressionUUID->"4763e8c8-8d0f-4e23-a643-\ 2d51b827a040"], 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.4771111191308002`*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.4771318192214003`*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.6314094294772816`*^9, 3.631409430304083*^9}, { 3.6314095931215687`*^9, 3.6314095963195744`*^9}, {3.6314105089523773`*^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.6347884698816414`*^9, 3.63478847685104*^9}, {3.6347954098385844`*^9, 3.6347954141598315`*^9}, {3.6347956603329115`*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.6347962287334223`*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.6347967222076473`*^9}, {3.6348910182399282`*^9, 3.6348910703229065`*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.6351290927607307`*^9}, {3.6351291514160852`*^9, 3.6351291562713633`*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.6351296766311264`*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.6351340703167105`*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.6353108694909534`*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.6853593982958508`*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.6874387445294027`*^9, 3.687438822019511*^9}, 3.6874389450596833`*^9, {3.6874389956197543`*^9, 3.6874390405998173`*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, {3.6874392244700747`*^9, 3.687439453750396*^9}, { 3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, {3.6874397535808153`*^9, 3.6874397667108335`*^9}, 3.6874457948947306`*^9, {3.6874461481952252`*^9, 3.6874461564952374`*^9}, { 3.6876686346644025`*^9, 3.6876686478844213`*^9}, {3.6876686911644816`*^9, 3.687668823124666*^9}, {3.687668960604859*^9, 3.6876691302750964`*^9}, { 3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, {3.6876724948642445`*^9, 3.687672495474246*^9}, { 3.687672580794365*^9, 3.6876727153745537`*^9}, {3.687672853854748*^9, 3.6876729332848587`*^9}, {3.6876729722949133`*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.6879313344746327`*^9, {3.687931387314707*^9, 3.6879314004147253`*^9}, { 3.6879314569548044`*^9, 3.6879314600748086`*^9}, {3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.6879317511352158`*^9}, { 3.6879317991852837`*^9, 3.6879318101552987`*^9}, {3.6879318528753586`*^9, 3.687931875785391*^9}, {3.6880321738474593`*^9, 3.688032324857671*^9}, { 3.68811073769691*^9, 3.68811083105704*^9}, {3.688182194807842*^9, 3.6881822090088615`*^9}, {3.6881823158700113`*^9, 3.6881824932602596`*^9}, {3.6881827603406334`*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.6881831324711547`*^9}, {3.688183628661849*^9, 3.6881836750819144`*^9}, { 3.688211059016615*^9, 3.6882111198466997`*^9}, {3.6882111896067977`*^9, 3.6882112272568502`*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.6882118603977365`*^9}, {3.6882139698004313`*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.6882146560475082`*^9, 3.6882146684575257`*^9}, { 3.688214751567642*^9, 3.6882147680976653`*^9}, {3.688214804297716*^9, 3.6882149595979333`*^9}, {3.6882150203480186`*^9, 3.6882152133382883`*^9}, {3.6882152437383313`*^9, 3.688215312948428*^9}, 3.6882155446087523`*^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.6897387257888737`*^9, 3.6897388179090023`*^9}, { 3.6898585271206756`*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, {3.6940970096156654`*^9, 3.6940970747057567`*^9}, 3.6941413988145113`*^9, {3.694354094868929*^9, 3.6943541832790527`*^9}, { 3.694920239046096*^9, 3.694920319576208*^9}, {3.6949203962063155`*^9, 3.694920412426338*^9}, {3.6949204882764444`*^9, 3.6949204937164516`*^9}, 3.6949205606465454`*^9, {3.695100444594348*^9, 3.6951004570843654`*^9}, { 3.6973395634474907`*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, {3.697985573722165*^9, 3.697985597992199*^9}, { 3.6979856429622617`*^9, 3.6979856711723013`*^9}, {3.7244643325478783`*^9, 3.724464348643357*^9}, {3.724467403856756*^9, 3.724467437838467*^9}, { 3.7244675479335804`*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, { 3.724467772264612*^9, 3.724467824163081*^9}, {3.7244678625415535`*^9, 3.724467863396864*^9}, {3.724468018783759*^9, 3.72446802144991*^9}, { 3.7244681559004545`*^9, 3.7244681850540376`*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, {3.7244686219080153`*^9, 3.7244687024486265`*^9}, { 3.7244712391235456`*^9, 3.7244712430734224`*^9}, {3.7244712821065245`*^9, 3.724471282307459*^9}, {3.7244718283139167`*^9, 3.724471852982109*^9}, { 3.7245109260422964`*^9, 3.7245109717411103`*^9}, {3.7254180257070103`*^9, 3.725418132591786*^9}, {3.725418186497287*^9, 3.725418198564393*^9}, { 3.725418240702896*^9, 3.7254182427078333`*^9}, 3.7254182729821267`*^9, { 3.7254183742147875`*^9, 3.72541838162965*^9}, {3.7254184135842233`*^9, 3.7254184150237846`*^9}, {3.725418877464322*^9, 3.7254189569953265`*^9}, { 3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441193`*^9, 3.725419396185589*^9}, {3.725432214366968*^9, 3.725432235836476*^9}, { 3.7254322894678383`*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, {3.726401405512204*^9, 3.7264014071162825`*^9}, { 3.7264014439323297`*^9, 3.7264014462981124`*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, {3.726401682872032*^9, 3.726401718837957*^9}, { 3.726401899357152*^9, 3.7264019010212574`*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, {3.7264021595991826`*^9, 3.7264021616913195`*^9}, { 3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.7470408363290567`*^9}, {3.7471061663693695`*^9, 3.747106214420479*^9}, { 3.7471067469638214`*^9, 3.747106834372692*^9}, {3.7471068959871335`*^9, 3.747106915079779*^9}, {3.7471069588898473`*^9, 3.747106998742816*^9}, 3.747107044736511*^9, {3.747107087544964*^9, 3.7471070893575435`*^9}, { 3.7471138002489843`*^9, 3.747113811418234*^9}, {3.7471138500028563`*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.7471143424625273`*^9, 3.747114343868453*^9}, {3.7471148744458303`*^9, 3.747114931572899*^9}, { 3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.7471156387028475`*^9}, {3.747116431240279*^9, 3.7471164335522423`*^9}, { 3.7471164808222904`*^9, 3.7471166104321785`*^9}, {3.747116647876696*^9, 3.7471167102835293`*^9}, {3.74865997476248*^9, 3.7486600101981816`*^9}, { 3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, {3.7486604981713724`*^9, 3.748660508798976*^9}, { 3.7486929231374454`*^9, 3.7486929342382526`*^9}, {3.7486929737776747`*^9, 3.7486929903337507`*^9}, {3.7486930264117804`*^9, 3.7486931799453707`*^9}, {3.748693249361241*^9, 3.7486932724173203`*^9}, 3.7486933276281357`*^9, 3.7486939237519407`*^9, {3.7486939698417687`*^9, 3.7486939700127883`*^9}, {3.748694008103215*^9, 3.7486940757142344`*^9}, { 3.7486942326282196`*^9, 3.748694304005413*^9}, {3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.7486953104760585`*^9}, { 3.748695384723056*^9, 3.748695811151685*^9}, {3.7486958766029434`*^9, 3.7486959097256002`*^9}, {3.7486964229653544`*^9, 3.7486964578684864`*^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.7540574560189123`*^9, 3.754057472695193*^9}, {3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, {3.7540576696626444`*^9, 3.754057832330846*^9}, { 3.7540578903947163`*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.7540580513826957`*^9}, {3.7540978904321117`*^9, 3.7540979191340885`*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.7540980363245296`*^9, 3.754098095196913*^9}, { 3.7540981279820137`*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.7540983887416687`*^9}, {3.754098433086689*^9, 3.7540984487715254`*^9}, { 3.754098518107086*^9, 3.7540985418746586`*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.7540986329334645`*^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.7541260794470377`*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.7541264972202415`*^9, 3.754126628008542*^9}, { 3.7541266613158674`*^9, 3.754126719835323*^9}, 3.7541267961648273`*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.7541271553116074`*^9, 3.7541271992360067`*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.7541277175880594`*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.7555365688081875`*^9, 3.7555368169423947`*^9}, {3.7566194252966633`*^9, 3.756619503340211*^9}, { 3.7606073727611165`*^9, 3.7606074044677906`*^9}, {3.7639037635827665`*^9, 3.7639039669013567`*^9}, {3.7639040036658916`*^9, 3.7639040352749486`*^9}, {3.7639041491982164`*^9, 3.7639041498420076`*^9}, {3.7641295066295767`*^9, 3.7641296291063385`*^9}, 3.7641297671450467`*^9, {3.764129842917159*^9, 3.76412986403855*^9}, { 3.7641299539495287`*^9, 3.7641299638308244`*^9}, {3.764130242057335*^9, 3.764130264998592*^9}, {3.7641304121561837`*^9, 3.764130517277567*^9}, { 3.764905400658563*^9, 3.764905448073204*^9}, {3.7661917992707295`*^9, 3.7661918111029887`*^9}, {3.7661937058475633`*^9, 3.7661937308527126`*^9}, {3.766288732159727*^9, 3.7662887421574078`*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.7741666346924067`*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.7741681843844967`*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.7742383203485446`*^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.7742396127858567`*^9, 3.7742396524321165`*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.7742399183443785`*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.7742406200754595`*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.7742409420304427`*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.7742411489763308`*^9, 3.7742412065999565`*^9}, { 3.7751895563614497`*^9, 3.775189557474781*^9}, {3.7751896076191764`*^9, 3.7751897799276996`*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, 3.7847000290779285`*^9, { 3.7866769257536707`*^9, 3.7866769613037777`*^9}, {3.7873053599413404`*^9, 3.7873054240368595`*^9}, {3.78730664769903*^9, 3.7873066512662177`*^9}, { 3.7873066825368905`*^9, 3.787306955112986*^9}, {3.787307227184967*^9, 3.787307234638444*^9}, {3.787307265472159*^9, 3.787307267764142*^9}, { 3.7873080496920834`*^9, 3.7873080627577534`*^9}, {3.787313297531843*^9, 3.787313308431161*^9}, 3.7873133927244625`*^9, 3.787628244885955*^9, 3.787651422801089*^9, {3.787651471253007*^9, 3.787651471569529*^9}, { 3.7876536890179644`*^9, 3.7876536899407806`*^9}, {3.843283788165268*^9, 3.8432838872123113`*^9}, {3.843283923901783*^9, 3.843283925305036*^9}, { 3.8432839713240523`*^9, 3.8432840064768605`*^9}, {3.8432847051109915`*^9, 3.8432847055104575`*^9}, {3.8715241477883415`*^9, 3.871524228218049*^9}, { 3.871524559347787*^9, 3.871524575561017*^9}, {3.871525225491823*^9, 3.8715252312756543`*^9}, {3.8715252858775024`*^9, 3.8715253185721006`*^9}, {3.871525441059702*^9, 3.8715254936410713`*^9}, { 3.871525576927189*^9, 3.8715255872926817`*^9}, {3.871541617149444*^9, 3.8715416175306177`*^9}, {3.879475340694683*^9, 3.8794753902553883`*^9}, 3.8934645475089855`*^9, 3.893464610678737*^9, {3.8934646429380856`*^9, 3.8934646694926505`*^9}, 3.894439594316308*^9, 3.894515296283434*^9, { 3.894515533115449*^9, 3.89451559365526*^9}}, CellLabel-> "In[493]:=",ExpressionUUID->"ad9842ca-f3d5-473a-a657-597c1807148f"] }, Closed]], Cell[CellGroupData[{ Cell["STANDARDFORM etc. defs", "Subsection", CellChangeTimes->{{3.687518097184434*^9, 3.687518099119545*^9}, { 3.8223704779241266`*^9, 3.8223704849224677`*^9}, {3.847105064772148*^9, 3.8471050666839848`*^9}, {3.873766824778203*^9, 3.87376682767669*^9}},ExpressionUUID->"a386f9f5-f0fc-48c6-b0e2-\ dece22a35df4"], 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.4771111191308002`*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.4771318192214003`*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.6314094294772816`*^9, 3.631409430304083*^9}, { 3.6314095931215687`*^9, 3.6314095963195744`*^9}, {3.6314105089523773`*^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.6347884698816414`*^9, 3.63478847685104*^9}, {3.6347954098385844`*^9, 3.6347954141598315`*^9}, {3.6347956603329115`*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.6347962287334223`*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.6347967222076473`*^9}, {3.6348910182399282`*^9, 3.6348910703229065`*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.6351290927607307`*^9}, {3.6351291514160852`*^9, 3.6351291562713633`*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.6351296766311264`*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.6351340703167105`*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.6353108694909534`*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.6853593982958508`*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.6874387445294027`*^9, 3.687438822019511*^9}, 3.6874389450596833`*^9, {3.6874389956197543`*^9, 3.6874390405998173`*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, {3.6874392244700747`*^9, 3.687439453750396*^9}, { 3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, {3.6874397535808153`*^9, 3.6874397667108335`*^9}, 3.6874457948947306`*^9, {3.6874461481952252`*^9, 3.6874461564952374`*^9}, { 3.6875181522405834`*^9, 3.68751815568078*^9}, {3.6875204157420483`*^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.6882157502790403`*^9, 3.6882158044791164`*^9}, {3.6882622853518825`*^9, 3.6882623772920113`*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, { 3.6883055547978315`*^9, 3.6883055581478367`*^9}, 3.6885556940086794`*^9, { 3.6887891056829405`*^9, 3.688789118792959*^9}, {3.689569235320521*^9, 3.6895692415105295`*^9}, {3.6895692890105963`*^9, 3.6895693069106207`*^9}, 3.6895693822507267`*^9, {3.689569427000789*^9, 3.6895694482508187`*^9}, 3.6895694919908876`*^9, {3.6895695387109528`*^9, 3.689569578131008*^9}, { 3.689569627301077*^9, 3.689569645991103*^9}, {3.6895697401912346`*^9, 3.6895697702212768`*^9}, 3.6895698011213202`*^9, {3.689744714260333*^9, 3.6897447652504044`*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, { 3.689745080870846*^9, 3.6897450850308523`*^9}, {3.689931309632269*^9, 3.6899314628124833`*^9}, {3.6899315289025755`*^9, 3.6899315295525765`*^9}, 3.6899317777829237`*^9, {3.6899318153929768`*^9, 3.6899319421931543`*^9}, { 3.6899320773633437`*^9, 3.6899320881033583`*^9}, {3.689932151873448*^9, 3.6899321525034485`*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, { 3.6902010125655856`*^9, 3.6902010371956205`*^9}, {3.690201134205756*^9, 3.6902011393057632`*^9}, {3.6902012251758833`*^9, 3.6902012529259224`*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.6902013758560944`*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.6926021393253183`*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.6926023345055914`*^9, 3.6926024870358047`*^9}, {3.692602578835933*^9, 3.692602643676024*^9}, { 3.692602680546076*^9, 3.6926027938862343`*^9}, {3.6926033898490686`*^9, 3.69260341914911*^9}, {3.6926034700191813`*^9, 3.6926034970292187`*^9}, { 3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, { 3.6926038593097258`*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, {3.6926231439402156`*^9, 3.6926232412303514`*^9}, { 3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, {3.6926903035588465`*^9, 3.692690322168873*^9}, { 3.692690954409758*^9, 3.6926910022098246`*^9}, {3.6927712759197345`*^9, 3.6927713146397886`*^9}, {3.6931903688317842`*^9, 3.693190412011845*^9}, { 3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.6931907666223416`*^9}, {3.6931908229324207`*^9, 3.69319083728244*^9}, { 3.6931909707526274`*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, {3.693380931925725*^9, 3.6933809742257843`*^9}, { 3.693381048845889*^9, 3.6933810491658893`*^9}, {3.6937172796980753`*^9, 3.6937172962480984`*^9}, 3.6940830696432643`*^9, {3.694265186313383*^9, 3.6942652017534046`*^9}, {3.6943214452576447`*^9, 3.694321472597683*^9}, { 3.694321554517798*^9, 3.6943215869878435`*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, {3.6994213310795765`*^9, 3.6994213778796425`*^9}, 3.6994215436398745`*^9, {3.7242984497704906`*^9, 3.7242984923330016`*^9}, { 3.72441256854047*^9, 3.7244125884060483`*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, {3.7244238000272264`*^9, 3.724423808981761*^9}, { 3.724423851341444*^9, 3.72442385406735*^9}, 3.7531742584901376`*^9, { 3.75317433551407*^9, 3.753174346315694*^9}, {3.7531744883509235`*^9, 3.7531745210492754`*^9}, {3.753174634967907*^9, 3.7531746472931037`*^9}, { 3.753175721657942*^9, 3.7531757255294914`*^9}, {3.7557182025229635`*^9, 3.7557182030038967`*^9}, {3.756297307135029*^9, 3.756297308897887*^9}, { 3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, {3.7739914305755105`*^9, 3.7739914316320434`*^9}, { 3.7821126248524623`*^9, 3.7821126618917875`*^9}, {3.7821128287376575`*^9, 3.782113058088851*^9}, 3.7821131332211285`*^9, {3.78230654015934*^9, 3.782306645788203*^9}, {3.7823084511158514`*^9, 3.7823084719170256`*^9}, { 3.7823089681411147`*^9, 3.782309014159138*^9}, {3.7823090529903145`*^9, 3.782309098299096*^9}, {3.7834165730387535`*^9, 3.783416574885394*^9}, { 3.7834177206360197`*^9, 3.7834177235800114`*^9}, {3.7834178083523865`*^9, 3.783417811301102*^9}, {3.78341790496704*^9, 3.7834179579660645`*^9}, { 3.7834205477524905`*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, {3.783420731072624*^9, 3.7834207678524528`*^9}, { 3.783420801192772*^9, 3.7834208184926167`*^9}, {3.7834208900921984`*^9, 3.7834208997123528`*^9}, {3.7834209626227193`*^9, 3.783420995272684*^9}, 3.783421034482338*^9, {3.7834210681022635`*^9, 3.7834210798275776`*^9}, { 3.783421113532735*^9, 3.7834211771988773`*^9}, {3.783421696697568*^9, 3.7834216971028566`*^9}, {3.7834218696329055`*^9, 3.783421906748032*^9}, { 3.7883262853435993`*^9, 3.7883263022151365`*^9}, {3.7883263694714775`*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.7883264759465675`*^9}, {3.7883266381172643`*^9, 3.7883266752530084`*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, { 3.788327257534025*^9, 3.7883272687062693`*^9}, {3.788575008576598*^9, 3.7885750852092667`*^9}, {3.7885752039321165`*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.7886771563854265`*^9}, { 3.788677419098531*^9, 3.7886776914502583`*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.7886782311665745`*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, {3.7886784043995614`*^9, 3.788678410344158*^9}, { 3.788678513776554*^9, 3.7886785139327545`*^9}, {3.7887492506266127`*^9, 3.788749271502985*^9}, {3.7887494537067327`*^9, 3.7887494576578264`*^9}, { 3.7888494712317395`*^9, 3.788849476626989*^9}, {3.7890121503559027`*^9, 3.7890121818326073`*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, {3.7901289319915466`*^9, 3.790128937645911*^9}, { 3.790128972298277*^9, 3.790128973869923*^9}, {3.8146823682070165`*^9, 3.814682369609891*^9}, {3.8146824749880943`*^9, 3.8146825013459005`*^9}, { 3.8146825650091476`*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.8146827094381466`*^9}, {3.8146827427363567`*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, { 3.814683865904718*^9, 3.814683921031538*^9}, {3.817549572368679*^9, 3.817549648245356*^9}, {3.8223698040336294`*^9, 3.8223698883671684`*^9}, { 3.822370507521001*^9, 3.8223705081203985`*^9}, {3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.8612646078275304`*^9}, 3.873766675104046*^9}, CellLabel-> "In[507]:=",ExpressionUUID->"700ae30c-c681-4f52-aa11-9ef78b0938ff"] }, Closed]], Cell[CellGroupData[{ Cell["MESH etc. defs", "Subsection", CellChangeTimes->{{3.8737667025244293`*^9, 3.8737667082118225`*^9}, { 3.873766815230051*^9, 3.873766820478841*^9}},ExpressionUUID->"119d5fe3-c8f8-421d-8bd0-\ 88fc1daf4bcc"], 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.4771111191308002`*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.4771318192214003`*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.6314094294772816`*^9, 3.631409430304083*^9}, { 3.6314095931215687`*^9, 3.6314095963195744`*^9}, {3.6314105089523773`*^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.6347884698816414`*^9, 3.63478847685104*^9}, {3.6347954098385844`*^9, 3.6347954141598315`*^9}, {3.6347956603329115`*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.6347962287334223`*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.6347967222076473`*^9}, {3.6348910182399282`*^9, 3.6348910703229065`*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.6351290927607307`*^9}, {3.6351291514160852`*^9, 3.6351291562713633`*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.6351296766311264`*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.6351340703167105`*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.6353108694909534`*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.6853593982958508`*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.6874387445294027`*^9, 3.687438822019511*^9}, 3.6874389450596833`*^9, {3.6874389956197543`*^9, 3.6874390405998173`*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, {3.6874392244700747`*^9, 3.687439453750396*^9}, { 3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, {3.6874397535808153`*^9, 3.6874397667108335`*^9}, 3.6874457948947306`*^9, {3.6874461481952252`*^9, 3.6874461564952374`*^9}, { 3.6875181522405834`*^9, 3.68751815568078*^9}, {3.6875204157420483`*^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.6882157502790403`*^9, 3.6882158044791164`*^9}, {3.6882622853518825`*^9, 3.6882623772920113`*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, { 3.6883055547978315`*^9, 3.6883055581478367`*^9}, 3.6885556940086794`*^9, { 3.6887891056829405`*^9, 3.688789118792959*^9}, {3.689569235320521*^9, 3.6895692415105295`*^9}, {3.6895692890105963`*^9, 3.6895693069106207`*^9}, 3.6895693822507267`*^9, {3.689569427000789*^9, 3.6895694482508187`*^9}, 3.6895694919908876`*^9, {3.6895695387109528`*^9, 3.689569578131008*^9}, { 3.689569627301077*^9, 3.689569645991103*^9}, {3.6895697401912346`*^9, 3.6895697702212768`*^9}, 3.6895698011213202`*^9, {3.689744714260333*^9, 3.6897447652504044`*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, { 3.689745080870846*^9, 3.6897450850308523`*^9}, {3.689931309632269*^9, 3.6899314628124833`*^9}, {3.6899315289025755`*^9, 3.6899315295525765`*^9}, 3.6899317777829237`*^9, {3.6899318153929768`*^9, 3.6899319421931543`*^9}, { 3.6899320773633437`*^9, 3.6899320881033583`*^9}, {3.689932151873448*^9, 3.6899321525034485`*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, { 3.6902010125655856`*^9, 3.6902010371956205`*^9}, {3.690201134205756*^9, 3.6902011393057632`*^9}, {3.6902012251758833`*^9, 3.6902012529259224`*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.6902013758560944`*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.6926021393253183`*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.6926023345055914`*^9, 3.6926024870358047`*^9}, {3.692602578835933*^9, 3.692602643676024*^9}, { 3.692602680546076*^9, 3.6926027938862343`*^9}, {3.6926033898490686`*^9, 3.69260341914911*^9}, {3.6926034700191813`*^9, 3.6926034970292187`*^9}, { 3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, { 3.6926038593097258`*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, {3.6926231439402156`*^9, 3.6926232412303514`*^9}, { 3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, {3.6926903035588465`*^9, 3.692690322168873*^9}, { 3.692690954409758*^9, 3.6926910022098246`*^9}, {3.6927712759197345`*^9, 3.6927713146397886`*^9}, {3.6931903688317842`*^9, 3.693190412011845*^9}, { 3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.6931907666223416`*^9}, {3.6931908229324207`*^9, 3.69319083728244*^9}, { 3.6931909707526274`*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, {3.693380931925725*^9, 3.6933809742257843`*^9}, { 3.693381048845889*^9, 3.6933810491658893`*^9}, {3.6937172796980753`*^9, 3.6937172962480984`*^9}, 3.6940830696432643`*^9, {3.694265186313383*^9, 3.6942652017534046`*^9}, {3.6943214452576447`*^9, 3.694321472597683*^9}, { 3.694321554517798*^9, 3.6943215869878435`*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, {3.6994213310795765`*^9, 3.6994213778796425`*^9}, 3.6994215436398745`*^9, {3.7242984497704906`*^9, 3.7242984923330016`*^9}, { 3.72441256854047*^9, 3.7244125884060483`*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, {3.7244238000272264`*^9, 3.724423808981761*^9}, { 3.724423851341444*^9, 3.72442385406735*^9}, 3.7531742584901376`*^9, { 3.75317433551407*^9, 3.753174346315694*^9}, {3.7531744883509235`*^9, 3.7531745210492754`*^9}, {3.753174634967907*^9, 3.7531746472931037`*^9}, { 3.753175721657942*^9, 3.7531757255294914`*^9}, {3.7557182025229635`*^9, 3.7557182030038967`*^9}, {3.756297307135029*^9, 3.756297308897887*^9}, { 3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, {3.7739914305755105`*^9, 3.7739914316320434`*^9}, { 3.7821126248524623`*^9, 3.7821126618917875`*^9}, {3.7821128287376575`*^9, 3.782113058088851*^9}, 3.7821131332211285`*^9, {3.78230654015934*^9, 3.782306645788203*^9}, {3.7823084511158514`*^9, 3.7823084719170256`*^9}, { 3.7823089681411147`*^9, 3.782309014159138*^9}, {3.7823090529903145`*^9, 3.782309098299096*^9}, {3.7834165730387535`*^9, 3.783416574885394*^9}, { 3.7834177206360197`*^9, 3.7834177235800114`*^9}, {3.7834178083523865`*^9, 3.783417811301102*^9}, {3.78341790496704*^9, 3.7834179579660645`*^9}, { 3.7834205477524905`*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, {3.783420731072624*^9, 3.7834207678524528`*^9}, { 3.783420801192772*^9, 3.7834208184926167`*^9}, {3.7834208900921984`*^9, 3.7834208997123528`*^9}, {3.7834209626227193`*^9, 3.783420995272684*^9}, 3.783421034482338*^9, {3.7834210681022635`*^9, 3.7834210798275776`*^9}, { 3.783421113532735*^9, 3.7834211771988773`*^9}, {3.783421696697568*^9, 3.7834216971028566`*^9}, {3.7834218696329055`*^9, 3.783421906748032*^9}, { 3.7883262853435993`*^9, 3.7883263022151365`*^9}, {3.7883263694714775`*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.7883264759465675`*^9}, {3.7883266381172643`*^9, 3.7883266752530084`*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, { 3.788327257534025*^9, 3.7883272687062693`*^9}, {3.788575008576598*^9, 3.7885750852092667`*^9}, {3.7885752039321165`*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.7886771563854265`*^9}, { 3.788677419098531*^9, 3.7886776914502583`*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.7886782311665745`*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, {3.7886784043995614`*^9, 3.788678410344158*^9}, { 3.788678513776554*^9, 3.7886785139327545`*^9}, {3.7887492506266127`*^9, 3.788749271502985*^9}, {3.7887494537067327`*^9, 3.7887494576578264`*^9}, { 3.7888494712317395`*^9, 3.788849476626989*^9}, {3.7890121503559027`*^9, 3.7890121818326073`*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, {3.7901289319915466`*^9, 3.790128937645911*^9}, { 3.790128972298277*^9, 3.790128973869923*^9}, {3.8146823682070165`*^9, 3.814682369609891*^9}, {3.8146824749880943`*^9, 3.8146825013459005`*^9}, { 3.8146825650091476`*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.8146827094381466`*^9}, {3.8146827427363567`*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, { 3.814683865904718*^9, 3.814683921031538*^9}, {3.817549572368679*^9, 3.817549648245356*^9}, {3.8223698040336294`*^9, 3.8223698883671684`*^9}, { 3.822370507521001*^9, 3.8223705081203985`*^9}, {3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.8612646078275304`*^9}, 3.873766675104046*^9, {3.873766838637391*^9, 3.873766871792037*^9}, { 3.9093699093028593`*^9, 3.9093699231557245`*^9}}, CellLabel-> "In[525]:=",ExpressionUUID->"b4ec5559-ed9f-45e2-9f53-17bd895f816d"] }, Open ]], Cell[CellGroupData[{ Cell["POST defs", "Subsection",ExpressionUUID->"849a548b-aa2c-4011-b5ef-e80547938cf1"], 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.4439294203773737`*^9}, {3.443929488800974*^9, 3.4439294898461742`*^9}, { 3.443930075892174*^9, 3.4439300788405743`*^9}, {3.443930455096974*^9, 3.4439304595273743`*^9}, {3.443930823241374*^9, 3.443930856126174*^9}, { 3.443931095008974*^9, 3.443931111997374*^9}, {3.443931155724174*^9, 3.4439311829461737`*^9}, {3.443931237046974*^9, 3.443931263410974*^9}, 3.4439313163885736`*^9, {3.4439313583057737`*^9, 3.443931361909374*^9}, 3.4439314336509743`*^9, {3.443931519341774*^9, 3.4439315263773737`*^9}, { 3.443931599338574*^9, 3.4439315999157743`*^9}, {3.443931654312974*^9, 3.443931663626174*^9}, {3.443931727149374*^9, 3.4439317436853743`*^9}, { 3.443931775712174*^9, 3.443931903195374*^9}, {3.443932055919374*^9, 3.443932087025774*^9}, {3.4439321180697737`*^9, 3.4439322133857737`*^9}, { 3.443932558437174*^9, 3.443932580074374*^9}, {3.443932636171974*^9, 3.443932669587174*^9}, {3.4439327043127737`*^9, 3.443932734670374*^9}, { 3.4439327953075743`*^9, 3.443932797023574*^9}, {3.443933058434774*^9, 3.443933059136774*^9}, {3.443933108214374*^9, 3.4439331098211737`*^9}, 3.443933204232374*^9, 3.443933238567974*^9, {3.443933324492774*^9, 3.4439333252727737`*^9}, {3.443933359343174*^9, 3.4439334752043743`*^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.4439341545999737`*^9}, {3.443934196688774*^9, 3.443934199559174*^9}, 3.443934615985574*^9, {3.443934665562374*^9, 3.443934690335174*^9}, { 3.4439348709051743`*^9, 3.443934878829974*^9}, {3.443934986984774*^9, 3.443934989371574*^9}, {3.4439362770051737`*^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.4464299717019997`*^9, 3.4464299849308*^9}, {3.4466049799505997`*^9, 3.4466049833514*^9}, {3.4466050206822*^9, 3.4466050890257998`*^9}, { 3.4466051204286003`*^9, 3.4466052301902*^9}, 3.4771131915032*^9, { 3.5007268004706*^9, 3.5007268065234003`*^9}, {3.5007272402033997`*^9, 3.5007272528238*^9}, 3.5007273148494*^9, {3.6880535892141175`*^9, 3.6880535907041197`*^9}},ExpressionUUID->"d60c6f64-fd54-46d0-a19c-\ 5c544728e062"] }, Closed]], Cell[CellGroupData[{ Cell["GRAPHICS defs", "Subsection", CellChangeTimes->{{3.6337757022685537`*^9, 3.6337757351784363`*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.734064825975355*^9, 3.734064828569765*^9}, {3.7451438050875483`*^9, 3.7451438075158496`*^9}, { 3.750748347033251*^9, 3.750748355529561*^9}, {3.78956792066949*^9, 3.789567926782812*^9}, 3.7895679585556145`*^9},ExpressionUUID->"1f151ec3-885b-4625-90c3-\ 0eb02a264269"], 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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, 3.734064961166012*^9, {3.7340649924958353`*^9, 3.7340650071121197`*^9}, { 3.734065080806053*^9, 3.7340651183371983`*^9}, {3.7340717082263236`*^9, 3.7340717106541834`*^9}, {3.7340733640961533`*^9, 3.734073544150256*^9}, { 3.734073575450083*^9, 3.7340736415768323`*^9}, {3.7340736917524757`*^9, 3.7340736979070516`*^9}, {3.7340738227246733`*^9, 3.734073837462171*^9}, { 3.7340739034480777`*^9, 3.734073926441464*^9}, {3.7340739810895205`*^9, 3.734073989147008*^9}, {3.7340742070861125`*^9, 3.7340742176873407`*^9}, { 3.7340743130118575`*^9, 3.7340743136367188`*^9}, 3.734147513058416*^9, { 3.734147568916667*^9, 3.7341475939306383`*^9}, {3.734147807211531*^9, 3.7341478287481747`*^9}, {3.734147861578357*^9, 3.7341478856653595`*^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.7347807803670073`*^9}, {3.7347809996713924`*^9, 3.734781008203253*^9}, {3.7348427053556232`*^9, 3.7348427411876764`*^9}, { 3.7348427811917715`*^9, 3.7348428157425947`*^9}, {3.7352741876350036`*^9, 3.735274188984682*^9}, {3.744334694805724*^9, 3.744334695602414*^9}, { 3.7443347269076095`*^9, 3.7443347277042484`*^9}, {3.7443708556292257`*^9, 3.744370857925562*^9}, {3.7443710360558863`*^9, 3.7443710373681135`*^9}, { 3.7443728681474504`*^9, 3.7443728796447964`*^9}, {3.744372944801361*^9, 3.7443729465196667`*^9}, 3.7444272378898153`*^9, {3.7450269816449513`*^9, 3.745026983254672*^9}, {3.7461503454492016`*^9, 3.7461503964527383`*^9}, { 3.7461504977259088`*^9, 3.7461505005843096`*^9}, {3.7461505589454737`*^9, 3.7461506157760525`*^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.7507503665913057`*^9}, { 3.7507503972457952`*^9, 3.7507504187333727`*^9}, {3.7507505335852304`*^9, 3.750750827854561*^9}, {3.7507508607353168`*^9, 3.7507508749873066`*^9}, { 3.750750906727187*^9, 3.750750925222521*^9}, {3.7507511964801655`*^9, 3.7507512498091383`*^9}, {3.760607688544195*^9, 3.7606077135130415`*^9}, 3.7606087463370066`*^9, {3.765086128848972*^9, 3.765086135973978*^9}, { 3.765086334880218*^9, 3.765086340797302*^9}, {3.8532058197692585`*^9, 3.8532058295626307`*^9}, {3.853205931683282*^9, 3.8532059509132338`*^9}, { 3.853206459482326*^9, 3.8532064976587143`*^9}, 3.8532069619654517`*^9}, CellLabel-> "In[531]:=",ExpressionUUID->"98f56221-c475-4097-885c-ff066a39b9b6"] }, Closed]], Cell[CellGroupData[{ Cell["SHOW3D defs", "Subsection", CellChangeTimes->{{3.6337757022685537`*^9, 3.6337757351784363`*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.7451438105166326`*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607741638811*^9, 3.760607749187194*^9}, {3.760608900875217*^9, 3.7606089113767295`*^9}, {3.873767332289979*^9, 3.8737673340685816`*^9}},ExpressionUUID->"3552947f-d811-405d-a41a-\ 0491f58b1a88"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"POSTFORM", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 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_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", "#", ",", "fun"}], " ", "]"}], "&"}], ",", "ele"}], "]"}], ",", "1"}], "]"}], ",", "POSTFORM"}], "]"}], "]"}], ",", 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[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"LINK", ",", "typ_", ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[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[{ 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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.7606077013285637`*^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.7606087505165215`*^9, 3.7606087536075697`*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.7606088687210503`*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.7606107473288507`*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.7606112396040025`*^9, 3.7606112817332983`*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248805995`*^9}, {3.7606118287018495`*^9, 3.7606119921793656`*^9}, {3.760612127470795*^9, 3.760612223396744*^9}, { 3.76061550773096*^9, 3.7606155085119963`*^9}, 3.760615603302456*^9, { 3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, { 3.760615988102416*^9, 3.7606160042704983`*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, {3.763426957870851*^9, 3.763426959053108*^9}, { 3.7634271873253856`*^9, 3.763427188674776*^9}, {3.7634423988211765`*^9, 3.7634424251737814`*^9}, {3.7634426334949675`*^9, 3.7634426560163193`*^9}, {3.763528275706467*^9, 3.7635284013459897`*^9}, { 3.763528705040784*^9, 3.7635287224411435`*^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.7636054326054068`*^9}, { 3.7636054757131557`*^9, 3.7636054979248376`*^9}, {3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.7636058987003956`*^9}, { 3.763606027844756*^9, 3.7636060593519597`*^9}, {3.7636061708042307`*^9, 3.763606210806114*^9}, 3.763606241472248*^9, {3.7636062752072725`*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.7636064489171495`*^9}, { 3.763606744287244*^9, 3.7636067648057427`*^9}, 3.7636070601536713`*^9, { 3.763607262857174*^9, 3.763607300007738*^9}, {3.7636074396359158`*^9, 3.7636074830770864`*^9}, {3.7636076263020697`*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.7636077758773165`*^9}, { 3.763607857294286*^9, 3.7636078613443317`*^9}, 3.763608605441226*^9, { 3.7638142471323504`*^9, 3.7638142487803507`*^9}, {3.7638142898908815`*^9, 3.7638143569012723`*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.7639608609270196`*^9, 3.763960872595887*^9}, { 3.764339536191163*^9, 3.7643395373935814`*^9}, {3.764339581142139*^9, 3.7643396307895145`*^9}, {3.7643397270416403`*^9, 3.764339746774886*^9}, { 3.7643759693358665`*^9, 3.764375988525555*^9}, {3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.7649058888300486`*^9}, { 3.764905919657881*^9, 3.7649059255708666`*^9}, {3.764906015807353*^9, 3.7649060798935275`*^9}, {3.7649061275007944`*^9, 3.764906182700228*^9}, { 3.7649814310038157`*^9, 3.764981612888131*^9}, {3.764981649845045*^9, 3.764981717214387*^9}, {3.7650095509166293`*^9, 3.7650095663321896`*^9}, { 3.765009596962874*^9, 3.7650096065955095`*^9}, 3.7650098165773335`*^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.7650855978395305`*^9, 3.7650856220925417`*^9}, {3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.7650865194326468`*^9, 3.765086519785918*^9}, { 3.7650865505251884`*^9, 3.7650865669896946`*^9}, 3.765087372975154*^9, { 3.7650874030551014`*^9, 3.7650874163952713`*^9}, {3.765087536684074*^9, 3.7650876355597906`*^9}, 3.7650877252914543`*^9, {3.765088672041128*^9, 3.7650887019763765`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, { 3.7650889283353214`*^9, 3.7650889447918415`*^9}, {3.765089035561446*^9, 3.7650890612584443`*^9}, {3.7650891812559137`*^9, 3.765089209061077*^9}, { 3.7650893423167953`*^9, 3.76508943243054*^9}, {3.765090684608432*^9, 3.765090700734714*^9}, 3.7650907477613907`*^9, {3.7650908366428585`*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, { 3.765091082681374*^9, 3.7650911113055153`*^9}, {3.7650911427516937`*^9, 3.7650911450258894`*^9}, {3.7650912819372005`*^9, 3.765091515369325*^9}, { 3.7650916102443376`*^9, 3.7650917517497134`*^9}, {3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.7652396904249477`*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.7652532918614807`*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, { 3.76619098699972*^9, 3.766190987925188*^9}, {3.766193820625373*^9, 3.7661938215367756`*^9}, {3.7662041564549007`*^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.7665725420953245`*^9, 3.7665725423845477`*^9}, {3.7666314737351704`*^9, 3.7666315492489386`*^9}, {3.7740882771256323`*^9, 3.774088312744491*^9}, { 3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, {3.7741511238761725`*^9, 3.7741512298519745`*^9}, { 3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, {3.7742415341727543`*^9, 3.7742416306317797`*^9}, { 3.7751898888726125`*^9, 3.775189913786336*^9}, {3.7751899486865563`*^9, 3.7751899522127523`*^9}, {3.7751899989654093`*^9, 3.7751900149868736`*^9}, {3.7751900517928104`*^9, 3.775190066570419*^9}, { 3.7879798676374617`*^9, 3.7879798943206964`*^9}, {3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, { 3.7922886672157793`*^9, 3.7922886764378495`*^9}, {3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, { 3.795768609226843*^9, 3.7957686326352005`*^9}, {3.7957686687171*^9, 3.7957686846637707`*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, { 3.7957690236098194`*^9, 3.79576902468211*^9}, {3.7957690712421293`*^9, 3.795769275801197*^9}, {3.7957693460703883`*^9, 3.795769349757367*^9}, { 3.79576972202382*^9, 3.7957697714534473`*^9}, {3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.7963459430887594`*^9}, { 3.8298913714361515`*^9, 3.829891372330407*^9}, {3.843728585368825*^9, 3.84372858844851*^9}, {3.8449958679518747`*^9, 3.8449959617306128`*^9}, { 3.845978121229767*^9, 3.845978121586933*^9}, {3.8459781752184176`*^9, 3.845978183704877*^9}, {3.8459783826308093`*^9, 3.8459784254435472`*^9}, { 3.845978956970813*^9, 3.8459791499511595`*^9}, 3.8461289015497713`*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, { 3.846309504823522*^9, 3.846309511339752*^9}, {3.8532051618832316`*^9, 3.8532051757582083`*^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.8871635874795218`*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, { 3.8871654260980873`*^9, 3.8871654427316074`*^9}, {3.887165816135432*^9, 3.887165823537006*^9}, 3.8871660665299387`*^9, {3.887166246706021*^9, 3.8871662970164585`*^9}, {3.8908095587701707`*^9, 3.890809638739278*^9}, { 3.8913965175958996`*^9, 3.8913965355770936`*^9}, 3.8913967235993123`*^9}, CellLabel-> "In[541]:=",ExpressionUUID->"7f31475e-7e30-441f-878b-4fc2c9d4cea8"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"basic", " ", "beam", " ", "graphics", " ", "2023"}], "*)"}], "\[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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.7606077013285637`*^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.7606087505165215`*^9, 3.7606087536075697`*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.7606088687210503`*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.7606107473288507`*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.7606112396040025`*^9, 3.7606112817332983`*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248805995`*^9}, {3.7606118287018495`*^9, 3.7606119921793656`*^9}, {3.760612127470795*^9, 3.760612223396744*^9}, { 3.76061550773096*^9, 3.7606155085119963`*^9}, 3.760615603302456*^9, { 3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, { 3.760615988102416*^9, 3.7606160042704983`*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, {3.763426957870851*^9, 3.763426959053108*^9}, { 3.7634271873253856`*^9, 3.763427188674776*^9}, {3.7634423988211765`*^9, 3.7634424251737814`*^9}, {3.7634426334949675`*^9, 3.7634426560163193`*^9}, {3.763528275706467*^9, 3.7635284013459897`*^9}, { 3.763528705040784*^9, 3.7635287224411435`*^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.7636054326054068`*^9}, { 3.7636054757131557`*^9, 3.7636054979248376`*^9}, {3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.7636058987003956`*^9}, { 3.763606027844756*^9, 3.7636060593519597`*^9}, {3.7636061708042307`*^9, 3.763606210806114*^9}, 3.763606241472248*^9, {3.7636062752072725`*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.7636064489171495`*^9}, { 3.763606744287244*^9, 3.7636067648057427`*^9}, 3.7636070601536713`*^9, { 3.763607262857174*^9, 3.763607300007738*^9}, {3.7636074396359158`*^9, 3.7636074830770864`*^9}, {3.7636076263020697`*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.7636077758773165`*^9}, { 3.763607857294286*^9, 3.7636078613443317`*^9}, 3.763608605441226*^9, { 3.7638142471323504`*^9, 3.7638142487803507`*^9}, {3.7638142898908815`*^9, 3.7638143569012723`*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.7639608609270196`*^9, 3.763960872595887*^9}, { 3.764339536191163*^9, 3.7643395373935814`*^9}, {3.764339581142139*^9, 3.7643396307895145`*^9}, {3.7643397270416403`*^9, 3.764339746774886*^9}, { 3.7643759693358665`*^9, 3.764375988525555*^9}, {3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.7649058888300486`*^9}, { 3.764905919657881*^9, 3.7649059255708666`*^9}, {3.764906015807353*^9, 3.7649060798935275`*^9}, {3.7649061275007944`*^9, 3.764906182700228*^9}, { 3.7649814310038157`*^9, 3.764981612888131*^9}, {3.764981649845045*^9, 3.764981717214387*^9}, {3.7650095509166293`*^9, 3.7650095663321896`*^9}, { 3.765009596962874*^9, 3.7650096065955095`*^9}, 3.7650098165773335`*^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.7650855978395305`*^9, 3.7650856220925417`*^9}, {3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.7650865194326468`*^9, 3.765086519785918*^9}, { 3.7650865505251884`*^9, 3.7650865669896946`*^9}, 3.765087372975154*^9, { 3.7650874030551014`*^9, 3.7650874163952713`*^9}, {3.765087536684074*^9, 3.7650876355597906`*^9}, 3.7650877252914543`*^9, {3.765088672041128*^9, 3.7650887019763765`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, { 3.7650889283353214`*^9, 3.7650889447918415`*^9}, {3.765089035561446*^9, 3.7650890612584443`*^9}, {3.7650891812559137`*^9, 3.765089209061077*^9}, { 3.7650893423167953`*^9, 3.76508943243054*^9}, {3.765090684608432*^9, 3.765090700734714*^9}, 3.7650907477613907`*^9, {3.7650908366428585`*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, { 3.765091082681374*^9, 3.7650911113055153`*^9}, {3.7650911427516937`*^9, 3.7650911450258894`*^9}, {3.7650912819372005`*^9, 3.765091515369325*^9}, { 3.7650916102443376`*^9, 3.7650917517497134`*^9}, {3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.7652396904249477`*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.7652532918614807`*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, { 3.76619098699972*^9, 3.766190987925188*^9}, {3.766193820625373*^9, 3.7661938215367756`*^9}, {3.7662041564549007`*^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.7665725420953245`*^9, 3.7665725423845477`*^9}, {3.7666314737351704`*^9, 3.7666315492489386`*^9}, {3.7740882771256323`*^9, 3.774088312744491*^9}, { 3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, {3.7741511238761725`*^9, 3.7741512298519745`*^9}, { 3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, {3.7742415341727543`*^9, 3.7742416306317797`*^9}, { 3.7751898888726125`*^9, 3.775189913786336*^9}, {3.7751899486865563`*^9, 3.7751899522127523`*^9}, {3.7751899989654093`*^9, 3.7751900149868736`*^9}, {3.7751900517928104`*^9, 3.775190066570419*^9}, { 3.7879798676374617`*^9, 3.7879798943206964`*^9}, {3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, { 3.7922886672157793`*^9, 3.7922886764378495`*^9}, {3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, { 3.795768609226843*^9, 3.7957686326352005`*^9}, {3.7957686687171*^9, 3.7957686846637707`*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, { 3.7957690236098194`*^9, 3.79576902468211*^9}, {3.7957690712421293`*^9, 3.795769275801197*^9}, {3.7957693460703883`*^9, 3.795769349757367*^9}, { 3.79576972202382*^9, 3.7957697714534473`*^9}, {3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.7963459430887594`*^9}, { 3.8298913714361515`*^9, 3.829891372330407*^9}, {3.843728585368825*^9, 3.84372858844851*^9}, {3.8449958679518747`*^9, 3.8449959617306128`*^9}, { 3.845978121229767*^9, 3.845978121586933*^9}, {3.8459781752184176`*^9, 3.845978183704877*^9}, {3.8459783826308093`*^9, 3.8459784254435472`*^9}, { 3.845978956970813*^9, 3.8459791499511595`*^9}, 3.8461289015497713`*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, { 3.846309504823522*^9, 3.846309511339752*^9}, {3.8532051618832316`*^9, 3.8532051757582083`*^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.8871635874795218`*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, { 3.8871654260980873`*^9, 3.8871654427316074`*^9}, {3.887165816135432*^9, 3.887165823537006*^9}, 3.8871660665299387`*^9, {3.887166246706021*^9, 3.8871662970164585`*^9}, {3.8908095587701707`*^9, 3.890809638739278*^9}, { 3.8913965175958996`*^9, 3.8913965355770936`*^9}, {3.8913967235993123`*^9, 3.891396763527814*^9}, {3.8913967992800713`*^9, 3.891396810581273*^9}, { 3.891397253531287*^9, 3.891397264039032*^9}, {3.8913973426198187`*^9, 3.8913973530905027`*^9}, {3.8913974143070416`*^9, 3.8913974148457775`*^9}, {3.891397466855936*^9, 3.8913974835336094`*^9}, { 3.8913975880127125`*^9, 3.891397588552843*^9}}, CellLabel-> "In[550]:=",ExpressionUUID->"2d56f4d3-89a9-4c46-8ef9-2813c91b727d"], 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", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.7606077013285637`*^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.7606087505165215`*^9, 3.7606087536075697`*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.7606088687210503`*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.7606107473288507`*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.7606112396040025`*^9, 3.7606112817332983`*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248805995`*^9}, {3.7606118287018495`*^9, 3.7606119921793656`*^9}, {3.760612127470795*^9, 3.760612223396744*^9}, { 3.76061550773096*^9, 3.7606155085119963`*^9}, 3.760615603302456*^9, { 3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, { 3.760615988102416*^9, 3.7606160042704983`*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, {3.763426957870851*^9, 3.763426959053108*^9}, { 3.7634271873253856`*^9, 3.763427188674776*^9}, {3.7634423988211765`*^9, 3.7634424251737814`*^9}, {3.7634426334949675`*^9, 3.7634426560163193`*^9}, {3.763528275706467*^9, 3.7635284013459897`*^9}, { 3.763528705040784*^9, 3.7635287224411435`*^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.7636054326054068`*^9}, { 3.7636054757131557`*^9, 3.7636054979248376`*^9}, {3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.7636058987003956`*^9}, { 3.763606027844756*^9, 3.7636060593519597`*^9}, {3.7636061708042307`*^9, 3.763606210806114*^9}, 3.763606241472248*^9, {3.7636062752072725`*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.7636064489171495`*^9}, { 3.763606744287244*^9, 3.7636067648057427`*^9}, 3.7636070601536713`*^9, { 3.763607262857174*^9, 3.763607300007738*^9}, {3.7636074396359158`*^9, 3.7636074830770864`*^9}, {3.7636076263020697`*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.7636077758773165`*^9}, { 3.763607857294286*^9, 3.7636078613443317`*^9}, 3.763608605441226*^9, { 3.7638142471323504`*^9, 3.7638142487803507`*^9}, {3.7638142898908815`*^9, 3.7638143569012723`*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.7639608609270196`*^9, 3.763960872595887*^9}, { 3.764339536191163*^9, 3.7643395373935814`*^9}, {3.764339581142139*^9, 3.7643396307895145`*^9}, {3.7643397270416403`*^9, 3.764339746774886*^9}, { 3.7643759693358665`*^9, 3.764375988525555*^9}, {3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.7649058888300486`*^9}, { 3.764905919657881*^9, 3.7649059255708666`*^9}, {3.764906015807353*^9, 3.7649060798935275`*^9}, {3.7649061275007944`*^9, 3.764906182700228*^9}, { 3.7649814310038157`*^9, 3.764981612888131*^9}, {3.764981649845045*^9, 3.764981717214387*^9}, {3.7650095509166293`*^9, 3.7650095663321896`*^9}, { 3.765009596962874*^9, 3.7650096065955095`*^9}, 3.7650098165773335`*^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.7650855978395305`*^9, 3.7650856220925417`*^9}, {3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.7650865194326468`*^9, 3.765086519785918*^9}, { 3.7650865505251884`*^9, 3.7650865669896946`*^9}, 3.765087372975154*^9, { 3.7650874030551014`*^9, 3.7650874163952713`*^9}, {3.765087536684074*^9, 3.7650876355597906`*^9}, 3.7650877252914543`*^9, {3.765088672041128*^9, 3.7650887019763765`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, { 3.7650889283353214`*^9, 3.7650889447918415`*^9}, {3.765089035561446*^9, 3.7650890612584443`*^9}, {3.7650891812559137`*^9, 3.765089209061077*^9}, { 3.7650893423167953`*^9, 3.76508943243054*^9}, {3.765090684608432*^9, 3.765090700734714*^9}, 3.7650907477613907`*^9, {3.7650908366428585`*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, { 3.765091082681374*^9, 3.7650911113055153`*^9}, {3.7650911427516937`*^9, 3.7650911450258894`*^9}, {3.7650912819372005`*^9, 3.765091515369325*^9}, { 3.7650916102443376`*^9, 3.7650917517497134`*^9}, {3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.7652396904249477`*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.7652532918614807`*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, { 3.76619098699972*^9, 3.766190987925188*^9}, {3.766193820625373*^9, 3.7661938215367756`*^9}, {3.7662041564549007`*^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.7665725420953245`*^9, 3.7665725423845477`*^9}, {3.7666314737351704`*^9, 3.7666315492489386`*^9}, {3.7740882771256323`*^9, 3.774088312744491*^9}, { 3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, {3.7741511238761725`*^9, 3.7741512298519745`*^9}, { 3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, {3.7742415341727543`*^9, 3.7742416306317797`*^9}, { 3.7751898888726125`*^9, 3.775189913786336*^9}, {3.7751899486865563`*^9, 3.7751899522127523`*^9}, {3.7751899989654093`*^9, 3.7751900149868736`*^9}, {3.7751900517928104`*^9, 3.775190066570419*^9}, { 3.7879798676374617`*^9, 3.7879798943206964`*^9}, {3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, { 3.7922886672157793`*^9, 3.7922886764378495`*^9}, {3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, { 3.795768609226843*^9, 3.7957686326352005`*^9}, {3.7957686687171*^9, 3.7957686846637707`*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, { 3.7957690236098194`*^9, 3.79576902468211*^9}, {3.7957690712421293`*^9, 3.795769275801197*^9}, {3.7957693460703883`*^9, 3.795769349757367*^9}, { 3.79576972202382*^9, 3.7957697714534473`*^9}, {3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.7963459430887594`*^9}, { 3.8298913714361515`*^9, 3.829891372330407*^9}, {3.843728585368825*^9, 3.84372858844851*^9}, {3.8449958679518747`*^9, 3.8449959617306128`*^9}, { 3.845978121229767*^9, 3.845978121586933*^9}, {3.8459781752184176`*^9, 3.845978183704877*^9}, {3.8459783826308093`*^9, 3.8459784254435472`*^9}, { 3.845978956970813*^9, 3.8459791499511595`*^9}, 3.8461289015497713`*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, { 3.846309504823522*^9, 3.846309511339752*^9}, {3.8532051618832316`*^9, 3.8532051757582083`*^9}, 3.853205648810899*^9, {3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, { 3.891228490107478*^9, 3.8912284959434953`*^9}}, CellLabel-> "In[555]:=",ExpressionUUID->"cce037fc-06b7-420c-8fd3-9236077dcf45"], 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[{ 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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.7606077013285637`*^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.7606087505165215`*^9, 3.7606087536075697`*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.7606088687210503`*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.7606107473288507`*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.7606112396040025`*^9, 3.7606112817332983`*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248805995`*^9}, {3.7606118287018495`*^9, 3.7606119921793656`*^9}, {3.760612127470795*^9, 3.760612223396744*^9}, { 3.76061550773096*^9, 3.7606155085119963`*^9}, 3.760615603302456*^9, { 3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, { 3.760615988102416*^9, 3.7606160042704983`*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, {3.763426957870851*^9, 3.763426959053108*^9}, { 3.7634271873253856`*^9, 3.763427188674776*^9}, {3.7634423988211765`*^9, 3.7634424251737814`*^9}, {3.7634426334949675`*^9, 3.7634426560163193`*^9}, {3.763528275706467*^9, 3.7635284013459897`*^9}, { 3.763528705040784*^9, 3.7635287224411435`*^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.7636054326054068`*^9}, { 3.7636054757131557`*^9, 3.7636054979248376`*^9}, {3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.7636058987003956`*^9}, { 3.763606027844756*^9, 3.7636060593519597`*^9}, {3.7636061708042307`*^9, 3.763606210806114*^9}, 3.763606241472248*^9, {3.7636062752072725`*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.7636064489171495`*^9}, { 3.763606744287244*^9, 3.7636067648057427`*^9}, 3.7636070601536713`*^9, { 3.763607262857174*^9, 3.763607300007738*^9}, {3.7636074396359158`*^9, 3.7636074830770864`*^9}, {3.7636076263020697`*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.7636077758773165`*^9}, { 3.763607857294286*^9, 3.7636078613443317`*^9}, 3.763608605441226*^9, { 3.7638142471323504`*^9, 3.7638142487803507`*^9}, {3.7638142898908815`*^9, 3.7638143569012723`*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.7639608609270196`*^9, 3.763960872595887*^9}, { 3.764339536191163*^9, 3.7643395373935814`*^9}, {3.764339581142139*^9, 3.7643396307895145`*^9}, {3.7643397270416403`*^9, 3.764339746774886*^9}, { 3.7643759693358665`*^9, 3.764375988525555*^9}, {3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.7649058888300486`*^9}, { 3.764905919657881*^9, 3.7649059255708666`*^9}, {3.764906015807353*^9, 3.7649060798935275`*^9}, {3.7649061275007944`*^9, 3.764906182700228*^9}, { 3.7649814310038157`*^9, 3.764981612888131*^9}, {3.764981649845045*^9, 3.764981717214387*^9}, {3.7650095509166293`*^9, 3.7650095663321896`*^9}, { 3.765009596962874*^9, 3.7650096065955095`*^9}, 3.7650098165773335`*^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.7650855978395305`*^9, 3.7650856220925417`*^9}, {3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.7650865194326468`*^9, 3.765086519785918*^9}, { 3.7650865505251884`*^9, 3.7650865669896946`*^9}, 3.765087372975154*^9, { 3.7650874030551014`*^9, 3.7650874163952713`*^9}, {3.765087536684074*^9, 3.7650876355597906`*^9}, 3.7650877252914543`*^9, {3.765088672041128*^9, 3.7650887019763765`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, { 3.7650889283353214`*^9, 3.7650889447918415`*^9}, {3.765089035561446*^9, 3.7650890612584443`*^9}, {3.7650891812559137`*^9, 3.765089209061077*^9}, { 3.7650893423167953`*^9, 3.76508943243054*^9}, {3.765090684608432*^9, 3.765090700734714*^9}, 3.7650907477613907`*^9, {3.7650908366428585`*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, { 3.765091082681374*^9, 3.7650911113055153`*^9}, {3.7650911427516937`*^9, 3.7650911450258894`*^9}, {3.7650912819372005`*^9, 3.765091515369325*^9}, { 3.7650916102443376`*^9, 3.7650917517497134`*^9}, {3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.7652396904249477`*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.7652532918614807`*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, { 3.76619098699972*^9, 3.766190987925188*^9}, {3.766193820625373*^9, 3.7661938215367756`*^9}, {3.7662041564549007`*^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.7665725420953245`*^9, 3.7665725423845477`*^9}, {3.7666314737351704`*^9, 3.7666315492489386`*^9}, {3.7740882771256323`*^9, 3.774088312744491*^9}, { 3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, {3.7741511238761725`*^9, 3.7741512298519745`*^9}, { 3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, {3.7742415341727543`*^9, 3.7742416306317797`*^9}, { 3.7751898888726125`*^9, 3.775189913786336*^9}, {3.7751899486865563`*^9, 3.7751899522127523`*^9}, {3.7751899989654093`*^9, 3.7751900149868736`*^9}, {3.7751900517928104`*^9, 3.775190066570419*^9}, { 3.7879798676374617`*^9, 3.7879798943206964`*^9}, {3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, { 3.7922886672157793`*^9, 3.7922886764378495`*^9}, {3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, { 3.795768609226843*^9, 3.7957686326352005`*^9}, {3.7957686687171*^9, 3.7957686846637707`*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, { 3.7957690236098194`*^9, 3.79576902468211*^9}, {3.7957690712421293`*^9, 3.795769275801197*^9}, {3.7957693460703883`*^9, 3.795769349757367*^9}, { 3.79576972202382*^9, 3.7957697714534473`*^9}, {3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.7963459430887594`*^9}, { 3.8298913714361515`*^9, 3.829891372330407*^9}, {3.843728585368825*^9, 3.84372858844851*^9}, {3.8449958679518747`*^9, 3.8449959617306128`*^9}, { 3.845978121229767*^9, 3.845978121586933*^9}, {3.8459781752184176`*^9, 3.845978183704877*^9}, {3.8459783826308093`*^9, 3.8459784254435472`*^9}, { 3.845978956970813*^9, 3.8459791499511595`*^9}, 3.8461289015497713`*^9, { 3.846128946122293*^9, 3.846128968019552*^9}, {3.846129003512868*^9, 3.8461290485155616`*^9}, {3.8461291291837854`*^9, 3.846129173768606*^9}, { 3.8461293216071515`*^9, 3.846129324863345*^9}, {3.846129415192334*^9, 3.846129416208379*^9}, {3.8461294959672627`*^9, 3.8461295654972105`*^9}, { 3.84612986121124*^9, 3.8461298706686964`*^9}, {3.8911409391579266`*^9, 3.8911409429731197`*^9}, {3.891396284929349*^9, 3.891396311010934*^9}}, CellLabel-> "In[573]:=",ExpressionUUID->"912a96c9-f5e7-48a2-9e80-cf004d2e4138"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"solid", " ", "elements"}], "*)"}], "\[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]", "\[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]", "\[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]", "\[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.6336741996717005`*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.6336919775979815`*^9}, 3.633692380551029*^9, {3.6336927116599674`*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.6353108343419433`*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.7326759806780663`*^9, 3.7326760008674326`*^9}, {3.7326760331212645`*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, { 3.732684306221466*^9, 3.7326843382153635`*^9}, 3.7326844699232764`*^9, { 3.7326845133861027`*^9, 3.73268452322455*^9}, {3.732759973190983*^9, 3.7327599776758347`*^9}, {3.7327613720703106`*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.7327615404943867`*^9}, { 3.7327615972663317`*^9, 3.7327616122832594`*^9}, {3.7327616693361855`*^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.7327705708254137`*^9}, { 3.732788507552166*^9, 3.7327885085870132`*^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.7327890791192408`*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.7327891358892384`*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.7334931331412554`*^9, 3.7334932071522064`*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.7334936319789553`*^9, 3.7334936623392687`*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.7334937687375154`*^9, 3.733493799379287*^9}, { 3.7335602963276734`*^9, 3.7335603891038685`*^9}, {3.7337039222525787`*^9, 3.733703929721642*^9}, {3.7337040222462597`*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.7337110885786676`*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.7337113240271106`*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.7337114809469175`*^9, {3.7337115173918333`*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.7337116342722664`*^9}, { 3.733711689751358*^9, 3.7337116969119487`*^9}, {3.7337129879879694`*^9, 3.7337130014112797`*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.7337132483436465`*^9, 3.7337132496094065`*^9}, {3.733713283003566*^9, 3.7337134200180254`*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.7337135777847366`*^9, 3.73371367154463*^9}, {3.7337140009857264`*^9, 3.7337140458967295`*^9}, {3.733714091198394*^9, 3.7337141070440063`*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.7337219813629093`*^9}, {3.733722281191476*^9, 3.7337222944429536`*^9}, { 3.733722382186266*^9, 3.7337223828425617`*^9}, {3.7337224624293957`*^9, 3.7337224858690815`*^9}, 3.7337225537825146`*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.7337228267499514`*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.7337232377777586`*^9, 3.7337232408874655`*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.7337244099801674`*^9, 3.733724433076069*^9}, {3.7337245236325226`*^9, 3.733724524679802*^9}, { 3.7337873724058084`*^9, 3.7337873841879997`*^9}, {3.7337879154409466`*^9, 3.7337879158316607`*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.7340650184820967`*^9, 3.7340650196896086`*^9}, {3.7340717757289314`*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.7606077013285637`*^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.7606087505165215`*^9, 3.7606087536075697`*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.7606088687210503`*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.7606107473288507`*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.7606112396040025`*^9, 3.7606112817332983`*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248805995`*^9}, {3.7606118287018495`*^9, 3.7606119921793656`*^9}, {3.760612127470795*^9, 3.760612223396744*^9}, { 3.76061550773096*^9, 3.7606155085119963`*^9}, 3.760615603302456*^9, { 3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, { 3.760615988102416*^9, 3.7606160042704983`*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, {3.763426957870851*^9, 3.763426959053108*^9}, { 3.7634271873253856`*^9, 3.763427188674776*^9}, {3.7634423988211765`*^9, 3.7634424251737814`*^9}, {3.7634426334949675`*^9, 3.7634426560163193`*^9}, {3.763528275706467*^9, 3.7635284013459897`*^9}, { 3.763528705040784*^9, 3.7635287224411435`*^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.7636054326054068`*^9}, { 3.7636054757131557`*^9, 3.7636054979248376`*^9}, {3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.7636058987003956`*^9}, { 3.763606027844756*^9, 3.7636060593519597`*^9}, {3.7636061708042307`*^9, 3.763606210806114*^9}, 3.763606241472248*^9, {3.7636062752072725`*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.7636064489171495`*^9}, { 3.763606744287244*^9, 3.7636067648057427`*^9}, 3.7636070601536713`*^9, { 3.763607262857174*^9, 3.763607300007738*^9}, {3.7636074396359158`*^9, 3.7636074830770864`*^9}, {3.7636076263020697`*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.7636077758773165`*^9}, { 3.763607857294286*^9, 3.7636078613443317`*^9}, 3.763608605441226*^9, { 3.7638142471323504`*^9, 3.7638142487803507`*^9}, {3.7638142898908815`*^9, 3.7638143569012723`*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.7639608609270196`*^9, 3.763960872595887*^9}, { 3.764339536191163*^9, 3.7643395373935814`*^9}, {3.764339581142139*^9, 3.7643396307895145`*^9}, {3.7643397270416403`*^9, 3.764339746774886*^9}, { 3.7643759693358665`*^9, 3.764375988525555*^9}, {3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.7649058888300486`*^9}, { 3.764905919657881*^9, 3.7649059255708666`*^9}, {3.764906015807353*^9, 3.7649060798935275`*^9}, {3.7649061275007944`*^9, 3.764906182700228*^9}, { 3.7649814310038157`*^9, 3.764981612888131*^9}, {3.764981649845045*^9, 3.764981717214387*^9}, {3.7650095509166293`*^9, 3.7650095663321896`*^9}, { 3.765009596962874*^9, 3.7650096065955095`*^9}, 3.7650098165773335`*^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.7650855978395305`*^9, 3.7650856220925417`*^9}, {3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.7650865194326468`*^9, 3.765086519785918*^9}, { 3.7650865505251884`*^9, 3.7650865669896946`*^9}, 3.765087372975154*^9, { 3.7650874030551014`*^9, 3.7650874163952713`*^9}, {3.765087536684074*^9, 3.7650876355597906`*^9}, 3.7650877252914543`*^9, {3.765088672041128*^9, 3.7650887019763765`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, { 3.7650889283353214`*^9, 3.7650889447918415`*^9}, {3.765089035561446*^9, 3.7650890612584443`*^9}, {3.7650891812559137`*^9, 3.765089209061077*^9}, { 3.7650893423167953`*^9, 3.76508943243054*^9}, {3.765090684608432*^9, 3.765090700734714*^9}, 3.7650907477613907`*^9, {3.7650908366428585`*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, { 3.765091082681374*^9, 3.7650911113055153`*^9}, {3.7650911427516937`*^9, 3.7650911450258894`*^9}, {3.7650912819372005`*^9, 3.765091515369325*^9}, { 3.7650916102443376`*^9, 3.7650917517497134`*^9}, {3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.7652396904249477`*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.7652532918614807`*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, { 3.76619098699972*^9, 3.766190987925188*^9}, {3.766193820625373*^9, 3.7661938215367756`*^9}, {3.7662041564549007`*^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.7665725420953245`*^9, 3.7665725423845477`*^9}, {3.7666314737351704`*^9, 3.7666315492489386`*^9}, {3.7740882771256323`*^9, 3.774088312744491*^9}, { 3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, {3.7741511238761725`*^9, 3.7741512298519745`*^9}, { 3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, {3.7742415341727543`*^9, 3.7742416306317797`*^9}, { 3.7751898888726125`*^9, 3.775189913786336*^9}, {3.7751899486865563`*^9, 3.7751899522127523`*^9}, {3.7751899989654093`*^9, 3.7751900149868736`*^9}, {3.7751900517928104`*^9, 3.775190066570419*^9}, { 3.7879798676374617`*^9, 3.7879798943206964`*^9}, {3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, { 3.7922886672157793`*^9, 3.7922886764378495`*^9}, {3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, { 3.795768609226843*^9, 3.7957686326352005`*^9}, {3.7957686687171*^9, 3.7957686846637707`*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, { 3.7957690236098194`*^9, 3.79576902468211*^9}, {3.7957690712421293`*^9, 3.795769275801197*^9}, {3.7957693460703883`*^9, 3.795769349757367*^9}, { 3.79576972202382*^9, 3.7957697714534473`*^9}, {3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.7963459430887594`*^9}, { 3.8298913714361515`*^9, 3.829891372330407*^9}, {3.843728585368825*^9, 3.84372858844851*^9}, {3.8449958679518747`*^9, 3.8449959617306128`*^9}, { 3.845978121229767*^9, 3.845978121586933*^9}, {3.8459781752184176`*^9, 3.845978183704877*^9}, {3.8459783826308093`*^9, 3.8459784254435472`*^9}, { 3.845978956970813*^9, 3.8459791499511595`*^9}, 3.8461289015497713`*^9}, CellLabel-> "In[585]:=",ExpressionUUID->"7581a490-5a6a-4b12-9929-226eb407c91b"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Solver operations", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^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.5568725291398897`*^9, 3.5568725438967333`*^9}, 3.5568726929512587`*^9, { 3.5576544837556367`*^9, 3.5576544886852455`*^9}, {3.6852489036101027`*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}, { 3.813031714323161*^9, 3.813031718925788*^9}, {3.813031758195632*^9, 3.8130317648033185`*^9}, {3.813032384726508*^9, 3.813032390240255*^9}, { 3.814583256251114*^9, 3.8145832796753936`*^9}},ExpressionUUID->"ff4fd310-395d-483b-a385-\ 9262eaf541db"], Cell[CellGroupData[{ Cell["PROBLEM DEFINITION ", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.814581757873322*^9, 3.8145817683796015`*^9}, { 3.8145827110916595`*^9, 3.814582721061996*^9}, 3.8145828979712915`*^9},ExpressionUUID->"1c2ad8e4-55df-4d57-9f3c-\ d5df39881552"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQdYFMf7x+kKYq8I1thj16jYjV1jF7GLPRpFxV7/NmJs2HvBiB0L2MWK ijWigIQmKALSe2/H/5WF/W3mTupxBb6f58k9c7Mzs7OHuc+9s7Mz9aYtGDlL TUVFZXFpehk5dXkvM7OpK0dVoDdGpovnzDadOWOg6ZKZs2eadZqmTpk1qewq +u97OgMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAIIHkwDcXts4f3aNFncplNNXUNHQq1W7R03jxfjufeHl3DQAAAFB+ RCFP/vytvraKZMo0m27tmyrvPgIAAABKTer7Nc3Vv3tVs0rL32av3XXs79OW B/5cMLxFRbUs4ZbtfdAnXd7dBAAAAJSY1DfLm1RsPm7Hvc//HTNO/mQ5ooZq pm412m9xT5NT9wAAAIDigCguMipF0oHUd6uaZka9KhWn3EyWdbcAAACAkkD6 lz3dNL/LVlXv94ewLQAAACB9RKHnR1XMHErW/e1UsEje3QEAAACKHfFuJ0bV yhxH1mgw72GMvLsDAAAAKD/pEV6vnz9/9uzpk/s3zh9cP+PXejqZd2xL1x99 xCVB3r0DAAAAigHJdjOrq/73QVvVsg0HLD7/b5y8uwYAAAAUE1L/WdNcS8La FuoVmo1Yf/MzpkgBAAAAUiQ9OS7M1/nxhR2ze+hn+Ve9xqBD/ybJu2MAAABA MUQU/nRlB11OuDrddnlifQsAAACgCEj5sK6lBrecVKuNLtAtAAAAUASkPPnD gFsuucKkGxhMBgAAAIqA5HszqmXOVVatieWkAAAAgKIg8blZQ26l5NL9jgVi OSkAAACgIKT7Hh76c58Fx576JbKHUr7azmnObXurWnnUOazdCAAAABSMNLct 7TPnQWlUbNJ74qJNe479febMqSM718zs36hc1ga3atWHnvTBFCkAAADFkx07 dpDs/P3909LS0tPTRSKRnZ2durr6/fv36ShlUk5wcDCVoZIFPEeKy/5BtUpJ WNgie0Wpnycdd8GCUgAAAIotr169Mjc3j4mJcXR0XL16dWBg4KdPnzZs2ODl 5RUQELBq1ar379/HxcVt3ryZShbiPEnfXl+yWDJpYKemBpV0NNVU1bR0q9Rp 0X3k3D/PvwmSuPUtAAAAUFxISUlJSPi+JcD58+fLlCnj4uJCOaGhoZRJnqUc yqfwloRL+fLuLAAAAKCUcCPJwcHBqampsbGx6enp9+/f50aSKR0VFUWSpaOq qqoFH0kGAAAASjZv3rzZunVrdHT069evFy5cGBAQ8OXLFxKrt7f3169fTU1N 3759Gx8fv3Pnzn/++UfenQUAAACUkpiYGD8/v4SEhAsXLtSsWdPV1TUpKcnf 35/i3A8fPujp6V2+fJmC3KCgIHKuvDsLAAAAKB+pqanbt29XV1cPDg5OTk4O CwtLSUm5e/euqqqqnZ1dWlpaeHg4iZjkS2UovJV3fwEAAADlg4JWCmCPHj1K Sn3x4sXUqVN9fX2/fv164MCBz5lMmzbt+fPncXFxVOb9+/eKMFFq7969IpEo OjqaOkORePny5R88eEA/DCiHLsfa2ppyvn37Rj8eKIfKb9iwoW7dupSga6SA nRLGxsaDBw+mBF0XN0OsRYsWS5cupQRVodCeilEjlpaW1CDl0G+S169fUw69 Upo7ER2lHCpJ5bkTUQvUDnciapkSdBY6FyWoGHci6gn1hzsR9ZD6SY1Qn7kT 0VXQtVAOXRddHeXQldL1yueDBgAAICU4bZFe6Xv+6tWr5IJ///2XvPDp0yfK d3JyohzKp6NUJiIigswi7y5/JyQkREVF5fTp03zOw4cPKYd+D/A5u3fvphzq OZ8zffr0Jk2aCNvp0KGDkZGRMEdbW3vjxo38W/ocqJFr167xOZSmHMrnc6g8 1RI2Qm1Sy8IcOi+dnX9LvaJGqId8DvWccugq+By6OsqhK83hcwAAAKAscHOS AwICUjOhHDs7O24kmVxMeiU1BAYGqqmpKchI8v379xMTEw8dOuTh4UHdnjNn DkWC/v7+lBMaGvr27VvKiYqKcnZ2phy6BBsbmyVLllDFx48fnz9/nhIHDx60 sLCgxJUrV+gyKbF69eqLFy9S4tixY//88w9dNTXy7Nkz+slBjfj4+Hh7e1MO vVKaciifjlIOlaTyVIvqUgvUTkbmB0gtU4LOQufKyHy6is5OCeoJ9Yd6RY1Q D6mf1Aj1mXpOOXQVdC2UQ9dFV0c5dKXcMiMAAACUGhcXlxMnTsTHxz9//nzy 5MlfM9m/f7+vr++XL1+mTJny9OnTmJgYKysrKikMFeXFkSNH0tPTqZPUZ3d3 99q1az958oSsRzkpKSnkMsoJCgqiPlMOld+6dWvLli0pER4e/u3bN0pMnTp1 zJgxlKBiYWFhlOjcufPatWsp4efnRyaNi4ujRs6ePUs/P6gRCvZJqZRDr5Sm HMqno5RDJak81aK61AK1Qwlqk1qmBJ2FzkUJOi+dnRLUE+oPJagR6iEVo0ao z9RzyqGroGuhHLouujrKoSul65XPBw0AAEB6kBooniKN2traNm7c2M3NLTIy 8sWLFxEREf/++2+TJk0oTKMIy9PTk5tDJe/+fgcjyQAAAJSLvXv3litXjr7V udUtKHa7detWqVKlHjx4QDmBgYGk2uDgYMrZtWuXvDv7nZs3b1IMeO7cuc+f P1P0N378eCcnJwoSKYd+ITg4OFAOJSg8pByRSHThwoVZs2ZRxdevX1NdSmzf vn3Tpk2UuHfvHkX0lDA1NT116lRG5mgwhfB0ydQIuY8+EGqEQlf6sUE59Epp yqF8Oko5VJLKc6PQ1AK1Qwlqk1qmBJ2FzsX1mc5OCeoJ9Yd6RY1QD6mf1Aj1 mRKUQ1dB10I5dF10dZRDV8r1GQAAgFJDsjh58mRMTIy9vf3EiRPpS56EQjn0 +uXLl8mTJ5M7SMGkko8fP8q7s9+xtLSk2JC6TTG4l5dXixYtuFnTnCVv375N OfTzgCJxyqHye/bs6dq1KyX8/f1Jl5SYN28eN8BLISo32ty/f/8///yTEnSN VDc+Pp4asba2Tk5Opkaio6M/fPhAOfRKacqhfDpKOVSSynOfDLVA7WRkjhJz wS+dhc5FCTovnZ0S1BPqT0bmx049pLrUCPWZszZdBV0L5dB10dVxQ/d0vXL5 nAEAAEgRUur9+/fpe55iqM6dO9P3PMVZjx49IhdQulevXhSmUYT19OlTzheK AEaSAQAAKBd79+4tW7YsfauTcMm8KSkppNpy5crRK6Uph/JDQ0OrVavGTa+V O1euXKHQ8tatW2R/6t7gwYPfvXtHvw0ohwLPJ0+eUA69pSCdckQiEUXlY8eO pYrOzs50NCPzCdwVK1ZQwsHBwdHRMSMzCD106BAl7ty5Q78xKJanRihNoSs1 EhQU5ObmRjn0SmnKoXw6SjlUkspTmupSC1zITG1Sy5Sgs3BP19J56eyUoJ5Q f6hX1Aj1kPpJjdBR6jnl0Fu6Fsqh66Kroxy6Um56MwAAAKXGw8PD2tqaold7 e/tRo0a5u7t//fqVvuGDg4N9fHwGDBhgZ2dHwqUcKkmakHd/M86dO0c/A54/ f06/ELy9vbt27fr69euoqChuPJnidMqhnwcBAQHcPdkjR44MGjSIEqRFchkl li1bxg3wfvjwga6XEqNHj+buSr948YKbhEyN2NraJiYmUiPh4eEuLi6UQ6+U phzKp6OUw01RplpUl1qgdihBbVLLGZlD1nQuStB56eyUoJ5wc4ypEeoh9ZMa 4cYWKIeugq6Fcui66Oooh66Urlc+HzQAAADpQRHW3bt3KYZ68OBB//79XV1d yQL37t2jOOvTp0/du3e/ffs2hXKUQyUVwbYZGEkGAACgVJA99+zZo6ury40k UzDLaZf0wS2HSMEXhb10tGrVqgcOHJB3f7+D2BYAAIDSQWEaiYO+7e3s7AYM GEDCJQXcvHmTvu0pTXbgRpIph3yhCKtb4L4tAAAApcPT05O+z8mnFMwOHTqU DBscHGxjY8Pdt6Vvfi7yohwPDw+sboGRZAAAAAVg37595cuXp2/1xMREbi0L CmbLli1L3/zkVoq/SLXcSPLevXsVYVcCPG8LAABAuaAvc29vb26WFL127tyZ vBAaGkrf/+QCOtS3b9979+6RC16+fBkQECASid6+fSvfPmMtKQAAAMoF2dbV 1fX8+fP0rf748eNhw4bRl/y3b99Onz5NsRilJ0yYYG9vn5CQcOPGDZIvVVFR USEpX758WY73cDGSDAAAQImgr/1Dhw7VqlWL4llSKrfv3qNHjypUqEDRGeVQ tEXhGx01MDDgJtOqZFOnTh0LCwtuI3VZgj2AAACg2DN+/HgVBaOQc1a5521J IqTX3r17UwBLXrCzs+NWbuzZs+edO3foKCmYkxdzdl1dXVNTUy7szQvJyckU LO/Zs2fcuHHNMzExMaE+5L3D2N8WAACKPcXPtu/fvz9w4AA3P4fER0ql7/yj R4/SK6UnTZpEcqQozNLSkpt0RJbU19dn+qCqqjp8+PCnT5/mcCKK7+bNm1ep UiXxS1BTU9uwYUNo3sjASDIAABR3ipltKcgi1VarVo0sRnEWBVYUTJFeDQwM 6JUCN8qhUDcwMLBhw4bHjx9PT0/n9ubr0qWLRG+2bdvWyspK/EGhJ0+elClT RirXu3fvXuo2RZd0Fupe+fLluYU4KIe6Z21tTTlkdgqiuVFu8njdunUpQRF6 bGwsJYyNjQcPHkwJ+o1BmZRo0aLF0qVLKUFV6KqpGDVCPzCoQcqh6339+jXl 0CuluRPRUcqhklSeOxG1QO1wJ6KWKUFnoXNRgtvKkBLUE+4JXKpCPaR+UiPU Z+5EdBV0LZRD10VXRzl0pXS9Bf77AgCAkuLg4GClYHADvAWDvt65ebAkkTt3 7nTq1MnDwyMiIuLFixeU7+zsTDm3b98mL1Dcyt2dbNWqlfDTIDVQYMsIUU9P z9zcnLslSlALWlpaUlFtsWTBggWF/GcJAABAkaGQytHR8eDBgxR5vXr1atas WeRuX1/f/fv3e2dCOWReitSozPv37ynUunHjBlXclgkl6O3ly5fNzMzEfVq6 dOmZM2dywRpzSEdHh8LAOnXqyEpoCg1sCwAAxZ7du3dra2sHBwdHR0e7u7tz mwHp6+tzI8lubm7cSHLTpk2PHz9OITA3o2l6JhmZk6y4ib6GhoZDhw6tX79+ zmb56aefbGxs+NupPj4+o0ePFhZQV1c/fPjwnZIEfcjy+/sDAIDSQwqTdxdy Jygo6J9//qHo1dbWtn379p6enjExMZTDrcXUrl27W7dupaSkvH37lnuqRTiS zL2dNGkS/5aCZTLmj5xLhSMjI8X7wNwNr1ixIjcjCwAAAMiZ0NDQRYsWybsX uUNi5R6bffXq1cKFCwMCAr58+bJjx45Pnz75+vpSDhWIj4+nMm/evKGY9NGj RxmZU4+42T70lgpkZD7Eyi3HdO3aNS8vr6dPn9aqVUtNTU2oUScnJ4l9CAkJ YW7+VqlShVvGHwAAAMgBKysr0o2CbAj7I6h7R44c4Va3oJCWAlvueVg9PT16 pTQ5NzY2luJcCle5xz+5NYHnZ5KRubAw97DtgAEDuBWAScqBgYHh4eEdOnSg TF6gTZs2zaEn4oEwhAsAACBXxowZQ8rg4j5FJigo6N27d6mpqba2to0bN3Z3 dye9fvjwgV4p3ahRo8uXL1Nsy81VzshtJDkj05sUGnPp2bNn8/b89ddfc+iG xJHnypUrQ7gAAAB+REpKSrly5cgXq1atkndfcoIk+/Lly61bt5JPyblLlizx 8/Pz8vIyNzeniDUgIIByKFalsHfv3r3cVuzc6vrLM+Heurq6ZmRuyM6tMfjw 4UNfX9/IyMjevXuPGzeOV6e+vn4OPZFoW064Pxp/BgAAUMJ58uQJJwtm8SJF IyEh4dixY82bNw8PD6dglhs3fvDgQZ06dbg5yeRcyqGjrVu3/vvvv9PT0/Nl 2/Xr1wvVye2MIw75XViMWTcDwgUAACCRxYsX87JQ8Oc7KIB1cHCgYPz69etN mzZ1d3enSNbxvSO9UppyKJ/bmC8iIoJsm/eR5H///Xf69OlCb9avX59belGI SCQaNGgQX0ZVVZWqk2EZ/3748KGoPwoAAADKBYW0vCm4bcoVlufPn69ZsyYu Lo50Rolv375RpPl/6/+P4tzAwMDVq1e/e/cuOjr6r7/+evnyZWpqaq6zpKjY yZMnu3fvLnFkuFGjRlSAP3tUVJRwtJkYOHCgkZFRmzZtateuDeECAAD4EdxS 9jzt27eXd49ywsrKinoYHh5OoSvpjNueoHXr1i9evEhISCDVBgUFkYLbtWt3 6tQpbj++jB88AbR//36SctWqVSV6Vgi1P2XKlKFDh5YtW1aYr66u7uLikpbJ 58+fxYUr3HcAAABASYZCPEYuhVnKuKghmb59+5Y0euPGjebNm3t4eERGRpJw 6dXT05NEfPPmzZSUFH9/f25Jf4kjyY6OjiYmJqVKlWIuXFNTM1fzCuE2C+DZ uHEjM6RcsWLFkiXcNLd9A/R1NVVV1Uvr9d3jmppj4UTnAyObVCqtrqqqUaaW ybUoGfURAADkQt++fRmJKPI2Lk+fPl2xYgWZ1NnZedOmTRTGuru7r1q1ysvL Kzg4ePPmzZQfExOzcuXKx48fk3aFKzfSW7o0MrK4N/X09MiV5HE+J9c9gHr1 6tWmTRth37g9dJgIl4RLcpfPhyV7RIHHB+hkXblavQVPk35cMvLRgqbZa1Vr /DT7TrhCP+oNAACFgsQkHtD16NFD3v36IefOnevcuXNERERISAgX0r58+fLX X3/9559/SMGPHj2i4DcsLKxx48aHDx+Oj4/ndiVYu3Yt/aioUaOGuDS7dOly 8eJFCpap2JcvX/j869ev9+7dW6Jnf/755xz2TKdGmP0LSLjc40glAFH4hdEV stbZUtOfZRcvuVj6t8vja2Uv3KXbcePbH5QDAIDiwdWrV8VtoqqqKj4XV0EI DAzktm21sbFp0KCBm5sbSdbJ2Ylb3YIka2trm5aW5uLiwu2gR2XGjh2roaHB XGPp0qWnTZvGDPMKbcvtNW9lZcXU1dfXHz16tLAWxcvr168X5kyZMoW5HVyh QoWSItzYW1NrZOlWteok2xgJRVK9Dg+onF2m+jBLnzSZ9xIAAGQKGUdi+Hbi xAl5d00yjx8/XrRoEbnV1dV1+/btFOGSZBcsXPDvv/+SiHfs2PHx48eoqKj5 8+c/fPgwQ9IyFHXr1t22bVt4eLh44+K2zZC03a2Ojo5wt4Jly5aZmJgI2xk4 cCBF03SiEincpKcL6mWFraoVRl8QGyFOeLepY/YovVaTeXYYQgYAFHPS09Or V68u0bbM/B/F4cKFCz179uRGkh0cHOLi4l69etWpUydKk2SfP39Ozg0ODm7f vj2FpRn/tW2fPn2uX79OV/2jxiXaNkOScNu2bcutDJkDvr6+9erVY4Sr+Gtj Fp7U92ubq2ddsu5vp4KFNhVFPjRtmnXrQrV8t+1OiXLrJgAAyAj65peoWpXM 2bkxMZIGAeUNPyfZ1ta2UaNG3OoW79+/51a3oBwbGxs66uziHBr2fTD8+xe+ ru4ff/xBR3Nt/Ee2Je7cucMIt1atWsOGDROWobMwQ8r0M6BatWolTrhpnts7 ZX9W2r0P+fE/b9K/WY83yIp71fSNL/j98IcPAAAUH5iFChkuXrwo7w5K4OHD h6amphRXuri47NixgyJcDw8PMzMzNzc3Cml37tz58ePH6Ojo1atXP3v2jMrv 27cv7z8bcrAtcffuXeahocqVKwsj3GXLlm3dulVYZejQocePH2ci3PLly9MP hsJ9DApOuv+RftlTk7U6W3zipJrqeah/9u3a0i2XPI3GEDIAoETQrl27HGw7 ZswYeXdQApcvX+7fvz+J1dfXl+LN78s2OjoOGjSIAsaoqKh79+75+fmFh4cb GxvnPGgskZxtS1D7jHDbtGkj8RawkK9fvzIb1hd74YrCzo/Knpqs0Xaza1pG RsI/Gztk3a5VrdR3n1uyvPsIAACyIDAwMAfVqmQ+cJqYqFh31cieAQEBr169 Sk1NvXnzZqtWrbjVLSiMpVcvL68OHTrcvn07JSXlg9MHKhkfn78HS3K1bYYk 4VatWpUZUu7WrZtwAcygoKC6devq6ekxwn3z5k0BPgQlIfamSfbUZPVmq/8J eTi/SdbtWvW6U2yCENYCAEoIJ06cyNm2BBlN3t38DyKRyM7Obvbs2dHR0e7u 7vv27SORubq6LliwgN6Ghobu3bvXzc2NAt65c+dSybS0/D1akhfbZkgSbs2a NYUR7qpVqygG59/SL4E5c+ZQJM5EuOXKlSvGwk16alqPv0Xbtq1eVlqn/dpX sfLuGwAAyIwRI0bkattp06bJu5ssV69e/e233yIiInx9fa9duxYWFvbu3Ttj Y2MnJyeSmrW1NRmTjg4ZMoSO5rfxPNqWIJWXLl1a+FlRoJ3rkLKfn99PP/3E CJfbE7AYkvp+DT81OQvVqoOPfcp5OUcAACheLFq0aEY2bdq04b8Qu3Tpwuev XLlS3t1kIWHZ29snJiZS3N2+fXtPT09y65MnTyiwpfC2c+fO169fp9j2xYsX 3759y2/jebctcf/+fUa4urq6zMIX2trawmUwSaxUxcDAgBHuq1ev8ttVZUA4 Nfk7mg1/vxOKIWQAQMlF+CjQv//+K+/u/JDk5OTbt2/PmjUrOjqaPHvkyBF/ f39HR8fZs2e7urqScA8fPkzO5UZuc1hc8Ufky7bEgwcPGOHWqVOHW8OKw9zc XBi6Um8p5+3btw0aNCgBwo1xWN5KMOCu3nK9E+JaAEBJRllsm5SUZGNjM378 eLLt58+fz58/TwHsmzdvKMfZ2ZmC3DNnznh7e5NtJ0+eTF4WifIXSeXXthmS hNuyZUsfH5+EhAS+DHWD+paSkiI8EXMPt2zZssVLuOnfLk+o/d+BZPVGS19h JjIAoASjLLYlSK8vX74kc926datNmzbMSHLHjh1JxzExMR+cPgQGBQoFlxcK YNsMScLV1NSk4JovQCEtZVpbW/M5lFbJXEOSEa5w53qlJunjrl5ZTwCpVqhc Mcu6ajVn3o2Td9cAAEBuKJFtb968OXbs2PDw8E+fPlEkS2Gsi4vLxIkTKbal zL///pvyZRnbcjx8+FBbW1uozgYNGvA7O8THx586dYoaF56IcqirDRs2ZIT7 4sWLfPVZARFFPl70c9YQsnq9abbvD2cvdaFaUcK6yQAAUFJQFtuSPa9fv25k ZBQWFubt7X3x4kUSq5OTE/mXbEvps2fPfv78OSoqytjYmNtrL18U2LbEo0eP GOG2aNHC3t5euJsSaZf6KXwKmH4qMNvzKb1w076eHV0z63Gf0i2XPY/JEIWe GV4u6/J0+hz6iuUaAQAlFGWxbWpqqp+fn4ODQ0pKyt27dw0NDT09PUln9+7d I/96eXl17tyZ8ukoudLf3z+/7RfGthmShEts3LiRL/Dy5UvKEQ4XW1hYUE6j Ro2EVXR1dZVWuAnv/+pSNiuQLdd9hwu3nXzU1fHZSzZqtvvzX2ywBwAomSiR be/cuTNz5syYmJhPnz6dPHkyODj4w4cPU6dO/fjxY3h4+PHjx11dXUNCQszM zB4+fMjtEZ93CmnbjMwNARnhkkmpP9xRCrrv379Pr3x5X19fyvn27Zu4cOlH RQE6IFdEYXfnNMre4Kf6sFNfeK3G3Zmhl72yVMMlLzFXCgBQIlEW26anp1MY yz0BRJHssWPHyLbOzs7kX5IshbdHjhwh7VK0u2zZMhKf7G2bIUm4zZo1O3/+ fGBgIF+G0vSzISkpic+h09WqVYsR7vPnzwvWB7mQ6n1ySLVspdaffjNEeINW sLKUas0ZdzBXCgBQElEW2xLe3t7Xr18nTz148KB///4+Pj4UOdrY2AQFBZF/ BwwYQCFtcnKynZ2dcFZSHpGKbYknT57o6Oio/BeKu/kC3Jxk4Vg3BeN6enqN GzcWVilTpozSCDfu9fpfsveIL91q+XN236WUtyuaZE1NVq0w6nwY5koBAEoe SmTb27dvT5o0iXve9uzZsxERERTb8nOST58+7enpSUHulClTKHjMb+PSsi1h b2/PCLdJkyYUiXNHY2Ji3NzchKE3HaJfCxTzUjHlE64o+PrU+hpZLi3ffefH JPEyaR83tckqoqLd+yDmSgEASh5KZFsKaefOnUu28vDwOHDgQGhoKHV43rx5 JC9uVwJXV1dS8Pz58ynIzW/jUrRthiThUui6c+dO3rkZmXOSjx07JqxFYS+z tCMJl9urV1FJcT/QL3sSlGr14X9/kTwLKv3Tzs7ZCzlqtjN3xVwpAEBJQ4ls SwHg1atXuZHkvn37ent7UyRLYSy9+vj49OvXj/KTk5Nv3bpFb/PbuHRtmyFJ uAT1jS/AzUkWVjEyMmrXrl3Tpk0Z4UqlP0WAKOb58tbZt6nV68+49eOVkNP9 DvfhSzZc/AJzpQAAJQxlsW1aWhqpysTEhBtJPnfuHEn2/fv348aNc3JyopD2 7Nmznz59Cg8Pnzp16t27d/PbvtRtm5E5/YlcKVRnkyZNgoKCuKP0w4DidGH5 hISE+Ph4KqAUwhUFXplYK3t9xtKtVzjkuJmeKOT00KzHg1RU9WbeS8ipMAAA FDuUxbbp6elPnjxZunRpbGysq6vrjh07yErUYTMzM3d395CQEMr5+PEjuXjl ypUFGH0tCtsS1BNGuPXr11+yZInQs/fu3aM4V1iL3urr6wtrUZhMwbK0eiUN 0r8eG1xFS41C1dKVm4455pZrtBp9z/Tn8pqqKqrqOrXGn8ee8gCAkoWy2DYj c07yjRs3uFnHPXv25CJZStMrHerdu/f9+/dTUlIePnz49evX/DZeRLbNkCRc NTU1isr5AqtWraJgVlilT58+RkZGzZo1U2zhAgAAyCvKYtvU1NRr166NHj06 KirK19f30qVLYWFhjo6O3B5AlEk5Hh4eAQEBlHPz5s38tl90tiWeP3/OCLdx 48bCh3AlEhwcLC5cCvCl2zcAAAAyQFlsm56e/ujRo8WLF/MjyWQrNze3JUuW cCPJFhYWTk5OoaGhlFMAJRWpbTMyhaurqytUZ61atSZMmCAsc/jw4S1btghz 5s2bxyx8AeECAIAyoiy2zRCMJD98+HDgwIE+Pj4U/V2+fJm0S4eGDRtGGkpK Srpy5Yqnp2d+Gy9q2xIODg6McLW0tL59+8YXWLhw4bhx44RVevXqtXbt2p9/ /llYS1tb+/Hjx0XRQwAAAEWEstg2JSXF1tZ27NixUVFRZMaLFy9SgoJZY2Nj eqU0HfXz84uOjp40adLt27fz274MbJshSbiNGjUSClciFLk3b96cES5F+kXU SQAAAFJHWWyblpb2/Pnz9evXx8XFOTs7b9q0iQJbimGXL19O3Q4ICNi+fbur q2tsbOyKFSsKoEvZ2JZ48eJF2bJlheqsXr36qFGjhGXMzMz+/PNPYU7v3r1r 164N4QIAgJKiLLbNyN40hxtJ5tZJDgoKunDhAiXIs9xIcmJiopWVVQEuRGa2 zZAkXHpLPxj4AgsWLKCfE8Iqffv2tbS0bNGiBSPcAqyaBQAAQPYoi21Jsteu XTM2NuZGkkmyoaGh79+/59ZJjoyMvHTp0ufPnykxYcIEW1tbKp+v9mVp24zM 7W4Z4TZs2FAoXInQJTPCLV26NIQLAACKj7LYNi0tzd7eftWqVdxI8saNG799 ++bp6blu3bpPnz4FBwdTjpOTU2xsLEWFDg4OVD5f7cvYthmShFuhQgVmSJlC 2u3bt/NvuWeC6tWrxwj3wYMHMugwAACAAqMstiXc3NzOnj2bmJhINjQyMiI/ BgYGnjt3jl4pTZ4iHSclJdnY2JB/89u47G1LvHr1qly5ckJ1Vq5cmdmM7/z5 8/zbiIgIExOT+/fvt2zZkhEuZcqmzwAAAAqAEtm2SJGLbYnXr18zwv3pp5+E wpVIWFhYq1atIFwAAFAWYFsOedk2Q5JwtbW1x4wZIyxTqVKlgwcP8m/fvn1b oUKFRo0aMcK1s7OTZc8BAADkEdiWQ462zZAk3GrVqvn5+fEFVq9e7eDgwL/9 +vUr5Tg7O7du3VpYq1SpUhAuAAAoILAth3xtS7x586Z8+fJCddavX9/Lyys1 NVVYLDExMT09nX8bGhrKDCmTcO/duyfz7gMAAMgJ2JZD7rbNyBwfZoSrrq4+ c+ZMvoC/vz9lWltb8zmUphxmaUcSbgF2+AUAAFB0wLYcimDbDEnCrVmzJr+B YFxc3KFDh7y9vfnylKYcPz+/Nm3aQLgAAKCwwLYcCmLbjMy/CCPcevXq2dvb R0ZG8mUSExO9vLzolc/5/PmzeIR7584deVwBAAAAFtiWQ3Fsm5H5R6lQoYLK f1m7di1f4OXLl5RDr3yOhYUF5bRt21ZYRUtLC8IFAABFALblUCjbEu/evWOE a2BgQJ3kjkZERFy/fp1e+fLe3t6UQ/GvuHALsCMSAAAA6QLbciiabTMkCbdu 3boXLlwICQnhy1D6yZMnwkWhHR0dmzRpwgj31q1b8rgCAAAAWcC2HApo24xM dVasWJEZUhYuc8HNSWYWe6xZs2b79u0hXAAAUBxgWw7FtG2GJOHWqlXr8+fP 3NHIyEgqkJKSwpcn87q4uERFRYkL9+bNm/K5BgAAKPHAthwKa9sMScI1MDDY vXt3aGgoX4bbskFY686dO40bNxbW0tTUhHABAEAuwLYcimxb4v3795UqVWKG lK9cucIX4OYkC6sYGRn9kgkj3Bs3bsi8+wAAUNKBbTkU3LbEhw8fGOHWrl3b x8eHOxofHx8cHCwsHxUVFRERQa8dOnRghHv9+nV5XAEAAJRcYFsOxbdthiTh 6unpLV++PDY2li/z6NEj4TQq4ujRow0bNoRwAQBAjsC2HEph2wxJwiWE2wMt Xbq0Xr16wirdunUbNWpUx44dGeHa2trKvPsAAFBCgW05lMW2hJOTU+XKlYXq NDAwEC6eLJHo6OhOnTpBuAAAIBdgWw4lsm2GJOFWrVp1ypQpwjInT560sLAQ 5ixfvpzZgF5DQ8PGxkamXS8o9Gth7Nix/AYNAACgXMC2HMplW8LZ2blKlSpC daqrq3/69IkvMHfu3JEjRwqrGBoarl27lolwSbjXrl2TeffzB6mWGwmvX78+ hAsAUEZgWw6ls22GJOHq6+sLhSuRmJgY0q4SCZdXLcdvv/0m7x4BAEC+gW05 lNG2hIuLCyPcihUrjhkzRlhm5cqVO3bsEOYMGTKkadOmjHCvXr0q277nCUa1 zZo1Ey4TDQAAygJsy6Gkts2QJNzSpUt7eXnxBWbPnr1mzRphlS5dulhaWnbu 3JkRrnC5DEUAqgUAFBtgWw7ltS3x8ePHqlWrCtVZs2ZNoXAlEhsbywhXXV1d cYQL1QIAihOwLYdS2zZDknB1dXWNjIyEZYYMGbJ7927+Lcmrffv2zZs3Z4R7 +fJlmXefBaoFABQzYFsOZbct4erqKi5cT09PvsDcuXNPnz7Nvw0PDzc2Nn70 6FHXrl0VSrhQLQCg+AHbchQD22ZkCrdatWpCderp6Xl4eORcKzY2Vly41tbW sukzA1QLACiWwLYcxcO2BP0RGeGWKlWKYlhhGX19/aNHj/Jv3717R1Ju3bo1 I9xLly7JuPNQLQCguALbchQb22ZkCrd69epCdZYvX14Y4ZqZmdnb2/Nv6dop h2p169aNEe7Fixdl1m2oFgBQjIFtOYqTbTMyN5dnhFujRg13d/eca8XFxXXv 3l0uwoVqAQDFG9iWo5jZNkOScNXU1ExMTPgC/v7+lCm8P0tpymGWdpSBcKFa AECxB7blKH62zZAk3EqVKlEmdzQ2NtbCwkI4aZnSlBMcHNyjRw9G0xcuXCii TkK1AICSAGzLUSxtS7i7u9eoUUOoTvLvkydP4uLi+DIpKSkBAQH0yueQ75i1 lEm458+fl3r3oFoAQAkBtuWQjm1FQZcn19FSyTtadWbcjBJJ9UrEEBcusXz5 cr7Ay5cvKYde+RyKcCmnZ8+ejHDPnTsnxY5BtQCAkgNsyyEd20adHa6TD9cS pQedCi9i2xIeHh56enrC81auXJn/c4eFhV28eJFeheUpJz4+vlevXkUkXKgW AFCigG05pGJbUYjViMqlSmnlgoYafyqNVhtd0qR7JT9AXLjVqlW7cOFCeHg4 X4bSr1+/Fg4pU61ffvmFEe7Zs2cL2RmoFgBQ0oBtOWR23zbV++TQ6qrciVSr jzrrn15052IQFy5hYWHBF+DmJPv7+/M5ZmZm+vr6v/76KyPcM2fOFLgbUC0A oAQC23LIxrai6Ocr22SPNWs1mXs3tOhHkf+Dp6dnzZo1heqsUqXKx48fuaNh YWEODg7Jycl8+c+fP799+zYhIUFawoVqAQAlE9iWQxa2TfM9a6SfNYqsWrHX LpekIjlNLnh5eYkLd/fu3cIhZSrDbC5vb2/frl07YS1VVVUrK6t8nRqqBQCU WGBbjqK3bdybjR11s86gUX+qbZCMw1oBJFN9fX2V/yK8G8vNSRZWMTIy6tCh Q58+fQosXKgWAFCSgW05iti26QFXJtVVz3JUuS5bHOOlfYZ8Ii5cinBdXFy4 o2RG+kCE5cmMgYGBiYmJ4sIV7uL3I6BaAEAJB7blKFLbJnzY1q181swo9drj L8lwZlQOfPr0iRFuxYoVV6xYIVz44tmzZydPnhTWOnPmTJs2bRjh/v333zmc CKoFAADYlqPobCsKvjmjgWZW02V+WfcqVoqNFxISroGBgcp/uX//Pl/AzMyM CgirGBoajhw5sm/fvoxwT506JfEUUC0AAGTAttkUlW2TXPf0qZQV1qrVHGX1 RTZP1+Ydb29vRriVK1d2dnbmjqanp6empgrLp2WSmJjYr18/RriWlpZM41At AABwwLYcRWJbUZjdvKbZCzlqt1r2tKgXaSwY4sItX7781KlThWXOnDlz4MAB Yc6GDRvEh5SFwoVqAQCAB7blKALbpngeHVQ1ex2LaoOPeaXkXkdekHBr1arF qNPJyYkvMGPGjMGDBwurkGpXr17dv39/phZ3nxeqBQAAIbAth7RtK4qyX9Kq dFaDpZqZPpDBasiFw8fHhxFupUqVPnz4kHOtpKSkAQMGMMLdv38/VAsAAEJg W47w8PAZ2Xh5eRWytdTPf4/Uy17HonLfff8m515HASDh1q5dW6hOXV3dsWPH CsusX79+7969whwqwCx8IQSqBQCADNi2KIh5uaZ9mazPVLPhrFshih7WCvj8 +TMjXE1Nzffv3/MFTExMli1bJqzStm1bS0vLgQMHQrUAAPAjYFspk+53cWyt 7HUsKvTY7pQo7x7lF3HhVqxYUShciSQlJTGzlIldu3bJps8AAKDgwLZSJf6d eeeyWR+nRt3JV78pxDoW+UZcuNra2mPGjBGWMTIyEs5S9vHxKVu2rIoYx44d k3n3AQBA4YBtpYco0MakvkbWh1m206a3cbnXUVi+fPlSp04doTdLly797t07 vsC0adNOnDjBpaOjo3O4dXv06FE5XQQAACgKsK20SHTe2bNC9joWBmPOf1W0 dSzyDQm3bt26Qm9WqFBBKFyeO3fu8GWaNm3KrDRFHDlyRPb9BwAAxQG2lQqi 0Nu/N8penlGn3aoXMfLukXTw9fVlhKupqcnMUq5fvz6/3jKlHz161KBBg+7d uzPCPXz4sLR6JQq+MKF2GQ1VVXVtvUEHPSX+rEkPsJ3XoYaOOhUq03D+fUlF AABAdsC2UiDZ7UD/ytnrWNQYZumTmnsdpUFcuDo6OvTPhi8gHHBu3bq1m5vb nDlz3N3dhwwZUlTCTXXe0DpryF6tgZmD+D7BiU7bu2ftA6GQ62UCAEocsG1h EUU8WvhzqayPsHQLs8eRSvTAT94g4darV0/ozQoVKvDCZe7w9uvXLzHx+0Ts 5ORkceEeOnRIGj1K9z8+IGuzYNVqE22i/nNQFG73R5OsBTO1Wy21V8z1MgEA JQvYtnCIgi6P189ex6LKwEMeCrw8Y2H4+vUrI1w1NbXJkydzR0m4wpWWOeFe vXq1dOnS4o8FHTx4UAodirk1VS9rOKFM/2OCPQxTfU4Orc4dUa066KhnMf2D AACUDNi2UKS5bm6r8T+RqOUBda2fFj1TRgWQcOvXry/0ZpkyZd68ecMd/fjx IwW8QuF++PDB3Nw8PDx86NChjHCZDQ4KRMq71T9nPdes2c7cNWusOO71ul+y VhbRajrPTmHXy0xJSYmIiPDz84uKikpPV87nxAAA+QG2LQyikOP9S6nkE/XG K94q6Y1dsgMj3PLlyz948CAp6fut0x8NKcfGxg4aNEjqwk33PdhbJ+tXTj1T +8TvAw02U+pyBlat1HuPq/j9XDmRkJDw8OHDv/76a/To0S1atKhcubLwo6Cf YDVq1GjXrt2kSZP27t376tWrtDTcaAaguAHbFgZR1O3Z9Uup5ku22i1Xv1IY DeQfceESCxcu5I6ScEkcjHAtLCwoPXz4cCkLVxRlM7Fa1phxlXGXg1z3Zm8l rPHT9BvB8g9r4+LiTp06RaG9trZ2vv6NVKpUafLkydevX4d2ASg2wLYgv5Bw f/rpJ6EddHV1X79+zR199+5dlSpVhMJ1dHQk6aSkpIwYMYLRyv79+wvTk+TX yxpnjSaX+qnZT9wwg2q5rn85JkjjQguOj4/PggULKPDPl2TFqVWr1p9//hke Hi7fywEAFB7YFhQAf39/RrjlypU7c+ZMVNT36cE/GlL++vVrnz59GKHs27ev 4P1I997TvfR/mlOvPd7aX473QYODg+fOnauhoaEiRpkyZbp27Tpv3rytW7da WVnRx7Vy5crLly+fPHly8+bNM2bMaNu2rcSK9Nlu2bIlIUHOPyEAAIUBtgUF g4TboEEDxgsUiHFHSbhVq1ZlhGtmZqavry8e4TJb+OUHUejfQ8r8ryWtVite xkrrCvPbFZHowIEDFOYzV9ekSZNVq1a9ffs2L7OhkpKS7t+/T77W09Nj2jEw MLh7964MLgQAUBTAtqDABAQEMMIl17x69Yo7Sv+0qlevLhSus7Pz06dPU1NT R44cyahkz549BelBzMu1vwhkq6Iuca0LGeDn5/frr78Kr0hNTW306NF0vQVr kD4lCnu7devGfFAzZ86Mi1PmBbgBKKnAtqAwiAu3bNmyFhYWkZGRGT8eUqZA r1evXoUVbprvuTEGav9tRLXK2MsRsp4f5eDgIAzkicGDB3/8+FEqjVOo27p1 a2HjLVu29PX1lUrjAACZAduCQkLCbdiwIaNOft8fEm7FihUZ4RoZGXXq1IlC P6bW7t2783za72Ft1qBt6RbzzafWy/Kudve9PrK8b3vmzBlNTU3+EvT09G7d uiXdU4hEon379gknNpPc+TEEAIBSANuCwiMuXF1d3RcvXnBHP3z4ULNmTaFw P336RBZOTU0l7TLCzdsG9IKwVrVin71uyWmu5u2ylKfeeNnr5CK93P9haWmp qvq/J8BGjBgRERFRROfy8vJq06YNf66yZcvynzAAQPGBbYFU+PbtW6NGjYTe LFOmzIoVK7ibjD8aUr569WqPHj0Y4VpYWOR8rpiX67LDWvU6k64Gfg9l0/2P 9su6g6tabeI1WSxWbWVlJVTtunXrKAgt0jPGx8cLBwRIuG/fvi3SMwIApAVs C6SFuHAJGxsb7igJt1y5coxwDQ0NR40aJR7h7ty580dnEd6t1Wm76gU/BTnq 2oSqWe7T+fWAbxGPJj9//lw4gHzs2LGiPV82JPQ5c+bw59XT0wsICJDNqQEA hQG2BVJEXLi6urokJu6oh4dH7dq1hcINDw9PSEhIS0sbM2ZMnoQb+2pdh+zN f6oMPPKfPQeSni2sn6Vh9War/inCtai/fv0qnBYlM9XyCIXbrl07bqAAAKDI wLZAugQGBjZu3FjoTW1t7WnTpnFHfzSkvGPHDvEhZcr8T9NpX88bZ4e1Gj/N uBnCjNsKbt6q1phyI7poLpCiS2FX169fXzTnyaUPwt0MzczMZN8HAEC+gG2B 1CHhNmnShFHns2fPuKMk3DJl/veQLCfcpk2brlixwtjYmKm1ffv27FZjX63P DmtVdDtufBsvfmLBzVuVMv2O+BXJaPKePXv47o0aNaqo79X+iNjY2J9//jnr t4WqKv/xAgAUE9gWFAVBQUGMcMmwQuFKjHDT0tLGjh3LCHfbtm10SBR2aULN Umoqqho61dtMP//5B6v1R935o3FZDVUVtVKVWq14Kv2pyfRDQkcna+chfX19 bqVKeeHs7MzfO6ZPG1sYAKDIwLagiBAXbqlSpcaNG8cd/ZFwp0+fLr7wxdat W+V6Kf9j1qxZfK8UYR1Fc3Nzvj+yv30MAMg7sC0oOki4TZs2FXpTXV2dX8zw R0PKJ0+eHD9+vAIK19PTk/rP9WfYsGHy7s53UlJS+A0Q9fT0MF0KAIUFtgVF SnBwMCNcHR0de3t77mgOQ8riwv3rr7/kein/mwlMznV3d5dvZ3guXLjAf0SW lpby7g4AQDKwLShqSLjNmjUTelNTU9PIyIg7KlG4YWFhAwYM6Nu3LyPcLVu2 yOsqoqOj+UicfgnIqxviiEQifhJ4mzZt5N0dAIBkYFsGNzc3+hw8PDzk3ZFi hbhwNTQ0njx5wh0VH1L28/Mj1VKBCRMmMMLlN/WTMUeOHOH78PLlS7n04Ufs 27eP79u7d+/k3R0AgARgW4bSpb/vTl6pUiV5d6S4ERISwghXR0dHKFyJQ8rp 6ekTJ05UBOH279+fO3vLli1lf/aciYmJ4f7dEqtXr5Z3dwAAEoBtGWDbooOE yz8iyqGurm5sbMwdlShcJyenFi1a/Pbbb4xwzc3NZdlz0hn/rM3GjRtleeo8 wi92QZ+wvPsCAJAAbMsA2xYpJNzmzZsLvUkWe/ToEXeUhKurq8sfIuG6urqa mJh4enpOnjyZEe7mzZtl1u1bt27x56UfADI7b945efIk38OgoCB5dwcAwALb MsC2RU1oaCgjXG1t7YcPH3JHcxhSFhfupk2bZNPn9evXc2esWLFioRpKCXa8 YrFoXO92jWtV0dVS19Kt9lO7AdM2nncMK+TKFN7e3vzHcvPmzcI1BgCQPrAt A2wrA0i4LVq0EHpTVVV14sSJ3FESroGBASNcW1tbMp345gWyGdcdPHgwd7q+ ffsWtI30oEebh/ykoyIR9Rq9t7yIKtwakPT5cI3JZelmAEDOwLYMsK1sEBeu lpYWH+G6uLiUL19eKNx3796tXr06MjLSxMRE9sJt2LAhd66lS5cWsImUp6Z1 uB0VNKs06208c8GSJQumD2+vV4r/waE3zjq4ML7l1+AaO3ZsIZoBABQJsC0D bCszxIVLH/7t27e59X5/NKSckpIyadIkRrgbNmwo0q7yDyjt27evgE0kP5qj r1W985zDT/2TBNlxLoeG1sza10iz/Ra3Qgwo8x9L9+7dC94KAKBogG0ZYFtZ EhYW1rJlS0adv//+O3eUhFujRg1GuBYWFpSeOnUqU6vohk9jYmL4s1y5cqWg zST5uXpESNiVSBRoObgs13qpASdCCx7dLl++nGuGIvECNwIAKCJgWwbYVsaQ cFu1aiX0ZqlSpezs7Lijb9++pb8Fl6+lpfXixQsnJ6dDhw6JRCJx4a5bt64o eujv78+fgp8+LUXSP+005J4u0uxs4VPwXQK3bdvGdbJ69epS7B4AQCrAtgyw rewJDw9nhEt/BUtLy9jY2IzsIWVS7bFjx1JTU/laISEh4pOmikK4vr6+fPv8 Cs9S5H+21SpUbLtz506uk1WrVpVi9wAAUgG2ZYBt5YK4cIk1a9ZwR0m4lKYc CjP5KmZmZvr6+tOnTy9q4QYEBPCN8/O4pEji3enVVb83rlZnwbOUgrezdetW rpM1atSQXu8AANIBtmWAbeUFCbd169ZCb5YqVerevXvc0W/fvl2/fl24o9zH jx/t7OxEItGMGTMY4a5du1aKHYuPj+dbvnTpkhRbziTObpZB5jQpNYPfHyQU oqElS5ZwnWzcuLHUegcAkBKwLYOhoWGbNm169eol746URCQKd9u2bdHR0XwZ Pz8/fnVlDtLuyJEjfxQXS4WyZbPmMe3evVuKzRLpnw/24dou3XHrv6m5V/gx /B6F+NcLgAIC2wKFIiIign7tMOrctWsXX4CbkyysYmRk1KlTp5kzZzK1pLg+ f5MmTbg2Fy5cKK02v5Pud3p41cxRZK2flznEFa6xrl27cp3k1wkBACgOsC1Q NEi4bdu2FXpTS0vrzp073NHg4GBHR0dheR8fHw8PD5FINGvWLEa4q1atkkqX RowYwTUo1UdZk9329a2U6Vqd9uvexBeqrfT0dH6JaXltSggAyAHYFiggEoW7 bNmyhIT/3dh89+7dtWvXhLXu3r07bNiwohAu+YtrjYxGXit8g98Xcrw1u0nm QlJqesMsvQs1hpyRuS8zf8n881MAAMUBtgWKibhwidOnT/MFzMzMDAwMhFUM DQ1Hjx79+++/M7VWrlxZyM48ePCAb+3Vq1eFbC0jQxT2aGm7zEhUtUKXza9j Ct1gxv79+/ke0kdX+AYBANKl0LZN/3puys9VdTTUtMo3mn+vcKNhAAiJjIxs 164dE+HeunWLOxobGxsaGiosT5aJiooSiURz5sxhhLtixYrC9CQxMVFHJ2tD geXLlxemKVJthP2qDuW+jyCrlv1l+eOwwu1FkEXv3r257v3yyy/SaA8AIGUK bduYS6Oz7hapNVjyshBPCwIgDgm3ffv2Qm9qamqamJgIy9jY2FhZWQlzDhw4 MHToUEa4hbTk8OHDuXYaNGhAQi9oM6JIh/WdK2Spdtkj6aiWfnVoaGhw3TM3 N5dGkwAAKVNY26a+WdZInateZuT56NwrAJA/xIWr8t8tXMeOHdutWzdhlXr1 6i1dulQ8wl22bFmBu3HmzBm+nYLeGBVFvzbvnjkvSrWc1KLaDMFtZcLNzU1K rQIApEkhbSsKOtpXi6ut0dbctZA7YgMgkaioKPEINy97ps+dO1dawk1MTKxc uTLXyG+//VaAFmL/2f5rFU61HVZIT7Wpqam1atXiOobdfwBQWApp2+QHs/Uy H2FQUa0y9XZS7hUAKBAk3F9++UXoTQ0NDWYjVwsLi5MnTwpzTE1N+RFgngLv UUum5ht58+ZNvuqmB1wYo8ftrKfdbLz5wUMSOXzsimN4PjVM1fheXb58OX+V AQCyonC2Tffa3inrdpFmz/1+UnkyQs5QNDRjxgwpL2IApAEJt0OHDkJvqqqq Xr9+nS8wcuRI+vMJq9StW/f48ePz5s1jhLtkyZICdMDf359b2JPo0aNHvurG XxylrZIHtPocCcyHbuPi4qpXr85VbdCgAbc1MABAASmcbeOujC3H1VWrt/B5 sZgihXWSFZno6GhGuJqamra2trlWFBfu4sWLC9ABYXjLTM3KmdTXq5trq+Yq W7Vqk23z8zzQggUL+LrW1tb5vh4AgKwolG1T361qmjVFSmfYmcii6aGMgW0V HHHhqqurjx49Wlhm5syZlpaW/Nvw8HAKe42MjBi1mZmZ5ffsFF/zd28rVKgQ EBBQ+CsqMPb29vy1dOzYUY49AQDkSmFsKwo9ObAUV1Wj1Qbn4jGGBdsqPiRc kst/QkI1NWGEO2LEiH379vFvQ0JCunTp8ujRI1NT08IL99y5c3z17t27p6TI Z0wnKCjIwMCA64aWltbHjx/l0g0AQB4pjG1THv/BbRWmolpx0vXC7BWmQMC2 SgEJt1OnTkJvamho2NjY5FpROPTKsWjRovyefdSoUXx1iqMLdAWFIikpSXj5 f/31l+z7AADIF4WwbbrPri6aXE3Nbnu+FIcpUhmwrfIQExPDCFdVVZU8KCxD ITCFovxbFxcXypk0aRIj3PxOigsPD69fvz5fXbq7++UKRdPC5aD79euHyVEA KD6FsG2C7cQKXEW1WvPti8UUqQzYVqkg4RoaGgq9qaamdvXqVb6AsbExv9Ij 4enpSTn0SnplhEsxb75O7erqym96K0vhJicnC1XbqFGjqKgo2ZwaAFAYCm7b 1A/rWmRNkSo9+FR+HxJUWGBb5UJcuBoaGkLh/ohFixYVUrh2dnalSpXiq0+e PDkpqWgfOQ8ODu7cuTN/Rj09PS8vryI9IwBAWhTYtqKI00OyHiBUb77mfWE3 DFMYYFulg4QrdJBK5pAyxbB8gcDAQH19feHaU5SmnNmzZzPCNTU1zdep7969 KxRux44dvb29pXZh/+X58+f8mlGcaj08PIroXAAAqVNg26Y8Na3DTZFSqTDe pvjs/QPbKiOxsbGMcNXU1K5cucIdjYqKMjMzc3Jy4stTmnIof/HixYUU7sOH DytUqMBX19HROXDggJT2wM0iISGBeks/IfizNGzYEFEtAMpFQW2b/nVfj+wp Up0tvIvJFKkM2FZpIeF26dJF6E11dfW8rGS4ZMkSRrjz58/P16k9PT0bNWok bKFFixZ37twp6KX8j7S0tGPHjlEYK2y8b9++kZHF4+l2AEoQBbVt4s0plbMW SK4551FyEfZQxsC2ygsJt2vXrow6p0yZwhd4+fIl5dArn2NhYaGSuZAjU2ve vHn5OnV0dLSJiQnTyC+//HL69OmC3cyNiIjYvn17vXr1hA1qamqam5tjBjIA ykgBbZv2cVPrrAWSSw04EVJcpkgRDRs2rFWrVsuWLeXdEVAQxIVLES6/pOG3 b99Ir/TKl3/37h3lUGLp0qWMK//444/8nv3mzZvCW6scFSpUGD9+PPUhJCQk 1xY+f/5MweygQYOEt4M52rVrJxwMBwAoFwW0bdS54TpZX2ZNV/5TbKZIgWKA ROEePnw4MTGRL0PpgIAA4d1VCk5Jr4zgmD0O8gK1TDGp8E6uEHLxkCFD5syZ s3nz5gMHDlCv9u/fv27duhkzZvTt25dfE5KBItzz588XYgt7AID8KZhtU16Y /ZQ1RarsmMuxRdpDAPJLXFxct27dGGcJ14yiSJNy/P39+RwzMzMDA4Ply5cX XrgZmfOydu3a1aBBA4n2zDudOnU6e/asvBaHBABIkQLZVhRw8NfsPeQ7bvPE XSSgcJBwu3fvLjQXRbgXL17kjvr5+VE6IeF/y42+f/+e27xvxYoVjPIoFC1Y XEm1Hj9+bGpqWqdOnXxJtmXLlhTwYtwYgOJEgWybdHd6tawpUjVm3S9GU6RA cUJcuGpqaubm5rGx/xuNCQwMfP36tbCWl5fXjBkzGP39/vvvhRzI/fTp0/nz 5ymCHjJkSLt27WrWrFm2bFkdHZ1y5crVrl2bYthRo0atWbOGjE9dKsyJAACK SUFsm+a2pX3WFCmtvkeDcDcJKCrx8fGMcIlNmzbxBbg5ycIqRkZGhoaGK1eu ZGrNnj0bd04BAAWmILaNuTRaNytWqPfH3cBQyYSFRSVgjBnIGxJujx49mAiX wkzuaEBAgIODg7C8u7u7s7MzJVatWgXhAgCkRQFsm/p6WSN18XtN4mj12Pe1 +Cx7AZQWEm7Pnj0Z4S5atEg4S5kMy6xH8eTJk6lTpzL/pmfNmgXhAgAKQP5t Kwo+3p99FFAyuqMuRBf5BQCQB0i4vXr1Yv6BCnec5+YkC6sYGhoaGRmtXr2a qTVz5kwIFwCQXwpg28hbs38qraqSG5q1Jl0pTsteACVHXLgU4Z49e5Y7GhER 4efnJywfGBjIrUexZs0a5t/2jBkzIFwAQL4oxP62xZN169atXLly8+bN8u4I kD4JCQniwp08ebKwzO3bty9duiTMOXny5JQpUyBcAEBhgG0ZsE5y8YaE++uv vzLqPHPmDF+Am5MsrGJgYGBmZkY/w5ha06dPh3ABAHkEtmWAbYs9JNzevXsL vamqqmplZcUdTctEWD41NZVb4xHCLWHEvvyrXx0dNZXcUK005WZBtp4AJQvY lgG2LQmQcPv06cMIl6JaYZkDBw4IY15i+fLl4hv9TJs2DcItnsRdHVc+V9Nm /uOpPtMOi/yA3IBtGWDbEoK4cInTp0/zBQYPHjxjxgxhlerVqx8+fHj9+vVM ralTp0p3+3igCKT+s7Jp3h51bGj6EIvFg1yBbRlg25JDYmKieIT7999/51px w4YNzBcuxbwQbvFCFHJiQNajjhptNjolpf6AtLR0DG2AvADbMsC2JQoSbt++ fRnhDh8+XFhm/vz5wiHliIiICRMmzJo1C8It1iQ/mlMzazX4yia3EnOvAEDO wLYMsG1Jg4Tbr18/Rp2WlpZ8gYEDB3I7znMEBwe3bdv2/v37mzZtYmpNmTIF wi0mpHvvNNTk/qyaPfb74a8KCg1sywDblkDEhUsR7smTJ3OtKC7cyZMnQ7jF gfhr47OmSKnVXfgcGwyDwgPbMsC2JROJEe6wYcOEZXr27Clc+MLV1ZVyTE1N mVqTJk2CcJWdVMc1P2dNkdIZdiZS3t0BxQHYlgG2LbEkJSX179+fiXBPnDjB Fxg6dKitrS3/1t3dnXLo1dzcHMItXojCTg0uzf0tNVptdMFmZkAKwLYMsG1J hoQ7YMAARp1C4f6IP//8E8ItRqQ8mVeLW9VCtdLkG5giBaQBbMtQsWJFEq6+ vr68OwLkAwl34MCBjDpHjhzJFwgKCmrYsKFwez5KU474bkETJ06EcJWS9M+7 u2ZPkeq+1xd/QyANYFsAGEi4gwYNYtR57Ngx7mhkZOScOXMcHR358pSmHMrf smULU2vChAkQrvKRYDuxIvcHVKtj+hRTpIBUgG0BECdn4ebAX3/9xdQaP348 s/AyUHBSnda1yF5FSr20bjnJlC9f0+gsNhUFeQa2BUAiycnJ4sIdO3YsX+D1 69fa2tr0yufs3buXcrZu3QrhKjOiiNNDtFXyQJmRF6Ll3VmgPMC2APwIEu7g wYOZr9gjR45wR/39/c3NzemVL0/mpRxKbNu2jak1btw4CFdJSHlqWif3jX9U NGtNvorQFuQd2BaAHCDh/vbbb8z3rIWFRUrK/+7mUToiIkK4E1BCQoL4whcU F0O4SkD61309+FWk9n3FXXcgJWBbAHKGhDtkyBBGnTNnzuQLWFtbU44wyDUz MzMwMNi+fTuEq3wk3pxSmVsgWa3OgmeYIgWkBWwLQK5IFO6hQ4e4o1++fDl1 6lR8fDxf/s2bN9yqUzt27GBqGRsbQ7iKTJrLxtYa3N9Ke8jpCAwVA2kB2wKQ FyQKd/Xq1ULJhoaGOjs7C2v5+vquWrWKqTVmzBgIV2GJPDtMh/s7qbdY55Qq 7+6A4gNsC0AeSUlJGTp0KKPOJUuW8AUsLCwoR1jFyMjI0NCQy4dwlYEUh0X1 sqZIVZxomyDv7oBiBGzLsHfvXvpuPHjwoLw7AhQREu6wYcMYdR44cIA7SpHs /fv3heUp1H3z5g0ldu3axdQiEaemInRSMNL9D/TKniLVdddnTJEC0gO2ZcA6 ySBnSLjDhw9n1Dl37tykpCS+jJub2+PHj4W1Xr58SVEwU2v06NEQrmKRdGda 1awpUgZ/PMYUKSBFYFsG2BbkikThbt68mS/AzUkWVjE0NKRgVjzCHTVqFISr OKT9a942a4pU6UGWYZgiBaQIbMsA24K8QMIdMWIEo859+/ZxR4ODg728vITl v3z5wj0itHv3bghXYYm+MLIM91dRb7b6Hf4oQJrAtgywLcgjpEhx4Y4bN05Y 5sGDB8ItcYlz585R5AvhKiQpL5c0yJoiVW7s1Th5dwcUL2BbBtgW5B1S5MiR Ixl17tmzhy/AzUkWVjEwMCDb7t27l6lF7UC4ckYUeLiPFvfn0Oy04xOmSAGp AtsywLYgX0gU7u7du7mjCQkJwgdyidjYWG4+1b59+5haFCkLF4QEsibt484e VbTUVDXK6Pfc5oifPkC6wLYMsC3ILyTcUaNGMeocPny4sMzx48e51aV41q9f v3jxYvFaEC4AxRLYlgG2BQWAhDt69GhGnbt27eIL9OnTZ/LkycIq5cqV258J hAtASQC2ZYBtQcEg4RoZGTHqtLCwyLXigQMHmFrDhg2DcAEoZsC2DLAtKDAS hTto0CBhmWXLlgmHlCMjI2fOnLlixQoIF4DiDWzLANuCwpCWliYu3B07dvAF evXqtXXrVv5tUFBQ06ZN7969e/DgQabW0KFDIVwAig2wLQNsCwoJCXfMmDE5 CPdHHDp0iKk1ZMiQ5ORkGfQZAFDUwLYM8dnIuyNAiSHhGhsbM+ocOHCgsAy9 vXr1Kv/Wzc2NctavXw/hAlAsgW0BKApIuGPHjmXUuW3bNr5A3759r1y5wr+l //soh16PHDnC1Prtt98g3HxRq1Yt/tPLy0Q1AGQAbAtAEUHCHTduHKNO4U3b H3H06FGm1uDBgyHcvAPbAgUEtgWg6JAoXOEs5eDg4JYtW9rZ2fE5lKacnTt3 QrgFBrYFCghsC0CRQsIdP348o86//vqLOxoREWFiYvL27Vu+PKUph/LFI1zS tHAXXfAjYFuggMC2ABQ1EoW7ZcuWXCseO3YMwi0AsC1QQGBbAGRAenr6hAkT GHUOGzaML0AhbaVKlYRB7sGDBynn+PHjTK2BAwdCuDkD2wIFBLYFQDaQcCdO nMio09zcnDv69evX1atX0ytf3sHBgXIoceLECabWgAEDINwcgG2BAgLbAiAz JAp3w4YNlC8sk5iYKKyVmpoq/lgQhJsDsC1QQGBbhnPnzllZWTGbowEgLUim kyZNYtQ5duxYvoC1tTXl+Pv78zlmZmYGBgYnT55UVVUV1urfvz/jZcAB2wIF BLZlwMqNoKgh4U6ePJkR7qZNm7ij3t7ehw4diouL48s7ODicPn2aEpaWloxw +/XrB+GKA9sCBQS2ZYBtgQwg4U6ZMoUR7sKFC4XqjIyM9PLyEtYKDAwkd0C4 uQLbAgUEtmWAbYFsIOGamJgwwp05cyZfgDRBOcIqRkZGhoaGp06dYoTbt29f CFcIbAsUENiWAbYFMkOicDds2MAd9fb2vn79urA8/d/67NkzSvz9998Qbg7A tkABgW0ZYFsgSyQKl3KEizR++vTp5cuXwlqOjo5//vknI9w+ffpAuBywLVBA YFsG2BbIGJFINHXqVEa4ixYt4gtwc5KFVQwNDY2MjE6fPi0u3ISEBJlfgcIB 2wIFBLZlgG2B7CHhTps2jRHuunXruKP+/v4uLi7C8h4eHj4+PpSwsrJihNu7 d28IF7YFCghsywDbArlAwp0+fToj3BEjRgjLPHv27N69e8Kca9eubd68mRHu r7/+WsKFC9sCBQS2ZYBtgbyQKNy1a9fyBbg5ycIqBgYGZmZmZ86cUVNTg3B5 YFuggMC2DLAtkCMk3BkzZjDCXbNmDXc0KioqIiJCWD40NDQ2NpYSZ8+eZYTb q1evEitc2BYoILAtA2wL5AsJd+bMmYxwBwwYICxjZWVlY2MjzNm6devmzZvF hRsfHy/b7isEsC1QQGBbBtgWyB0S7qxZsxjhrlq1ii/QrVs34dLKhKam5u7d u8+dO8cIt2fPniVQuLAtUEBgWwZfX98vX74INz4DQPZIFO7KlStzrXj+/HkI F7YFCghsC4BiQsKdPXs2I9zevXsLy6xbt+7atWv826ioKFNT0y1btjDC7dGj R4kSLmwLFBDYFgCFhYT7+++/M8JdsWIFX8DQ0HDz5s3828DAwLp16966devC hQuMcLt3715yhAvbAgUEtgVAkSHhzpkzhxHu8uXLc6148eJFdXV1RrjCjfyK MbAtUEBgWwAUH3Hh9urVS1hg5MiRwi0MPDw8KGf37t2McLt161YShAvbAgUE tgVAKRAX7tKlS/mjXbp0uXDhAv/248ePlEOvly5dKoHChW2BAgLbAqAszJ07 Nwfh/ghra2tGuF27duXWxCiuwLZAAYFtAVAi/vjjjxyGlENCQjp27Pjw4UM+ h9KUc+LEiRIlXNgWKCCwLQDKxbx58xjhLl68mDsUHh5ubGz86tUrvjClKYfy L1++zAi3S5cuxVW4sC1QQGBbhnv37t25c+fBgwfy7ggAP2T+/PmMcM3MzHKt deXKFQ0NjZIgXNgWKCCwLQNWbgRKgbhw+/Tpwx999+6dvr4+vfI5R48epRxx 4Xbu3DkmJkYeV1CEwLZAAYFtGWBboCyYmpoywl20aBF36MuXLxTt0itf2N7e not/r169ygjX0NCwmAkXtgUKCGzLANsCJWLBggWMcBcuXJhrrWvXrhVv4cK2 QAGBbRlgW6BckF4Z4Q4aNIg/am1tTTn+/v58DkW4BgYGxVu4sC1QQGBbBtgW KB2LFi1ihEsxL3fI09OTdCOcCmVvb3/06FFK2NjYMMLt1KlTdHS0fK5BqsC2 QAGBbRlgW6CMiAt3+vTpKSkpfIG4uLiAgABhlYiICCsrK0a4HTt2LAbChW2B AgLbMsC2So1IJAoJCfnw4cPdu3e3bNmyePHimzdvvnnzxt/fPy0tTd69K1rM zMwY4RoZGfFHSTqUIyxPRw0NDW1tbTU1NYuZcGFboIDAtgywrdIRGxt75cqV BQsWdOnSRUdHR+UHqKurt2zZkiK+48ePf/v2Td69LhLo1wVz1fPnz+cOeXh4 XLx4UVj4xYsX3HPl169fZ4TboUMHpRYubAsUENiWAbZVFlJSUi5cuDBo0CAt La0fGTYHSCi7du2KjIyU93VImSVLljBXSjGscEjZ19f3/fv3wiqurq5HjhwR F25UVJTMuy8dYFuggMC2DLCt4kNh16ZNm/T09AogWQaKhWfNmuXj4yPva5Im S5cuZS7TxMSEP8rNSRaWNzQ0JCPfuHGDEe4vv/yipMKFbYECAtsywLaKDMVo e/bsqVy5srg39fX1R48evW3btps3bzo6OgYFBcXGxpKXw8LCPn78aGdnd/Dg walTpzZr1ky8LllmwYIFVFLe1yc1xIU7d+5c7tDnz5/fvn0rLOzs7Ozu7k4J +uiKh3BhW6CAwLYMsK3C8v79+xYtWjASqVOnztq1a0mveW/H19d37969HTp0 YJqqUqWKtbV10fVfxixbtoy5wAEDBggLvH79+smTJ8KcO3fu7N+/nxmZb9++ vdKNt8O2QAGBbRnGjBkzfPjwSZMmybsj4H+IRKI///xTfIFfW1vb9PT0Ajf7 5s2bsWPHMkqinGKzUP/y5cuZq5szZw59mNxRbk6ysLyBgYGZmdmtW7eUXbiw LVBAYFug4MTHx48aNUr45d+oUSMbGxtptU8hc+/evYXtN2/e/PPnz//f3nnH RXF9bVyaiN0Xu9gLNkSxIhp7rxjRqGBsiS2WEI0hlti7sXeNvXfFigg2VPzZ u6CIKARQERVEXOA92Ys3NwMi7M7u7OLz/YPPzOHOmbO7M/PcM3PnXLn8K8tv v/0mEdxBgwYxwY2IiAgLCxMbh4SEvHr1ihaOHDkiEdyaNWsakeBCbYEBArUF hsyLFy8cHBz4IWpqajp69Oi4uDjZd7Ru3brcuXPzHeXPn1+cQMeoSSm4jRs3 5hkusXPnTpJXcZNFixYtXrzYeAUXagsMEKgtMFhIau3t7fnxWaBAgTNnzuhu d0+fPhWVPW/evJlGcD08PCSC++OPP3LBZWOSxfZMpI4ePSoRXPp+WPJr4EBt gQECtQWGybt372rUqMEPTjs7u+DgYF3vNDY2lnSH7zRfvnz37t3T9U71w++/ //45wVWpERt//PiRPRBPKbj0oxi+4EJtgQECtQUGCKlA586dxZRKb/cwSWX6 9OnDd122bNmXL1/qZ9e6ZuzYsRLBdXJyEm8pT58+3dPTk69GR0ePGTNm+fLl lpaWxiW4UFtggEBtgQEyadIkflja29vr+XEhCa6bmxsPoHnz5qIkGTXjxo2T CO6AAQP4pyMZ/eOPP3jj0NDQQoUKHTx48Pjx4ykF15A7IVBbYIBAbYGh4e/v b2pqyo5JutqHhIToP4b4+PgGDRrwU2PhwoX6j0FHpC24nyOl4FavXt1gBRdq CwwQqC0wKOLi4ipWrMgOSDMzMz8/P6UiiYiIKFasGIvEysrq4cOHSkUiO+PH j5cIrqOjoyi4vXr1EkcpBwQEkGXdunXGIrhQW2CAQG0lXLlyhb4TSdl2oDdm zpzJD0jKwpQN5tixYzyYdu3aKRuMvEyYMEEiuP379+eC6+DgsHnzZt745s2b ZKG/J06cYMXWOPb29gZY8RJqCwwQqK0EVG5UEEqU8uTJw47GqlWrijPXKAVp ED9BJHUOjZ2UgtuvX78v3lL28vIyfMGF2gIDBGorAWqrIGKlQUqjlA7nH8LD w3PmzMlCql+/vtLhyMzEiRMlguvo6MiLYUZGRjZu3FjsY9AyWfbs2SMR3GrV qhmU4EJtgQECtZUAtVWK2NjYfPnysUOxWbNmSofzL+IAaTpflA5HZlIKbp8+ fZjgkoB27Njx/PnzvDEtk4XsJ0+eNGTBhdoCAwRqKwFqqxRr167lhyJdzJUO 519evXplZWXFAvv++++VDkd+xO6ERHDTwNvbWyK4dnZ2lA7rJ2YJ0dHRmwTE qGrUqMHtFLMi4QGQBLVNAdRWKfgbN5UqVVI6FikDBgxgsZHsUg6udDjyM3ny ZIngOjk5ccG9du1a+fLlxaGDf/31F1lIvHg/RFnBValUqc56LEHxcXfgawZq KwFqqwgREREmJibsOJw7d67S4Ui5dOkSP01knH7IoJgyZYpEm3r37s0E9/Hj x4MHD6a/vDHpLFlo4dSpUxLBrVq1qiKC269fvy+qLf2O+g8MAAbUVgLUVhEo V+LHYWBgoNLhSElMTCxatCgLr0+fPkqHoyumTp0qkSc3N7cv3lJOVXCp+6Sf mDmenp5pS22BAgW0mQ0ZAC2B2kowcLX9+PFjjJpMdj/z+++/ZwehAd5GZgwc OJBFWLZsWaVj0SEpBbdRo0ZcpPbu3UvC+vz5c95+zJgx5cqV8/HxkQhulSpV 9Cy479+/56PHUyVTPnMHRgTUVoKBq+2ff/7JfiyDjVAzKleuzD7XgAEDZHGo euG/ckCdgllNTCzyd90SoX2Z440bN/IzxcBr8mvJtGnTJDrl6urKBPfevXv0 3zdv3vDGJ0+eXLRoES0YguB269YtDbXdvXu33iKJjIy8cePG8ePHZ8+ePXLk yEOHDl26dCkkJIR6y3qLARgaUFsJUFv9Q3k6L4y8cuVKbd0lRl1fP7R+QbNP x7VF4yUh2t9ApLODnyleXl5a+zNopk+fLpEqEjKx2EhcXJyky/Hu3bsjR45k z55d3Io6UfoU3O3bt39Oas3NzaOjo3W365iYmP3797u7uzds2DBHjhyfC4OO 86pVq/bt25eO82fPnukuHmCAQG0lQG31D2VM/CDUrjBy4tu7239pXNTi05VN RrWl5I6u2CzI1atXa+3P0JkxY4ZEKVq1asVvKbPjUGzv4uLi6Oh4+vTplIIb Hh6un5gp6bawsEhV5po2baqLPapUKkqZO3bsKHkZKp3UrFlzzpw5hllrGsgO 1FYC1Fb/eHt784PwyZMnmrpJeLbDtTSrmm9Vpt24XcenOlnIp7aEjY0NC3LS pEly+DN0xJrVjJ49e7J55+/cubN+/Xqxsa+v7+HDh2lBWcFt27Ztqro2f/58 eXdEuTx1SPghoQ10zenXr19AQIC8EQJDA2orgfrATk5OdM5q5UUVcWFZ31oF LExMLAr22PlKvslRM6XabtmyhR+EHz580NTNB68fC5lkyWnbZerhx7EkvkEL GsirtnXr1mVBDhw4UA5/RkBKwW3Tps379+95g9DQ0Hv37ombBAYG7tq1SyK4 lSpV+vvvv/UQsFgjRURGLaP+xvLlywsVKpRyL0WKFOnSpQup8KFDh65cuRIW Fvb27VvKuCl7pf6Jl5fXihUr+vfvb2dnl3Jbc3PzIUOG6K1bAvQP1FZuEl5d WTuobn7+1DBri5V/Q23TZPXq1cnfVdasWrhJjDizYZ1vSFzyqvxq26xZMxan m5ubHP6Mg1mzZkl0oXPnzizDJdzd3Sm/E9s7Ojq6uLicOXNG8viyYsWKehBc 8cVtTvny5eXyf/v2bQcHB4n/YsWK/f7775cvX06/n5CQkKVLl9avX1/iKl++ fOLsSyAzAbWVkcToW1tGNizMHu59emoItf0iXG0tLS3l8yq/2rZo0YLF6erq Koc/o2H27NkSUfjuu++Y4D548ICEVWzs7+9/8+ZNWjh79qwigtuoUSNJtD// /LMsnufNm0cdQtFz7dq1d+/ezfseGnD16lXqvPFRggxnZ+fXr1/LEjMwHKC2 cpHwZHP3kuxMzF6u48S9RybWMYfapov169dn+dRD+eKMb+lGfrX95ptvWJx9 +/aVw58xMWfOHImEkaiJKnPt2rULFy6Im/j4+FCallJww8LCdBrqwoULJaGe OnVKS5/v37/v2bOn6LNMmTK7du2SJeAkdcrcpk0b0b+tre3Dhw/l8g8MAait XHw40tfaxCRXJZcZx568T0pSBcypC7VNH4cOHeIHoXwvjMivthUqVGBB/vrr r3L4MzLmzp0rUbHu3btzwWVjksX2NjY27u7u586dkxSdIB3RqeAGBweLu8uV K5eWEyVTmkkfTfQ5fPhwXZSX2bp1K58Gi8ibN6+kAwOMGqitXCSE+axbf+b5 pzE+UNv0c+XKFX4QXr9+XSav8qstVw3KnuTwZ3ykFNxu3boxwX327JlkPHlA QAAb86N/wa1ZsybfV9euXbVxRVJbp04d7o3UUKdvW4eGhtarV0/sKkBwMw1Q Wx0BtU0/dE3mB+HevXtl8iqz2kZGRvIg9VmVyNCYN2+eRHDr1q0r3lI+cOCA ZMLE1atXb9q0SSK4FSpUIGXRUZBiOawNGzZo7Of9+/ei9lWsWFEPRbzj4uLc 3NxEwZWvCwqUBGqrI6C2GaJgwYLsc3l4eMjkUma1PXr0KD9TDPeBWuK7IN91 k3/s6GRXtkg+K3PzbHmLVmrw7YhFxx7FyLcTfhByXFxceE1CNiZZbJ9FPaX7 +fPn9Sa4Yr0UbZ5N9OjRg/vR89xGgwcP5rsuXrw43gzKBEBtdQTUNkPwogTN mjWTyaXMastngM2TJ498Q7nkJPb+1qGOBc2zpEr2ir23BGr8KnMK5s+fL9lB 165dmeCmnDLjzZs37DVqPz8/ytT0I7i2trZZ1Hm3xh7EgWGVKlXS/zSCfCIM okGDBtqMfAaGANRWQnBw8JMnT54+faqlH6hthuBaZmlp+e7dOzlcyqy2/I5i 8+bNZYhOdhIj17VlkwKYZLep3aH3UPfRvwzt1dw2D3+1xLL6uMvvv+wovaQU 3Jo1a4pV9+lYPX78OF8lzZ04ceLWrVslglu+fHlxUiG58PDwIOdTp07VbPMb N27wIpB0rj169Eje8NIDySsdbPyLmjFjhv5jADICtZUgV+VGqG2GEAdK7dmz Rw6XcqptWFgYr5mwYMECOcKTm8Tw1S0ts5frOH7XzVdCDqQKPzm6VvI7OCb5 uu+S9SXOlIL77bffcsGlfPD333/njUlSc+fOvW/fvgsXLuhBcC9fvkyer127 psG29BGqV6+e/KWZmHh7e8sbW/qJiooqXbo0i4TU/9atW0pFArQHaishk6ut KmBp60LZzExMzHOUdtuRemDxD9e7VrXOZmpiYpG75qQr+poijJecpSu2HP7k VFtSWH6aaFHJWackRgXcCk7trZQPlz0qs9JmpsV/8tXqXZiUiN8Mo0uXLl+c Vy6l4JYrV07eOXESExMdHR01u+e/ePFiHphclTE05vTp07yn16RJE2WDAdoA tZWQydU2Kdbnp1LJ9xaz1p55L8WToMTos7/aJ09nYlH+h8MyzAybTtzd3dlu zczMQkJCtPYnm9rSFZuSLxZbnTp1tA5M77AC0v+Qx+1g3JfbZ5CU1SRq1Kgh Cu4PP/wgvjXz6NEjsuzZs4dSXZ0K7o0bNzTY6s2bN/nz52ch0e8uFoVWiuHD h/Nv6ciRI0qHAzQEaishs6ttkurujFrJz6NMy/587r8X34Rn27+zYWJskueb Odf1eaEJDAzkh+KYMWO09ieb2h4+fJgHps3rJIrB1VYHuS1j0aJFEsF1dnbm NSUqVaokThh0/fp1stDfS5cuSQS3bNmyis/6yocQEPv371c2GEZUVBSvelG9 enWlwwEaArWVkOnVNinx7w0dki9xJgVd9wkP8t7fmN0wN0uCzEq67n4uS0mI jMCL11lZWWkwVDXx9YOzx48dTebIhoFV1DdQzasN2XSE2Y4d8737MkO/BiW2 9vb2LCpKeeLi5M8NdU1CyJJGrH+VtcnSZ7r6UcW7r4zOnTt/sYhTqoIrx50N DaGACxcuzCKpX7++UmGkRKwrIilMDYwFqK2EzK+2SUnvTgwsnnw3OUfLVcnX 38QXx4fYJldcz1l3kr8s44IziJ+fHz8aBwwYkMGtVfdm1PrM+y//YlbR438Z eRK9ceNGvu2sWbMyGJIhkBC8rCmb/c7S6c9AXfagUgouJWJccF+8eEG9qbNn z/L2tEwWLy8vieCWKVNGKcHdtm0bD+PgwYOKxJAq796949+SltWxgFJAbSV8 DWqb9PHmpOrJumThMPW2iiyP1nYoyNJa02JdNwcr9mYfJUT8gPT19c3Ipgkh K1v+p3pCalg5zXuY7g8XHh5ubW3NNrSxsTGER3gZJubszxXUKb5JoZ57Xuj6 KfySJUskX3inTp2Y4EZGRrZo0ULMy2iZLGT39/fPkyePRHC1fwtPA1q1asUC KFWqVEKC3m/upAl/emtubo4ZgowRqK2Er0JtkxKerW6VLEympYf5RlwcXyt5 8m+r6mPORitYu+HBgwd8UjO64r19+1a5WP4j/cY562js5QkO6jFvJvlarwrS i3osXbr0c4KbBpcvX1ZccKOjo/k7tpMnT9bnrtPDrVu3+JezdetWpcMBGQZq K0FztU2Mun/m36eGh9f2r8ieGtYYtu3TU8Pjp+9Haadksr1v+8azbxGWy5rk sa1cjL0hYlKw/ZoAfb3x81nE6cvpQq1U4SaxlFD79u0ViUE7El95j6is7rmY FHbeGKy/TG3ZsmUSwa1RowYX3Bs3blSrVk0cMLxx40aypBTc0qVL61Nwt2/f znfNpug1NMqWLcvC69atm9KxgHQxdepUj0+0bNmSH2DUk+f22bNnKx2mMmis tqpbk+2//NTQbsJ1rdRMvuoW8VfGskFEHMvKw09mbAiRbkhISBAnOBMrJOgN T09P/pJjvnz5dD0lqy6Iu7usDXs4kM3uZ+9Xev5hUwpuhw4dWP3GwMDAPn36 iOX9jx8/TpYkdec/b968EsENDg7WT8y8NHHJkiX1s8eM8vPPP7MIixQponQs IF3wmrRp0KtXL6XDVAaN1TYhaEmTHF/6WrM3XvxYqxRDxlpSCYHzHC3+DS13 oz/vyFdHV0tCQkIKFSrEY5s5c6Y+937y5El2GGRRv/yr0xnWdMSHgA3dSqo7 f+Ylum8OUuR+xfLlyyWHf/v27ZngpkFKwS1VqpR+BLdWrVpsjz179tTGT3zE 1T3zRnZvYl8qf46sZqbmVvlsqnzTdcSCww/fatnn2b17N/9adFHuEshOyrMg JfJNfGZkyPXcVkfIpraJkUcHfxqCrCbVWhcKcvHiRf4AN4sWBW8zytGjR7nU EosWLdLPfmUk/vGWnqXVHSmzYp1W3VVwaNeKFSskF5batWtzwT1w4AAdxuKr XuPGjatateqVK1dSCq6uS3h9/PiRH2/z58/X0EviK795XSp8rtedrXyvTYHa vPBMXwJ3Rt+eFp6Annj69GnaUktXm5gYGWfoMibs7e1tbW21mTpEp8iktnF3 FrWwNvnvr/7PcKnUCv8px/79+83N/7077+bmpuvXXekya2rKy/hn+e2333S6 O13wMXhn73JZmdR2XHlH8VHUK1eulFxe2rVrxwT39u3bY8eOjY6O5o2PHDnC nmHpX3Apfeb7kszPm35UD2bWZncU8lVu3X/svJXrN65fPtPdxSH/p4c2Vo5z tevU8lkLDbReN0iBnZ1dGmrbuXNnpQMEqSOH2v6T1lZkvXiT3E4eE78tkDxc Kl+XrZEG8NxWRCK4Dg4Od+7c0cWOXr582b17d/EskG+mXf2heravv60lk1pl s1qRVatWSa4wbdq0ETtOKpVK8nZVfHz8pUuXeAElRsmSJXUnuBcuXOA70ni8 qOr2lBp5bL+d7hnw33vGH5/u6JH8irtZlXFXtbmxX6FCBRbk6NGjtXAD9Aeb jupzbNy4UekAQepor7ZxdxZ/SmtNi7psfaqKOzuyTHI6Z+k4N/0vo+oLb29v 8aqbNWvW6dOny5vk7ty5U3xMTOmt5vcSlSMh9NCgyup74GY2nVffMxCpZaQU 3Pr16/MfkR3VYnsXFxdHR8erV6+mFNygoCBdRLhv3z6+F83fZk2MiYpK9cG0 6u70mqzXaNV1lza3kJo0acKCdHV11cIN0B/nz5//nNSamZm9evVK6QBB6mip tomRxz6ltVksq7r7vP6nB666M62mUDnZoK7SjICAgEqVKolHafHixdevX//F uWa+iI+PT926dUXPefLkOXbsmCxh65UP16bVYc8LTQs0GjF/eaqsWLH+5COF ak+mkeHeuHGDghMbnzhxgg0duXbtmkRwS5QooQvB3bJlC9+FDupaJEasbslO vLxuh7T5BTp06MCClGmqLKBzVCoVXa5TVVsDnSwbqNFKbePu8rTWJG+TBXwI csKzVS0/TYFq3W2nIbwFlILY2FhxJhRG0aJFp0yZokEd++jo6LVr1/ICyJwW LVooWKRXG1R3pjp88QW0f37gIoNOKjb0fPXq1ZJwGjVq9O7dv0VCIyMjJUpK P4eXl5fkYkWC+/jxY3ljE9VWB694vz7gxmaGyNZ02VNttLxTp04syC5dusgW HdAxrq6uqZ6Okk4mMCg0V1tKa4d8SmvNSvTaHSqc8olR+3olP7zNkq3BgkeG VbFOwNfXN9UhBzVr1pw0aRIlRGnclnn//r2fn9/ChQtbtmzJSwZxChYsSFqg z88iL4kRO74rZJbym5FiWWPKDSXrl6xZs0YSUZMmTfgtZXd3dxsbG7G9o6Oj i4vL9evXdS24O3fu5M7lHowXF7jVtYy6L2Raop+ndr3Z1q1bsyC7d+8uV3xA 14iFU0Q0mHsF6A1N1ZbS2pafBiFbVf/t/Bvp//99eGtWYdQFA57oJiEhYcOG DSVLlvycnhQpUsTBwaF9+/Z0OerRo4ezs3O9evXo4mxmlroY5cqVa+LEicqW iPyqWLt2reQnIAVhAnf79m3qMomNz549+7///S9JPU+fRHCLFy8uo+B6e3tz z1qOxUp8/ejyuXNnz57x9fLcvnLKoFblcqpPvawl2i/4n7aHWfXq1VmQQ4cO 1dIV0BtRUVHiyw4M6kkqHRdIC83UVkhrTaxbLXuQyit/wsNbkwI992pZYFLn qFSqffv28REjmlGxYsWlS5dCZ/VPSsGtU6eOOCz5zp07V69eFTe5cOGCp6cn nySCC+6jR49kCenevXvcrZ+fnxae4s+NLCW9sOYo3WzY+htyFCAvWLAgczl9 +nTtvQG90ahRI8lBMWfOHKWDAmmhmdoub53fwiSLiUUuG6dfjoanfsonPN/S vXh2Sv/MrAo3nntT8WrJ6eTZs2ekmC1atODvIaaNubl57dq1J0+ebJiFcL8e /vrrL14bk9GyZUsuuGxMstjexsbG3d39xo0bEsEluyyCS50u7lO7GShUd2bW yZYlJaa5K7T32BugzShECpJ/aRs2bNDCE9A3Yt11hli8FBggMlZuzGQkJCTc vXuXrpNTp04dPHiws7NzmzZtWrdu3bFjx/79+48fP37VqlX+/v7GOB18ZmXd unWfE9zHjx8/ePBAbHzr1i02HC5VwZXlwsUfT4wYMUJ7b0TCh3cvn94+s2v+ T81LJuuviXXTP69r/AbQ6dOn+ae+fv26LEEC/SDePCHs7OyUjkh5Ro0aReea IpXw0wPUFmQm1q9fLxFce3t78Zby8ePHxQnok9SDhw8cOJA/f37ZBbdr167M m/wP1BJfX5raMC/7oJa1pt/S8NbR3LlzWYTZsmXT/vU3oE8SExNLly7Nj9iJ EycqHZHyfC11kgEwDFIKbosWLbjgsjHJYntqQGcBpboSwS1WrJiWgsu1TCc1 B1T3Z9VlIyPMKvx6STOlbNq0KYuwfv36MocHdM+wYcP44SrOOPnVArUFQM9s 2LBBIrjNmzePjf3nhiupnqSyU3h4OKvifvPmTUnhiyJFigQEBGgchnivTwf1 9D5e+rUCGxaf7dsdGtxMjoqK4uPqMUTKGDlx4gT7+cqUKaPUtN0GBdQWAP2T UnCrVKnCBJexbNmyU6dOseXQ0FB3d/dcuXJlSYGFhQUpEZ+5PqPwKsStW7eW 4VP9h/izI0qyscp5e2tSTkosxqVxJWegIHFxcdmzZ6ef75dfflE6FoMAaguA IlA6KRHcZs2accEtXbo0q8O/du3a3Llzp9RZkapVq167dk2DGMaNG8edyDxk NP7qODuWmWZtuCBIgwIy1apV4/0QOQMDeqRz585ZtH3FLPPA1TbGIJk5cyZX W6VjAUBm1qxZIxHcxo0bv3jxgjcgwU1bZzmURJw5cyajp39ISAi/Wzts2LCM bZwYvrFb5caDl3oHxUjvEn4MPe5eM7k6au42a0IyLLY+Pj78o1Gan9HNgYFA R3jhwoV1UIjb+Lh582bKih8AAGMkZ86cGjzG/fbbb9nmWbNmzVhRqYTgRd+o x0GZ5SnXuMfwSfNXrt+8ecOq+RMGtaucN1nCTaxbLLmnwW3uevXqMQeU14uV pYFxERoaOmjQIKWjUJ6rV6/myJFDiasCACDDODg47Nq1iw8eDgoKmj17tmTc VKNGjTS4DvDNe/bsmZFNVQ/WdimdWmGLZLJX6Lb0igYFpXbv3s19TJgwIcPb A0Pi6dOnSoegMHTOFihQQP4rAgBABwwcOFClSmUu5rCwsMqVK4stfX19M3o1 IJHlmx89ejRD234Iv7J34Zg+7etXKWGdw8LUxNQih3WJKk6dfpyy0e+5JpVV 6NJUpEgRFkzBggVRaBQYNX///betra1eLxYAAE2pX79+Gi9QBAYGstEXDA1m XX/y5ImVlRXbvGjRosrO9y1K/6pVqxSMBAAtSUhIcHR0TOdpXqxYsb179+7e vXvLli1HBbZv375jxw7RsmnTJmrJVw8dOkSWgwcPcsu+ffvIIm6ya9eubdu2 iZatW7eSka8ePny4V69eLJJcuXKR5cCBA+TE09OTt9mzZ8/mzZslsRGihRpQ M75Km0ti279/P1mOHDkixkbBiE4oVDE29pHpQ/FVckgW+uBibJKPTF+aJDb6 YsXY6CPTJvQxJbGRnVvo55DERj537twpiU38OVhs4kem/0piIw9f/DloE4qH W9jPIcZGn+WLh4rk5/jcoZL2zyGJjRpLYmMfOe1D5Ys/BztU0v45ZDlUJD/H woULxdPw6JfyzQEDBvDGkin80snixYu5h1atWqWaR+uBpUuX8jCaNm2KlzSB USMez4SpqSl1hleuXDl37lz6ywZsiwwePJhve/HiRW9vb9EbXeXEVw/i4uLo OhMcHMwtz58/J4s4zuHWrVt0tRGd+Pr6njt3TrTQxefevXu0cOnSJR5JnTp1 nD5Rq1atihUrOgnY29tXqVJFtNAqGfkqJQi0CW3ILeSQLPXq1eMWBweHSpUq iU7s1IiWOXPm3L59m4f69u1b+oDivI308cny4cO/k5hfvXqVvijxA548eZI+ Gl+lqwptIg5xiYyMFB/SEQ8ePCCL6OTChQv8lUwGqYNYsyU2NpY2EeeLf/bs GVnE9zqpPV32RSc+Pj6SEfuk7/fv3+erUVFR5IQi5BZKr8gijjz09/f38vIS nZBkiNPc0PdDm4jDcsLCwsjy5s2/syPeuXOH1E10cubMGUlhQ1IxasZXaXNy 8vfff3NLUFAQWcQ3Uq9cuXLs2DHRyYkTJyhgvkofhDYRi/9HRESQhT44t9Dx SbosOjl//rzkLi4d5+JkEDExMeSEzghuefr0KVnEyo3Xr18nKRdnxbWwsPji 67QUiXjOapCc0hEozjA1cuTIjHrQHrq28AHS1LsWLyMAGB10TpUtW5afU9mz Z0/5lIcs4tALOtm5lHz33XekUGLj0qVLiy8OhIeH0yaUIHAL5QVkES9cHh4e BQoUEJ3Qad6hQwfRYmVlNW3aNLbcsmXLVPNupaDrwNixY3moJJFkFAWLkhSy iGI0dOhQ+trFD1izZk1K2/nqx48faRPKL7iFNIUsogRQd4i6RqKTrl27Sira sYlj+CppKzmhpJVb2PgTcdzCqFGjihYtKjpp2LChs7OzaKFjYNasWXyV1Iqc nD59mltYF07sYLi5udWoUUN0Ur58ebHn9vLlyyz/ndiFOiRkEWV9woQJefPm FZ3QwSCpw5A7d26xBOvdu3fJiSimf/31F1nEAk0//vgj9bJEJ9Qr+/777/kq yR9tsnz5cm5hL6SIHcsZM2ZYWlqKTjp16iQZpFSoUKExY8bwVdJ9ckLdA25h k26LXTWSuRIlSpBzfrxJjpxUIU0XD1HJBAfphLoodPxwJ3oenkT9bT5o08TE RNIhBwbF6NGjbTM7Yh9eM6jnLJ6VCxcuTLUZXazEZosWLWL2hw8fUmYqtqRs ha4hfJU64ZRwiUJD3WyyiDPR0KX+8uXLohP6XOI1Nkmd0rIJUJIMT23pSxPV iq7M9AHFbII+PlnEIuqPHz+WzF5Kl0cxk6VeEG1CyR23UI5GFvGeAF2TySI6 oYuqmGUnqXVQzBZJ/miTFy9ecAtpHFlEWaT2bPpyDvmUXK4vXrwoZmQUFTkR k1C6UJNFvO9Hn04yxx9JlTgZOn0/tAnljNxCmSNZxESPsnKxv5GkFlN204ND DcTkndJ2ciJqK+2CLOKtUer7SSaUoQRfrO3Afg4xQY6OjiZLjLqCIoO+EPpa RCd0DEvOUPpixQSNzgLJoUI/DVnE1JV+DvoRqW/Dj7fixYsnfQnakXiIalyn gn4j/gCXoI6xZn4yyqlTp8T3I2bOnKmf/QLNEJ+tZ1YkV0UNYP18hpmZWRrj /Sj54i07duyo4AWZktwBn+jduzcF07dvX27p0aMH5RQDBLqqES3UgJrxVdqc nJArbnF1dWUT1XFL9+7du3TpIjqh1W7dutECEzjFL8iiE+oCUUdItNAmYsZE PzRZxJ+blF2i3Yp0pZLU91fJCX173BIeHk4W8b40yYdEH2lVvGFCYkqb0Ibc QoJLFvGeOe1UvHufpL4bLCkJSMEbQleK5bwc6iMlpYl459nU1FT81BmFetqU s3NvLi4u2nhLDytWrDA3N+d7lGv6P6A7oLbpIf13qAYNGsRbUu8aNxsN7Waj 6KRevXrUExAtWdQTx/BVEv0s/62ftmDBArKInR9FHhMkqfNKciKOB2AFckUx 6tevX9WqVUUnlStXpp4PXyX9ok1IdLiFVUQXc//JkyfnzJlTdNK2bdtmzZqJ Fmtra0N4TMD2y/ncPSgOnY+8seSL0oDjx4+LgksOdTS3LJ1x1OkVPymk1ijY uXOnR2ZHTB41Y86cOfzALly4cBot+WDgLOrpLzGQxtAG0ohOSKokiSptIma7 1G8hi3hLmf4rGXOl/yFwDLrkkhMxLaVskSzivV9KOUkCRCe0KnY+SdFoE/HG CP2+ZBFTZuplid2YJLXqiR3CJHX/wUCGwJUpU4afgP/3f/+Xxrm/detWUbDG jx//uZbph74ZcYI/yj2pvypvkkunbbFixcTIMdEPyEzQ1UY8vMWrkwjpDn/B HACgOJUqVRK7dhzqzmXNmpU3I1mUq3QP9XL5vACMokWLrl69WuP5hjjU+2rQ oIHoOWfOnNTPkSVsAAwE6qWLB/nQoUNTbTZv3jydXjoAABklR44cI0eO9PX1 DQsLCwoKIp1t3769pM24ceNkvFzExcWNGjVKMm9CoUKFKH3W4PWct2/fbtiw QRwQwmjUqJE4PACATEPTpk35cU7n0ebNmyUNtm7dyt96AwAYC/Xq1RNHrMmF n5+fg4NDyt1Vr159woQJx44dE59QSKB4Ll68uHjx4jZt2og5OMPa2nrp0qUo YQEyKydPnpQc8z179qRT5tatW7t3707ZWwYAGD6UM4pjBuSFBJE64eKr+hIo 4a1Ro0a7du26d+/eo0cPZ2dnR0fHkiVLioONRShP9/DwEJ+qA5ApkYwDTAPq vpIE7wEAKARlf7ZpVjU3MTEZPny4OI5ORyQkJBw6dEjL99/Lly+/cOFC6Cz4 SoiLi2vUqNEXzwvqrGJmSQAUh1LLo0ePtm/fPmfOnOIZamNj89NPP2lWOUob QkNDV6xY0bp161y5cqVHYc3MzBwcHCZMmCAOcQfgK4F6wj/88EPa54jkFU4A gLKQ7JK2nj9//uLFi+IrbArGc//+/S1btkybNm3IkCFdunRp06YNqXCHDh36 9es3bty4lStXUqh6yLsBMGTWrl2bUmFz585dpUoV3iPFRMAAAACANvBJqMuU KXP69GnqM/fu3XvgwIEBAQF8zL9Y4h4AAAAAGUKcd6B69eqSkn158+blqa5Y uAkAAAAA6ad58+ZMT62trS9cuMDKMLL6kLSwbNkyrsViuV0AAAAApBNWB54x fvz4u3fvsqrjI9UkqSvxVq1alTUoUaKEWLEWAAAAAOmBv29raWkZHh7u7Ows uZNMq7Vr1+aKvH37dqVCBQAAAIyR0NBQCwsLJqNsprBUc9tbt25RVsuakfIq HDQAAABgVHh4ePCk1cXFJUk9ZZjkuS2tklGcm0Ayhx0AAAAAPkdMTEy+fPmY gPIp11O9k0zG6OhoXiumU6dOSsQLAAAAGB9Llizh6aqrq2uXLl2S1JN3s+Jv A9Ukqee2ZlPflitXjjU2MTERp8MGAAAAQKokJCTwWTyqVatGysue0vr5+Xl7 e9PCZDW0QKvs3nL//v1NTU3ZJkOGDFE2fgBAkvrRz1Q1s2bNUjoWAEAq7Nu3 jye2GzZs4PbP3Ulmy927d2ebWFlZvXz5Uq8RAwBSsHLlSnZKZsuWTelYAACp 4OTkxE7SggULxsfHjx49ulWrVknqUcqsHnJvNbRAq2SkBWrg5ubGNXratGnK fgQAANQWAEPm0qVLXDR79OhBljVr1owdOzZJfd/44MGDtDBHDS3QKru3TA2o WcOGDdmGhQsX/vDhg6KfA4CvHagtAIZMt27d2Blqbm5epEgR8V9p30kmDhw4 wJV6/fr1eooYAJAaUFsADJYnT57wwU4//vhjREQEGYcNG0ZJKy1ERUWxB7Iu amiBVslIC9SAmiUmJpYuXZptbmdnp+hHAeBrB2oLgMEycuRI/iLPli1b1q5d S8ZNmzax57CHDx/esWNHkvr9IIIWaJWMtEANqBktuLq68vT2xIkTSn4YAL5u oLYA6AhPT0/2Yg4pILuRu0YNLdAqk0VqQM1oYfbs2f7+/m/fvv3111+vXr1K aSxZgoKCHj58SJbQ0NA7d+6QJSYm5vTp02ShTXx8fJYuXUoL27dvnz9/Pi3s VEMLtMqKJFMDakYLtAltSJuTE3JFDslCzmkXZKHd0U7JQgFQGGRJf/x6/14B MEqgtgDoiD/++KNy5cq0QBLGbvDyW760SsYk9dTw1IwWXrx4ERsbS6qXP39+ UkyVSkWW+Ph40kqy3L59Oy4ujiyJiYkkoGRJUheYYneShwwZ0rhxY1qIVkML tMpes6UG1IwWaBPakDYnJ+SKHJKFnNMuyEK7o52ShQKgMMiS/vj1/r0CYJRA bQHQNW5ubvb29qKFVskoWugcnDt3Ll9lk+uJ9343bdpElvDwcG4ZNWpUoUKF RCct1YgWakDN+CptTk7YTWYG7YIstDtuoTDIktH4AQBpA7UFQEfs2LGDFX06 ffr0/v37aWGeGlqgVTImqZ/Msmevf/31161btygz7devn5+f36tXr8jy/Plz SkLJEhISEhgYSJb3798fO3aMLLSJv7//tm3baGH16tUsQT6uJkmdlpKRFqgB NaMF2oQ2pM3JCbkih2Qh57QLstDuaKdkoQAoDLKkP369f68AGCVQWwB0xKxZ s5ycnGghLCzsyZMnSWrJY0JJq2RMUleuYGXcHjx4QJL34sULW1vbAwcOxMXF kSUmJubcuXNkuX//PukgWVQqFUkhWWiTiIgI0s0k9TNZNvtAiBpaoFX2bJca sJHMtAltSJuTE3JFDslCzmkXZKHd0U7JQgFQGKz8cjrj1/8XC4AxArUFQNfg TjIAAGoLgI5Yt27d999/TwtXrlxhA4P/UJOkHk5MRlqgBtQsSV2JgvLQ169f U1pK/6X0kyyUll67do0sQUFBlLSynHf//v0sk719+/axY8eS1COQ+TwFbFYC WmWjlKkBNUtSZ7u0IcthyRU5JAs5p12QhXZHOyULBUBhkCX98evvCwXAmIHa AqAjlixZ0qFDB1p4+PDh9evXaeFnNbRAq2SkBWrAXpU9f/788+fPX7165eTk RBIZExNDlqioKH9/f7IEBASQLJIlPj5+27Zt7P4tKSZ7JjtlyhSmenfUJKlF kIxJ6me71CxJfcuXNqTNyQm5Iodkof/SLshCu6OdkoUCoDDIkv749f21AmCc QG0B0DW4kwwAgNoCoCOQ2wIAOFBbAHQEntsCGYm/PKNJqTxZTc2sCjdfcFel dDggw0BtAdA1uJMMtEZ1Z5qDObtYZ22x6u9EpeMBGQZqC4COwPu2QD6it3XJ wa7VZhV+9f+odDgg40BtAdARqCUFZCP+wqhyyXMv5uy6443S4QANgNoCoGtw JxloSWLoimZZ2aXavNaM+3hqa4xAbQHQEZgDCMjFh+M/FDJhUx0X7H8sTulw gCZAbQEAwLBRPZhZ+9MQqabLn2OIlFECtQUAAMPm7S6XXOxCbVr2F794pcMB GgG1BQAAg+bj5d9szdiFOofz1tdKhwM0A2oLAACGTGL4mlaWyUOkaky9jSFS RgrUFgAADJkP3oOLJg+Rsu5z+L3S4QANgdoCAIABkxA419GCXaYtGi1+mqB0 PEBDoLYAAGDAxOzrkSd5iFSpEWcxRMpogdoCAIDh8vHq2CrJQ6SsOm56hbd/ jBaoLQAAGCyJL9a3zZZcILnaxBsYImW8QG0BAMBgiff9qXhygeR8bgdjlQ4H aA7UFgAADJWEJwsafBoi1WBBEIZIGTFQWwAAMFRiD7rlY2//mBb/yRdDpIwZ qC0AABgoqpuTqiUXSM7Wdt0LDJEyZqC2ABgF2T7B5rQFXwVRmzpaJQ+RqjLu KuaQN2qgtgAYBVk+Ic5OCzI38WdHlkoeIpWnx74YpcMBWgG1BcAogNp+fSSE LGn8aYiU47xADJEybqC2ABgFUNuvj7gjffMnF0guOtj7g9LhAO2A2gJgFEBt vzpUd6Y5fJpDvvGfdyMiU+fFy7cfMHzKCIDaAmAUQG2/OqK3dcmRJR2Y5O93 FImv4QO1BcAogNp+bXy8OLq8WXrU1sx2jD+GKxs+UFsAjAKo7deG6sGSlgXM v5zZ5nCY9D+ktkYA1BYAowBqC4BRA7UFwCiA2gJg1EBtATAKoLYAGDVQWwCM AqgtAEYN1BYAowBqC4BRA7UFwCiA2gJg1EBtATAKoLYAGDVQWwCMAnnVNjAw cMGCBW/fvtXeFQCZFU9Pz8OHD8fGxsriDWoLgFGgvdrGx8f7+Pi4u7tXqFCB uYqMjJQ3SAAyEyNGjGDi2K5duxUrVoSEhGjjDWoLgFGgsdqSpG7cuNHFxSV3 7tySMkRQWwDSgKmtSLVq1Tw8PPz8/FQqVUa9QW0BMAoypLaJiYnXr1+fNm1a vXr1snweqC0AaZBSbTnW1tZubm47dux4/fp1Or1BbQEwCtKjtjExMYcOHRo4 cGCxYsXSEFmoLQDpIQ215ZiZmTVu3Hju3Ln379+nXm4a3qC2ABgFaahtcHDw smXL2rZta2lpmR6R5RQvXrwGAOAzZOhsIsqWLTt8+HAvL68PH1KZJwJqC4BR kFJtqSO9c+dOOzu7jF4TAAA6JWfOnL179w4NDRVPYagtAEYBP5Elue2jR4/m zp1bv359ha4rAIB/sba27tu3r6en5/v37yWnMNQWAKOAn86fe24bFha2YsWK Fi1amJmlaw5yolevXiMAAJ8h/SJrY2MzbNgwHx+fjx8/fu4UhtoCYBR8UW05 UVFRmzdvdnZ2trKySvsSgVFSAKTBFwXX1tbWw8Pj8uXLaY+PYkBtATAK0q+2 nJiYmH379rm5ueXJkwdqC0BG+Zza1qxZc9q0aXfv3s2QN6gtAEaBBmrLiY+P 9/LyGjRoUOHChaG2AKQTUW1NTEy++eabhQsXBgcHa+YNaguAUaCN2nISEhIu XLgwatSoMmXKQG0BSBtSWwsLi7Zt265duzYiIkJLb1BbAIwCWdSWk5iYePPm zbi4OO1dAZBZuX//fnR0tFzeoLYAGAXyqi0AQM9AbQEwCqC2ABg1UFsAjAKo LQBGDdQWAKMAaguAUQO1BcAogNoCYNScOnWqp5q+ffsqHQsA4LNAbQEAAABd E/kJvLYDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAACgIP8PFiY0AQ== "], {{0, 269.}, {317., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->{144., 144.}], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{210.63888888888923`, Automatic}, ImageSizeRaw->{317., 269.}, PlotRange->{{0, 317.}, {0, 269.}}]}]], "Input", CellChangeTimes->{{3.8450171567603574`*^9, 3.845017188908218*^9}},ExpressionUUID->"a0c4ff3a-3e33-4a9d-ac5b-\ 9ef3cb4364e7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"value", " ", "rule"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"EE", "->", "1"}], ",", RowBox[{"A", "->", "1"}], ",", RowBox[{"L", "->", "1"}], ",", RowBox[{"F", "->", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"coordinate", " ", "table"}], " ", "*)"}], "\[IndentingNewLine]", 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[{"element", " ", "table"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", 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[{"prb", "=", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.84501736147467*^9, 3.845017369097284*^9}, { 3.8450174078863974`*^9, 3.8450174160376883`*^9}, {3.8450174618303576`*^9, 3.845017481056065*^9}, {3.845017524958643*^9, 3.845017538616188*^9}, { 3.8450175701970463`*^9, 3.845017585712226*^9}, {3.845017674979163*^9, 3.845017722665367*^9}, {3.845017756274063*^9, 3.845017761298525*^9}, { 3.8450178765526295`*^9, 3.8450178816716566`*^9}, 3.845017964620011*^9, { 3.8450180050947204`*^9, 3.8450180162437525`*^9}, {3.8450180630410547`*^9, 3.8450181234534016`*^9}, {3.84501818172927*^9, 3.845018207917223*^9}, { 3.845018278209897*^9, 3.8450182997603617`*^9}, {3.845018348043014*^9, 3.8450183732193117`*^9}, 3.845018467141081*^9, {3.845018515479165*^9, 3.8450185273515177`*^9}, {3.8450185902007155`*^9, 3.845018776286524*^9}, 3.8450188169904385`*^9, {3.8450190375875893`*^9, 3.845019056094249*^9}, { 3.8450193235174904`*^9, 3.845019327296644*^9}, 3.8450296902310524`*^9}, CellLabel-> "In[347]:=",ExpressionUUID->"d8f1317d-d14e-4729-aa68-571e856ce307"] }, Closed]], Cell[CellGroupData[{ Cell["FORMATTED", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.8145817138547506`*^9, 3.8145817395042872`*^9}, {3.814581776238999*^9, 3.814581799742174*^9}, { 3.814581962677523*^9, 3.8145819647221575`*^9}, {3.81458240606009*^9, 3.8145824075763025`*^9}},ExpressionUUID->"55e4f9da-9f26-4426-b3ca-\ c2eaf1561303"], Cell[BoxData[ RowBox[{"FORMATTED", "[", "prb", "]"}]], "Input", CellChangeTimes->{{3.845019130519556*^9, 3.8450191494524984`*^9}, { 3.8450194078440895`*^9, 3.8450194125268755`*^9}, {3.845019648725907*^9, 3.845019671154731*^9}, {3.845019709649866*^9, 3.8450197113563085`*^9}, { 3.845019949410924*^9, 3.845020041229253*^9}, {3.8450296810689163`*^9, 3.8450296855483675`*^9}}, CellLabel-> "In[351]:=",ExpressionUUID->"351ed351-a109-4211-8056-73a3d14714f0"] }, Closed]], Cell[CellGroupData[{ Cell["SOLVE", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.8145817138547506`*^9, 3.8145817395042872`*^9}, {3.814581776238999*^9, 3.814581799742174*^9}, { 3.814581962677523*^9, 3.8145819647221575`*^9}, {3.81458240606009*^9, 3.8145824075763025`*^9}, {3.814582654101921*^9, 3.814582654999383*^9}},ExpressionUUID->"91363db0-9e12-41a1-9dc6-\ 4b2a2ed40703"], Cell[BoxData[ RowBox[{"SOLVE", "[", "prb", "]"}]], "Input", CellChangeTimes->{{3.8450192155305047`*^9, 3.845019244206795*^9}, { 3.845019345650971*^9, 3.845019350087867*^9}, {3.8450193807846355`*^9, 3.8450193844472237`*^9}, {3.8450194619910765`*^9, 3.84501953201859*^9}, { 3.8450195668758535`*^9, 3.8450195685851765`*^9}, {3.845020075710778*^9, 3.845020234367403*^9}, {3.8450296648401937`*^9, 3.8450296698602324`*^9}, { 3.845029737175827*^9, 3.845029737765443*^9}}, CellLabel-> "In[352]:=",ExpressionUUID->"fa8ac702-ecb2-46fe-b6dd-abee06bf34d1"] }, Closed]], Cell[CellGroupData[{ Cell["REFINE", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.8145817138547506`*^9, 3.8145817395042872`*^9}, {3.814581776238999*^9, 3.814581799742174*^9}, { 3.814581962677523*^9, 3.8145819647221575`*^9}, {3.81458240606009*^9, 3.8145824075763025`*^9}, {3.814582654101921*^9, 3.814582654999383*^9}, { 3.8450077640401464`*^9, 3.8450077653876443`*^9}},ExpressionUUID->"5068d9e7-3d74-4f0c-8917-\ 35f620b3d606"], Cell[BoxData[ RowBox[{"FORMATTED", "[", RowBox[{"REFINE", "[", "prb", "]"}], "]"}]], "Input", CellChangeTimes->{{3.845029716768086*^9, 3.845029748386122*^9}, { 3.8450298000517015`*^9, 3.8450298321409492`*^9}},ExpressionUUID->"0a958e5d-178a-4fbb-9bee-\ e75538197c4d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Building blocks", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^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.5568725291398897`*^9, 3.5568725438967333`*^9}, 3.5568726929512587`*^9, { 3.5576544837556367`*^9, 3.5576544886852455`*^9}, {3.6852489036101027`*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}, { 3.813031714323161*^9, 3.813031718925788*^9}, {3.813031758195632*^9, 3.8130317648033185`*^9}, {3.813032384726508*^9, 3.813032390240255*^9}, { 3.814583256251114*^9, 3.8145832796753936`*^9}, {3.847106497254386*^9, 3.847106504438273*^9}},ExpressionUUID->"a4d07bda-386c-4147-8949-\ 2d16a7e38fc2"], Cell[CellGroupData[{ Cell["SHAPE FUNCTIONS", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.8145817138547506`*^9, 3.8145817395042872`*^9}, {3.814581776238999*^9, 3.814581799742174*^9}, { 3.814581962677523*^9, 3.8145819647221575`*^9}, {3.8145998190246944`*^9, 3.814599846730754*^9}, {3.8153778767843122`*^9, 3.815377881775329*^9}},ExpressionUUID->"26a0e207-cdc1-4165-8be3-\ adf109f96469"], Cell[CellGroupData[{ Cell["LINE ELEMENT", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}},ExpressionUUID->"beff35e0-db9c-4115-83a5-\ fe3bd9c72370"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"linear", " ", "C0"}], "-", RowBox[{"shape", " ", "functions"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], ",", "\[Xi]"}], "}"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146057637811375`*^9, 3.8146057751470695`*^9}, {3.8146058147992887`*^9, 3.8146059596916857`*^9}, 3.814606033537171*^9, {3.8159720947218275`*^9, 3.8159721193297033`*^9}, {3.815972652030098*^9, 3.815972652669269*^9}, { 3.815972699569892*^9, 3.8159727068500752`*^9}},ExpressionUUID->"82b3efc2-6bb9-4e06-a831-\ a581297e9cd5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"quadratic", " ", "C0"}], "-", RowBox[{"shape", " ", "functions"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Xi]"}], "-", "1"}], ")"}]}], ",", RowBox[{"4", "\[Xi]", RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}], ",", RowBox[{"\[Xi]", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Xi]"}], "-", "1"}], ")"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146057637811375`*^9, 3.8146057751470695`*^9}, {3.8146058147992887`*^9, 3.8146059596916857`*^9}, {3.814606033537171*^9, 3.814606149102341*^9}, { 3.814606180892046*^9, 3.814606298412548*^9}, {3.8146063579039745`*^9, 3.8146063647835994`*^9}, {3.815972100639989*^9, 3.8159721056615915`*^9}, { 3.8159726431906357`*^9, 3.8159726687298455`*^9}, {3.815972794809167*^9, 3.81597291894991*^9}},ExpressionUUID->"220b5cf6-939b-4624-82fc-\ 1d448a11a7d2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"cubic", " ", "C1"}], "-", RowBox[{"shape", " ", "functions"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "^", "2"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", " ", RowBox[{"h", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "^", "2"}], "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "\[Xi]"}]}], ")"}], RowBox[{"\[Xi]", "^", "2"}]}], ",", " ", RowBox[{"h", " ", RowBox[{"\[Xi]", "^", "2"}], RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146057637811375`*^9, 3.8146057751470695`*^9}, {3.8146058147992887`*^9, 3.8146059596916857`*^9}, {3.814606033537171*^9, 3.814606149102341*^9}, { 3.814606180892046*^9, 3.814606298412548*^9}, {3.8146063579039745`*^9, 3.8146063647835994`*^9}, {3.815972100639989*^9, 3.815972177149772*^9}, { 3.8159722449999447`*^9, 3.8159723302194176`*^9}, {3.8159723636896453`*^9, 3.8159724672992663`*^9}, 3.815972537989519*^9, {3.8159726362499347`*^9, 3.815972636939266*^9}},ExpressionUUID->"db6e53ee-3185-4c35-a060-\ 4c2c3960cadb"] }, Open ]], Cell[CellGroupData[{ Cell["TRIANGLE ELEMENT", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}},ExpressionUUID->"cdd99db5-8666-4302-8515-\ 913bb1a6313b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "shape", " ", "functions", " ", "of", " ", "a", " ", "triangle", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{ 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"}], "}"}]}]}], ";"}]}]], "Input",Expressi\ onUUID->"1725c647-4f9c-49d0-a45b-a8ea26e92db3"] }, Closed]], Cell[CellGroupData[{ Cell["RECTANGLE ELEMENT", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}, {3.847503180118764*^9, 3.847503184782567*^9}},ExpressionUUID->"deaa1804-8901-4753-b24f-\ eefcd2c5135b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "shape", " ", "functions", " ", "of", " ", "a", " ", "rectangle", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"X1", ",", "X2", ",", "X3", ",", "X4"}], "}"}], ",", RowBox[{"{", RowBox[{"Y1", ",", "Y2", ",", "Y3", ",", "Y4"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"X1", ",", "X2", ",", "X3", ",", "X4"}], "}"}], "*", RowBox[{"{", RowBox[{"Y1", ",", "Y2", ",", "Y3", ",", "Y4"}], "}"}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", " ", "y"}]}], "}"}]}]}], ";"}]}]], "Input", CellChangeTimes->{{3.847503191153941*^9, 3.84750323154117*^9}},ExpressionUUID->"ebd79481-f6b0-43a0-ab31-\ 430e97161f6d"] }, Closed]], Cell[CellGroupData[{ Cell["TETRAHEDRON ELEMENT", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}, {3.8153780438876925`*^9, 3.8153780475063734`*^9}},ExpressionUUID->"b62ccebe-0bd1-47e2-89fb-\ e72a041260aa"], Cell[BoxData[ RowBox[{ RowBox[{"NN", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"X1", ",", "X2", ",", "X3", ",", "X4"}], "}"}], ",", RowBox[{"{", RowBox[{"Y1", ",", "Y2", ",", "Y3", ",", "Y4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Z1", ",", "Z2", ",", "Z3", ",", "Z4"}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", "z"}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.815378054358664*^9, 3.8153781050950427`*^9}, { 3.8153787116931453`*^9, 3.815379027185547*^9}, {3.815379059917926*^9, 3.8153790918471317`*^9}, {3.8153791328559084`*^9, 3.815379311525423*^9}, { 3.815972610109193*^9, 3.8159726230695896`*^9}, 3.8159730308794374`*^9},ExpressionUUID->"b131437e-cf1b-4c1f-abed-\ aace00b2891c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIRTUAL WORK DENSITIES", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874367`*^9}, {3.8145817138547506`*^9, 3.8145817395042872`*^9}, {3.814581776238999*^9, 3.814581799742174*^9}, { 3.814581962677523*^9, 3.8145819647221575`*^9}, {3.8145998190246944`*^9, 3.814599846730754*^9}, {3.8146008007283373`*^9, 3.81460080653517*^9}, { 3.8159703504602785`*^9, 3.8159703518851805`*^9}},ExpressionUUID->"efd0b1df-98d3-429f-9f61-\ 0554e5b7fda7"], Cell[CellGroupData[{ Cell["BEAM MODEL BAR MODE", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278812`*^9, 3.815555097192521*^9}, {3.81597039148044*^9, 3.815970392981469*^9}},ExpressionUUID->"2f6bd55d-333f-45fe-bb20-\ 912ec7ed2edf"], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], " ", "fx"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146008155128937`*^9, 3.8146008175253997`*^9}, {3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994005`*^9, 3.8146013530398593`*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, { 3.8146064870264406`*^9, 3.814606490130829*^9}, 3.814606610960127*^9, { 3.814606651276392*^9, 3.8146066606647425`*^9}, {3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159703281352887`*^9, 3.8159703402311783`*^9}},ExpressionUUID->"1761ef45-e737-40c4-bb87-\ 617517283619"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL THIN SLAB MODE", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.8153761757169156`*^9}, { 3.8155550612856245`*^9, 3.8155550857667856`*^9}, {3.8159703836711783`*^9, 3.815970385180562*^9}},ExpressionUUID->"8274c0a0-4338-4bbc-97c8-\ b1f410862c2d"], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]}], "}"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], " ", ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]}], "}"}]}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy"}], "}"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.8153768906625123`*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257746`*^9}, 3.815377636067772*^9, { 3.8153777436891727`*^9, 3.8153777579877353`*^9}, {3.815378317503425*^9, 3.8153783297840624`*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}},ExpressionUUID->"b6aa2776-54a6-460b-a154-\ ed882c8b2d3c"] }, Closed]], Cell[CellGroupData[{ Cell["KIRCHOFF PLATE MODEL BENDING MODE ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.8153761757169156`*^9}, { 3.8155550467937036`*^9, 3.815555075237017*^9}, {3.8159701001811857`*^9, 3.8159701045708075`*^9}, 3.8159703067500787`*^9, {3.815970387860293*^9, 3.815970397190421*^9}, {3.8159705041305027`*^9, 3.815970508450695*^9}},ExpressionUUID->"38381475-c1e0-49fa-b66e-\ 3a2e159443d8"], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.8153768906625123`*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257746`*^9}, 3.815377636067772*^9, { 3.8153777436891727`*^9, 3.8153777579877353`*^9}, {3.815378317503425*^9, 3.8153783297840624`*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.81555511380053*^9, 3.8155552250620823`*^9}, {3.8156489760003366`*^9, 3.81564898828447*^9}, 3.81573894466789*^9, {3.815970113711381*^9, 3.815970194260604*^9}, 3.815970415830834*^9},ExpressionUUID->"b2d2e567-805d-4daa-b55f-\ 96e2e0f89a05"] }, Closed]], Cell[CellGroupData[{ Cell["BERNOULLI BEAM MODEL", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278812`*^9, 3.815555097192521*^9}, {3.8159690015114365`*^9, 3.815969008535722*^9}, {3.815970405281172*^9, 3.815970412901128*^9}, { 3.815970487580885*^9, 3.8159704902508726`*^9}},ExpressionUUID->"16d8b5fc-c220-45ce-96b6-\ b5d2a9ae6b97"], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}], "}"}], "]"}], ".", RowBox[{"(", " ", RowBox[{"\[CapitalEpsilon]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"A", ",", RowBox[{"-", "Sz"}], ",", RowBox[{"-", "Sy"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "Sz"}], ",", "Izz", ",", "Iyz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Sy"}], ",", "Iyz", ",", "Iyy"}], "}"}]}], "}"}]}], ")"}], ".", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "]"}], " ", "G", " ", "Irr", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{"+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Sy"}], " ", "fy"}], "+", RowBox[{"Sz", " ", "fz"}]}], ",", RowBox[{"Sy", " ", "fx"}], ",", RowBox[{ RowBox[{"-", "Sz"}], " ", "fz"}]}], "}"}]}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146008155128937`*^9, 3.8146008175253997`*^9}, {3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994005`*^9, 3.8146013530398593`*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, { 3.8146064870264406`*^9, 3.814606490130829*^9}, 3.814606610960127*^9, { 3.814606651276392*^9, 3.8146066606647425`*^9}, {3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159690214478106`*^9, 3.815969041743673*^9}, 3.8159690882628455`*^9, {3.8159691405501328`*^9, 3.8159691579572124`*^9}, { 3.815969367681252*^9, 3.8159694523908916`*^9}, {3.8159694859224463`*^9, 3.815969763899327*^9}, {3.81596984881141*^9, 3.815970016580805*^9}, { 3.8159700491208305`*^9, 3.815970074430769*^9}, 3.8159702091702833`*^9},ExpressionUUID->"b9bf1c07-b634-412f-b557-\ 607cf36ba9b3"] }, Closed]], Cell[CellGroupData[{ Cell["TIMOSHENKO BEAM BENDING MODE", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278812`*^9, 3.815555097192521*^9}, {3.8159690015114365`*^9, 3.815969008535722*^9}, {3.815970405281172*^9, 3.815970412901128*^9}, { 3.815970487580885*^9, 3.8159704902508726`*^9}, {3.868839590633263*^9, 3.8688396075663366`*^9}},ExpressionUUID->"1d7d2bc9-cc40-4ece-9302-\ 7d216538de7b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEND", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_"}], "}"}], ",", RowBox[{"{", "fz_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "h", ",", "NN", ",", "ww", ",", "\[Theta]\[Theta]", ",", "x", ",", "\[Delta]w"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]\[Theta]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]w", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]\[Theta]"}], ")"}], "]"}]}], " ", "EE", " ", "Iyy", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]\[Theta]"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "ww"}], "-", "\[Theta]\[Theta]"}], ")"}], "]"}], " ", "GG", " ", "AA", " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "-", "\[Theta]\[Theta]"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "ww", "]"}], "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8689264514166803`*^9, 3.8689266592036023`*^9}, { 3.8689266961193247`*^9, 3.8689268492729845`*^9}, {3.8689268856054378`*^9, 3.8689270764020023`*^9}},ExpressionUUID->"8e206646-a479-439f-8bc7-\ 1858921737c9"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}], ")"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Izz", " ", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Phi]"}], ")"}], "]"}], " ", "G", " ", "A", " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Phi]"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{"\[Theta]", "+", "\[Phi]"}], ")"}], "]"}], " ", "G", " ", "A", " ", RowBox[{"(", RowBox[{"\[Theta]", "+", "\[Phi]"}], ")"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}], ")"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Izz", " ", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}], ")"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "-", "\[Theta]"}], ")"}], "]"}], " ", "G", " ", "A", " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "-", "\[Theta]"}], ")"}]}]}]}], ";"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], ",", RowBox[{"x", "/", "h"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], ",", RowBox[{"x", "/", "h"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], RowBox[{"x", "/", "h"}]}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"uZ", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}], ",", RowBox[{"a", "[", "3", "]"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], ",", RowBox[{"x", "/", "h"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], RowBox[{"x", "/", "h"}]}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"a", "[", "1", "]"}], ",", RowBox[{"a", "[", "2", "]"}], ",", RowBox[{"a", "[", "3", "]"}]}], "}"}]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"a", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]w", " ", "/.", RowBox[{"x", "->", RowBox[{"h", "/", "2"}]}]}], ")"}], "*", "h"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"eq", "=", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]a", "[", "1", "]"}], ",", RowBox[{"\[Delta]a", "[", "3", "]"}]}], "}"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"in", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"eq", "==", "0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "[", "1", "]"}], ",", RowBox[{"a", "[", "3", "]"}]}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"2", "\[Delta]W"}], " ", "/.", "in"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"row", "=", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]uZ", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]Y", "[", "1", "]"}], ",", RowBox[{"\[Delta]uZ", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]Y", "[", "2", "]"}]}], "}"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"row", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"uZ", "[", "1", "]"}], ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], "}"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.8122458946247807`*^9, 3.8122459117806697`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289297`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.8123470966072025`*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907806`*^9, 3.812347520634344*^9}, {3.8123475758734417`*^9, 3.812347579567418*^9}, { 3.8123477492891097`*^9, 3.812347762488459*^9}, {3.8123478282231417`*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943905`*^9, 3.8123481287065563`*^9}, {3.8123481606590233`*^9, 3.8123481635272818`*^9}, {3.8129373002804165`*^9, 3.8129374795649176`*^9}, {3.8129375608148932`*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, { 3.8129378361071234`*^9, 3.8129378848425455`*^9}, {3.812937928137231*^9, 3.8129379634791355`*^9}, {3.8129495347076764`*^9, 3.812949648561287*^9}, { 3.8130317918239193`*^9, 3.8130318138107257`*^9}, {3.8130318491063366`*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.8130356809995785`*^9}, { 3.813035723222085*^9, 3.8130357590144258`*^9}, {3.8130358624005957`*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, { 3.814582008240017*^9, 3.8145820248715706`*^9}, {3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.8145998741008406`*^9, 3.814600136314242*^9}, { 3.8146008155128937`*^9, 3.8146008175253997`*^9}, {3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994005`*^9, 3.8146013530398593`*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, { 3.8146064870264406`*^9, 3.814606490130829*^9}, 3.814606610960127*^9, { 3.814606651276392*^9, 3.8146066606647425`*^9}, {3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159690214478106`*^9, 3.815969041743673*^9}, 3.8159690882628455`*^9, {3.8159691405501328`*^9, 3.8159691579572124`*^9}, { 3.815969367681252*^9, 3.8159694523908916`*^9}, {3.8159694859224463`*^9, 3.815969763899327*^9}, {3.81596984881141*^9, 3.815970016580805*^9}, { 3.8159700491208305`*^9, 3.815970074430769*^9}, 3.8159702091702833`*^9, { 3.868839621893051*^9, 3.868839771587915*^9}, 3.8688398053523407`*^9, { 3.8688398367891207`*^9, 3.8688398850903797`*^9}, {3.8688399658726144`*^9, 3.8688403826403933`*^9}, {3.8688404388097873`*^9, 3.8688405412616615`*^9}, {3.8688405873885717`*^9, 3.8688406242596006`*^9}, {3.868840722590083*^9, 3.8688408650861444`*^9}, { 3.8688409575099587`*^9, 3.8688409750909247`*^9}, {3.86884111231605*^9, 3.868841152750345*^9}, {3.868841277826312*^9, 3.868841345518242*^9}, { 3.868841393321329*^9, 3.868841400908372*^9}, {3.868841569302935*^9, 3.868841612272447*^9}, {3.8688416872872543`*^9, 3.8688416887148647`*^9}, { 3.868841848820631*^9, 3.868841988725855*^9}, {3.8689226624734836`*^9, 3.8689226746848593`*^9}, {3.8689227086923685`*^9, 3.868922717739377*^9}, { 3.868922777671633*^9, 3.8689228379085646`*^9}, {3.8689229365066185`*^9, 3.8689229375172243`*^9}, {3.8689229783754697`*^9, 3.8689229793351035`*^9}, {3.868923023978821*^9, 3.868923086238701*^9}, { 3.868923341072064*^9, 3.8689233749431515`*^9}, {3.8689234050106277`*^9, 3.86892341432819*^9}, {3.8689236213418117`*^9, 3.868923647692445*^9}, { 3.8689236817614613`*^9, 3.8689236940123463`*^9}, {3.868923772638731*^9, 3.868923778373354*^9}, {3.868924064980424*^9, 3.868924065276986*^9}, { 3.8689241685654635`*^9, 3.8689242316610155`*^9}, {3.8689243148696394`*^9, 3.868924332654109*^9}, {3.8689245583972816`*^9, 3.8689246194051533`*^9}, { 3.868924689476783*^9, 3.8689247470373745`*^9}, {3.8689247790420146`*^9, 3.8689247815355997`*^9}, {3.8689249658905296`*^9, 3.868925035870536*^9}, { 3.8689250900895967`*^9, 3.8689252400915794`*^9}, {3.8689252782076626`*^9, 3.868925284663953*^9}, {3.8689253599915447`*^9, 3.8689253712499285`*^9}, { 3.8689254284565816`*^9, 3.86892545950464*^9}, {3.8689255368922944`*^9, 3.868925550600671*^9}, {3.86892610346947*^9, 3.868926197567049*^9}}, CellLabel-> "In[277]:=",ExpressionUUID->"895a1926-bec9-49c5-ac58-eae8d1474468"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"uZ", "[", "1", "]"}], "-", RowBox[{"uZ", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"a", "[", "1", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Theta]Y", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}], RowBox[{"6", " ", "h"}]], ",", RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G", " ", RowBox[{"a", "[", "3", "]"}]}], RowBox[{"3", " ", "h"}]]}]}], "}"}]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435705404`*^9, 3.868922980873488*^9, 3.8689230284704123`*^9, 3.8689230619110165`*^9, 3.86892338206071*^9, 3.8689234155059304`*^9, 3.8689236520991683`*^9, {3.8689236871967106`*^9, 3.8689236965685816`*^9}, 3.868923781710143*^9, 3.868924036709688*^9, {3.868924217257798*^9, 3.868924232902706*^9}, 3.868924334094733*^9, 3.8689246296023083`*^9, 3.868924756299762*^9, 3.8689247873991365`*^9, 3.8689249756613655`*^9, { 3.868925015265108*^9, 3.868925037397746*^9}, 3.868925471731872*^9, 3.868925560323228*^9, 3.868926174223675*^9, 3.868926222659791*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"289adb74-79ce-4d9d-b9de-871807df2b9c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"uZ", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"uZ", "[", "2", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Theta]Y", "[", "2", "]"}]}]}], RowBox[{"4", " ", "h"}]]}], ",", RowBox[{ RowBox[{"a", "[", "3", "]"}], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435705404`*^9, 3.868922980873488*^9, 3.8689230284704123`*^9, 3.8689230619110165`*^9, 3.86892338206071*^9, 3.8689234155059304`*^9, 3.8689236520991683`*^9, {3.8689236871967106`*^9, 3.8689236965685816`*^9}, 3.868923781710143*^9, 3.868924036709688*^9, {3.868924217257798*^9, 3.868924232902706*^9}, 3.868924334094733*^9, 3.8689246296023083`*^9, 3.868924756299762*^9, 3.8689247873991365`*^9, 3.8689249756613655`*^9, { 3.868925015265108*^9, 3.868925037397746*^9}, 3.868925471731872*^9, 3.868925560323228*^9, 3.868926174223675*^9, 3.8689262227366176`*^9}, CellLabel-> "Out[283]=",ExpressionUUID->"45c6cb63-a671-41e9-9f97-bee34dfafdce"], Cell[BoxData[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"12", " ", "h"}]], RowBox[{"(", RowBox[{ RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]Y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"uZ", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uZ", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uZ", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]Y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", RowBox[{"uZ", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uZ", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uZ", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]Y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uZ", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"6", " ", RowBox[{"\[Delta]uZ", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]Y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]Y", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"5", " ", RowBox[{"\[Theta]Y", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435705404`*^9, 3.868922980873488*^9, 3.8689230284704123`*^9, 3.8689230619110165`*^9, 3.86892338206071*^9, 3.8689234155059304`*^9, 3.8689236520991683`*^9, {3.8689236871967106`*^9, 3.8689236965685816`*^9}, 3.868923781710143*^9, 3.868924036709688*^9, {3.868924217257798*^9, 3.868924232902706*^9}, 3.868924334094733*^9, 3.8689246296023083`*^9, 3.868924756299762*^9, 3.8689247873991365`*^9, 3.8689249756613655`*^9, { 3.868925015265108*^9, 3.868925037397746*^9}, 3.868925471731872*^9, 3.868925560323228*^9, 3.868926174223675*^9, 3.8689262227570486`*^9}, CellLabel-> "Out[284]=",ExpressionUUID->"83757d0d-8ad6-4378-a522-41d2b2d74383"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"uZ", "[", "1", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"uZ", "[", "2", "]"}]}], "+", RowBox[{"6", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{"12", " ", "h"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "h", " ", RowBox[{"uZ", "[", "1", "]"}]}], "-", RowBox[{"6", " ", "h", " ", RowBox[{"uZ", "[", "2", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], RowBox[{"12", " ", "h"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"uZ", "[", "1", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"uZ", "[", "2", "]"}]}], "-", RowBox[{"6", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{"12", " ", "h"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", "Izz", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"A", " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "h", " ", RowBox[{"uZ", "[", "1", "]"}]}], "-", RowBox[{"6", " ", "h", " ", RowBox[{"uZ", "[", "2", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]Y", "[", "1", "]"}], "+", RowBox[{"5", " ", RowBox[{"\[Theta]Y", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], RowBox[{"12", " ", "h"}]]}]}], "}"}]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435705404`*^9, 3.868922980873488*^9, 3.8689230284704123`*^9, 3.8689230619110165`*^9, 3.86892338206071*^9, 3.8689234155059304`*^9, 3.8689236520991683`*^9, {3.8689236871967106`*^9, 3.8689236965685816`*^9}, 3.868923781710143*^9, 3.868924036709688*^9, {3.868924217257798*^9, 3.868924232902706*^9}, 3.868924334094733*^9, 3.8689246296023083`*^9, 3.868924756299762*^9, 3.8689247873991365`*^9, 3.8689249756613655`*^9, { 3.868925015265108*^9, 3.868925037397746*^9}, 3.868925471731872*^9, 3.868925560323228*^9, 3.868926174223675*^9, 3.8689262227779913`*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"42c220d1-4108-4cc0-9167-94acd4ac46ff"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], FractionBox[ RowBox[{"A", " ", "G"}], "h"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"5", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "h"], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"5", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"24", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435705404`*^9, 3.868922980873488*^9, 3.8689230284704123`*^9, 3.8689230619110165`*^9, 3.86892338206071*^9, 3.8689234155059304`*^9, 3.8689236520991683`*^9, {3.8689236871967106`*^9, 3.8689236965685816`*^9}, 3.868923781710143*^9, 3.868924036709688*^9, {3.868924217257798*^9, 3.868924232902706*^9}, 3.868924334094733*^9, 3.8689246296023083`*^9, 3.868924756299762*^9, 3.8689247873991365`*^9, 3.8689249756613655`*^9, { 3.868925015265108*^9, 3.868925037397746*^9}, 3.868925471731872*^9, 3.868925560323228*^9, 3.868926174223675*^9, 3.868926222798935*^9}, CellLabel-> "Out[286]//MatrixForm=",ExpressionUUID->"1039b9b6-c8fd-48b9-99b7-\ 3044e37f002e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.8689229732002444`*^9},ExpressionUUID->"dd420e93-3cec-4c17-b406-\ 07e7b5f850d1"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], FractionBox[ RowBox[{"A", " ", "G"}], "h"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "h"], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.8688414022829313`*^9, 3.868841630622016*^9, 3.868841689992546*^9, {3.868841923203106*^9, 3.8688419912125196`*^9}, 3.8689227331360445`*^9, 3.868922782386657*^9, 3.86892284648442*^9, 3.8689229435824757`*^9}, CellLabel-> "Out[51]//MatrixForm=",ExpressionUUID->"1664895e-1be8-43e9-86bd-\ 5054a9e1ed34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.868841619965938*^9},ExpressionUUID->"6e1716e3-0607-4180-b6a6-\ 3067b7546c71"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], FractionBox[ RowBox[{"A", " ", "G"}], "h"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"4", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"4", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"4", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "h"], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"4", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"4", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"4", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.868841170375947*^9, 3.8688413602598495`*^9, 3.868841402289912*^9}, CellLabel-> "Out[90]//MatrixForm=",ExpressionUUID->"263dff38-a016-48e3-b2f9-\ eaed54f8d8f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.868841351212673*^9},ExpressionUUID->"28ca2f67-313a-4d7e-a4b1-\ 97dc9df59bf0"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], FractionBox[ RowBox[{"A", " ", "G"}], "h"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "h"], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"]}, { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8688402630307913`*^9, 3.8688403751336284`*^9, 3.8688405056851473`*^9, 3.8688405443517485`*^9, 3.8688405957424936`*^9, 3.8688406395451055`*^9, 3.8688407979184427`*^9, 3.868840867280702*^9, 3.8688411703839254`*^9}, CellLabel-> "Out[74]//MatrixForm=",ExpressionUUID->"a17ce002-b9b1-4658-950c-\ 473dbd49e444"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.8688411635171103`*^9},ExpressionUUID->"4924e35c-e415-4366-b2d7-\ 8ddaf970271e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"2", "*", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], RowBox[{"2", " ", "h"}]]}], FractionBox[ RowBox[{"A", " ", "G"}], "4"], FractionBox[ RowBox[{"A", " ", "G"}], RowBox[{"2", " ", "h"}]], FractionBox[ RowBox[{"A", " ", "G"}], "4"]}, { FractionBox[ RowBox[{"A", " ", "G"}], "4"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "4"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], RowBox[{"2", " ", "h"}]], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "4"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], RowBox[{"2", " ", "h"}]]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "4"]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "4"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "4"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"12", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "]"}]], "Input", CellChangeTimes->{{3.868841466246236*^9, 3.8688414827244644`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"7da31417-9e19-40cb-8902-ef14dfab47bd"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], FractionBox[ RowBox[{"A", " ", "G"}], "2"], FractionBox[ RowBox[{"A", " ", "G"}], "h"], FractionBox[ RowBox[{"A", " ", "G"}], "2"]}, { FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "h"], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "h"]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}]}, { FractionBox[ RowBox[{"A", " ", "G"}], "2"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"A", " ", "G", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}], RowBox[{"-", FractionBox[ RowBox[{"A", " ", "G"}], "2"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "A", " ", "G", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"12", " ", "Izz", " ", "\[CapitalEpsilon]"}]}], RowBox[{"6", " ", "h"}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.8688414689806814`*^9, 3.8688414844143224`*^9}}, CellLabel-> "Out[92]//MatrixForm=",ExpressionUUID->"7958e287-6aeb-4e51-9391-\ 920374f2f82a"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Problems and solutions", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713873997`*^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.5568725291398897`*^9, 3.5568725438967333`*^9}, 3.5568726929512587`*^9, { 3.5576544837556367`*^9, 3.5576544886852455`*^9}, {3.6852489036101027`*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}},ExpressionUUID->"662fb6d2-1542-4110-a411-\ 74af252f2ddf"], Cell[CellGroupData[{ Cell["INTRODUCTION (week 43)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.8127824542431855`*^9, 3.8127840219912105`*^9, {3.873870769052664*^9, 3.873870784733511*^9}},ExpressionUUID->"44d3756d-7928-4bfe-8691-\ d3a11e8f50ca"], Cell[CellGroupData[{ Cell["Lecture example 1.1 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}},ExpressionUUID->"77046139-e971-4f72-9fa0-\ ff643348e08e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "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"}], "}"}]}], "}"}], ",", "\[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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.8113163783757467`*^9, 3.8113164448925743`*^9}, {3.8114308075218377`*^9, 3.811430991247053*^9}, {3.8114828410116625`*^9, 3.811482960391885*^9}, { 3.8114830961578193`*^9, 3.811483098501501*^9}, {3.811483382572585*^9, 3.811483382935086*^9}, {3.8114834832613883`*^9, 3.8114834914024396`*^9}, { 3.8436260969203086`*^9, 3.8436261031043243`*^9}}, CellLabel-> "In[400]:=",ExpressionUUID->"d18f22c0-e634-4475-a194-898b117fce72"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.2 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9},ExpressionUUID->"8d1c9a9e-cf7e-495e-a89b-\ 2f2dfa8e76d9"], 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.8113163783757467`*^9, 3.8113164448925743`*^9}, {3.8114308075218377`*^9, 3.811430991247053*^9}, {3.8114828410116625`*^9, 3.811482960391885*^9}, { 3.8114830961578193`*^9, 3.811483098501501*^9}, {3.811483382572585*^9, 3.811483382935086*^9}, {3.8114834832613883`*^9, 3.8114834914024396`*^9}, { 3.8436260969203086`*^9, 3.8436261031043243`*^9}, {3.8441396648523626`*^9, 3.844139698743224*^9}, 3.8441397312638173`*^9, {3.844847752352726*^9, 3.8448478437279005`*^9}, {3.8450083826878877`*^9, 3.845008568686053*^9}, { 3.845008604912586*^9, 3.845008642697112*^9}}, CellLabel-> "In[529]:=",ExpressionUUID->"74a282c9-dbdf-42c1-bc90-eb641d708739"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.9070594428272266`*^9, 3.907059451261857*^9}, {3.9070598254326196`*^9, 3.9070598255914164`*^9}},ExpressionUUID->"0828ab34-f1f0-4786-a3e5-\ abff73a14015"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"defs", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"n", "->", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g", RowBox[{"(", RowBox[{"L", "-", "x"}], ")"}]}]}], ",", RowBox[{"\[Sigma]", "->", RowBox[{"n", "/", "A"}]}], ",", RowBox[{"\[Epsilon]", "->", RowBox[{"\[Sigma]", "/", "\[CapitalEpsilon]"}]}]}], " ", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "x", "]"}], "==", "\[Epsilon]"}], "//.", "defs"}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "==", "0"}]}], "}"}], ",", RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.8113163783757467`*^9, 3.8113164448925743`*^9}, {3.8114308075218377`*^9, 3.811430991247053*^9}, {3.8114828410116625`*^9, 3.811482960391885*^9}, { 3.8114830961578193`*^9, 3.811483098501501*^9}, {3.811483382572585*^9, 3.811483382935086*^9}, {3.8114834832613883`*^9, 3.8114834914024396`*^9}, { 3.8436260969203086`*^9, 3.8436261031043243`*^9}, {3.8441396648523626`*^9, 3.844139698743224*^9}, 3.8441397312638173`*^9, {3.844847752352726*^9, 3.8448478437279005`*^9}, {3.8450083826878877`*^9, 3.845008568686053*^9}, { 3.845008604912586*^9, 3.845008642697112*^9}, {3.9070594623577037`*^9, 3.9070594785013037`*^9}, {3.907059537155252*^9, 3.907059661062056*^9}, { 3.9070597307664227`*^9, 3.907059773659057*^9}, {3.907059855324664*^9, 3.9070599158958683`*^9}, {3.907059960396301*^9, 3.907060146336898*^9}}, CellLabel-> "In[410]:=",ExpressionUUID->"e719fef8-7be9-40fe-a055-065eb19af5fa"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.9070594428272266`*^9, 3.907059451261857*^9}},ExpressionUUID->"69a9bcc8-7d88-4a90-bf0a-\ a5c2e39194b8"], Cell[BoxData[ RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ RowBox[{"u", "''"}], "[", "x", "]"}]}], "-", RowBox[{"\[Rho]", " ", "A", " ", "g"}]}], "==", "0"}], ",", RowBox[{ RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ RowBox[{"u", "'"}], "[", "L", "]"}]}], "==", "0"}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "==", "0"}]}], "}"}], ",", RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.8113163783757467`*^9, 3.8113164448925743`*^9}, {3.8114308075218377`*^9, 3.811430991247053*^9}, {3.8114828410116625`*^9, 3.811482960391885*^9}, { 3.8114830961578193`*^9, 3.811483098501501*^9}, {3.811483382572585*^9, 3.811483382935086*^9}, {3.8114834832613883`*^9, 3.8114834914024396`*^9}, { 3.8436260969203086`*^9, 3.8436261031043243`*^9}, {3.8441396648523626`*^9, 3.844139698743224*^9}, 3.8441397312638173`*^9, {3.844847752352726*^9, 3.8448478437279005`*^9}, {3.8450083826878877`*^9, 3.845008568686053*^9}, { 3.845008604912586*^9, 3.845008642697112*^9}, {3.9070594623577037`*^9, 3.9070594785013037`*^9}, {3.907059537155252*^9, 3.907059661062056*^9}, { 3.9070597307664227`*^9, 3.907059773659057*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"f8ff4e8a-36b4-41d7-ad29-115478da0b18"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (Beam model)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.9070594428272266`*^9, 3.907059451261857*^9}, {3.9070602051750107`*^9, 3.907060253424178*^9}, { 3.9072942000837173`*^9, 3.90729420361034*^9}},ExpressionUUID->"091cea45-6406-4533-b810-\ 82f5d9ce0207"], Cell[BoxData[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "''''"}], "[", "x", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"w", "[", "0", "]"}], "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"w", "'"}], "[", "0", "]"}], "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"w", "''"}], "[", "L", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"w", "'''"}], "[", "L", "]"}], "==", FractionBox[ RowBox[{"m", " ", "g"}], "EI"]}]}], "}"}], ",", "w", ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "L", "]"}], " ", "/.", "sol"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.6297833622479496`*^9, 3.6297833821535845`*^9}, {3.6297834663625326`*^9, 3.6297834719785423`*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.6297840054526796`*^9, 3.6297840056398797`*^9}, {3.6297840416291428`*^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.6297860683067026`*^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.6297874597063127`*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.6297885659354553`*^9, 3.6297885755294724`*^9}, {3.6297892278758183`*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.6297893332852035`*^9}, { 3.6297914556533313`*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.6298702559641933`*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.6306586027288923`*^9}, { 3.630658768962784*^9, 3.6306589911851745`*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.6306734854495883`*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.6306752822962494`*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.6306754692369413`*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.6306757374963827`*^9}, {3.6306758978040085`*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.6852523453938932`*^9, 3.68525240748398*^9}, {3.6852525490681486`*^9, 3.6852525670281763`*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.6852714610531816`*^9, 3.6852714662331886`*^9}, { 3.685340224314878*^9, 3.6853402425549035`*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, {3.686377605391159*^9, 3.6863776382012053`*^9}, {3.6863791342332993`*^9, 3.6863791914533796`*^9}, {3.7180899777435303`*^9, 3.71808999856365*^9}, { 3.7489257406582375`*^9, 3.748925755701603*^9}, {3.7489258070801616`*^9, 3.7489258388695903`*^9}, {3.7489262268855066`*^9, 3.7489262540513067`*^9}, {3.8757588015446796`*^9, 3.875758802532123*^9}, { 3.9072944718207006`*^9, 3.9072945781401596`*^9}, {3.9072948074640346`*^9, 3.907294862153435*^9}, {3.907294905963935*^9, 3.9072949145284724`*^9}, { 3.907295100122578*^9, 3.9072952141316767`*^9}, {3.9072952457916174`*^9, 3.907295285356176*^9}, {3.9072953294309063`*^9, 3.907295362829402*^9}}, CellLabel-> "In[406]:=",ExpressionUUID->"7e9d547e-959f-4460-9408-d61adde3f05e"] }, Closed]], Cell[CellGroupData[{ Cell["Modelling assignment; geometry", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.874383640626912*^9, 3.874383669123618*^9}, {3.874383711827224*^9, 3.8743837490598755`*^9}, { 3.874537813236672*^9, 3.8745378189111357`*^9}},ExpressionUUID->"cc7586ab-4785-4747-a59a-\ 9aee26fc75f8"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"H", "->", "0.161"}], ",", RowBox[{"W", "->", "0.483"}], ",", "\[IndentingNewLine]", RowBox[{"b", "->", "0.04"}], ",", RowBox[{"a", "->", "0.07"}], ",", RowBox[{"w", "->", RowBox[{"a", "-", "t"}]}], ",", RowBox[{"h", "->", RowBox[{"b", "-", RowBox[{"t", "/", "2"}]}]}], ",", RowBox[{"t", "\[Rule]", "0.003"}], ",", RowBox[{"r", "->", RowBox[{"2", " ", "t"}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.3"}], ",", RowBox[{"G", "->", RowBox[{"\[CapitalEpsilon]", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "\[Nu]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"F", " ", "->", RowBox[{ RowBox[{"-", "m"}], " ", "g"}]}], ",", " ", RowBox[{"T", "->", " ", RowBox[{ RowBox[{"-", "F"}], " ", "H"}]}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"m", "->", "0.5"}], ",", RowBox[{"d", "->", "0.01"}], ",", "\[IndentingNewLine]", RowBox[{"A", "->", RowBox[{"RegionMoment", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", " ", RowBox[{"Iy", "->", RowBox[{"RegionMoment", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Iz", "->", RowBox[{"RegionMoment", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}]}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"val", " ", "/.", RowBox[{"Rule", "\[Rule]", "List"}]}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", RowBox[{"Spacings", "->", RowBox[{"{", RowBox[{"5", ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.9028800479009137`*^9, 3.90288031048355*^9}, { 3.9028803529676685`*^9, 3.9028804865411305`*^9}, {3.9028805202248187`*^9, 3.902880553649391*^9}, {3.9028805966493835`*^9, 3.9028806050385604`*^9}, { 3.9028806865952044`*^9, 3.9028806920662065`*^9}, {3.902881152930746*^9, 3.9028811531187143`*^9}, {3.9028848695923743`*^9, 3.902884893696987*^9}, { 3.902884924952547*^9, 3.9028853453425827`*^9}, {3.902885492451228*^9, 3.9028855053565598`*^9}, {3.902885547914585*^9, 3.902885559284254*^9}, { 3.9028855911488247`*^9, 3.902885932733777*^9}, {3.9028859812297354`*^9, 3.90288619556909*^9}, {3.9028862465622663`*^9, 3.902886310423773*^9}, 3.902886387114439*^9, {3.902886419433519*^9, 3.902886477154584*^9}, { 3.9028865169645414`*^9, 3.9028867800569196`*^9}, 3.9028869991761446`*^9, { 3.902887664884598*^9, 3.902887690916746*^9}, {3.902887724471738*^9, 3.9028877890120983`*^9}, {3.902887864066347*^9, 3.902887875670392*^9}, { 3.9028882339338775`*^9, 3.9028883686471467`*^9}, {3.90288845524446*^9, 3.9028885673634367`*^9}, {3.902888627941657*^9, 3.902888688009737*^9}, { 3.902888787553671*^9, 3.9028889321692142`*^9}, {3.902890433420929*^9, 3.902890585029571*^9}, {3.90289340982415*^9, 3.9028934132671537`*^9}, { 3.9028934532276974`*^9, 3.902893484970402*^9}, {3.902893537845478*^9, 3.902893567945058*^9}, {3.9028936064448624`*^9, 3.9028936482227907`*^9}, { 3.9028936970946765`*^9, 3.902893766558965*^9}, {3.902893850509468*^9, 3.9028939022478175`*^9}, {3.9028939996868477`*^9, 3.902894010924965*^9}, { 3.9028940858287735`*^9, 3.9028941260849843`*^9}, {3.902894170507168*^9, 3.9028941746381054`*^9}, {3.9028942293090944`*^9, 3.9028942296683435`*^9}, 3.902894272284472*^9, {3.9028944081314774`*^9, 3.902894413490119*^9}, { 3.9028946346478615`*^9, 3.902894634767796*^9}, {3.90289471845652*^9, 3.902894723742114*^9}, {3.902895205201014*^9, 3.9028952053573303`*^9}, { 3.9028954324763665`*^9, 3.9028954326114016`*^9}, {3.9028962276241426`*^9, 3.902896229018546*^9}, {3.9028965091635437`*^9, 3.902896509357441*^9}, { 3.9028967764137526`*^9, 3.902896781611439*^9}, {3.903056867330237*^9, 3.90305690839174*^9}, {3.9030602472746544`*^9, 3.9030602511741977`*^9}, { 3.903063250178061*^9, 3.903063250810023*^9}, 3.903065828116034*^9, { 3.9030658853757353`*^9, 3.9030658863063684`*^9}, {3.9030666009546185`*^9, 3.9030666027975564`*^9}, {3.9030671023036623`*^9, 3.9030671037825117`*^9}, {3.9044484401263113`*^9, 3.9044485373091574`*^9}, {3.9045208315403957`*^9, 3.9045208328169537`*^9}, {3.9046206637365646`*^9, 3.9046206663908596`*^9}, {3.904620839996279*^9, 3.904620844299779*^9}, { 3.904620888269348*^9, 3.904620904736267*^9}, {3.9046212148200345`*^9, 3.9046212152178164`*^9}, {3.9046212748479657`*^9, 3.904621292477906*^9}, { 3.9046214106401815`*^9, 3.9046214512330866`*^9}, {3.904621728744166*^9, 3.904621731606511*^9}, {3.904698299819185*^9, 3.904698312583296*^9}, { 3.90469925055713*^9, 3.9046992653005686`*^9}, {3.905985061403754*^9, 3.905985074765585*^9}, {3.9059858219209523`*^9, 3.9059858285496016`*^9}, 3.9059858705871487`*^9, {3.906517537492034*^9, 3.906517543225077*^9}, { 3.9065176062164803`*^9, 3.906517610740589*^9}, {3.9065998766283817`*^9, 3.906599981410654*^9}, {3.906600019541809*^9, 3.9066001062717485`*^9}, { 3.9066004733918037`*^9, 3.906600478883144*^9}, {3.9066106077119126`*^9, 3.906610610304772*^9}, {3.906612813486188*^9, 3.906612815985945*^9}, { 3.9066128915930777`*^9, 3.906612893281198*^9}, {3.9066196162867084`*^9, 3.9066196243522735`*^9}, {3.906621976853161*^9, 3.9066219788682323`*^9}, { 3.9066222965303645`*^9, 3.906622297753539*^9}, {3.9066348633038692`*^9, 3.906634864152594*^9}, {3.9066372458850985`*^9, 3.9066372463884897`*^9}, { 3.9066985368999147`*^9, 3.906698667214075*^9}, 3.906699763580487*^9, 3.9066998149313817`*^9, {3.906700758313622*^9, 3.9067007596216316`*^9}, { 3.9067008132087097`*^9, 3.9067008165650434`*^9}, 3.9067670927843328`*^9, { 3.9068039709552574`*^9, 3.906803977585316*^9}, {3.906804867721632*^9, 3.906804884745738*^9}, {3.9068049150057697`*^9, 3.9068049155779905`*^9}, { 3.906804992609104*^9, 3.9068050022741923`*^9}, {3.9068603858538337`*^9, 3.9068603871998153`*^9}, 3.9068605791993732`*^9, {3.9068606542044916`*^9, 3.9068606711352525`*^9}, {3.906860726042963*^9, 3.906860744871123*^9}, { 3.906860792954193*^9, 3.906860793445734*^9}, {3.907046850193688*^9, 3.9070468554804387`*^9}, {3.907287555906*^9, 3.9072875850476246`*^9}, { 3.907287699712514*^9, 3.9072877086741304`*^9}, {3.9072878385497*^9, 3.9072878527240777`*^9}}, CellLabel-> "In[400]:=",ExpressionUUID->"38e28281-3c3b-4f4e-86e0-796018ed7b8d"] }, Closed]], Cell[CellGroupData[{ Cell["Modelling assignment (4); beam model kb and kt", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.874383640626912*^9, 3.874383669123618*^9}, {3.874383711827224*^9, 3.8743837185893073`*^9}, { 3.874383752403222*^9, 3.8743837566130276`*^9}, {3.8744845034920464`*^9, 3.874484509644079*^9}, {3.8745375725483418`*^9, 3.8745375782915354`*^9}, { 3.8751497755483794`*^9, 3.8751497909726963`*^9}, {3.907294083748747*^9, 3.9072941062316504`*^9}, {3.907294251575308*^9, 3.9072942832436595`*^9}, { 3.907294343819357*^9, 3.9072943861717954`*^9}},ExpressionUUID->"db8c8ffe-c767-4353-b874-\ 6bd7dd14decc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"cross", "-", RowBox[{"section", " ", "properties"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"t", RowBox[{"(", RowBox[{"w", "+", RowBox[{"2", "h"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"II", "=", RowBox[{ RowBox[{"(", RowBox[{"t", " ", RowBox[{ RowBox[{"h", "^", "3"}], "/", "3"}]}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "w"}], "+", "h"}], ")"}], "/", RowBox[{"(", RowBox[{"w", "+", RowBox[{"2", "h"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JJ", "=", RowBox[{ RowBox[{"t", "^", "2"}], " ", RowBox[{"AA", "/", "3"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"rigidities", " ", "by", " ", "beam", " ", "model"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kb", "=", FractionBox[ RowBox[{"3", " ", "\[CapitalEpsilon]", " ", "II"}], RowBox[{"L", "^", "3", " "}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"kb", " ", "//.", "val"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"kt", "=", FractionBox[ RowBox[{"G", " ", "JJ"}], RowBox[{"L", " "}]]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"kt", "//.", "val"}]}]}]], "Input", CellChangeTimes->{{3.906687638638194*^9, 3.9066877209213095`*^9}, { 3.906687828695365*^9, 3.9066878789122095`*^9}, {3.9066879184552126`*^9, 3.9066879207911415`*^9}, {3.906688068901322*^9, 3.9066880814409857`*^9}, { 3.9066881667468505`*^9, 3.9066882237254705`*^9}, {3.9066882816139174`*^9, 3.9066882904489717`*^9}, {3.9066949557544003`*^9, 3.906695023317442*^9}, { 3.9066952670838423`*^9, 3.906695304980102*^9}, {3.906695383233669*^9, 3.906695386109852*^9}, {3.9066987604780235`*^9, 3.9066989361493316`*^9}, { 3.906699018260008*^9, 3.9066991416541395`*^9}, {3.906858698659088*^9, 3.906858728680917*^9}, {3.906858779853595*^9, 3.90685879309895*^9}, { 3.906858846229452*^9, 3.906858854727929*^9}, {3.906860812696259*^9, 3.9068608320693426`*^9}, {3.9072878069302807`*^9, 3.907287828220253*^9}, { 3.9072878664324017`*^9, 3.90728798290551*^9}}, CellLabel-> "In[408]:=",ExpressionUUID->"40cd8923-1a22-45c4-8c6a-e754de809452"] }, Closed]], Cell[CellGroupData[{ Cell["Modelling assignment (5); experimental kb and kt", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604834`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.6624537732749796`*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.6852671273738394`*^9}, {3.685323461463516*^9, 3.6853234663335233`*^9}, {3.6858764211836576`*^9, 3.6858764235236607`*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.6862262151354065`*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.7323333512571926`*^9}, {3.7331067213066697`*^9, 3.7331067237279654`*^9}, {3.7331068562899733`*^9, 3.7331068586595364`*^9}, {3.8263620604029865`*^9, 3.8263620618424826`*^9}, {3.826370408732113*^9, 3.8263704239061346`*^9}, { 3.9063663650786505`*^9, 3.9063663839448757`*^9}, {3.907294042443997*^9, 3.907294058142712*^9}, {3.9072942917616663`*^9, 3.907294369573145*^9}},ExpressionUUID->"5085fbe1-8d45-4b6e-b627-\ 35d8c03b1479"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"raw", " ", "data", " ", "in", " ", "mm"}], ",", RowBox[{"kg", " ", RowBox[{"{", RowBox[{"m", ",", "w1", ",", "w4"}], "}"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dat", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.01", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", "1.86", ",", RowBox[{"-", "2.38"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"2", ",", "3.38", ",", RowBox[{"-", "4.50"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", "1.88", ",", RowBox[{"-", "2.40"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"2", ",", "3.40", ",", RowBox[{"-", "4.50"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", "1.89", ",", RowBox[{"-", "2.41"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0.00", ",", "0.01"}], "}"}]}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"data", " ", "processing"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "*", "g"}], ",", RowBox[{ RowBox[{"-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "*", "g", "*", "H"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "1000"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1000", "*", "W"}], ")"}]}]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{"tab", ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"linear", " ", "fits"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uF", "=", RowBox[{"tab", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Fe", "=", RowBox[{"Fit", "[", RowBox[{"uF", ",", RowBox[{"{", RowBox[{"1", ",", "u"}], "}"}], ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"uF", ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{"Fe", ",", RowBox[{"{", RowBox[{"u", ",", RowBox[{"Min", "[", RowBox[{"uF", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"uF", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]T", "=", RowBox[{"tab", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"{", RowBox[{"7", ",", "5"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Te", "=", RowBox[{"Fit", "[", RowBox[{"\[Theta]T", ",", RowBox[{"{", RowBox[{"1", ",", "\[Theta]"}], "}"}], ",", "\[Theta]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"\[Theta]T", ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\<\[Theta]\>\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{"Te", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"Min", "[", RowBox[{"\[Theta]T", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"\[Theta]T", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"experimental", " ", "rigidities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kb", "=", RowBox[{"D", "[", RowBox[{"Fe", ",", "u"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"kt", "=", RowBox[{"D", "[", RowBox[{"Te", ",", "\[Theta]"}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.733106852780861*^9, 3.7331068631478167`*^9}, { 3.733704160486324*^9, 3.7337041849321613`*^9}, {3.7337043584256268`*^9, 3.733704377477662*^9}, {3.733704548599193*^9, 3.733704572186263*^9}, { 3.7337048146705365`*^9, 3.7337048160864983`*^9}, {3.733705434674361*^9, 3.7337054381889544`*^9}, {3.733705498907897*^9, 3.7337054993885627`*^9}, 3.73370881269516*^9, 3.733979601661151*^9, 3.734065187935783*^9, { 3.734148041147998*^9, 3.7341480429836807`*^9}, {3.73414811923215*^9, 3.734148119898518*^9}, 3.734148201600356*^9, {3.734148483650632*^9, 3.734148490820776*^9}, {3.8285200440512066`*^9, 3.828520089160659*^9}, { 3.8285201621531105`*^9, 3.828520163182601*^9}, 3.828520200970649*^9, { 3.828520275616815*^9, 3.8285202846399856`*^9}, {3.828520338463078*^9, 3.828520401120282*^9}, {3.8285204709306216`*^9, 3.828520500648966*^9}, 3.8285205567811966`*^9, 3.828520587447936*^9, {3.82852072139697*^9, 3.8285208036137295`*^9}, {3.828520835795477*^9, 3.828520893048874*^9}, { 3.828520958476316*^9, 3.8285211016581855`*^9}, {3.828524797352789*^9, 3.8285248203538103`*^9}, {3.8285248620049944`*^9, 3.8285250665590053`*^9}, {3.8285251537795296`*^9, 3.8285252314877977`*^9}, {3.8285252640657787`*^9, 3.8285252701010447`*^9}, {3.8285253113039894`*^9, 3.8285253303352103`*^9}, {3.8285255679971385`*^9, 3.828525570902716*^9}, { 3.8285258052596617`*^9, 3.8285258060047455`*^9}, {3.828598578298962*^9, 3.828598629304908*^9}, {3.828598882110471*^9, 3.828598930034992*^9}, { 3.828599037900962*^9, 3.828599068599736*^9}, 3.8286782709003916`*^9, { 3.906516046947973*^9, 3.906516067326888*^9}, {3.9065177059882917`*^9, 3.906517716090234*^9}, {3.906607482885449*^9, 3.9066079318864136`*^9}, { 3.906608013843238*^9, 3.9066080631267743`*^9}, {3.9066081678603797`*^9, 3.9066082108439274`*^9}, {3.906608242936206*^9, 3.9066086060376506`*^9}, { 3.9066087216620197`*^9, 3.906608722118445*^9}, {3.906608805880791*^9, 3.906608865900728*^9}, {3.906608898227848*^9, 3.906608916447793*^9}, { 3.906608979410298*^9, 3.906608988437741*^9}, {3.906609047506358*^9, 3.9066091101413827`*^9}, {3.9066091570852127`*^9, 3.906609220417555*^9}, { 3.906609290474693*^9, 3.9066094426817665`*^9}, {3.906609483184121*^9, 3.90660952681184*^9}, {3.9066095770383883`*^9, 3.9066096203158665`*^9}, { 3.906609726182444*^9, 3.9066098763018923`*^9}, {3.906609910025752*^9, 3.9066099154343576`*^9}, {3.906610002929691*^9, 3.906610089460395*^9}, { 3.9066102309667454`*^9, 3.9066102535887613`*^9}, {3.9066108183591127`*^9, 3.906610820558589*^9}, {3.90661085507893*^9, 3.9066108707698565`*^9}, { 3.9066109930407867`*^9, 3.9066110060033975`*^9}, {3.9066112694962597`*^9, 3.9066113077947764`*^9}, {3.9066115938493843`*^9, 3.906611603913525*^9}, { 3.9066129063302984`*^9, 3.906612906781521*^9}, {3.9067118556424227`*^9, 3.906711930333401*^9}, {3.906711980465925*^9, 3.906712036203127*^9}, { 3.906712077610793*^9, 3.906712134615716*^9}, {3.9067121742618303`*^9, 3.906712197351356*^9}, {3.906712287509655*^9, 3.9067122902562747`*^9}, { 3.9067124271481977`*^9, 3.906712472320763*^9}, {3.9067125086402326`*^9, 3.9067125107814302`*^9}, {3.9067126160845723`*^9, 3.9067127633084016`*^9}, {3.906712803597307*^9, 3.9067128635706787`*^9}, { 3.9067129354586983`*^9, 3.906712956924255*^9}, 3.9068588717300577`*^9, { 3.9068589625193276`*^9, 3.9068590536458178`*^9}, {3.906859087087716*^9, 3.9068591086109133`*^9}, {3.906859229257228*^9, 3.9068592302539177`*^9}, { 3.906859263243573*^9, 3.9068592828999677`*^9}, {3.9068593239184504`*^9, 3.9068593305817504`*^9}, {3.906859392579523*^9, 3.906859583844524*^9}, { 3.906859621202836*^9, 3.906859621938983*^9}, {3.906859700252342*^9, 3.906859701219859*^9}, {3.9068604333054304`*^9, 3.9068604342625475`*^9}, { 3.906860480017132*^9, 3.9068604809816737`*^9}, {3.9070468922740993`*^9, 3.9070470850074425`*^9}, {3.907047183773712*^9, 3.9070471929129744`*^9}, { 3.907047229419466*^9, 3.9070472683432064`*^9}, {3.9072856570330515`*^9, 3.9072859532762246`*^9}, {3.9072859884862213`*^9, 3.9072860409112372`*^9}, {3.907286102553173*^9, 3.9072861030578012`*^9}, { 3.907286147857873*^9, 3.9072863500795155`*^9}, 3.9072863817278786`*^9, { 3.9072865423003807`*^9, 3.90728672788869*^9}, {3.907286804756066*^9, 3.9072871113935943`*^9}, {3.9072871621159163`*^9, 3.9072872674642076`*^9}, {3.9072873002620373`*^9, 3.9072874104228196`*^9}, {3.9072874785703163`*^9, 3.907287521517105*^9}, { 3.907287642830313*^9, 3.907287693002468*^9}}, CellLabel-> "In[415]:=",ExpressionUUID->"819fef55-8f7d-4e6d-adf8-585b7da6935a"] }, Closed]], Cell[CellGroupData[{ Cell["Modelling assignment; shell and beam models", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, 3.8441396587945433`*^9, {3.874383640626912*^9, 3.874383669123618*^9}, {3.874383711827224*^9, 3.8743837185893073`*^9}, { 3.874383752403222*^9, 3.8743837566130276`*^9}, {3.8743837901161585`*^9, 3.8743837957228627`*^9}, {3.8744833247140245`*^9, 3.8744833441301465`*^9}, {3.875149684153217*^9, 3.8751496866855693`*^9}, { 3.906797555469226*^9, 3.9067975601238546`*^9}, {3.906858595519381*^9, 3.906858649435885*^9}, {3.9072880150708075`*^9, 3.9072880278129377`*^9}},ExpressionUUID->"b03b4423-fec4-4162-82fd-\ ea8dcd935555"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "domains", " ", "for", " ", "the", " ", "shell", " ", "and", " ", "beam", " ", "models"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pnt", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "w"}], "/", "2"}], ",", RowBox[{"-", "h"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "w"}], "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "/", "2"}], ",", RowBox[{"-", "h"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "w"}], "/", "2"}], ",", RowBox[{"-", "h"}], ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "w"}], "/", "2"}], ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "/", "2"}], ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "/", "2"}], ",", RowBox[{"-", "h"}], ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "w"}], "/", "2"}], ",", RowBox[{ RowBox[{"-", "h"}], "+", "d"}], ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "/", "2"}], ",", RowBox[{ RowBox[{"-", "h"}], "+", "d"}], ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"H", ",", RowBox[{ RowBox[{"-", "h"}], "+", "d"}], ",", "L"}], "}"}]}], "}"}], " ", "//.", "val"}], " ", "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10", ",", "7", ",", "3"}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9", ",", "6", ",", "2"}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"3", ",", "2", ",", "6", ",", "7"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"9", ",", "10"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"10", ",", "11"}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mr", "=", RowBox[{"MeshRegion", "[", RowBox[{ RowBox[{"pnt", " ", "//.", "val"}], ",", "pol"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"RR", "=", RowBox[{"TriangulateMesh", "[", RowBox[{"mr", ",", RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"2", "h"}]}], "//.", "val"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"RR", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y", ",", "Z"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.872750029661656*^9, 3.872750034407666*^9}, { 3.8727500854776845`*^9, 3.8727502813245625`*^9}, {3.8727503180340414`*^9, 3.8727504328425484`*^9}, {3.872750467602474*^9, 3.8727504912919674`*^9}, { 3.8727507143446875`*^9, 3.872750726898258*^9}, {3.8727507758002534`*^9, 3.872750836968552*^9}, {3.872750938058819*^9, 3.8727509821437864`*^9}, { 3.8727510456743565`*^9, 3.872751118800663*^9}, {3.8727511490368767`*^9, 3.8727512081093893`*^9}, {3.872751327224539*^9, 3.8727513274712696`*^9}, { 3.8727514111961107`*^9, 3.872751412492648*^9}, {3.8727514496864886`*^9, 3.8727514579056587`*^9}, {3.8727514888117313`*^9, 3.8727515234596815`*^9}, {3.873344801050497*^9, 3.87334498556985*^9}, { 3.873345025263523*^9, 3.8733450816558266`*^9}, {3.873345138494066*^9, 3.8733452234500856`*^9}, {3.873345260635966*^9, 3.8733454333234463`*^9}, 3.873345546664864*^9, {3.873346276551317*^9, 3.8733463346048794`*^9}, { 3.87334643960472*^9, 3.8733465318812876`*^9}, {3.8733466497276716`*^9, 3.8733467070795684`*^9}, {3.8733468768184566`*^9, 3.873346887133532*^9}, { 3.8733469425324726`*^9, 3.8733469560429816`*^9}, {3.8733469863785686`*^9, 3.87334700637537*^9}, {3.8733472030514994`*^9, 3.8733472148119946`*^9}, { 3.8733472470919447`*^9, 3.8733472635990615`*^9}, {3.87334736297221*^9, 3.8733474501968117`*^9}, {3.8733476719309626`*^9, 3.8733476878178096`*^9}, {3.8733477357326803`*^9, 3.8733477929499846`*^9}, {3.8733482335513005`*^9, 3.873348306468852*^9}, { 3.8733483586211443`*^9, 3.8733483746786556`*^9}, {3.8733488070385933`*^9, 3.8733488824671745`*^9}, {3.873348953597848*^9, 3.873349059409196*^9}, { 3.873349117704973*^9, 3.8733491978840113`*^9}, {3.8733492347240458`*^9, 3.8733492431455455`*^9}, {3.8733492747172856`*^9, 3.8733492791877475`*^9}, 3.8733493324349995`*^9, {3.873349376996308*^9, 3.8733495285234127`*^9}, { 3.8733496138743725`*^9, 3.8733496255367975`*^9}, {3.873350052509788*^9, 3.8733500961674123`*^9}, {3.873350129798147*^9, 3.8733502175410647`*^9}, { 3.8733502577066164`*^9, 3.8733503573578663`*^9}, {3.8733504678088236`*^9, 3.8733504996425257`*^9}, {3.873350534072838*^9, 3.8733505874425154`*^9}, { 3.873350680259864*^9, 3.8733507658555536`*^9}, {3.873682793586522*^9, 3.873682841987012*^9}, {3.8736828780099335`*^9, 3.8736828986041465`*^9}, { 3.873759906061141*^9, 3.873759907514927*^9}, {3.873760017122122*^9, 3.8737602645209866`*^9}, {3.873760307035221*^9, 3.873760327646259*^9}, { 3.873760416327263*^9, 3.873760486861886*^9}, 3.8737654108724327`*^9, { 3.8737657350215716`*^9, 3.873765766400139*^9}, {3.8737660882258244`*^9, 3.873766181635869*^9}, 3.873787481419236*^9, {3.874384087031801*^9, 3.8743842220436897`*^9}, {3.874384340408242*^9, 3.8743843529070816`*^9}, { 3.8743843862819757`*^9, 3.874384417904169*^9}, {3.8743844491216908`*^9, 3.874384501949973*^9}, {3.8743845559710045`*^9, 3.8743845967483377`*^9}, { 3.874384666442237*^9, 3.8743846888203697`*^9}, {3.8743848152253685`*^9, 3.8743848413936667`*^9}, {3.8743848882512245`*^9, 3.8743848902615433`*^9}, {3.874385464499674*^9, 3.874385475252575*^9}, { 3.8743855487895374`*^9, 3.874385580383021*^9}, {3.874388671331975*^9, 3.8743886742769637`*^9}, {3.8743901523709908`*^9, 3.87439015312282*^9}, 3.8743932756822186`*^9, 3.874393429412786*^9, 3.87439411568198*^9, 3.874394291312812*^9, 3.874394336391386*^9, {3.8743944607618465`*^9, 3.8743944687609687`*^9}, {3.8744676594738345`*^9, 3.874467659972836*^9}, 3.8744677587598286`*^9, 3.874467829704596*^9, {3.87446801076157*^9, 3.8744680201764183`*^9}, {3.87447225821478*^9, 3.8744722745934935`*^9}, { 3.874472780498234*^9, 3.8744727816172333`*^9}, {3.8744731683863287`*^9, 3.874473168932718*^9}, {3.8744833856548777`*^9, 3.8744834121594763`*^9}, { 3.874483626861439*^9, 3.874483659047677*^9}, {3.8744837265368032`*^9, 3.8744837346350737`*^9}, {3.874483776240628*^9, 3.874483814586788*^9}, { 3.874483995593664*^9, 3.8744840009497347`*^9}, {3.8745389254173594`*^9, 3.874538931710263*^9}, 3.8745391907750316`*^9, {3.874637836433812*^9, 3.874637893840519*^9}, {3.874638193229743*^9, 3.8746382162043233`*^9}, { 3.8746382470111217`*^9, 3.874638262253337*^9}, {3.8746383036995096`*^9, 3.874638316725362*^9}, {3.8746383471613626`*^9, 3.874638398772297*^9}, 3.87463884063025*^9, {3.8746392929732623`*^9, 3.87463930840075*^9}, { 3.874639542685753*^9, 3.874639607124364*^9}, {3.874639638971087*^9, 3.8746396407252617`*^9}, {3.8746396875914354`*^9, 3.8746396881999426`*^9}, {3.874639759851968*^9, 3.8746397655933304`*^9}, { 3.874639849193272*^9, 3.874639905445267*^9}, {3.8746399711263037`*^9, 3.8746399782779937`*^9}, {3.874640041409154*^9, 3.8746400680744343`*^9}, { 3.874640235417758*^9, 3.8746402594541283`*^9}, 3.874650537021716*^9, { 3.8750747634780045`*^9, 3.875074820760495*^9}, {3.8750748948534184`*^9, 3.8750749158953233`*^9}, {3.8750749678885403`*^9, 3.875074974135172*^9}, { 3.875077499025521*^9, 3.8750775110074215`*^9}, {3.875077548588275*^9, 3.8750775542745295`*^9}, {3.8750776220500937`*^9, 3.875077756966697*^9}, { 3.875077794060916*^9, 3.87507786631063*^9}, {3.8750780651545663`*^9, 3.875078083550686*^9}, {3.8750872414914913`*^9, 3.8750872461211405`*^9}, { 3.875087312640586*^9, 3.875087320027411*^9}, {3.8750876538969865`*^9, 3.8750876682198515`*^9}, {3.8751475088912725`*^9, 3.875147545693463*^9}, { 3.8751476596480083`*^9, 3.875147684035954*^9}, {3.875147840813156*^9, 3.8751478871715183`*^9}, {3.875147920042903*^9, 3.8751479566579185`*^9}, { 3.875148007442785*^9, 3.8751480289939775`*^9}, {3.8751481004843287`*^9, 3.8751481621779757`*^9}, {3.875148200810276*^9, 3.8751482499361863`*^9}, 3.8751483119398966`*^9, 3.875501447099909*^9, {3.9068034313118954`*^9, 3.9068034796893587`*^9}, {3.906803515708905*^9, 3.9068037360539083`*^9}, { 3.906803766296361*^9, 3.9068038768623357`*^9}, {3.906804019576677*^9, 3.90680405195215*^9}, {3.9068041001771603`*^9, 3.906804109490855*^9}, { 3.9068042020551662`*^9, 3.906804209471813*^9}, {3.906804311268129*^9, 3.9068043251078296`*^9}, {3.90680437463809*^9, 3.906804443658908*^9}, { 3.906858612654999*^9, 3.9068586395148373`*^9}, {3.90728806502734*^9, 3.907288157625333*^9}, {3.9072882292583656`*^9, 3.907288292443959*^9}, { 3.907288676500755*^9, 3.907288686144929*^9}, {3.9072888414175973`*^9, 3.90728885268976*^9}, {3.9072889357399745`*^9, 3.9072889546337786`*^9}, { 3.9072890144617577`*^9, 3.9072890322377267`*^9}, {3.90728907128609*^9, 3.907289071760661*^9}, {3.907289159921967*^9, 3.9072892455989685`*^9}, { 3.907289355413403*^9, 3.9072893657655973`*^9}, {3.907289404700477*^9, 3.907289492178771*^9}, {3.907289635216268*^9, 3.9072896908158607`*^9}, { 3.9072897295555706`*^9, 3.907289762072445*^9}, {3.9072898035441604`*^9, 3.907289807140394*^9}, {3.9072906828390226`*^9, 3.9072906922436905`*^9}, { 3.90729080721653*^9, 3.9072908083717265`*^9}, {3.907290898550087*^9, 3.907290903474221*^9}, {3.90729095879382*^9, 3.907290962283985*^9}, { 3.907290995048195*^9, 3.9072909991876717`*^9}, {3.9072910507905936`*^9, 3.907291070478816*^9}, {3.9072914853915887`*^9, 3.907291512986805*^9}, { 3.9072917239687986`*^9, 3.9072917283836346`*^9}, {3.907291836626824*^9, 3.9072918643959527`*^9}, {3.9072929222553997`*^9, 3.907292924999528*^9}, 3.9072933131947947`*^9}, CellLabel-> "In[426]:=",ExpressionUUID->"d7afd336-c443-4316-b1b1-5f294a0fc6b1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"problem", " ", "description"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"crd", "=", RowBox[{"MeshCoordinates", "[", "RR", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nod", "=", RowBox[{"MeshCells", "[", RowBox[{"RR", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n1", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{"crd", ",", RowBox[{"pnt", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n2", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{"crd", ",", RowBox[{"pnt", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n3", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{"crd", ",", RowBox[{"pnt", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "nod"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele2", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "Iy", ",", "Iz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "Iy", ",", "Iz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", RowBox[{"ele1", ",", "ele2"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", 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"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fix", "=", RowBox[{"Flatten", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ 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"}]}], "}"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"Position", "[", RowBox[{"crd", ",", RowBox[{"{", RowBox[{"_", ",", "_", ",", "0."}], "}"}]}], "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"fun", " ", "/.", " ", "fix"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MeshRegion", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ele", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.873682684818491*^9, 3.8736826906072645`*^9}, { 3.8736829375486865`*^9, 3.8736831622709413`*^9}, {3.8737599549933767`*^9, 3.8737600045914974`*^9}, 3.873765397235628*^9, {3.873765474448159*^9, 3.8737655029446383`*^9}, {3.873765536427919*^9, 3.873765560700288*^9}, 3.8737656034231033`*^9, 3.8737658931771617`*^9, {3.873766195915343*^9, 3.873766197557453*^9}, {3.873766357813795*^9, 3.8737663623485327`*^9}, { 3.873766426971366*^9, 3.873766429126952*^9}, {3.87438539434214*^9, 3.8743854355741634`*^9}, {3.874385726864193*^9, 3.874385727037798*^9}, { 3.8743858100827827`*^9, 3.8743858144740686`*^9}, {3.8743858772923546`*^9, 3.8743861438556404`*^9}, {3.8743862429813347`*^9, 3.8743862472238264`*^9}, {3.8743863165612593`*^9, 3.87438634122847*^9}, { 3.8743866096892443`*^9, 3.8743866211878786`*^9}, {3.874386695471856*^9, 3.874386701683612*^9}, {3.8743883956344533`*^9, 3.874388415247048*^9}, { 3.874388585266373*^9, 3.8743886019165783`*^9}, {3.8743886854212446`*^9, 3.874388693695781*^9}, {3.8743890069716587`*^9, 3.874389021971836*^9}, 3.8743893563550844`*^9, {3.8743893881304893`*^9, 3.8743894280500293`*^9}, { 3.8743894921984973`*^9, 3.874389498788542*^9}, 3.8743895667470913`*^9, { 3.874389628042427*^9, 3.874389628232281*^9}, {3.8743898659854045`*^9, 3.874389881375391*^9}, {3.8743899129740057`*^9, 3.874389923902*^9}, { 3.8743899539064384`*^9, 3.874389966761693*^9}, {3.8743900520800953`*^9, 3.8743901464157534`*^9}, {3.87439305369438*^9, 3.874393096433773*^9}, 3.874393492012519*^9, {3.874394083637382*^9, 3.874394093286642*^9}, { 3.874394138035389*^9, 3.8743941465229206`*^9}, {3.874394210728037*^9, 3.874394218276658*^9}, {3.8744676749158783`*^9, 3.8744676764157505`*^9}, 3.874467910030345*^9, {3.8744679494215145`*^9, 3.8744679772811823`*^9}, 3.8744834578596735`*^9, {3.8744835174177017`*^9, 3.8744836179854817`*^9}, { 3.8744837438369193`*^9, 3.8744837465867467`*^9}, {3.874483977439393*^9, 3.874483984093647*^9}, {3.8744840219446335`*^9, 3.8744840224160333`*^9}, 3.8744840953568335`*^9, {3.8744841315258265`*^9, 3.8744841447186584`*^9}, { 3.8745381019883614`*^9, 3.874538121358077*^9}, {3.87453815160835*^9, 3.8745381825021906`*^9}, {3.874538248170677*^9, 3.8745382510331717`*^9}, { 3.874538465011932*^9, 3.874538466607361*^9}, {3.874538535083821*^9, 3.8745385367399406`*^9}, {3.874538760637439*^9, 3.874538798072892*^9}, { 3.874539168063464*^9, 3.8745391690959387`*^9}, {3.874638518718993*^9, 3.874638548555071*^9}, {3.874638672414463*^9, 3.8746387300466337`*^9}, { 3.8746389623437204`*^9, 3.8746389745460005`*^9}, {3.874640140799861*^9, 3.8746401427133245`*^9}, {3.8746404858258476`*^9, 3.8746405099465475`*^9}, {3.874650488917418*^9, 3.8746505197618275`*^9}, { 3.8750751955826297`*^9, 3.875075424473009*^9}, {3.875075493454905*^9, 3.8750755029908934`*^9}, {3.875075643652644*^9, 3.8750756506003876`*^9}, { 3.8750759703983316`*^9, 3.8750759949220095`*^9}, {3.875078256861653*^9, 3.8750782690155535`*^9}, {3.875083654943658*^9, 3.875083692057474*^9}, { 3.875083824903054*^9, 3.8750839271779118`*^9}, {3.875084483598776*^9, 3.875084505373296*^9}, {3.875084797759017*^9, 3.8750847983022623`*^9}, { 3.8750849354552503`*^9, 3.8750849435078707`*^9}, {3.8750851460821586`*^9, 3.875085167481557*^9}, {3.8750854234539127`*^9, 3.8750854502686443`*^9}, { 3.8750855310809317`*^9, 3.875085531527485*^9}, {3.875085805265874*^9, 3.8750858080702295`*^9}, {3.875086714764536*^9, 3.8750867198075085`*^9}, 3.8750867699356422`*^9, {3.8750868017176704`*^9, 3.875086803378807*^9}, 3.875501409163026*^9, {3.8755014958347445`*^9, 3.87550150698782*^9}, { 3.9067975106812606`*^9, 3.9067975116202984`*^9}, {3.90679756749465*^9, 3.9067975676476536`*^9}, {3.9068047409510317`*^9, 3.906804751037594*^9}, { 3.906804837835984*^9, 3.906804845239766*^9}, {3.906805025586832*^9, 3.9068050496297235`*^9}, {3.9068052475543795`*^9, 3.906805249771677*^9}, { 3.9068060368047237`*^9, 3.906806037990038*^9}, {3.9068565187562304`*^9, 3.9068565289709826`*^9}, {3.906857784099616*^9, 3.9068577854390097`*^9}, { 3.9072896787227507`*^9, 3.9072896834193783`*^9}, {3.9072898417209587`*^9, 3.9072899473485107`*^9}, 3.9072901115363784`*^9, {3.907290385758189*^9, 3.9072904113150215`*^9}, {3.907290565422736*^9, 3.907290580736975*^9}, { 3.9072907461078353`*^9, 3.907290747384204*^9}, {3.9072913617112055`*^9, 3.9072914182276106`*^9}, 3.9072915679705544`*^9, {3.907291651613514*^9, 3.9072916645394187`*^9}, {3.907293104341987*^9, 3.907293112551062*^9}, { 3.907293144976942*^9, 3.9072932200132775`*^9}, {3.9072932675085497`*^9, 3.9072932812153187`*^9}, {3.90729332967715*^9, 3.907293352136174*^9}, 3.907293867918688*^9}, CellLabel-> "In[431]:=",ExpressionUUID->"e9df9a97-1aae-4b0c-9f5f-f3429aba9760"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"displacement", " ", "solution"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kb", "=", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", "F"}], RowBox[{ RowBox[{"uY", "[", "n1", "]"}], "+", RowBox[{"uY", "[", "n2", "]"}]}]]}], "/.", "sol"}], " ", "//.", "val"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kt", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"F", "*", "H"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uY", "[", "n1", "]"}], "-", RowBox[{"uY", "[", "n2", "]"}]}], ")"}], "/", "w"}], ")"}]}], "/.", "sol"}], " ", "//.", "val"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.873682684818491*^9, 3.8736826906072645`*^9}, { 3.8736829375486865`*^9, 3.8736831622709413`*^9}, {3.8737599549933767`*^9, 3.8737600045914974`*^9}, 3.873765397235628*^9, 3.8743857589563236`*^9, { 3.8743862728071327`*^9, 3.874386274497063*^9}, {3.87438848137628*^9, 3.8743884948547482`*^9}, {3.8743885308126802`*^9, 3.8743885548705*^9}, { 3.8743931215488157`*^9, 3.8743931268349533`*^9}, {3.874393186885892*^9, 3.874393202561795*^9}, {3.874393336698696*^9, 3.874393379679738*^9}, { 3.8743935364018764`*^9, 3.874393542953414*^9}, {3.874393857069399*^9, 3.8743938663994026`*^9}, {3.8743938968317833`*^9, 3.874393899868795*^9}, { 3.8743939640550294`*^9, 3.874393964863551*^9}, {3.874394101295743*^9, 3.8743941016107106`*^9}, {3.874394259694089*^9, 3.874394268260104*^9}, { 3.8744842335609865`*^9, 3.8744842464072933`*^9}, {3.8744843038932085`*^9, 3.8744843171544523`*^9}, {3.874538017734321*^9, 3.874538019955031*^9}, { 3.8745385989543123`*^9, 3.8745386516676073`*^9}, {3.87453882933704*^9, 3.8745388341441717`*^9}, 3.874538894942258*^9, {3.8745390404902964`*^9, 3.8745391313143187`*^9}, 3.8745392084187183`*^9, 3.874539247620307*^9, { 3.8746401625005765`*^9, 3.874640179110112*^9}, {3.8746403923549857`*^9, 3.8746404026262913`*^9}, {3.875085556880437*^9, 3.875085559030107*^9}, { 3.906797268507701*^9, 3.9067972992997656`*^9}, {3.906797468051646*^9, 3.9067974688097467`*^9}, {3.9068046310241137`*^9, 3.9068046691580505`*^9}, {3.9068051223439884`*^9, 3.9068051499015493`*^9}, {3.906805431606799*^9, 3.906805483192132*^9}, 3.906805863863429*^9, {3.9068060235534945`*^9, 3.906806024336217*^9}, { 3.9068061178800526`*^9, 3.906806132011489*^9}, {3.906806942880746*^9, 3.906806943296213*^9}, 3.9068556606286793`*^9, {3.906855870730872*^9, 3.906855880464732*^9}, {3.9068565492291636`*^9, 3.906856553081914*^9}, { 3.9068565917402043`*^9, 3.906856609872179*^9}, {3.906857161084247*^9, 3.9068571828807163`*^9}, {3.9068572574536047`*^9, 3.906857290607705*^9}, { 3.9068578080436897`*^9, 3.9068578084002523`*^9}, {3.907293393745306*^9, 3.907293409111987*^9}, {3.907293458684557*^9, 3.907293464769055*^9}}, CellLabel-> "In[444]:=",ExpressionUUID->"56530573-225e-4a01-85c9-0380740f56da"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "rigidities", " ", "predicted", " ", "by", " ", "the", " ", "model"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"kb", "=", "43266"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kt", " ", "=", "169"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.9072938725656*^9, 3.907293934942769*^9}},ExpressionUUID->"d72f9040-31cc-4484-b19f-\ 4aa2a7e429bd"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["DISPLACEMENT ANALYSIS (week 44)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.5681161575453596`*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.6303705662970853`*^9}, { 3.6618219022583027`*^9, 3.6618219059243093`*^9}, 3.6852488995100965`*^9, 3.685281849223243*^9, {3.6853234590535126`*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036448`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.6862356325473394`*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.6883646971490917`*^9}, 3.7807552452476177`*^9, {3.873870772098733*^9, 3.873870791576491*^9}},ExpressionUUID->"367f3997-9909-4c02-b7cf-\ aa47620191dd"], Cell[CellGroupData[{ Cell["Lecture example 2.1a (bar)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.8114746411244287`*^9, {3.8123469558611236`*^9, 3.812346957023206*^9}, {3.8127827054547806`*^9, 3.812782714125143*^9}, { 3.8431875260732574`*^9, 3.843187528004115*^9}, {3.844139552906103*^9, 3.844139554375275*^9}, {3.875757890506205*^9, 3.875757898046161*^9}},ExpressionUUID->"a0bc5aaa-f407-43d7-8d01-\ 7b339ca20e07"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "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"}], "}"}]}], "}"}], ",", "\[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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.8113163783757467`*^9, 3.8113164448925743`*^9}, {3.8114308075218377`*^9, 3.811430991247053*^9}, {3.8114828410116625`*^9, 3.811482960391885*^9}, { 3.8114830961578193`*^9, 3.811483098501501*^9}, {3.811483382572585*^9, 3.811483382935086*^9}, {3.8114834832613883`*^9, 3.8114834914024396`*^9}, { 3.8436260969203086`*^9, 3.8436261031043243`*^9}}, CellLabel-> "In[400]:=",ExpressionUUID->"dcda3659-9bdd-49ec-8a18-a3b19369cbbc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.1b (bar)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886003`*^9}, { 3.5992247695247765`*^9, 3.599224771911581*^9}, 3.6862337070346437`*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434004`*^9}, {3.781589662579389*^9, 3.7815896660189276`*^9}, 3.813654548711316*^9, {3.8757578822699366`*^9, 3.875757905942349*^9}},ExpressionUUID->"709acb94-73f0-4e38-b403-\ e348aa092f06"], 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759165`*^9, 3.6293858030083256`*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.6297797534184103`*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.6297821687834535`*^9, 3.629782179984273*^9}, { 3.6297822711976333`*^9, 3.6297823082320986`*^9}, {3.6297916313252397`*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.6302317303497877`*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.6306697846790886`*^9, 3.630669836330779*^9}, { 3.6306698912116756`*^9, 3.6306699292913427`*^9}, 3.6611752627847633`*^9, { 3.68519377703102*^9, 3.6851937863110332`*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.6852337344080787`*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.6852344677197337`*^9}, 3.6852619909866486`*^9, {3.6852629455979853`*^9, 3.6852629685880175`*^9}, 3.6852672555340195`*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.6853411055772305`*^9, 3.685341119183009*^9}, { 3.6853412984732637`*^9, 3.6853413099869223`*^9}, {3.6853417310800076`*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.6858757765527554`*^9, { 3.6863576684041834`*^9, 3.6863576792341986`*^9}, {3.7180899126263156`*^9, 3.718089913795903*^9}, {3.7489256462117243`*^9, 3.7489256598803215`*^9}, { 3.7739889020672274`*^9, 3.773989039520363*^9}, {3.7739894819799957`*^9, 3.7739894972205*^9}, {3.773989556461751*^9, 3.7739895852199936`*^9}, { 3.7739896543035803`*^9, 3.7739896567672663`*^9}, 3.773989820725361*^9, { 3.7751892927335873`*^9, 3.7751893327009354`*^9}, {3.775194181779306*^9, 3.7751941952586517`*^9}, {3.775195003917308*^9, 3.7751950171287575`*^9}, { 3.7751951717513275`*^9, 3.775195192837899*^9}, {3.7751952404187474`*^9, 3.775195244147611*^9}, {3.7751952888153787`*^9, 3.7751953694673223`*^9}, { 3.7751954986380005`*^9, 3.775195534685109*^9}, {3.7752693540695815`*^9, 3.775269421669304*^9}, {3.775269453334443*^9, 3.7752695075204906`*^9}, { 3.775271836528426*^9, 3.7752718743181734`*^9}, 3.7815880621975713`*^9, { 3.843626210552447*^9, 3.843626213675267*^9}, {3.8449134953391237`*^9, 3.844913495991613*^9}, {3.844921269544427*^9, 3.8449212698872213`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"4ba1476d-39ce-42dc-8c63-d9a6c3e61d2a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.2 (beam)", "Subsubsection", CellChangeTimes->{ 3.4734694944314003`*^9, 3.599224766420371*^9, 3.6862337099646473`*^9, 3.686290219307787*^9, {3.6862903012279015`*^9, 3.686290301967902*^9}, { 3.6863951855946074`*^9, 3.686395186494609*^9}, {3.6864635001634054`*^9, 3.6864635018334074`*^9}, {3.7751961858576307`*^9, 3.775196199867617*^9}, 3.7815896724252987`*^9, 3.8136545502104034`*^9},ExpressionUUID->"7e63957c-80eb-4394-b663-\ 1bb2f19d6007"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", 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]", " "}], "\[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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.6297833622479496`*^9, 3.6297833821535845`*^9}, {3.6297834663625326`*^9, 3.6297834719785423`*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.6297840054526796`*^9, 3.6297840056398797`*^9}, {3.6297840416291428`*^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.6297860683067026`*^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.6297874597063127`*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.6297885659354553`*^9, 3.6297885755294724`*^9}, {3.6297892278758183`*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.6297893332852035`*^9}, { 3.6297914556533313`*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.6298702559641933`*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.6306586027288923`*^9}, { 3.630658768962784*^9, 3.6306589911851745`*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.6306734854495883`*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.6306752822962494`*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.6306754692369413`*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.6306757374963827`*^9}, {3.6306758978040085`*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.6852523453938932`*^9, 3.68525240748398*^9}, {3.6852525490681486`*^9, 3.6852525670281763`*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.6852714610531816`*^9, 3.6852714662331886`*^9}, { 3.685340224314878*^9, 3.6853402425549035`*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, 3.6863952420746865`*^9, { 3.6866590821902657`*^9, 3.6866591337503376`*^9}, {3.686659210920446*^9, 3.6866592825905457`*^9}, 3.686659319650598*^9, {3.718089929604436*^9, 3.718089937596391*^9}, {3.748925556248083*^9, 3.748925596504529*^9}, { 3.7489256818595314`*^9, 3.7489256827028418`*^9}, {3.748925773478675*^9, 3.7489257778055353`*^9}, {3.748926055597584*^9, 3.748926062252592*^9}, { 3.763360933415641*^9, 3.7633609496266603`*^9}, {3.7633609815881844`*^9, 3.7633610764771547`*^9}, {3.7633613048089595`*^9, 3.7633613076362433`*^9}, {3.7633613893424907`*^9, 3.7633615331764507`*^9}, {3.763361607122345*^9, 3.76336160876289*^9}, { 3.7633623480857973`*^9, 3.7633623585366373`*^9}, 3.76336241391245*^9, { 3.775195572056567*^9, 3.7751955991593075`*^9}, {3.7751960880379295`*^9, 3.775196091370717*^9}, {3.775196129656457*^9, 3.775196168758065*^9}, { 3.780755351585566*^9, 3.7807553831661777`*^9}, {3.78158836354117*^9, 3.781588408369763*^9}, 3.781588456255967*^9, {3.8689273742510595`*^9, 3.868927391735425*^9}, {3.86892751098864*^9, 3.8689275289175577`*^9}, { 3.868927563416889*^9, 3.8689276311590967`*^9}, {3.868927691004676*^9, 3.8689276939098387`*^9}, {3.868928051019027*^9, 3.8689280918425446`*^9}, 3.868928269953977*^9, {3.8689315648833294`*^9, 3.8689315708413506`*^9}, { 3.8689316679488583`*^9, 3.868931670650687*^9}, {3.868931716728698*^9, 3.8689317691922092`*^9}, {3.8689318168918343`*^9, 3.868931820957491*^9}, { 3.868931877976942*^9, 3.868931924869439*^9}, {3.868932023250029*^9, 3.868932023913413*^9}, {3.8689320936960926`*^9, 3.86893209831835*^9}, { 3.868932290902231*^9, 3.868932295409125*^9}, {3.8757582972851734`*^9, 3.8757583206594133`*^9}, {3.875758354844491*^9, 3.8757583577851877`*^9}, { 3.875758598544871*^9, 3.875758607692545*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"dc4c0ef6-ef57-4e09-8896-98090b4ea190"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.3 (bar)", "Subsubsection", CellChangeTimes->{ 3.4734695002813997`*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.5992258478994727`*^9, 3.6862336460745583`*^9, 3.6862909162387624`*^9, { 3.6863755415162687`*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.7489255126802044`*^9, 3.7489255130397606`*^9}, 3.781589676163022*^9, 3.813654551736487*^9},ExpressionUUID->"f6b479a8-7c8b-4e23-8c84-\ 9379087bb1c7"], 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[{ 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.4426469450734453`*^9, 3.4426469473978453`*^9}, { 3.630367590488758*^9, 3.6303676088811903`*^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.6852715412232933`*^9, 3.685271546353301*^9}, { 3.6853429895189857`*^9, 3.6853430232739167`*^9}, 3.6858761692133045`*^9, { 3.68821224839828*^9, 3.6882123179983773`*^9}, {3.68821235531843*^9, 3.6882123899484777`*^9}, {3.7489257072597785`*^9, 3.7489257140861125`*^9}, {3.7489261900818295`*^9, 3.7489261918002853`*^9}, {3.843626233029293*^9, 3.843626236960007*^9}, { 3.8757586585011406`*^9, 3.8757586890140133`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"49e9a65c-8289-478e-9132-249439de440e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.4 (beam)", "Subsubsection", CellChangeTimes->{ 3.4734694944314003`*^9, 3.599224766420371*^9, 3.6862337099646473`*^9, 3.686290219307787*^9, {3.6862903012279015`*^9, 3.686290301967902*^9}, { 3.686377587511134*^9, 3.686377589931137*^9}, 3.6864635125734224`*^9, { 3.74892551699196*^9, 3.748925517944848*^9}, 3.7815896811137877`*^9, 3.8136545553992853`*^9},ExpressionUUID->"62ee511d-b826-4a40-86e0-\ 5152f9a36b62"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", 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]"}], "\[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]"}], "\[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.6297833622479496`*^9, 3.6297833821535845`*^9}, {3.6297834663625326`*^9, 3.6297834719785423`*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.6297840054526796`*^9, 3.6297840056398797`*^9}, {3.6297840416291428`*^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.6297860683067026`*^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.6297874597063127`*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.6297885659354553`*^9, 3.6297885755294724`*^9}, {3.6297892278758183`*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.6297893332852035`*^9}, { 3.6297914556533313`*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.6298702559641933`*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.6306586027288923`*^9}, { 3.630658768962784*^9, 3.6306589911851745`*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.6306734854495883`*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.6306752822962494`*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.6306754692369413`*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.6306757374963827`*^9}, {3.6306758978040085`*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.6852523453938932`*^9, 3.68525240748398*^9}, {3.6852525490681486`*^9, 3.6852525670281763`*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.6852714610531816`*^9, 3.6852714662331886`*^9}, { 3.685340224314878*^9, 3.6853402425549035`*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, {3.686377605391159*^9, 3.6863776382012053`*^9}, {3.6863791342332993`*^9, 3.6863791914533796`*^9}, {3.7180899777435303`*^9, 3.71808999856365*^9}, { 3.7489257406582375`*^9, 3.748925755701603*^9}, {3.7489258070801616`*^9, 3.7489258388695903`*^9}, {3.7489262268855066`*^9, 3.7489262540513067`*^9}, {3.8757588015446796`*^9, 3.875758802532123*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"8633b53a-d361-44d9-8573-8d91306597a7"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.5 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.473469503105*^9, {3.599225885667139*^9, 3.5992258876171427`*^9}, { 3.686233649684563*^9, 3.686233650204564*^9}, 3.686290918768766*^9, 3.686291030808923*^9, {3.6863793069335413`*^9, 3.6863793075335417`*^9}, 3.6864635148234253`*^9, {3.7489255222250147`*^9, 3.7489255231311374`*^9}, 3.781589684224475*^9, 3.813654557155057*^9},ExpressionUUID->"5e3c228d-c491-4158-83fd-\ 06d8943fd85a"], 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"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426469547766457`*^9, 3.4426469592694454`*^9}, { 3.630368423748622*^9, 3.6303685192207894`*^9}, {3.6303685521992474`*^9, 3.6303685620584645`*^9}, 3.6303705303858223`*^9, {3.685262281457055*^9, 3.685262388467205*^9}, {3.6852624670373154`*^9, 3.685262481977336*^9}, { 3.68526278509776*^9, 3.685262791257769*^9}, 3.685267202483945*^9, { 3.6852715539533114`*^9, 3.685271559193319*^9}, {3.6853430782990637`*^9, 3.6853430894086995`*^9}, 3.686379355343609*^9, {3.6863831012088532`*^9, 3.6863831063588605`*^9}, {3.6863942094232407`*^9, 3.6863942663533206`*^9}, 3.6876000488420086`*^9, {3.718090012827323*^9, 3.718090016482974*^9}, { 3.748925864816631*^9, 3.7489258807657166`*^9}, {3.843626246579293*^9, 3.8436262504285946`*^9}, {3.8449133628999662`*^9, 3.844913386911138*^9}, { 3.844913441464127*^9, 3.844913441990646*^9}, {3.845031638049384*^9, 3.8450316385515203`*^9}, {3.875758880002781*^9, 3.8757588816818376`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"b1ba416c-08bb-4b7b-b62b-568430c9ed32"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, { 3.4730615048269997`*^9, 3.473061506814*^9}, {3.473061742094*^9, 3.473061762285*^9}, 3.567430050922524*^9, {3.567431829809649*^9, 3.5674318300904493`*^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.748659544383794*^9, 3.7486595757163982`*^9}, 3.7489277809817677`*^9, {3.7815895992979193`*^9, 3.78158960472125*^9}},ExpressionUUID->"fe97b8ce-6bdf-4cde-bfea-\ bdd76b45c0ff"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ 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[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "P"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}], " ", ",", "\[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", ",", "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[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^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.5674890909903803`*^9, 3.5674891595525007`*^9}, {3.6297906188366613`*^9, 3.6297907609373107`*^9}, 3.6297908204358153`*^9, 3.6297911125307283`*^9, {3.629791153356*^9, 3.629791155321604*^9}, {3.629791373097986*^9, 3.6297913814596004`*^9}, { 3.6305532313682413`*^9, 3.6305532595738544`*^9}, {3.685261672976204*^9, 3.685261743386302*^9}, {3.68526183461643*^9, 3.6852619078265324`*^9}, 3.6852620332367077`*^9, {3.68526207754677*^9, 3.685262079426772*^9}, 3.6852672173839655`*^9, {3.6852715282732754`*^9, 3.6852715335432825`*^9}, { 3.685346747734944*^9, 3.685346764006874*^9}, 3.6876002294042616`*^9, 3.7180838723321075`*^9, {3.7180865832241707`*^9, 3.718086588160243*^9}, { 3.7180925750564766`*^9, 3.718092591390044*^9}, {3.748928726767409*^9, 3.7489287311726236`*^9}, {3.780729074342733*^9, 3.780729082771414*^9}, { 3.843626263882229*^9, 3.84362626983366*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"dffb2853-b5d4-407a-b728-b8c94d3015a0"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (bar)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, { 3.4730615048269997`*^9, 3.473061506814*^9}, 3.4730617526730003`*^9, 3.5674300455873146`*^9, 3.5674301547407064`*^9, {3.599224775421587*^9, 3.599224775795988*^9}, {3.686233712964652*^9, 3.686233737814687*^9}, 3.686463173752948*^9, 3.7486595944299035`*^9, 3.748927789073621*^9, 3.7815330113274517`*^9, {3.7815896166403522`*^9, 3.781589623495639*^9}},ExpressionUUID->"094ba691-40f8-4089-a894-\ 4b61aef69583"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "0", ",", "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"}], "}"}]}], "}"}], ",", "\[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[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^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.6297874265094547`*^9}, {3.6305530716721077`*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.6306760991857443`*^9, 3.6306761426832323`*^9}, {3.6307395810851164`*^9, 3.63073959471954*^9}, { 3.6852608074149914`*^9, 3.6852608342450294`*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.6853418242453365`*^9}, {3.6853423481463013`*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, 3.6876000739430437`*^9, {3.7180922647565174`*^9, 3.71809226971446*^9}, { 3.748929080700294*^9, 3.7489290819653716`*^9}, {3.8436262870648584`*^9, 3.8436262969539347`*^9}, {3.8436264562794814`*^9, 3.843626500380855*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"dc815d1e-9047-4d81-847e-c5ff090b6864"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (bar structure)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, { 3.7491964861930313`*^9, 3.749196491176306*^9}, {3.7815331125223627`*^9, 3.781533115369457*^9}, {3.781589618662669*^9, 3.7815896259212723`*^9}},ExpressionUUID->"b06ea7da-4528-4713-89de-\ 065a2a8c2a65"], Cell[BoxData[{ 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[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.7491965410236588`*^9, 3.749196620770857*^9}, { 3.8436263143314342`*^9, 3.843626318204549*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"b3c2d07b-2035-46d7-a43c-68b45ad5562a"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (torsion)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, { 3.4730615048269997`*^9, 3.473061506814*^9}, 3.4730617526730003`*^9, 3.5674300455873146`*^9, 3.5674301547407064`*^9, {3.599224775421587*^9, 3.599224775795988*^9}, {3.686233712964652*^9, 3.686233737814687*^9}, { 3.686462478831975*^9, 3.6864624804619775`*^9}, 3.7486595922331676`*^9, { 3.748927786339876*^9, 3.7489277952128067`*^9}, 3.7815332277192125`*^9, 3.781589632953864*^9, {3.8441379817131453`*^9, 3.844137982354335*^9}},ExpressionUUID->"52cc96c7-7aec-427b-a632-\ 097707cc107b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "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[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^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.6297874265094547`*^9}, {3.6305530716721077`*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.6306760991857443`*^9, 3.6306761426832323`*^9}, {3.6307395810851164`*^9, 3.63073959471954*^9}, { 3.6852608074149914`*^9, 3.6852608342450294`*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.6853418242453365`*^9}, {3.6853423481463013`*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.6864624845319834`*^9, 3.686462628752185*^9}, {3.6864627547623615`*^9, 3.686462780662398*^9}, 3.6876000630120287`*^9, {3.718092246482506*^9, 3.7180922478700595`*^9}, {3.7489289818638506`*^9, 3.7489289870503845`*^9}, {3.781590149446043*^9, 3.781590179328641*^9}, { 3.843704952609706*^9, 3.8437049533331747`*^9}}, CellLabel-> "In[509]:=",ExpressionUUID->"37e2a102-8ad4-4c26-98c8-c1cf71439164"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (torsion)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.4730615754709997`*^9}, {3.4730617586879997`*^9, 3.4730617595109997`*^9}, 3.567430048036519*^9, {3.5674301970479803`*^9, 3.567430205846396*^9}, { 3.5992247831280007`*^9, 3.599224789570812*^9}, {3.6862337168646574`*^9, 3.6862337397746897`*^9}, {3.68629059311831*^9, 3.6862906012683215`*^9}, 3.748659597569113*^9, {3.748927802054665*^9, 3.7489278098343763`*^9}, 3.7815896377688107`*^9, {3.844137986637434*^9, 3.8441379873166914`*^9}},ExpressionUUID->"70852b10-cdcb-475a-8ff0-\ aaf7f5bbe719"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", RowBox[{"J", "/", "2"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "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[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.4730583246470003`*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.5674302269220333`*^9, 3.5674302407904577`*^9}, {3.567488739432561*^9, 3.567488848804353*^9}, { 3.5674892287386227`*^9, 3.5674892390034404`*^9}, {3.62978936549926*^9, 3.6297895519507875`*^9}, {3.6297901935019145`*^9, 3.6297902812676687`*^9}, {3.6297915128898315`*^9, 3.62979152889546*^9}, 3.629791607815998*^9, {3.629870491103406*^9, 3.629870525875867*^9}, { 3.630569827149594*^9, 3.6305698469927287`*^9}, {3.6305700587188387`*^9, 3.6305700685033984`*^9}, 3.6305701178622217`*^9, {3.6305702743651733`*^9, 3.630570286132846*^9}, {3.6305884293266025`*^9, 3.6305884379378176`*^9}, { 3.630588892460216*^9, 3.6305889218974676`*^9}, {3.6305890060752153`*^9, 3.630589009351221*^9}, {3.6305890670869226`*^9, 3.6305890695517273`*^9}, { 3.6852609345251694`*^9, 3.6852609544951973`*^9}, {3.685260985325241*^9, 3.6852610561353397`*^9}, {3.6852611137454205`*^9, 3.685261294805674*^9}, 3.6852619439765825`*^9, 3.685267231203985*^9, {3.6852714918932247`*^9, 3.6852714982332335`*^9}, {3.685341844218479*^9, 3.6853419077321115`*^9}, { 3.685876041473126*^9, 3.6858760505831385`*^9}, 3.6862906560183983`*^9, { 3.686290701298462*^9, 3.6862907191684866`*^9}, 3.6876000892040653`*^9, { 3.718092295228528*^9, 3.7180923074823475`*^9}, {3.7489292021248746`*^9, 3.74892920353061*^9}, {3.781533396526548*^9, 3.78153339950194*^9}, { 3.781591297030265*^9, 3.7815913486728106`*^9}, {3.843704985687063*^9, 3.8437049926132603`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"672e7cf9-8815-47fc-bb1f-d8162311d960"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, 3.7491964819596252`*^9, {3.7815334945350494`*^9, 3.781533497555529*^9}, 3.7815896401279874`*^9},ExpressionUUID->"61fe98c3-efb1-42ff-9772-\ 12565f6cd956"], 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[{"0", ",", "0", ",", "0", ",", "0", ",", "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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.844921472716564*^9, 3.844921474569749*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"fd9ca9c1-9ae0-4cc9-9a2c-dd16a323f073"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (beam)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.4730615754709997`*^9}, {3.4730617586879997`*^9, 3.4730617595109997`*^9}, {3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.5674302916621466`*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.6862907545885363`*^9, 3.748659604009043*^9, 3.748927841186149*^9, 3.7815335810162077`*^9, 3.781589642518814*^9},ExpressionUUID->"f9be7b5c-e7b0-4823-90a6-\ 30c4c2f7cfa5"], 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", ",", RowBox[{"-", "f"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", 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[{"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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.4730583246470003`*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.5674305015137157`*^9, 3.567430508034527*^9}, 3.5674306789176273`*^9, {3.5674889411989174`*^9, 3.567489021180258*^9}, { 3.6297903068985133`*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.6297915982999816`*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.6307482184414043`*^9}, {3.6852614772659297`*^9, 3.685261629646143*^9}, { 3.6852619208965507`*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.6852715094232492`*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.6853398909644113`*^9, 3.685339924654458*^9}, { 3.6858760739831715`*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431255`*^9}, 3.6868273566352577`*^9, 3.687600102954085*^9, {3.718092325036801*^9, 3.7180923740498295`*^9}, {3.781533617217809*^9, 3.7815336197883067`*^9}, { 3.7821231819165497`*^9, 3.782123208959263*^9}}, CellLabel-> "In[331]:=",ExpressionUUID->"a1c5164c-bb4a-46e9-979a-e3b50e460494"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (torsion)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, { 3.7490967747450066`*^9, 3.749096780472579*^9}, {3.7815336996223044`*^9, 3.7815337022845984`*^9}, 3.7815896448290625`*^9, {3.8441379910390205`*^9, 3.8441379919430785`*^9}},ExpressionUUID->"8cff0c25-d364-4acc-b696-\ 67124ac149c7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", "J", "}"}], ",", RowBox[{"{", RowBox[{"mx", ",", "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[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.7490968050144415`*^9, 3.7490968972208242`*^9}, { 3.749097026819504*^9, 3.7490970589562917`*^9}, {3.749097163512662*^9, 3.7490972292810607`*^9}, {3.7815915177981358`*^9, 3.7815915255108027`*^9}, {3.7821132696934476`*^9, 3.7821133308199654`*^9}, {3.8437050177960253`*^9, 3.843705019761896*^9}}, CellLabel-> "In[513]:=",ExpressionUUID->"76c06c08-c3c0-429e-a561-f73b5a15bcd1"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (bar column)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, { 3.4730615048269997`*^9, 3.473061506814*^9}, 3.4730617526730003`*^9, 3.5674300455873146`*^9, 3.5674301547407064`*^9, {3.599224775421587*^9, 3.599224775795988*^9}, {3.686233712964652*^9, 3.686233737814687*^9}, 3.6862904664481325`*^9, 3.686458624014577*^9, 3.6864631774529533`*^9, { 3.686463277853094*^9, 3.6864632843931026`*^9}, 3.7486596081732283`*^9, 3.748927835906389*^9, 3.7815337684792995`*^9, 3.7815896564885364`*^9},ExpressionUUID->"64c0d285-2a83-42bb-963e-\ 9285f78b4f9c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"2", " ", "A"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "2", " ", "A"}], ",", "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]", 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[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^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.6297874265094547`*^9}, {3.6305530716721077`*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.6306760991857443`*^9, 3.6306761426832323`*^9}, {3.6307395810851164`*^9, 3.63073959471954*^9}, { 3.6852608074149914`*^9, 3.6852608342450294`*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.6853418242453365`*^9}, {3.6853423481463013`*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.6862904953181734`*^9, 3.6862905374482317`*^9}, 3.6876001584241624`*^9, { 3.7180924232373037`*^9, 3.718092447557682*^9}, {3.7501367327242937`*^9, 3.750136741972226*^9}, {3.843626344394641*^9, 3.8436263512928257`*^9}}, CellLabel-> "In[347]:=",ExpressionUUID->"abd2dead-0e42-4ac4-9c8f-551a6c7e3ebe"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7815338262864575`*^9, 3.781533826392229*^9}, 3.7815896492407503`*^9},ExpressionUUID->"d3e3ef4f-9669-4e10-bf22-\ add721f2a62d"], 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", ",", "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[{ 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.8449215311625195`*^9, 3.8449215374270306`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"c5fda11e-f403-43ae-85e7-6a656a09aa54"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{{3.4730556702200003`*^9, 3.473055683948*^9}, { 3.473056486087*^9, 3.4730564925030003`*^9}, 3.473057491051*^9, { 3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.5681163731689377`*^9}, {3.5992231160658693`*^9, 3.59922314473872*^9}, { 3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, {3.686650104192067*^9, 3.686650133092108*^9}, { 3.687145505190199*^9, 3.687145516080214*^9}, {3.8760250386026983`*^9, 3.876025041209245*^9}},ExpressionUUID->"c9e75474-c936-4ab7-bed0-\ 17a3061c8106"], 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[{ 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[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.6308321133874445`*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.6853444422720785`*^9, 3.685344490915861*^9}, { 3.6858763098135014`*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.6862264116856813`*^9}, 3.686445942025214*^9, {3.6866501652021523`*^9, 3.6866502922323303`*^9}, {3.687145549690261*^9, 3.6871456288103724`*^9}, { 3.6871456605404167`*^9, 3.6871456854304514`*^9}, {3.6871477248733063`*^9, 3.6871477484933395`*^9}, {3.6876002810943336`*^9, 3.6876002969743567`*^9}, {3.7177363430128164`*^9, 3.7177363445132213`*^9}, 3.7177363780792713`*^9, {3.7180926677054143`*^9, 3.718092683617588*^9}, 3.749209170827799*^9, {3.8436263648599095`*^9, 3.84362636555094*^9}}, CellLabel-> "In[509]:=",ExpressionUUID->"fa14eb02-9a2b-4f4a-98d9-5c66231843ed"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{{3.4730556702200003`*^9, 3.473055683948*^9}, { 3.473056486087*^9, 3.4730564925030003`*^9}, 3.473057491051*^9, { 3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.5681163731689377`*^9}, {3.5992231160658693`*^9, 3.59922314473872*^9}, { 3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, {3.686650104192067*^9, 3.686650133092108*^9}, { 3.687145505190199*^9, 3.6871455259302278`*^9}, {3.8760250313380966`*^9, 3.8760250341594057`*^9}},ExpressionUUID->"e14eabb9-dbd8-4c1a-ac12-\ bec0618ed855"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "f"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "0", ",", "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"}], "}"}]}], "}"}], ",", "\[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[{"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.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.6308321133874445`*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.6853444422720785`*^9, 3.685344490915861*^9}, { 3.6858763098135014`*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.6862264116856813`*^9}, 3.686445942025214*^9, {3.6866501652021523`*^9, 3.6866502922323303`*^9}, {3.6871475873131137`*^9, 3.687147643883193*^9}, { 3.7177364622662153`*^9, 3.717736462375592*^9}, {3.7180927176352477`*^9, 3.71809271890223*^9}, {3.7492094902520704`*^9, 3.749209497640918*^9}, { 3.749209945982871*^9, 3.749209959901496*^9}, {3.8436263769876623`*^9, 3.8436263865111856`*^9}, {3.8452636947286882`*^9, 3.8452637103289824`*^9}, {3.8757575228808746`*^9, 3.8757575627640743`*^9}}, CellLabel-> "In[513]:=",ExpressionUUID->"2289b07c-4e13-4095-89f5-398da3f3a866"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar structure)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, { 3.7491964861930313`*^9, 3.749196491176306*^9}, 3.7815918364882617`*^9, { 3.876025020793414*^9, 3.876025027241438*^9}},ExpressionUUID->"dc1abfdb-1e39-45b7-83a8-\ 6a2cc762fbd4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ 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[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"P", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], " ", ",", "\[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[{ RowBox[{"2", "L"}], ",", "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[{"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.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.7491965410236588`*^9, 3.749196620770857*^9}, { 3.7815918948366385`*^9, 3.781592011660775*^9}, {3.8436263957540026`*^9, 3.8436264004187727`*^9}, {3.876024867936471*^9, 3.8760248713719263`*^9}}, CellLabel-> "In[518]:=",ExpressionUUID->"65df6051-e112-4694-9288-4864f0b39628"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, 3.7491964819596252`*^9, 3.781592336805994*^9, {3.87602500746386*^9, 3.876025007618832*^9}, {3.8760250529224033`*^9, 3.8760250547039614`*^9}},ExpressionUUID->"e7d6f3fb-68e2-41e6-8bd0-\ 96a9532d5abd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", 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[{"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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.781592361414194*^9, 3.7815924103363485`*^9}, { 3.781951848659153*^9, 3.7819518491188927`*^9}}, CellLabel-> "In[523]:=",ExpressionUUID->"2776f558-ed81-4a16-8a71-ccd1f2064d49"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.6862916156897416`*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.74865961226451*^9, 3.748927832766491*^9, {3.7490963641131907`*^9, 3.7490963727668962`*^9}, { 3.7490967747450066`*^9, 3.749096780472579*^9}, {3.781592696802644*^9, 3.781592697928481*^9}, 3.7815949582252836`*^9, {3.8760250145443716`*^9, 3.8760250147226067`*^9}, {3.8760250576758585`*^9, 3.876025059852047*^9}},ExpressionUUID->"d11e58c8-ebe0-4920-9ab4-\ 5eb9800f304d"], 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", ",", RowBox[{"-", "f"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "f"}]}], "}"}]}], "}"}], ",", 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[{"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[{ 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.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.718092479942563*^9, 3.7180924811749573`*^9}, { 3.748930241472967*^9, 3.748930250830176*^9}, {3.749096382599405*^9, 3.749096442697592*^9}, {3.7490968050144415`*^9, 3.7490968972208242`*^9}, { 3.749097026819504*^9, 3.7490970589562917`*^9}, {3.749097163512662*^9, 3.7490972292810607`*^9}, {3.781592692454582*^9, 3.7815927014259567`*^9}, { 3.8760251537777853`*^9, 3.8760251582975645`*^9}}, CellLabel-> "In[404]:=",ExpressionUUID->"14ecc8a8-4e42-438b-9a62-6c72f80b36fa"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["BAR AND BEAM TRUSSES (week 45)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604834`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.6624537732749796`*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.6852671273738394`*^9}, {3.685323461463516*^9, 3.6853234663335233`*^9}, {3.6858764211836576`*^9, 3.6858764235236607`*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.6862262151354065`*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, 3.780755249249569*^9, { 3.873870793913603*^9, 3.873870794263239*^9}},ExpressionUUID->"1c53073d-67be-434e-8a1b-\ 36ac5af5ef17"], Cell[CellGroupData[{ Cell["Lecture example 3.1 (wheel)", "Subsubsection", CellChangeTimes->{{3.473602371199*^9, 3.4736023715889997`*^9}, { 3.685267131203845*^9, 3.685267166633895*^9}, {3.6853471907792845`*^9, 3.6853471926053886`*^9}, {3.685856984206339*^9, 3.685856984847376*^9}, { 3.6858768613442736`*^9, 3.6858768630542765`*^9}, {3.6868022665986676`*^9, 3.68680227563868*^9}, 3.6868820268889236`*^9, {3.7492979552530766`*^9, 3.749297955306305*^9}, {3.7816768159404764`*^9, 3.7816768210478935`*^9}, 3.8136545438973055`*^9},ExpressionUUID->"4136a11b-e82f-4656-b3d6-\ 380cb0c57626"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "i_", "]"}], ":=", RowBox[{"2", " ", "Pi", " ", FractionBox[ RowBox[{"i", "-", "1"}], RowBox[{"n", "-", "1"}]]}]}], ";", " ", RowBox[{"n", "=", " ", "13"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n", ",", "i"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ele", "[", RowBox[{"[", "n", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n", "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "i", "]"}], "]"}], ",", "0", ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", "[", "i", "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "n", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "n", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "n", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", " ", RowBox[{"L", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.630846597456928*^9, 3.685264004799468*^9, 3.6852673008640823`*^9, { 3.6858567510020003`*^9, 3.685856760982571*^9}, {3.685856798224701*^9, 3.685856802661955*^9}, {3.685856847204503*^9, 3.6858569177455378`*^9}, { 3.6868024557289324`*^9, 3.686802496398989*^9}, {3.6868026155691557`*^9, 3.68680269691927*^9}, {3.6868027380393276`*^9, 3.68680278261939*^9}, { 3.6882120677680273`*^9, 3.6882121209181013`*^9}, {3.7187135753209057`*^9, 3.718713579592114*^9}, {3.7492983158579273`*^9, 3.749298340371527*^9}, { 3.7492983865017643`*^9, 3.749298402224436*^9}, {3.8436270200326023`*^9, 3.8436270214183774`*^9}}, CellLabel-> "In[509]:=",ExpressionUUID->"aab312ea-28bd-451a-b76a-6cfb48548d37"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.2 (bar element)", "Subsubsection", CellChangeTimes->{{3.4736023747714*^9, 3.4736023781098003`*^9}, { 3.6868022785686846`*^9, 3.6868022850886936`*^9}, {3.7492979598334618`*^9, 3.749297959983119*^9}, 3.7816768292590213`*^9, 3.813654568310382*^9, { 3.876445521584462*^9, 3.876445524476016*^9}},ExpressionUUID->"1e41e416-8a31-4652-96ae-\ b6273ceccb83"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"fx", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", RowBox[{"Sqrt", "[", "3", "]"}]}]}]}], "}"}], ",", 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", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], " ", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5995329860720997`*^9, 3.5995329864777007`*^9}, { 3.630659778315757*^9, 3.630659828048644*^9}, {3.6306598914627557`*^9, 3.6306599306656246`*^9}, {3.6306599731444993`*^9, 3.6306599829569163`*^9}, {3.662454347459821*^9, 3.6624543518500724`*^9}, { 3.68526405607954*^9, 3.6852640707595606`*^9}, {3.6852641077696123`*^9, 3.685264155179679*^9}, 3.6852673060840898`*^9, {3.6853472003408313`*^9, 3.6853472271923676`*^9}, {3.6858570860961666`*^9, 3.685857127369527*^9}, { 3.6858768949343204`*^9, 3.685876957124408*^9}, {3.685876989354453*^9, 3.6858770065044775`*^9}, {3.686802340768771*^9, 3.6868023465387793`*^9}, { 3.687096288077949*^9, 3.687096301137967*^9}, {3.6870963358880157`*^9, 3.6870963412180233`*^9}, {3.6870963927480955`*^9, 3.687096425488141*^9}, { 3.688212170418171*^9, 3.688212173478175*^9}, 3.688212222858244*^9, { 3.718713559287408*^9, 3.718713566112142*^9}, {3.749297987905261*^9, 3.7492980245735807`*^9}, {3.7492980614235954`*^9, 3.7492980977687564`*^9}, {3.782206132349878*^9, 3.7822061335202265`*^9}, { 3.8436270961386304`*^9, 3.843627097333571*^9}, {3.8436271305266886`*^9, 3.843627151571617*^9}, 3.8436272405109887`*^9, {3.8456989871179776`*^9, 3.845698997247012*^9}, {3.876445480282593*^9, 3.876445483132203*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"e124aad5-6b55-4fb8-b8ff-0c4cc3630946"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.3 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4736023747714*^9, 3.4736023781098003`*^9}, { 3.6868022785686846`*^9, 3.6868022850886936`*^9}, {3.7492979598334618`*^9, 3.749297959983119*^9}, {3.749298956708169*^9, 3.749298956832679*^9}, 3.781676832387104*^9, 3.8136545700548353`*^9},ExpressionUUID->"8b209519-3bd7-439a-b2de-\ 58ec90b0d3ad"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 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[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", 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", ",", RowBox[{"-", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5995329860720997`*^9, 3.5995329864777007`*^9}, { 3.630659778315757*^9, 3.630659828048644*^9}, {3.6306598914627557`*^9, 3.6306599306656246`*^9}, {3.6306599731444993`*^9, 3.6306599829569163`*^9}, {3.662454347459821*^9, 3.6624543518500724`*^9}, { 3.68526405607954*^9, 3.6852640707595606`*^9}, {3.6852641077696123`*^9, 3.685264155179679*^9}, 3.6852673060840898`*^9, {3.6853472003408313`*^9, 3.6853472271923676`*^9}, {3.6858570860961666`*^9, 3.685857127369527*^9}, { 3.6858768949343204`*^9, 3.685876957124408*^9}, {3.685876989354453*^9, 3.6858770065044775`*^9}, {3.686802340768771*^9, 3.6868023465387793`*^9}, { 3.687096288077949*^9, 3.687096301137967*^9}, {3.6870963358880157`*^9, 3.6870963412180233`*^9}, {3.6870963927480955`*^9, 3.687096425488141*^9}, { 3.688212170418171*^9, 3.688212173478175*^9}, 3.688212222858244*^9, { 3.718713559287408*^9, 3.718713566112142*^9}, {3.74929896604405*^9, 3.7492989833939238`*^9}, {3.8436273131595716`*^9, 3.8436273200872927`*^9}, {3.9018443721583567`*^9, 3.9018443900304985`*^9}, {3.9018444765870743`*^9, 3.9018445081713877`*^9}, {3.901848670190443*^9, 3.9018487219334393`*^9}, { 3.9018487791925726`*^9, 3.9018487921107063`*^9}, {3.9019336344451876`*^9, 3.9019337443378525`*^9}, {3.90193387657085*^9, 3.9019339112673073`*^9}, { 3.9019339866954937`*^9, 3.9019339879341536`*^9}, 3.9019341446015644`*^9, { 3.9019341938878818`*^9, 3.901934196962679*^9}, {3.9019359723030405`*^9, 3.9019359762307224`*^9}, {3.901936141662588*^9, 3.9019361708858624`*^9}, { 3.9019399908057537`*^9, 3.9019400187142167`*^9}, {3.9019400628859234`*^9, 3.9019400632599635`*^9}, 3.9019402093045635`*^9, {3.9019402413254547`*^9, 3.9019402802069426`*^9}, 3.9019403438796206`*^9},ExpressionUUID->"ccacba99-22a5-402c-a41a-\ d4e45116dec5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.4 (bar truss with weight)", "Subsubsection", CellChangeTimes->{{3.4736023809334*^9, 3.4736023838817997`*^9}, { 3.5994903030327234`*^9, 3.5994903034695244`*^9}, {3.6853473766519156`*^9, 3.68534737865203*^9}, {3.685853672480919*^9, 3.6858536765821533`*^9}, { 3.6868022874286966`*^9, 3.6868022924887037`*^9}, {3.7492993025153213`*^9, 3.749299305104885*^9}, 3.781676835642621*^9, 3.813654572540381*^9},ExpressionUUID->"c1853c1a-fb23-4104-b5bd-\ 31b2644ff45d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "g"}], " ", "\[Rho]", " ", "A"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "g"}], " ", "\[Rho]", " ", "A"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "g"}], " ", "\[Rho]", " ", "A"}], ",", "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", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", 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", ",", RowBox[{"-", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599533126815547*^9, 3.5995331409959717`*^9}, 3.6307396312704043`*^9, 3.6307396739988794`*^9, {3.630836025642833*^9, 3.630836085484538*^9}, {3.630836488854447*^9, 3.630836496654461*^9}, 3.6308368035069995`*^9, {3.6308369760433025`*^9, 3.6308369779309063`*^9}, { 3.662454165465412*^9, 3.662454191552904*^9}, {3.662454222651683*^9, 3.662454226813921*^9}, {3.6624543747603827`*^9, 3.6624543876881227`*^9}, { 3.662454494804249*^9, 3.662454502145669*^9}, {3.66245471826503*^9, 3.6624547787554903`*^9}, {3.6852641852097206`*^9, 3.6852642984798794`*^9}, {3.6852643408999386`*^9, 3.685264378119991*^9}, { 3.6852645502702312`*^9, 3.685264617960326*^9}, 3.6852648770406895`*^9, 3.6852673115340977`*^9, {3.6853472486005917`*^9, 3.6853472870447903`*^9}, { 3.685853662587353*^9, 3.685853668746705*^9}, {3.6858543068252015`*^9, 3.6858543631444225`*^9}, {3.6858544153464084`*^9, 3.6858544248489523`*^9}, {3.685854612199668*^9, 3.68585466031842*^9}, { 3.6858547397759647`*^9, 3.68585487991298*^9}, 3.685854981820809*^9, { 3.6858553601754494`*^9, 3.685855394495413*^9}, {3.6858554257602005`*^9, 3.6858554351567383`*^9}, 3.685855479299263*^9, 3.685857039572506*^9, { 3.6858770228745003`*^9, 3.6858770304145107`*^9}, {3.6868025344690423`*^9, 3.686802551199066*^9}, {3.7187136081070504`*^9, 3.718713615262325*^9}, { 3.7492993295382905`*^9, 3.749299338359168*^9}, {3.7816717007186203`*^9, 3.781671716529733*^9}, {3.7816717645582705`*^9, 3.7816717684208107`*^9}, { 3.7816718160859756`*^9, 3.78167185015399*^9}, {3.781675787595458*^9, 3.7816757916358285`*^9}, {3.781676121441181*^9, 3.7816761521781797`*^9}, { 3.7816762322950416`*^9, 3.7816762329180937`*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"c59dde5c-429d-441b-afd2-72d02f20400e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.5 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4736023870954*^9, 3.4736023880782003`*^9}, { 3.686803133189881*^9, 3.68680313979989*^9}, {3.7493008696860514`*^9, 3.749300872283139*^9}, 3.7816768482405543`*^9, 3.8136545744028063`*^9},ExpressionUUID->"a9964ee5-a703-4a17-8699-\ ca6cdf0efa18"], 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6306600640614586`*^9, 3.6306601546040177`*^9}, { 3.6308456164378166`*^9, 3.6308456316986895`*^9}, {3.6308456981184883`*^9, 3.6308457129413366`*^9}, {3.685264921820752*^9, 3.6852649870208435`*^9}, 3.685267316524104*^9, {3.6853473969490767`*^9, 3.6853474174332485`*^9}, { 3.6858513146140566`*^9, 3.6858513498080697`*^9}, {3.6858514489307394`*^9, 3.68585149492937*^9}, {3.6858571778094125`*^9, 3.6858571864289055`*^9}, { 3.685857242402107*^9, 3.6858572478604193`*^9}, {3.685948918693322*^9, 3.6859489357472973`*^9}, {3.686803185749954*^9, 3.6868031866399555`*^9}, 3.68707467207323*^9, {3.68818340772154*^9, 3.6881834195715566`*^9}, { 3.7493008921299095`*^9, 3.7493009208051314`*^9}, 3.7822063827282476`*^9, { 3.843627400259995*^9, 3.8436274049979663`*^9}}, CellLabel-> "In[372]:=",ExpressionUUID->"a39d07d8-aa54-4173-ba1b-051de834dafd"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.6 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, 3.4742603278827395`*^9, 3.599997507802187*^9, {3.686803855490892*^9, 3.6868038613709*^9}, {3.749305251848565*^9, 3.749305252514701*^9}, 3.781676851587085*^9, 3.813654578329666*^9},ExpressionUUID->"bc3702dc-c0e5-4881-b56e-\ f667111a73fe"], 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[{"0", ",", "0", ",", "0", ",", "Mx", ",", "My", ",", "Mz"}], "}"}], ",", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.6307391297295237`*^9, 3.6307392211768837`*^9}, {3.630739306337434*^9, 3.6307393066026344`*^9}, { 3.6309953372125454`*^9, 3.6309953654231586`*^9}, {3.6314281447479825`*^9, 3.631428157711605*^9}, {3.6852818902833004`*^9, 3.6852820246334887`*^9}, { 3.6853488211335306`*^9, 3.685348881403615*^9}, 3.6859400657682357`*^9, { 3.685940098898282*^9, 3.6859401628383713`*^9}, {3.686823595859993*^9, 3.6868236044800053`*^9}, {3.6868237633102274`*^9, 3.6868238153503003`*^9}, {3.6868238624603662`*^9, 3.6868238661803713`*^9}, {3.6868239160404415`*^9, 3.6868239182504444`*^9}, 3.6868258963232136`*^9, {3.686827477125427*^9, 3.6868274869154406`*^9}, { 3.6868298928588085`*^9, 3.6868299600989027`*^9}, {3.686829997168955*^9, 3.686830001768961*^9}, {3.686830345209442*^9, 3.686830357019459*^9}, 3.6872433057918*^9, {3.718713656692144*^9, 3.7187136665567756`*^9}, { 3.7493052762723045`*^9, 3.749305286552043*^9}, {3.845362321569311*^9, 3.8453623231959057`*^9}, {3.876445558572704*^9, 3.876445569554926*^9}, { 3.901941704533698*^9, 3.901941721280039*^9}, {3.901944936976795*^9, 3.9019449429750977`*^9}, {3.9019449821383905`*^9, 3.9019449914947977`*^9}, {3.9019450422597713`*^9, 3.901945066338323*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"981b5f4f-a215-4324-b7a9-0efc222809e5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.7 (beam truss)", "Subsubsection", CellChangeTimes->{ 3.4736023907458*^9, {3.685857331253189*^9, 3.685857333511318*^9}, { 3.6868042361114244`*^9, 3.686804266921468*^9}, {3.686804557371875*^9, 3.686804559021877*^9}, 3.6868275148554797`*^9, {3.6868278640159683`*^9, 3.6868278662759714`*^9}, {3.686833440723776*^9, 3.686833441233776*^9}, { 3.7493054218258686`*^9, 3.7493054228842597`*^9}, 3.7816768547516775`*^9, 3.8136545800987763`*^9},ExpressionUUID->"95583ecb-963b-4e5d-a6b4-\ ba1fb10b7751"], 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[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426471603690453`*^9, 3.4426471631302457`*^9}, { 3.4426472722990456`*^9, 3.442647277993046*^9}, {3.5995355510048094`*^9, 3.599535561878029*^9}, {3.599535603124501*^9, 3.599535612765318*^9}, { 3.599535651375386*^9, 3.59953565340339*^9}, {3.5995357412315435`*^9, 3.599535743758748*^9}, {3.630660175133654*^9, 3.630660254849794*^9}, { 3.6306603153311*^9, 3.630660338434741*^9}, {3.630660379057212*^9, 3.6306603948600397`*^9}, {3.630661009484618*^9, 3.6306610155530286`*^9}, 3.630670043608343*^9, 3.630670095712435*^9, {3.630670238702286*^9, 3.6306702481403027`*^9}, 3.6306703136760173`*^9, {3.6306703609909005`*^9, 3.630670364220106*^9}, {3.630670712724718*^9, 3.6306707231143365`*^9}, { 3.6306708079472857`*^9, 3.630670827010519*^9}, 3.6306708585225744`*^9, { 3.6306708983182445`*^9, 3.630670913996272*^9}, {3.6306761609662476`*^9, 3.6306761733370695`*^9}, {3.63067620845092*^9, 3.6306762113213253`*^9}, { 3.6306762467982187`*^9, 3.6306762905997243`*^9}, {3.630676330529008*^9, 3.630676331011036*^9}, {3.6306763671129494`*^9, 3.6306763698429537`*^9}, { 3.630676420465043*^9, 3.6306764231326475`*^9}, {3.6306764703728*^9, 3.6306764729624043`*^9}, {3.630676677528345*^9, 3.6306767053561373`*^9}, { 3.630676791526959*^9, 3.6306768379036117`*^9}, {3.6306768958199244`*^9, 3.630676897726033*^9}, {3.630676972970337*^9, 3.630677054333991*^9}, { 3.630677103073778*^9, 3.630677259885748*^9}, {3.630677597256044*^9, 3.6306776002502155`*^9}, {3.6306776364472857`*^9, 3.630677654423314*^9}, 3.630677752663933*^9, {3.630677840639965*^9, 3.630677874770917*^9}, { 3.6306779394316154`*^9, 3.630677946925044*^9}, {3.6306785715691576`*^9, 3.6306785739452934`*^9}, 3.6306786235291295`*^9, {3.6306786600852203`*^9, 3.6306786777522306`*^9}, {3.6306787081499696`*^9, 3.630678710700115*^9}, 3.63067874452505*^9, {3.630678815472108*^9, 3.630678818058256*^9}, { 3.6306788505571146`*^9, 3.630678878144693*^9}, {3.630678913554718*^9, 3.6306789164848857`*^9}, {3.6306790844854946`*^9, 3.630679090509839*^9}, { 3.6306793817024946`*^9, 3.630679390282985*^9}, {3.6306795442287903`*^9, 3.630679557292903*^9}, {3.6306797455696335`*^9, 3.6306797496880407`*^9}, { 3.6306798004037294`*^9, 3.630679805567339*^9}, 3.6306798401057997`*^9, { 3.6306798976231003`*^9, 3.6306799315531597`*^9}, {3.6306799795856447`*^9, 3.630679983938052*^9}, {3.630680053966575*^9, 3.630680055744978*^9}, { 3.630680878337224*^9, 3.630680897384857*^9}, {3.6306809442005396`*^9, 3.630681004385445*^9}, 3.630681234298649*^9, {3.6306812983211613`*^9, 3.6306813178211956`*^9}, {3.630681380736106*^9, 3.6306814227937803`*^9}, { 3.63068146276105*^9, 3.6306814652102547`*^9}, {3.6306815644888287`*^9, 3.6306815933020797`*^9}, {3.630720976304243*^9, 3.6307209836986666`*^9}, { 3.6307487690755715`*^9, 3.6307487728819785`*^9}, 3.630748803988433*^9, { 3.6852650217308917`*^9, 3.685265067940956*^9}, {3.685265099931001*^9, 3.6852652070211515`*^9}, {3.6852653389013357`*^9, 3.6852653639113708`*^9}, {3.685265394731414*^9, 3.6852654097214346`*^9}, { 3.68526546322151*^9, 3.6852654876415443`*^9}, {3.6852656121717186`*^9, 3.685265614611722*^9}, {3.6853474309530215`*^9, 3.6853474625768304`*^9}, { 3.685347514999829*^9, 3.685347551195899*^9}, {3.6868043173415384`*^9, 3.686804321841545*^9}, {3.6868240868106804`*^9, 3.6868241248307333`*^9}, { 3.6868242154708605`*^9, 3.686824264370929*^9}, {3.686827541495517*^9, 3.6868275563555374`*^9}, {3.686828998137556*^9, 3.6868290052975664`*^9}, { 3.6868290364276094`*^9, 3.6868290370576105`*^9}, {3.68682943628817*^9, 3.6868294524381924`*^9}, 3.6868301898292246`*^9, {3.6868302591893215`*^9, 3.6868302852693577`*^9}, {3.6868305063896675`*^9, 3.6868305346297073`*^9}, {3.6868306680498943`*^9, 3.6868306720198994`*^9}, {3.686830857430159*^9, 3.6868308687101746`*^9}, { 3.686830928130258*^9, 3.6868310078503695`*^9}, {3.6868314158109407`*^9, 3.6868314643610086`*^9}, {3.68683153647111*^9, 3.68683154366112*^9}, { 3.6868315914711866`*^9, 3.68683159408119*^9}, {3.6868329475730853`*^9, 3.6868329607531037`*^9}, {3.6868333151836*^9, 3.6868334240137525`*^9}, { 3.6873493675893908`*^9, 3.687349401709439*^9}, {3.7187136898970966`*^9, 3.718713715995452*^9}, {3.7493054394649124`*^9, 3.7493055105699997`*^9}, { 3.8453604000207214`*^9, 3.8453604090409975`*^9}, 3.876445583012393*^9},ExpressionUUID->"3d03e607-5ae1-45fd-8fcd-\ aed561bc9c8a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.8 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, {3.47426033896474*^9, 3.4742603416977396`*^9}, {3.5999975136833973`*^9, 3.5999975146505995`*^9}, {3.6868055439132557`*^9, 3.6868055502232647`*^9}, {3.7493461185676284`*^9, 3.749346119918116*^9}, 3.781676858106331*^9, 3.8136545821401105`*^9},ExpressionUUID->"49ca99a5-de42-4fa1-9fbf-\ 71f1c8bd673d"], 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"}], "}"}], "]"}]}], "}"}], ",", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.482309815778*^9, 3.482309848382*^9}, {3.4823099455699997`*^9, 3.4823099513576*^9}, { 3.56929642228712*^9, 3.569296444548359*^9}, {3.569296507151269*^9, 3.5692965075568695`*^9}, {3.63073932112626*^9, 3.630739489918556*^9}, { 3.630995402963306*^9, 3.6309954368552446`*^9}, {3.6314281883500595`*^9, 3.631428199145278*^9}, {3.6314352924094334`*^9, 3.6314353073722897`*^9}, 3.63143540494287*^9, {3.6314354351645985`*^9, 3.631435469928587*^9}, { 3.6314361236119757`*^9, 3.6314361416370068`*^9}, {3.631436260745819*^9, 3.63143628611127*^9}, {3.6314363180760984`*^9, 3.6314363593104568`*^9}, { 3.66304665456924*^9, 3.663046671120869*^9}, 3.6630468376199617`*^9, { 3.6852820757935605`*^9, 3.685282195043727*^9}, {3.68528223257378*^9, 3.6852822330137806`*^9}, 3.6852822830638504`*^9, {3.685282349023943*^9, 3.685282380023986*^9}, {3.685339954994501*^9, 3.6853400008045654`*^9}, { 3.685343309655297*^9, 3.6853433388039637`*^9}, {3.685343426847*^9, 3.6853434276050434`*^9}, {3.6853436016639986`*^9, 3.685343647949646*^9}, { 3.6853437337305527`*^9, 3.6853438255278034`*^9}, {3.6853439328389406`*^9, 3.685343938170246*^9}, {3.685348904793648*^9, 3.6853489098836555`*^9}, { 3.6859402067284327`*^9, 3.6859402438984847`*^9}, {3.6868244654612103`*^9, 3.686824488311242*^9}, {3.6868252329422846`*^9, 3.686825255772317*^9}, { 3.686825413982538*^9, 3.686825414442539*^9}, {3.686826512264076*^9, 3.6868265521841316`*^9}, {3.68682718670502*^9, 3.686827213915058*^9}, { 3.686828016566182*^9, 3.686828033276205*^9}, {3.687097869260163*^9, 3.687097935440255*^9}, {3.6870980229203777`*^9, 3.6870980233203783`*^9}, { 3.6870980591704283`*^9, 3.6870980676004405`*^9}, {3.7187137473195257`*^9, 3.7187138038023973`*^9}, {3.845360477272686*^9, 3.8453604822902565`*^9}, { 3.8453605493063335`*^9, 3.8453606192690086`*^9}, {3.845361215324304*^9, 3.845361235361309*^9}, {3.8453612848041935`*^9, 3.84536128532181*^9}, 3.8764456090656614`*^9}, CellLabel-> "In[131]:=",ExpressionUUID->"af809fd3-73c0-40bd-9bb9-bcc749c18f2a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, 3.47426035293174*^9, {3.5999975220450125`*^9, 3.599997523027814*^9}, 3.5999978261987467`*^9, {3.686828145056362*^9, 3.686828151906371*^9}, {3.7493463023636312`*^9, 3.749346303248435*^9}, 3.7816768644688873`*^9, 3.8136545839648857`*^9},ExpressionUUID->"e4217b3c-c163-4327-92e1-\ 0d085afe2115"], 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", ",", RowBox[{"\[Rho]", " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[Rho]", " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[Rho]", " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "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", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.4430786065694*^9, 3.4430786485334*^9}, {3.4430786870186*^9, 3.4430787461582003`*^9}, { 3.4430787802130003`*^9, 3.4430788653578*^9}, 3.4431079599828*^9, 3.5692966782991695`*^9, {3.6309954787266397`*^9, 3.6309956503614564`*^9}, 3.630995762997899*^9, {3.630999594239033*^9, 3.6309996892864695`*^9}, { 3.630999729315759*^9, 3.6309998368659105`*^9}, {3.6309998709188585`*^9, 3.630999874489063*^9}, {3.631017698615719*^9, 3.6310178109671164`*^9}, 3.6310178626656065`*^9, {3.631428859525638*^9, 3.631428859837639*^9}, { 3.6314291231505013`*^9, 3.631429127019308*^9}, {3.663046895293263*^9, 3.663046912437693*^9}, 3.685282416044037*^9, {3.6852824488640823`*^9, 3.685282651514366*^9}, {3.6852827328444805`*^9, 3.6852827420044928`*^9}, { 3.6853439657068205`*^9, 3.685344025975268*^9}, {3.6853489200336695`*^9, 3.685348933904689*^9}, {3.685943614752954*^9, 3.685943675113406*^9}, 3.685943708622323*^9, {3.6859438982451687`*^9, 3.68594390368748*^9}, 3.6876683717940345`*^9, {3.718713833599187*^9, 3.7187138842394447`*^9}, { 3.845361812273614*^9, 3.8453618159642878`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"dc3d5f0c-6459-42d9-a17d-a80daf979fef"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.10 (point constraint)", "Subsubsection", CellChangeTimes->{{3.4736023870954*^9, 3.4736023880782003`*^9}, { 3.686803133189881*^9, 3.68680313979989*^9}, {3.6877787360664816`*^9, 3.687778744516493*^9}, {3.749366529547693*^9, 3.7493665407000628`*^9}, 3.781676870034504*^9, 3.8136545863810463`*^9},ExpressionUUID->"269f8975-6d5a-4abb-a693-\ 80747513ca0b"], 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]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], " ", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", 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[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6306600640614586`*^9, 3.6306601546040177`*^9}, { 3.6308456164378166`*^9, 3.6308456316986895`*^9}, {3.6308456981184883`*^9, 3.6308457129413366`*^9}, {3.685264921820752*^9, 3.6852649870208435`*^9}, 3.685267316524104*^9, {3.6853473969490767`*^9, 3.6853474174332485`*^9}, { 3.6858513146140566`*^9, 3.6858513498080697`*^9}, {3.6858514489307394`*^9, 3.68585149492937*^9}, {3.6858571778094125`*^9, 3.6858571864289055`*^9}, { 3.685857242402107*^9, 3.6858572478604193`*^9}, {3.685948918693322*^9, 3.6859489357472973`*^9}, {3.686803185749954*^9, 3.6868031866399555`*^9}, 3.68707467207323*^9, {3.687778757126511*^9, 3.6877787923465605`*^9}, { 3.6877788333266177`*^9, 3.6877788818766856`*^9}, {3.71871405291953*^9, 3.718714054088386*^9}, 3.749366549214879*^9, {3.813654820759766*^9, 3.813654831326769*^9}, {3.845361932934987*^9, 3.8453619368995056`*^9}, { 3.845699606178213*^9, 3.8456996129982157`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"cfb90531-d442-4d7c-b1a5-61e64cf23bb7"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.4736023951294003`*^9, 3.5687155591174793`*^9, 3.568715646113632*^9, { 3.568716073023982*^9, 3.5687160780315914`*^9}, {3.6872515142536955`*^9, 3.687251559133758*^9}, {3.7493853842792377`*^9, 3.749385399047465*^9}, { 3.7816769041974754`*^9, 3.7816769113974466`*^9}},ExpressionUUID->"8a3b5be2-c82f-4cdd-adcf-\ ad2a6511c17c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], " ", "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[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", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5687160920248156`*^9, 3.568716257291506*^9}, { 3.568716289255962*^9, 3.568716380609722*^9}, 3.568716503662739*^9, { 3.599475236864607*^9, 3.599475237098607*^9}, {3.599475354598014*^9, 3.5994754053605027`*^9}, {3.599475436248557*^9, 3.5994754807398353`*^9}, { 3.6307389947268867`*^9, 3.6307390535077896`*^9}, {3.6309861131038904`*^9, 3.6309862682907667`*^9}, {3.631424558159581*^9, 3.6314245891256356`*^9}, { 3.6624552319422064`*^9, 3.662455237062499*^9}, {3.6852667663533344`*^9, 3.68526684171344*^9}, {3.6852668915235095`*^9, 3.685266923413554*^9}, 3.685267343854143*^9, {3.6852713069429655`*^9, 3.685271332453001*^9}, { 3.6853478384253273`*^9, 3.6853478599305573`*^9}, {3.6853479070492525`*^9, 3.6853479227451506`*^9}, {3.6853479836976366`*^9, 3.685348000436594*^9}, { 3.6853487750034666`*^9, 3.685348793453492*^9}, {3.687251613563834*^9, 3.6872516458438797`*^9}, {3.6872517360540056`*^9, 3.6872517559340334`*^9}, {3.687251801344097*^9, 3.6872518129341135`*^9}, 3.687764819992582*^9, {3.7187068450918727`*^9, 3.7187068734418435`*^9}, { 3.7187069097555704`*^9, 3.7187069975866556`*^9}, {3.718707088907159*^9, 3.71870714984157*^9}, {3.718711566072616*^9, 3.718711566742806*^9}, { 3.7187116422917643`*^9, 3.7187116668400583`*^9}, {3.7493854176413813`*^9, 3.7493854269178114`*^9}, 3.78168233935231*^9, {3.845362733935738*^9, 3.8453627382703094`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"d9192c3c-0013-416d-a2d1-0b0a4d28922c"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4730556702200003`*^9, 3.473055683948*^9}, 3.473056485032*^9, {3.473057468587*^9, 3.4730574820360003`*^9}, { 3.473057735322*^9, 3.473057757075*^9}, {3.568116343591286*^9, 3.568116350923299*^9}, 3.599225584082209*^9, {3.686233658714576*^9, 3.68623369003462*^9}, {3.686881649358395*^9, 3.6868816504583964`*^9}, 3.6868819874788685`*^9, 3.7493858614730363`*^9, 3.7816769427733235`*^9},ExpressionUUID->"ee147a4f-dbc6-4ea4-b8a5-\ bc5ed3a1991b"], 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[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", SqrtBox["3"]}], "}"}], " ", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", SqrtBox["3"]}], "}"}], " ", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284452`*^9, 3.4426465892856455`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473055767227*^9, 3.473055823053*^9}, {3.47305586863*^9, 3.4730558989110003`*^9}, { 3.47305599471*^9, 3.473056042217*^9}, {3.473056097182*^9, 3.473056121572*^9}, {3.473056174692*^9, 3.4730561975290003`*^9}, 3.5681165293612137`*^9, {3.63037058052431*^9, 3.630370666324461*^9}, { 3.6307483146155734`*^9, 3.6307483403244185`*^9}, 3.630748616273303*^9, 3.6308127119819813`*^9, {3.6852627002976418`*^9, 3.68526276365773*^9}, { 3.6852628237278147`*^9, 3.6852628743278856`*^9}, {3.685262904467928*^9, 3.6852629096179347`*^9}, 3.6852671878639245`*^9, {3.6852715879533587`*^9, 3.6852715933433666`*^9}, {3.6853468730631123`*^9, 3.685346888050969*^9}, { 3.6858762295833893`*^9, 3.6858762316433926`*^9}, {3.6862253153841467`*^9, 3.6862253158941474`*^9}, 3.6876683812140474`*^9, {3.7187140960610323`*^9, 3.718714111077124*^9}, 3.749385868033883*^9, {3.845362764372017*^9, 3.8453627744833603`*^9}}, CellLabel-> "In[347]:=",ExpressionUUID->"fb03f1de-a678-4405-855a-4831b3559c3f"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.4736023951294003`*^9, 3.5687155591174793`*^9, 3.568715646113632*^9, { 3.6868815758482924`*^9, 3.6868815760982924`*^9}, 3.686889220472929*^9, 3.7493874890874653`*^9, 3.781682296463123*^9, {3.781855276358662*^9, 3.781855276717953*^9}},ExpressionUUID->"9f505610-c2f0-4d17-b3da-\ de27b650cd69"], 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5994903546532145`*^9, 3.599490364216031*^9}, 3.6307213590619316`*^9, {3.630738624865837*^9, 3.6307387491980553`*^9}, { 3.6309858428724337`*^9, 3.6309858564292097`*^9}, {3.631423808625065*^9, 3.6314238370015144`*^9}, {3.6314238762667837`*^9, 3.631423951630516*^9}, { 3.631423984484174*^9, 3.631424057866702*^9}, {3.6314241085043917`*^9, 3.631424138362844*^9}, {3.631424437181369*^9, 3.631424444825382*^9}, { 3.6624550109105644`*^9, 3.6624550264764547`*^9}, {3.6852657216818714`*^9, 3.6852658115519977`*^9}, 3.6852658527220554`*^9, {3.685265899842121*^9, 3.6852659078121324`*^9}, {3.685266411802838*^9, 3.6852664266628585`*^9}, { 3.685266991293649*^9, 3.6852669921236506`*^9}, 3.6852673254041166`*^9, { 3.6852721451041393`*^9, 3.6852721511541476`*^9}, {3.685347608884199*^9, 3.6853476436001844`*^9}, {3.685856536245717*^9, 3.68585657196576*^9}, { 3.6872505724123764`*^9, 3.6872506068524246`*^9}, {3.6882143713671103`*^9, 3.6882143753371153`*^9}, {3.718714239126111*^9, 3.718714247335117*^9}, 3.7493875056264477`*^9, {3.782207206093835*^9, 3.782207237947917*^9}, { 3.7822072797858024`*^9, 3.78220728040416*^9}, {3.845362853947798*^9, 3.845362876601143*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"46e1e75c-5d6d-4e4d-a681-6e5c1a99bb4b"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.4736023963929996`*^9, 3.5687155615354834`*^9, 3.568715777809064*^9, { 3.687250675582521*^9, 3.6872506759525213`*^9}, 3.7493875867204103`*^9, 3.7816769485483294`*^9},ExpressionUUID->"a420c312-b944-4d7e-bb96-\ 6743b4d78e08"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"2", "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[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[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[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[{"{", "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[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.599490402935299*^9, 3.5994904112657137`*^9}, { 3.630738792534931*^9, 3.6307388569162445`*^9}, {3.6309859554658737`*^9, 3.630985968173601*^9}, {3.6314241627612867`*^9, 3.6314241702181*^9}, { 3.6314243851708775`*^9, 3.631424417384934*^9}, {3.662455117671671*^9, 3.6624551241230392`*^9}, {3.6852660658523536`*^9, 3.6852661629124894`*^9}, {3.6852663857928014`*^9, 3.6852663863328023`*^9}, 3.685266998253659*^9, 3.685267330414124*^9, {3.6852721611941614`*^9, 3.6852721665141687`*^9}, {3.685347693925063*^9, 3.6853477037476244`*^9}, { 3.6858561611452627`*^9, 3.685856189500884*^9}, {3.6872507131125736`*^9, 3.687250713872575*^9}, {3.6872507814626694`*^9, 3.687250785882675*^9}, 3.687250849802765*^9, {3.6882124939886236`*^9, 3.688212526268669*^9}, { 3.688214301197012*^9, 3.6882143190670366`*^9}, {3.688214395877144*^9, 3.6882144046271563`*^9}, {3.7187143026380863`*^9, 3.71871430527354*^9}, { 3.749387640068871*^9, 3.749387820647795*^9}, {3.749387863815189*^9, 3.7493878663924637`*^9}, {3.7493883843112373`*^9, 3.7493884004782734`*^9}, {3.845362911118657*^9, 3.845362919444826*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"318e7cdd-fc78-48e7-acee-9cbba1a251e9"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.4736023963929996`*^9, 3.5687155615354834`*^9, 3.568715777809064*^9, { 3.687250675582521*^9, 3.6872506759525213`*^9}, {3.7493885566704636`*^9, 3.749388557692619*^9}, 3.7816769522847013`*^9},ExpressionUUID->"8cfa98ad-2bc2-4f3f-b5c4-\ c5907ad8303d"], 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", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "F", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "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[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "F", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}], ",", 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", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"-", RowBox[{"uX", "[", "2", "]"}]}], ",", "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[{ 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", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.599490402935299*^9, 3.5994904112657137`*^9}, { 3.630738792534931*^9, 3.6307388569162445`*^9}, {3.6309859554658737`*^9, 3.630985968173601*^9}, {3.6314241627612867`*^9, 3.6314241702181*^9}, { 3.6314243851708775`*^9, 3.631424417384934*^9}, {3.662455117671671*^9, 3.6624551241230392`*^9}, {3.6852660658523536`*^9, 3.6852661629124894`*^9}, {3.6852663857928014`*^9, 3.6852663863328023`*^9}, 3.685266998253659*^9, 3.685267330414124*^9, {3.6852721611941614`*^9, 3.6852721665141687`*^9}, {3.685347693925063*^9, 3.6853477037476244`*^9}, { 3.6858561611452627`*^9, 3.685856189500884*^9}, {3.6872507131125736`*^9, 3.687250713872575*^9}, {3.6872507814626694`*^9, 3.687250785882675*^9}, 3.687250849802765*^9, {3.6882124939886236`*^9, 3.688212526268669*^9}, { 3.688214301197012*^9, 3.6882143190670366`*^9}, {3.688214395877144*^9, 3.6882144046271563`*^9}, {3.7187143026380863`*^9, 3.71871430527354*^9}, { 3.7493885757300124`*^9, 3.749388577063839*^9}, {3.8166566373302507`*^9, 3.816656656323975*^9}, {3.8166567346888385`*^9, 3.81665677931625*^9}, { 3.8453626655378747`*^9, 3.8453626796353817`*^9}}, CellLabel-> "In[366]:=",ExpressionUUID->"d3f72870-3fc1-43d1-a526-7e23168b04cd"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430866035033803`*^9, 3.4430866067013803`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.4742616631637397`*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.5999975352114353`*^9, 3.5999975364126377`*^9}, { 3.687250942322894*^9, 3.6872509424328947`*^9}, 3.7493906502671795`*^9, 3.7816769550324354`*^9},ExpressionUUID->"14e71f9c-3bf4-4784-b992-\ 758f197cf7db"], 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", ",", "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", ",", 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430866305537806`*^9, 3.44308673150138*^9}, { 3.4742604996717396`*^9, 3.47426061596974*^9}, 3.4742609854677396`*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.6311621282873344`*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.6314296672834578`*^9, 3.6314296732582684`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146666`*^9, 3.6320283335070925`*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.6630475834142756`*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625723`*^9, 3.685344095349236*^9}, { 3.6853489765747485`*^9, 3.6853489802747536`*^9}, {3.686826095733493*^9, 3.686826105143506*^9}, {3.6868399051501155`*^9, 3.686839921990139*^9}, { 3.688054329935155*^9, 3.6880543382251663`*^9}, {3.6880543698252106`*^9, 3.6880543877752357`*^9}, {3.6882145325073357`*^9, 3.6882145399873457`*^9}, {3.7187143215901136`*^9, 3.718714353277379*^9}, { 3.8456999632819347`*^9, 3.845699968724377*^9}}, CellLabel-> "In[373]:=",ExpressionUUID->"e1e18c07-c9b5-4c76-8c7e-36a84b173886"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4430884864209805`*^9, 3.4742603666167393`*^9, {3.4742616726697397`*^9, 3.4742616806897397`*^9}, {3.5692958958737946`*^9, 3.5692958988377995`*^9}, {3.569295988881158*^9, 3.569296010034795*^9}, { 3.599997563962286*^9, 3.5999975662086897`*^9}, {3.635944639658203*^9, 3.6359446423103547`*^9}, {3.6872515556737533`*^9, 3.6872515618937616`*^9}, {3.7494429231128583`*^9, 3.749442927280027*^9}, 3.7816769582607045`*^9},ExpressionUUID->"889fb8dd-a770-4216-a952-\ 332000fbef97"], 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", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "f"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", 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[{"L", ",", "0", ",", "L"}], "}"}], ",", 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.4430786065694*^9, 3.4430786485334*^9}, {3.4430786870186*^9, 3.4430787461582003`*^9}, { 3.4430787802130003`*^9, 3.4430788653578*^9}, {3.44308803709418*^9, 3.44308814382938*^9}, 3.4430882520621805`*^9, {3.4430884926765804`*^9, 3.44308853431298*^9}, {3.44308857312578*^9, 3.44308861465298*^9}, { 3.44308875174578*^9, 3.44308883367698*^9}, {3.4430978705394*^9, 3.4430978736282*^9}, {3.4430979277134*^9, 3.4430979393822002`*^9}, { 3.4430980508598003`*^9, 3.4430980872702*^9}, 3.4430981291562*^9, { 3.443098164381*^9, 3.4430981837406*^9}, {3.47426170283774*^9, 3.4742617248677397`*^9}, {3.47426180789874*^9, 3.4742618173147397`*^9}, { 3.4742623531727395`*^9, 3.4742624016047397`*^9}, {3.47426320292614*^9, 3.4742632403381395`*^9}, {3.569296019192011*^9, 3.569296028832828*^9}, { 3.599998933913494*^9, 3.5999989383751016`*^9}, {3.631179114639793*^9, 3.63117926267826*^9}, {3.631594676962658*^9, 3.631594703420171*^9}, { 3.6315947654477186`*^9, 3.6315949120251026`*^9}, {3.6319316650810413`*^9, 3.6319318058040905`*^9}, 3.631931866615568*^9, {3.631932062036746*^9, 3.6319321508758273`*^9}, 3.6319322156545324`*^9, {3.663049740177524*^9, 3.663049740520725*^9}, {3.6630708620753193`*^9, 3.6630709010635495`*^9}, { 3.663070971023551*^9, 3.6630709989571486`*^9}, {3.6630713421047754`*^9, 3.663071385178239*^9}, {3.6630714466947575`*^9, 3.6630716997112293`*^9}, { 3.663071741692631*^9, 3.663071747530965*^9}, 3.663071826754496*^9, { 3.6630719093082175`*^9, 3.6630719334786005`*^9}, 3.6630720004264297`*^9, { 3.6630720439119167`*^9, 3.6630720452399926`*^9}, 3.6630722046621113`*^9, { 3.663072316609514*^9, 3.6630723357796106`*^9}, {3.663072507915456*^9, 3.663072508611496*^9}, 3.663072547565724*^9, 3.663073113769109*^9, { 3.6853229445327926`*^9, 3.6853230210528994`*^9}, {3.685323056282949*^9, 3.685323161783097*^9}, {3.685323269123247*^9, 3.685323355603368*^9}, { 3.6872530244958096`*^9, 3.687253101975918*^9}, {3.6872531330459614`*^9, 3.6872531935960464`*^9}, {3.7187117249668584`*^9, 3.718711833531047*^9}, { 3.8456999867368574`*^9, 3.845699988317232*^9}}, CellLabel-> "In[377]:=",ExpressionUUID->"7aaa01a1-7826-4354-8dbb-1b72cc795d3d"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4742603649457397`*^9, {3.4742608481977396`*^9, 3.4742608866137395`*^9}, 3.47426161741074*^9, 3.4742616748697395`*^9, {3.4742617107707396`*^9, 3.4742617173167396`*^9}, {3.5692958422565002`*^9, 3.5692958450801053`*^9}, 3.663048262506669*^9, {3.685948886979508*^9, 3.6859488903577013`*^9}, { 3.6872510527730494`*^9, 3.687251057193055*^9}, {3.687251252123328*^9, 3.687251252683329*^9}, 3.7494431297541704`*^9, 3.7816769660781703`*^9},ExpressionUUID->"f7d7fe6c-3ac7-416e-a468-\ 58c02d8db99a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", "\[IndentingNewLine]", RowBox[{"{", 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]", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6877640444614964`*^9, 3.6877641212116036`*^9}, { 3.68776429001184*^9, 3.687764295701848*^9}, {3.6877647461124783`*^9, 3.6877647522624865`*^9}, {3.7187144116052017`*^9, 3.7187144126379457`*^9}, 3.749443209431106*^9, {3.7494432660394864`*^9, 3.7494432878126545`*^9}, { 3.7494433209622188`*^9, 3.7494433235707397`*^9}, {3.749443371414667*^9, 3.749443441324872*^9}, {3.78168238511827*^9, 3.7816823960986876`*^9}, 3.845700011022395*^9},ExpressionUUID->"64d01864-e4bc-486c-8009-\ 4f6f87eb7f8a"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4430884864209805`*^9, 3.4742603666167393`*^9, {3.4742616726697397`*^9, 3.4742616806897397`*^9}, {3.5692958958737946`*^9, 3.5692958988377995`*^9}, {3.5999975569734735`*^9, 3.5999975589390774`*^9}, 3.6320291512877293`*^9, 3.6630482160341873`*^9, {3.6872512710533547`*^9, 3.687251271243355*^9}, 3.7494436416646442`*^9, 3.781676963693055*^9},ExpressionUUID->"67ca5eee-9ed5-44a0-9c42-\ 9909701ff049"], 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.4430786065694*^9, 3.4430786485334*^9}, {3.4430786870186*^9, 3.4430787461582003`*^9}, { 3.4430787802130003`*^9, 3.4430788653578*^9}, {3.44308803709418*^9, 3.44308814382938*^9}, 3.4430882520621805`*^9, {3.4430884926765804`*^9, 3.44308853431298*^9}, {3.44308857312578*^9, 3.44308861465298*^9}, { 3.44308875174578*^9, 3.44308883367698*^9}, {3.4430978705394*^9, 3.4430978736282*^9}, {3.4430979277134*^9, 3.4430979393822002`*^9}, { 3.4430980508598003`*^9, 3.4430980872702*^9}, 3.4430981291562*^9, { 3.443098164381*^9, 3.4430981837406*^9}, {3.47426170283774*^9, 3.4742617248677397`*^9}, {3.47426180789874*^9, 3.4742618173147397`*^9}, { 3.4742623531727395`*^9, 3.4742624016047397`*^9}, {3.47426320292614*^9, 3.4742632403381395`*^9}, {3.63117887908932*^9, 3.6311790673070855`*^9}, { 3.663048219091793*^9, 3.663048228171009*^9}, {3.6853228270926285`*^9, 3.6853228859927106`*^9}, {3.6853491659460135`*^9, 3.685349196806057*^9}, { 3.6868259927133484`*^9, 3.6868260462534237`*^9}, {3.686830047369025*^9, 3.6868301292391396`*^9}, {3.687251266343348*^9, 3.687251327153433*^9}, { 3.687251385463515*^9, 3.687251409943549*^9}, {3.7187144321161523`*^9, 3.7187144467486267`*^9}, {3.8457000367767353`*^9, 3.845700041904211*^9}, 3.8764456778589973`*^9},ExpressionUUID->"8d1b95ea-785c-411f-8fa4-\ 64485329dae9"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4742603649457397`*^9, {3.4742608481977396`*^9, 3.4742608866137395`*^9}, 3.47426161741074*^9, 3.4742616748697395`*^9, {3.4742617107707396`*^9, 3.4742617173167396`*^9}, {3.5692958422565002`*^9, 3.5692958450801053`*^9}, 3.663048262506669*^9, {3.685948886979508*^9, 3.6859488903577013`*^9}, { 3.6872510527730494`*^9, 3.687251057193055*^9}, {3.687251252123328*^9, 3.687251252683329*^9}, 3.7494431297541704`*^9, {3.749443719210291*^9, 3.7494437193642616`*^9}, 3.7816769685235043`*^9},ExpressionUUID->"6b52bf47-d3ad-44a4-abd3-\ a500c2e96ebb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}], ",", "\[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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6877640444614964`*^9, 3.6877641212116036`*^9}, { 3.68776429001184*^9, 3.687764295701848*^9}, {3.6877647461124783`*^9, 3.6877647522624865`*^9}, {3.7187144116052017`*^9, 3.7187144126379457`*^9}, 3.749443209431106*^9, {3.7494432660394864`*^9, 3.7494432878126545`*^9}, { 3.7494433209622188`*^9, 3.7494433235707397`*^9}, {3.749443371414667*^9, 3.749443441324872*^9}, {3.7494437336634946`*^9, 3.7494439431297536`*^9}, { 3.7827239867413025`*^9, 3.7827239949775324`*^9}, {3.8457000545682287`*^9, 3.845700056399582*^9}}, CellLabel-> "In[381]:=",ExpressionUUID->"12976909-23f2-41af-a049-8c2b8d2b2e78"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{ 3.4736023951294003`*^9, 3.5687155591174793`*^9, 3.568715646113632*^9, { 3.568716073023982*^9, 3.5687160780315914`*^9}, {3.6872515142536955`*^9, 3.687251559133758*^9}, {3.7493853842792377`*^9, 3.749385399047465*^9}, { 3.749441796531228*^9, 3.7494418003813972`*^9}, {3.813895485422243*^9, 3.8138954899663353`*^9}, {3.876445281487523*^9, 3.8764452842993393`*^9}},ExpressionUUID->"897464fb-b71b-491b-850a-\ aff39235db25"], 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[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[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[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], " ", "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "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[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", RowBox[{"-", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", RowBox[{"-", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", RowBox[{"uY", "[", "4", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", RowBox[{"uY", "[", "5", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{ RowBox[{"ele", "[", RowBox[{"[", RowBox[{"2", ";;", "2"}], "]"}], "]"}], ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{ RowBox[{"ele", "[", RowBox[{"[", RowBox[{"3", ";;", "3"}], "]"}], "]"}], ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5687160920248156`*^9, 3.568716257291506*^9}, { 3.568716289255962*^9, 3.568716380609722*^9}, 3.568716503662739*^9, { 3.599475236864607*^9, 3.599475237098607*^9}, {3.599475354598014*^9, 3.5994754053605027`*^9}, {3.599475436248557*^9, 3.5994754807398353`*^9}, { 3.6307389947268867`*^9, 3.6307390535077896`*^9}, {3.6309861131038904`*^9, 3.6309862682907667`*^9}, {3.631424558159581*^9, 3.6314245891256356`*^9}, { 3.6624552319422064`*^9, 3.662455237062499*^9}, {3.6852667663533344`*^9, 3.68526684171344*^9}, {3.6852668915235095`*^9, 3.685266923413554*^9}, 3.685267343854143*^9, {3.6852713069429655`*^9, 3.685271332453001*^9}, { 3.6853478384253273`*^9, 3.6853478599305573`*^9}, {3.6853479070492525`*^9, 3.6853479227451506`*^9}, {3.6853479836976366`*^9, 3.685348000436594*^9}, { 3.6853487750034666`*^9, 3.685348793453492*^9}, {3.687251613563834*^9, 3.6872516458438797`*^9}, {3.6872517360540056`*^9, 3.6872517559340334`*^9}, {3.687251801344097*^9, 3.6872518129341135`*^9}, 3.687764819992582*^9, {3.7187068450918727`*^9, 3.7187068734418435`*^9}, { 3.7187069097555704`*^9, 3.7187069975866556`*^9}, {3.718707088907159*^9, 3.71870714984157*^9}, {3.718711566072616*^9, 3.718711566742806*^9}, { 3.7187116422917643`*^9, 3.7187116668400583`*^9}, {3.7493854176413813`*^9, 3.7493854269178114`*^9}, {3.749441819700017*^9, 3.7494419245989656`*^9}, 3.749441965485881*^9, 3.7819357730749607`*^9, {3.781935902267897*^9, 3.781936097661247*^9}, {3.7819362376254654`*^9, 3.7819362513074417`*^9}, { 3.7821146778259783`*^9, 3.7821146832883797`*^9}, 3.7821148222050138`*^9, { 3.8138955244965224`*^9, 3.8138955957297707`*^9}, {3.8138956551350574`*^9, 3.8138957633475685`*^9}, {3.8138962336802006`*^9, 3.8138962811244354`*^9}, {3.8138963426340384`*^9, 3.813896345532611*^9}, { 3.8453631059466515`*^9, 3.8453631236393085`*^9}}, CellLabel-> "In[406]:=",ExpressionUUID->"9a925254-bbcf-4f16-8f7b-2da8d9124353"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (beam modes)", "Subsubsection", CellChangeTimes->{{3.4730556702200003`*^9, 3.473055683948*^9}, { 3.473056486087*^9, 3.4730564925030003`*^9}, 3.473057491051*^9, { 3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.5681163731689377`*^9}, {3.5992231160658693`*^9, 3.59922314473872*^9}, { 3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, {3.686650104192067*^9, 3.686650133092108*^9}, { 3.687145505190199*^9, 3.687145516080214*^9}, 3.687843420025089*^9, { 3.687844034477949*^9, 3.6878440402179575`*^9}, 3.749626037950364*^9, { 3.876445287318701*^9, 3.876445290097501*^9}},ExpressionUUID->"598edd35-6c5c-469e-b8d5-\ 4d5cdde6de64"], Cell[BoxData[{ 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[{"0", ",", "0", ",", "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[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.6308321133874445`*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.6853444422720785`*^9, 3.685344490915861*^9}, { 3.6858763098135014`*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.6862264116856813`*^9}, 3.686445942025214*^9, {3.6866501652021523`*^9, 3.6866502922323303`*^9}, {3.687145549690261*^9, 3.6871456288103724`*^9}, { 3.6871456605404167`*^9, 3.6871456854304514`*^9}, {3.6871477248733063`*^9, 3.6871477484933395`*^9}, {3.6876002810943336`*^9, 3.6876002969743567`*^9}, {3.6878434855451803`*^9, 3.6878435135952196`*^9}, {3.687843564595291*^9, 3.6878436187753673`*^9}, { 3.6878436496954107`*^9, 3.6878436701654387`*^9}, {3.6878437398065367`*^9, 3.68784375664756*^9}, {3.687843807367631*^9, 3.687843865017712*^9}, { 3.687843919977789*^9, 3.68784395615784*^9}, {3.68784404896797*^9, 3.687844288778305*^9}, {3.718714539745225*^9, 3.718714551424245*^9}, { 3.749628478053541*^9, 3.7496284875597725`*^9}, {3.749628572910929*^9, 3.749628589593005*^9}, {3.7496286353629065`*^9, 3.749628670951417*^9}, { 3.781857013524531*^9, 3.7818570155048494`*^9}, {3.7821088899305816`*^9, 3.782108928126272*^9}, {3.813896421945176*^9, 3.8138964501245933`*^9}, { 3.813896528364023*^9, 3.8138966240231323`*^9}}, CellLabel-> "In[527]:=",ExpressionUUID->"1051d58c-4ee2-4755-bae0-7074896a1fdc"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar truss)", "Subsubsection", CellChangeTimes->{ 3.4736023951294003`*^9, 3.5687155591174793`*^9, 3.568715646113632*^9, { 3.568716073023982*^9, 3.5687160780315914`*^9}, {3.6872515142536955`*^9, 3.687251559133758*^9}, {3.7493853842792377`*^9, 3.749385399047465*^9}, { 3.749441796531228*^9, 3.7494418003813972`*^9}, {3.8764452941829543`*^9, 3.8764452989829607`*^9}},ExpressionUUID->"28c3398a-fe3a-4c62-8a53-\ 6acab46f7881"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], " ", "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], " ", "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "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[{ RowBox[{"-", "L"}], ",", "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", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", RowBox[{"-", "L"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5687160920248156`*^9, 3.568716257291506*^9}, { 3.568716289255962*^9, 3.568716380609722*^9}, 3.568716503662739*^9, { 3.599475236864607*^9, 3.599475237098607*^9}, {3.599475354598014*^9, 3.5994754053605027`*^9}, {3.599475436248557*^9, 3.5994754807398353`*^9}, { 3.6307389947268867`*^9, 3.6307390535077896`*^9}, {3.6309861131038904`*^9, 3.6309862682907667`*^9}, {3.631424558159581*^9, 3.6314245891256356`*^9}, { 3.6624552319422064`*^9, 3.662455237062499*^9}, {3.6852667663533344`*^9, 3.68526684171344*^9}, {3.6852668915235095`*^9, 3.685266923413554*^9}, 3.685267343854143*^9, {3.6852713069429655`*^9, 3.685271332453001*^9}, { 3.6853478384253273`*^9, 3.6853478599305573`*^9}, {3.6853479070492525`*^9, 3.6853479227451506`*^9}, {3.6853479836976366`*^9, 3.685348000436594*^9}, { 3.6853487750034666`*^9, 3.685348793453492*^9}, {3.687251613563834*^9, 3.6872516458438797`*^9}, {3.6872517360540056`*^9, 3.6872517559340334`*^9}, {3.687251801344097*^9, 3.6872518129341135`*^9}, 3.687764819992582*^9, {3.7187068450918727`*^9, 3.7187068734418435`*^9}, { 3.7187069097555704`*^9, 3.7187069975866556`*^9}, {3.718707088907159*^9, 3.71870714984157*^9}, {3.718711566072616*^9, 3.718711566742806*^9}, { 3.7187116422917643`*^9, 3.7187116668400583`*^9}, {3.7493854176413813`*^9, 3.7493854269178114`*^9}, {3.749441819700017*^9, 3.7494419245989656`*^9}, 3.749441965485881*^9, 3.7819357730749607`*^9, {3.781935902267897*^9, 3.781936097661247*^9}, {3.7819362376254654`*^9, 3.7819362513074417`*^9}, { 3.7821146778259783`*^9, 3.7821146832883797`*^9}, 3.7821148222050138`*^9, { 3.81372032663393*^9, 3.8137204768311405`*^9}, {3.845362986582768*^9, 3.8453629917298937`*^9}}, CellLabel-> "In[385]:=",ExpressionUUID->"c3f5e57f-5915-4e42-9170-d68c468b74e6"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4742603649457397`*^9, {3.4742608481977396`*^9, 3.4742608866137395`*^9}, 3.47426161741074*^9, 3.4742616748697395`*^9, {3.4742617107707396`*^9, 3.4742617173167396`*^9}, {3.5692958422565002`*^9, 3.5692958450801053`*^9}, 3.663048262506669*^9, {3.685948886979508*^9, 3.6859488903577013`*^9}, { 3.6872510527730494`*^9, 3.687251057193055*^9}, {3.687251252123328*^9, 3.687251252683329*^9}, 3.7494431297541704`*^9, {3.7496252817526307`*^9, 3.749625294704818*^9}, {3.876445301064187*^9, 3.8764453078029966`*^9}},ExpressionUUID->"84b7fbc3-9efa-417d-9ba2-\ 3ccb76f78cc2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[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[{ RowBox[{"2", "L"}], ",", "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]", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6877640444614964`*^9, 3.6877641212116036`*^9}, { 3.68776429001184*^9, 3.687764295701848*^9}, {3.6877647461124783`*^9, 3.6877647522624865`*^9}, {3.7187144116052017`*^9, 3.7187144126379457`*^9}, 3.749443209431106*^9, {3.7494432660394864`*^9, 3.7494432878126545`*^9}, { 3.7494433209622188`*^9, 3.7494433235707397`*^9}, {3.749443371414667*^9, 3.749443441324872*^9}, 3.749625313401537*^9, {3.7496253451809697`*^9, 3.749625417524017*^9}, {3.7496254522709665`*^9, 3.74962545677078*^9}, { 3.7819356043819237`*^9, 3.781935701558897*^9}, {3.782114562195193*^9, 3.782114574586345*^9}, 3.782114607612635*^9, {3.8136570960177746`*^9, 3.8136571489819956`*^9}, {3.8453630029597063`*^9, 3.845363010391796*^9}},ExpressionUUID->"746008ed-f0a3-4f09-8703-\ 67c8768d353b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.443078562593*^9, {3.44308802647058*^9, 3.44308802862338*^9}, 3.4742603649457397`*^9, {3.4742608481977396`*^9, 3.4742608866137395`*^9}, 3.47426161741074*^9, 3.4742616748697395`*^9, {3.4742617107707396`*^9, 3.4742617173167396`*^9}, {3.5692958422565002`*^9, 3.5692958450801053`*^9}, 3.663048262506669*^9, {3.685948886979508*^9, 3.6859488903577013`*^9}, { 3.6872510527730494`*^9, 3.687251057193055*^9}, {3.687251252123328*^9, 3.687251252683329*^9}, 3.7494431297541704`*^9, {3.7496255621832447`*^9, 3.749625567303492*^9}, 3.7496260184131355`*^9, {3.781934826920578*^9, 3.7819348290625043`*^9}, {3.876445310216668*^9, 3.8764453161328692`*^9}},ExpressionUUID->"2d56ef47-5edc-4b07-aba7-\ 712c5769c362"], 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", ",", "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[{ 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", "[", "3", "]"}]}], "}"}], ",", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.6877640444614964`*^9, 3.6877641212116036`*^9}, { 3.68776429001184*^9, 3.687764295701848*^9}, {3.6877647461124783`*^9, 3.6877647522624865`*^9}, {3.7187144116052017`*^9, 3.7187144126379457`*^9}, 3.749443209431106*^9, {3.7494432660394864`*^9, 3.7494432878126545`*^9}, { 3.7494433209622188`*^9, 3.7494433235707397`*^9}, {3.749443371414667*^9, 3.749443441324872*^9}, {3.7496256029666557`*^9, 3.74962560339828*^9}, { 3.7496256462863684`*^9, 3.7496256617061005`*^9}, {3.749625698223307*^9, 3.749625698650595*^9}, {3.7496258460992556`*^9, 3.749625873243788*^9}, { 3.749625970041043*^9, 3.7496259850327396`*^9}, {3.750742978267426*^9, 3.750742986015613*^9}, {3.7819348572480297`*^9, 3.7819350625944786`*^9}, { 3.8453630223965406`*^9, 3.8453630232233286`*^9}, {3.8453630619513955`*^9, 3.8453630781973004`*^9}}, CellLabel-> "In[505]:=",ExpressionUUID->"e8096923-f7c3-40cf-953f-f15a4a433b5e"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["ELEMENT CONTRIBUTION (week 46)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, { 3.4742602258717394`*^9, 3.4742602349087396`*^9}, {3.4751533480335493`*^9, 3.4751533839809494`*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, 3.5674893867449017`*^9, {3.5699074339440374`*^9, 3.56990745274207*^9}, { 3.6006660158694277`*^9, 3.600666019805653*^9}, 3.602250942577814*^9, 3.629791662634495*^9, {3.6320295978239136`*^9, 3.6320296124099393`*^9}, { 3.6635851600672674`*^9, 3.663585163393458*^9}, {3.6648540374888315`*^9, 3.664854043026841*^9}, 3.6852489400701537`*^9, {3.6853234787935405`*^9, 3.6853234813735437`*^9}, {3.685876461443714*^9, 3.6858764998137674`*^9}, 3.685948209559762*^9, {3.6862262245154195`*^9, 3.6862262259354215`*^9}, { 3.6862262694354825`*^9, 3.686226281325499*^9}, {3.6864664763474426`*^9, 3.6864664764774427`*^9}, 3.6874272730659637`*^9, 3.7807552526998787`*^9, { 3.8738707967583385`*^9, 3.873870796999436*^9}},ExpressionUUID->"fdd7727f-210b-4fd4-b80b-\ a30f4b0d5cce"], Cell[CellGroupData[{ Cell["Lecture example 4.1 (beam truss)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.4742603407157393`*^9, {3.600666351963651*^9, 3.6006663781981516`*^9}, 3.6321880085476494`*^9, 3.6636795657621937`*^9, {3.6874157308398046`*^9, 3.6874157382298145`*^9}, 3.7496288337503834`*^9, {3.7826597265262294`*^9, 3.7826597334403543`*^9}, 3.814443495200452*^9},ExpressionUUID->"e9f2cc75-4840-4b51-898c-\ 43f126510566"], 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"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"{", RowBox[{"f", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", 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[{"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]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.631886640185182*^9, 3.6318867801798277`*^9}, {3.631886811395483*^9, 3.6318868532971563`*^9}, { 3.63188689538603*^9, 3.631886911126458*^9}, 3.632220880961799*^9, { 3.6635854561992054`*^9, 3.6635854723021264`*^9}, {3.685947722189886*^9, 3.6859480185078344`*^9}, {3.6859480495976124`*^9, 3.6859481066958785`*^9}, {3.6859482534012694`*^9, 3.6859482744204717`*^9}, {3.685948346996623*^9, 3.6859483521469173`*^9}, { 3.6859486889111795`*^9, 3.6859487382179995`*^9}, {3.6874157463798265`*^9, 3.687415778329871*^9}, {3.687415861979988*^9, 3.687415898030039*^9}, { 3.6874213041776075`*^9, 3.687421314837622*^9}, {3.7192403674228115`*^9, 3.7192403919520254`*^9}, {3.782546777291246*^9, 3.7825467872195435`*^9}, { 3.782546831048972*^9, 3.782546831764593*^9}, {3.845971506263998*^9, 3.8459715121775355`*^9}, 3.8459717242567663`*^9}, CellLabel-> "In[421]:=",ExpressionUUID->"56789d61-cc4f-4423-89bc-586b19f70502"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.2 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.749628860913476*^9, 3.7496288663579645`*^9}, 3.7826597403485346`*^9, 3.8144434967880983`*^9},ExpressionUUID->"a2d39f62-9949-4e49-9d84-\ f2f0404e06f7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", 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]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", 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]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2"}], "}"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", 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[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "+", RowBox[{"ux", "[", "2", "]"}]}], ")"}], "/", "2"}], ",", "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]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", 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[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4436798248501997`*^9, 3.4436798429618*^9}, { 3.443679898061*^9, 3.4436799888686*^9}, {3.4436801692514*^9, 3.4436801991098003`*^9}, 3.443680378775*^9, {3.4436804193974*^9, 3.4436804370566*^9}, 3.6006660683034267`*^9, {3.6318882390863276`*^9, 3.631888248789544*^9}, {3.6318888523390045`*^9, 3.6318889287011385`*^9}, { 3.631888959277192*^9, 3.6318889956252565`*^9}, 3.6318892166152444`*^9, { 3.6318892804661565`*^9, 3.6318892814801583`*^9}, {3.631889317734622*^9, 3.631889323959033*^9}, {3.631889414080391*^9, 3.6318894734852953`*^9}, { 3.6318895695658646`*^9, 3.631889576336276*^9}, {3.6318896192051516`*^9, 3.6318896215607557`*^9}, {3.63188970927971*^9, 3.631889709934911*^9}, { 3.632190742688033*^9, 3.6321907489713926`*^9}, {3.632190921438257*^9, 3.632190943394513*^9}, {3.6321912567764378`*^9, 3.632191262218749*^9}, { 3.6321913668477335`*^9, 3.6321913716630087`*^9}, {3.685952813676102*^9, 3.6859528607797966`*^9}, {3.68595290787049*^9, 3.6859533988145704`*^9}, { 3.685953517748373*^9, 3.6859535591427402`*^9}, 3.685965506548236*^9, { 3.6859655476582937`*^9, 3.6859655504682975`*^9}, {3.685965631278411*^9, 3.685965634198415*^9}, {3.6859658476887136`*^9, 3.6859659061787953`*^9}, { 3.685966268959303*^9, 3.685966274369311*^9}, 3.6860125052055483`*^9, { 3.6876698089360466`*^9, 3.687669930876217*^9}, {3.687669965616266*^9, 3.6876699690562706`*^9}, {3.6876701468865194`*^9, 3.6876702688366904`*^9}, 3.687671951523484*^9, {3.6876720519736247`*^9, 3.6876720974836884`*^9}, 3.6876721497037616`*^9, {3.6876721862038126`*^9, 3.687672192653822*^9}, { 3.6876722286538725`*^9, 3.6876723088439846`*^9}, {3.6876740255104027`*^9, 3.6876740281804066`*^9}, 3.687783855173648*^9, {3.7192404630234146`*^9, 3.71924049126862*^9}, {3.7192405358821263`*^9, 3.71924053705192*^9}, { 3.7496953028235073`*^9, 3.749695334586444*^9}, {3.749695376165814*^9, 3.7496953917239227`*^9}, {3.7496960024037757`*^9, 3.749696065497768*^9}, { 3.749697784760352*^9, 3.749697830785179*^9}, {3.7496985691783285`*^9, 3.749698670645958*^9}, {3.7496987302880983`*^9, 3.749698840003518*^9}, { 3.7496988707476287`*^9, 3.7496988714853306`*^9}, {3.749698980862912*^9, 3.7496989811998773`*^9}, {3.749699131496202*^9, 3.7496991327262955`*^9}, { 3.749699445865477*^9, 3.749699446539852*^9}, {3.7507384778141146`*^9, 3.7507385044172683`*^9}, {3.7507385421269417`*^9, 3.750738596583208*^9}, { 3.7507395748707404`*^9, 3.750739724038948*^9}, {3.750739770871624*^9, 3.7507397862119017`*^9}, {3.7507405496121025`*^9, 3.7507405783866396`*^9}, {3.782306271765029*^9, 3.7823063733701363`*^9}, { 3.7823091222468653`*^9, 3.7823092412262487`*^9}, {3.782309439102314*^9, 3.782309481698208*^9}, 3.7823095250542307`*^9, {3.8459767673739705`*^9, 3.8459768005929317`*^9}}, CellLabel-> "In[403]:=",ExpressionUUID->"d7698e66-9652-4f27-a511-bdf246b0e314"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.749628860913476*^9, 3.7496288663579645`*^9}, 3.7496994923944416`*^9, 3.782659742629477*^9, 3.8144434989369273`*^9},ExpressionUUID->"709ca3a5-ada4-43d8-91dd-\ 574ef1c72dbb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox["3", "4"], "f"}], ",", "f"}], "}"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ 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", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"uX", "[", "2", "]"}], " ", "/.", " ", RowBox[{"SOLVE", "[", RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4436798248501997`*^9, 3.4436798429618*^9}, { 3.443679898061*^9, 3.4436799888686*^9}, {3.4436801692514*^9, 3.4436801991098003`*^9}, 3.443680378775*^9, {3.4436804193974*^9, 3.4436804370566*^9}, 3.6006660683034267`*^9, {3.6318882390863276`*^9, 3.631888248789544*^9}, {3.6318888523390045`*^9, 3.6318889287011385`*^9}, { 3.631888959277192*^9, 3.6318889956252565`*^9}, 3.6318892166152444`*^9, { 3.6318892804661565`*^9, 3.6318892814801583`*^9}, {3.631889317734622*^9, 3.631889323959033*^9}, {3.631889414080391*^9, 3.6318894734852953`*^9}, { 3.6318895695658646`*^9, 3.631889576336276*^9}, {3.6318896192051516`*^9, 3.6318896215607557`*^9}, {3.63188970927971*^9, 3.631889709934911*^9}, { 3.632190742688033*^9, 3.6321907489713926`*^9}, {3.632190921438257*^9, 3.632190943394513*^9}, {3.6321912567764378`*^9, 3.632191262218749*^9}, { 3.6321913668477335`*^9, 3.6321913716630087`*^9}, {3.685952813676102*^9, 3.6859528607797966`*^9}, {3.68595290787049*^9, 3.6859533988145704`*^9}, { 3.685953517748373*^9, 3.6859535591427402`*^9}, 3.685965506548236*^9, { 3.6859655476582937`*^9, 3.6859655504682975`*^9}, {3.685965631278411*^9, 3.685965634198415*^9}, {3.6859658476887136`*^9, 3.6859659061787953`*^9}, { 3.685966268959303*^9, 3.685966274369311*^9}, 3.6860125052055483`*^9, { 3.6876698089360466`*^9, 3.687669930876217*^9}, {3.687669965616266*^9, 3.6876699690562706`*^9}, {3.6876701468865194`*^9, 3.6876702688366904`*^9}, 3.687671951523484*^9, {3.6876720519736247`*^9, 3.6876720974836884`*^9}, 3.6876721497037616`*^9, {3.6876721862038126`*^9, 3.687672192653822*^9}, { 3.6876722286538725`*^9, 3.6876723088439846`*^9}, {3.6876740255104027`*^9, 3.6876740281804066`*^9}, 3.687783855173648*^9, {3.7192404630234146`*^9, 3.71924049126862*^9}, {3.7192405358821263`*^9, 3.71924053705192*^9}, { 3.78227789116995*^9, 3.7822779227195635`*^9}, {3.8459768392993765`*^9, 3.8459768404812975`*^9}, 3.8460364120366373`*^9}, CellLabel-> "In[412]:=",ExpressionUUID->"56817a5b-361a-47c2-a073-3e652938c81b"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.4 (bar)", "Subsubsection", CellChangeTimes->{{3.4436808247321997`*^9, 3.4436808395522003`*^9}, 3.4751539895323496`*^9, {3.4751540417611494`*^9, 3.4751540420731497`*^9}, 3.600666035355542*^9, 3.6006663929149933`*^9, {3.686013431566845*^9, 3.6860134351368504`*^9}, {3.6860208063026304`*^9, 3.6860208114126377`*^9}, {3.6874232808203745`*^9, 3.687423282180376*^9}, 3.687446328805478*^9, {3.749628870211012*^9, 3.749628871852614*^9}, { 3.749816417119692*^9, 3.749816418590285*^9}, 3.782547159187301*^9, 3.782659744976636*^9, 3.81444354223011*^9},ExpressionUUID->"db3a86bf-a2b0-459f-b333-\ b945ac8aa6d6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"A0", ",", RowBox[{ FractionBox["3", "4"], "A0"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "A0", " ", "g"}], ",", RowBox[{ FractionBox["3", "4"], "\[Rho]", " ", "A0", " ", "g"}]}], "}"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "4"], "A0"}], ",", RowBox[{ FractionBox["1", "2"], "A0"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "4"], "\[Rho]", " ", "A0", " ", "g"}], ",", RowBox[{ FractionBox["1", "2"], "\[Rho]", " ", "A0", " ", "g"}]}], "}"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ 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[{ RowBox[{"L", "/", "2"}], ",", "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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.632192381990796*^9, 3.6321926188293424`*^9}, {3.6321927007470284`*^9, 3.6321927357170277`*^9}, {3.6321928972667627`*^9, 3.632192927997444*^9}, 3.6322209654296303`*^9, {3.6860130801763535`*^9, 3.6860132972466574`*^9}, { 3.6860133889767857`*^9, 3.6860133917467895`*^9}, {3.6860197457211456`*^9, 3.68601975572116*^9}, {3.686019804991229*^9, 3.6860199044213676`*^9}, { 3.686020015301523*^9, 3.6860200192515287`*^9}, {3.6860200541415777`*^9, 3.6860200614015875`*^9}, {3.6860201084516535`*^9, 3.6860201149016623`*^9}, {3.686020160421726*^9, 3.6860202026517854`*^9}, { 3.6860202915619097`*^9, 3.6860203398219776`*^9}, {3.686020414092081*^9, 3.6860205028922057`*^9}, {3.686020554572278*^9, 3.6860205784923115`*^9}, { 3.686020624672376*^9, 3.686020626762379*^9}, {3.6860208020726247`*^9, 3.6860208282426615`*^9}, 3.6860244721438465`*^9, {3.6874232914403896`*^9, 3.687423300610402*^9}, {3.687423332360447*^9, 3.6874233917505302`*^9}, { 3.6874234416105995`*^9, 3.6874234966906767`*^9}, 3.6874235509507527`*^9, 3.6875206719957047`*^9, {3.687676427874962*^9, 3.6876765555951405`*^9}, { 3.7192405776545444`*^9, 3.7192405902995524`*^9}, {3.7498164629379354`*^9, 3.749816480975708*^9}, {3.749816637967845*^9, 3.7498167322446084`*^9}, { 3.750738747719742*^9, 3.7507387505315924`*^9}, {3.7823096747493467`*^9, 3.7823097091291466`*^9}, {3.845976894348507*^9, 3.845976902181108*^9}, 3.846036918752384*^9}, CellLabel-> "In[416]:=",ExpressionUUID->"803ab691-1efc-408a-8da6-d835edc6bee0"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.5 (beam)", "Subsubsection", CellChangeTimes->{ 3.4734694944314003`*^9, 3.599224766420371*^9, 3.6862337099646473`*^9, 3.686290219307787*^9, {3.6862903012279015`*^9, 3.686290301967902*^9}, { 3.6863951855946074`*^9, 3.686395186494609*^9}, {3.6864635001634054`*^9, 3.6864635018334074`*^9}, {3.749818305963309*^9, 3.749818306886223*^9}, 3.7826597504489408`*^9, 3.814443588350874*^9, 3.8144436267287855`*^9},ExpressionUUID->"f52a3393-26a8-4ae8-8cd6-\ 4051d68ee84e"], Cell[BoxData[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "fz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"{", RowBox[{"fz1", ",", "fz2"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "and", " ", "rotation", " ", "at", " ", "the", " ", "centerpoint", " ", "in", " ", "terms", " ", "of", " ", "the", " ", "end", " ", "point", " ", "values"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uc", "=", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"uz", "[", "1", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"uz", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]c", "=", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"uz", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"uz", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}]}], RowBox[{"4", " ", "h"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "uc"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[Theta]c", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{"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", ",", "Fz"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.6297833622479496`*^9, 3.6297833821535845`*^9}, {3.6297834663625326`*^9, 3.6297834719785423`*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.6297840054526796`*^9, 3.6297840056398797`*^9}, {3.6297840416291428`*^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.6297860683067026`*^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.6297874597063127`*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.6297885659354553`*^9, 3.6297885755294724`*^9}, {3.6297892278758183`*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.6297893332852035`*^9}, { 3.6297914556533313`*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.6298702559641933`*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.6306586027288923`*^9}, { 3.630658768962784*^9, 3.6306589911851745`*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.6306734854495883`*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.6306752822962494`*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.6306754692369413`*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.6306757374963827`*^9}, {3.6306758978040085`*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.6852523453938932`*^9, 3.68525240748398*^9}, {3.6852525490681486`*^9, 3.6852525670281763`*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.6852714610531816`*^9, 3.6852714662331886`*^9}, { 3.685340224314878*^9, 3.6853402425549035`*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, 3.6863952420746865`*^9, { 3.6866590821902657`*^9, 3.6866591337503376`*^9}, {3.686659210920446*^9, 3.6866592825905457`*^9}, 3.686659319650598*^9, {3.718089929604436*^9, 3.718089937596391*^9}, {3.748925556248083*^9, 3.748925596504529*^9}, { 3.7489256818595314`*^9, 3.7489256827028418`*^9}, {3.748925773478675*^9, 3.7489257778055353`*^9}, {3.748926055597584*^9, 3.748926062252592*^9}, { 3.7498183167074556`*^9, 3.749818323150751*^9}, {3.7498184776431103`*^9, 3.7498184970219464`*^9}, {3.7498186926216*^9, 3.749818695064655*^9}, { 3.7498187482508116`*^9, 3.749818753180888*^9}, {3.749818791697117*^9, 3.74981882272311*^9}, 3.7498188581034184`*^9, 3.7498188937280397`*^9, { 3.750738836526843*^9, 3.750738994287031*^9}, {3.750739479955144*^9, 3.7507394890626364`*^9}, {3.7507395263507853`*^9, 3.7507395564997435`*^9}, {3.7507398115497265`*^9, 3.7507398850637856`*^9}, {3.750740274597377*^9, 3.7507403074656067`*^9}, { 3.7507403555793552`*^9, 3.750740401349904*^9}, {3.750740465553377*^9, 3.750740508199918*^9}, 3.750740629952758*^9, {3.7823101737187147`*^9, 3.7823103634283786`*^9}, {3.7831513734176197`*^9, 3.783151373917719*^9}, { 3.84597697592216*^9, 3.8459769793091507`*^9}, 3.8464659305517035`*^9}, CellLabel-> "In[420]:=",ExpressionUUID->"cb5d9fa5-42bd-4178-a2f5-14d83c3eeb52"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.6 (interpolant)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, 3.572946782433387*^9, 3.634567631130391*^9, 3.634610434326293*^9, 3.634611542343668*^9, {3.634787392185001*^9, 3.634787394985161*^9}, 3.634795742882633*^9, 3.666087688711194*^9, {3.688120833010166*^9, 3.6881208343201685`*^9}, 3.6883549869221854`*^9, {3.750742155818322*^9, 3.7507421678626738`*^9}, {3.750754289172721*^9, 3.750754291259711*^9}, 3.782547885570245*^9, 3.7826597579291844`*^9, 3.782721304434683*^9, 3.8144436320702477`*^9, {3.8464663445678425`*^9, 3.846466374442537*^9}},ExpressionUUID->"e32d75c3-6572-4746-9c32-\ c786dd207566"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rule", " ", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"X_", ",", "Y_", ",", "Z_"}], "}"}], ",", RowBox[{"{", RowBox[{"uX_", ",", "uY_", ",", "uZ_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X_", ",", "\[Theta]Y_", ",", "\[Theta]Z_"}], "}"}]}], "}"}], ":>", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y", ",", "Z"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"3", "\[Pi]", " ", "X"}], "]"}], "*", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "Y"}], "]"}], "/", "4"}]}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", "/", "100"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "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[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"gr1", "=", RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prb", "=", RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{"prb", "/.", "rule"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "4"}], "}"}]}], "]"}], "}"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, 3.603167701448481*^9, { 3.6305527201760035`*^9, 3.630552938770506*^9}, {3.6345676503834925`*^9, 3.6345676818222904`*^9}, {3.6345688863991885`*^9, 3.6345689891650667`*^9}, 3.6345692742413716`*^9, 3.6345693788933573`*^9, {3.6345695183433332`*^9, 3.6345696795895567`*^9}, {3.63461061365755*^9, 3.634610615326646*^9}, { 3.6354741435175705`*^9, 3.635474208878309*^9}, {3.6354742396790705`*^9, 3.635474258640155*^9}, 3.635474295701275*^9, {3.688274575490385*^9, 3.688274878281809*^9}, {3.688274942101898*^9, 3.6882749535919147`*^9}, 3.688275290273386*^9, {3.688275581803794*^9, 3.6882755933138103`*^9}, { 3.6882757272839975`*^9, 3.688275828054139*^9}, {3.688276055484457*^9, 3.688276151094591*^9}, {3.6883560558657007`*^9, 3.688356057165703*^9}, { 3.750742181859401*^9, 3.750742394560158*^9}, {3.750742464278206*^9, 3.750742602652133*^9}, {3.750742666621599*^9, 3.750742781282263*^9}, { 3.7507428986141744`*^9, 3.7507429101271343`*^9}, {3.7507438726858206`*^9, 3.7507438728732758`*^9}, {3.750744456061017*^9, 3.7507444566392927`*^9}, { 3.750748630754549*^9, 3.75074871214598*^9}, {3.7507487438586445`*^9, 3.7507487615926924`*^9}, {3.750748792204648*^9, 3.750748824596186*^9}, { 3.7507489437131753`*^9, 3.7507489584646425`*^9}, {3.750749079746468*^9, 3.7507491192701383`*^9}, {3.7507491666403217`*^9, 3.7507493557211375`*^9}, {3.750749421125845*^9, 3.7507494217237225`*^9}, 3.7507511396729794`*^9, {3.7507512988805475`*^9, 3.75075129961979*^9}, 3.7507514063557973`*^9, 3.7507515330491304`*^9, {3.750751649760004*^9, 3.7507516542298555`*^9}, {3.75075170995093*^9, 3.750751814674227*^9}, { 3.7507518464584923`*^9, 3.750751876000946*^9}, {3.750751909784737*^9, 3.750751911103073*^9}, {3.7507519609170337`*^9, 3.7507520338517213`*^9}, { 3.750752083476493*^9, 3.7507521400036263`*^9}, {3.7507522448110113`*^9, 3.7507522509192524`*^9}, {3.750752966812497*^9, 3.750753010021612*^9}, { 3.7507531146772323`*^9, 3.7507532007350483`*^9}, {3.7825688075418353`*^9, 3.782568829849742*^9}, {3.78256887440396*^9, 3.782568894783976*^9}, { 3.782568975147844*^9, 3.78256898558232*^9}, {3.7825690276350455`*^9, 3.7825690421707783`*^9}, {3.7827212969817934`*^9, 3.7827213073630805`*^9}, {3.845977158370861*^9, 3.8459773378385706`*^9}, { 3.8459773742237425`*^9, 3.84597737504911*^9}, {3.8459774081263466`*^9, 3.845977414089896*^9}, {3.8459774736110315`*^9, 3.845977768677133*^9}, { 3.845977803178728*^9, 3.845977944078887*^9}, {3.84597797594662*^9, 3.8459779761726456`*^9}, {3.845978489847187*^9, 3.845978575465848*^9}, { 3.845979198357986*^9, 3.8459792014115047`*^9}, {3.846129699782254*^9, 3.8461297072097025`*^9}, {3.8461297799809055`*^9, 3.8461297834001503`*^9}, {3.846129895498957*^9, 3.846129897368785*^9}, { 3.846129927577082*^9, 3.8461299938113775`*^9}, {3.846130026145954*^9, 3.846130035441529*^9}, 3.8461300940857067`*^9, {3.8461301434381013`*^9, 3.8461301780838146`*^9}, {3.8461302119307017`*^9, 3.846130214098791*^9}, { 3.8463094472379208`*^9, 3.846309464173218*^9}}, CellLabel-> "In[425]:=",ExpressionUUID->"69e82c58-245d-4311-aa05-2da28160884e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rule", " ", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"X_", ",", "Y_", ",", "Z_"}], "}"}], ",", RowBox[{"{", RowBox[{"uX_", ",", "uY_", ",", "uZ_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X_", ",", "\[Theta]Y_", ",", "\[Theta]Z_"}], "}"}]}], "}"}], ":>", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y", ",", "Z"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"3", "\[Pi]", " ", "X"}], "]"}], "*", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "Y"}], "]"}], "/", "4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", "/", "100"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", "/", "100"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "3", ",", "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[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"gr2", "=", RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prb", "=", RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{"prb", "/.", "rule"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "4"}], "}"}]}], "]"}], "}"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, 3.603167701448481*^9, { 3.6305527201760035`*^9, 3.630552938770506*^9}, {3.6345676503834925`*^9, 3.6345676818222904`*^9}, {3.6345688863991885`*^9, 3.6345689891650667`*^9}, 3.6345692742413716`*^9, 3.6345693788933573`*^9, {3.6345695183433332`*^9, 3.6345696795895567`*^9}, {3.63461061365755*^9, 3.634610615326646*^9}, { 3.6354741435175705`*^9, 3.635474208878309*^9}, {3.6354742396790705`*^9, 3.635474258640155*^9}, 3.635474295701275*^9, {3.688274575490385*^9, 3.688274878281809*^9}, {3.688274942101898*^9, 3.6882749535919147`*^9}, 3.688275290273386*^9, {3.688275581803794*^9, 3.6882755933138103`*^9}, { 3.6882757272839975`*^9, 3.688275828054139*^9}, {3.688276055484457*^9, 3.688276151094591*^9}, {3.6883560558657007`*^9, 3.688356057165703*^9}, { 3.750742181859401*^9, 3.750742394560158*^9}, {3.750742464278206*^9, 3.750742602652133*^9}, {3.750742666621599*^9, 3.750742781282263*^9}, { 3.7507428986141744`*^9, 3.7507429101271343`*^9}, {3.7507438726858206`*^9, 3.7507438728732758`*^9}, {3.750744456061017*^9, 3.7507444566392927`*^9}, { 3.750748630754549*^9, 3.75074871214598*^9}, {3.7507487438586445`*^9, 3.7507487615926924`*^9}, {3.750748792204648*^9, 3.750748824596186*^9}, { 3.7507489437131753`*^9, 3.7507489584646425`*^9}, {3.750749079746468*^9, 3.7507491192701383`*^9}, {3.7507491666403217`*^9, 3.7507493557211375`*^9}, {3.750749421125845*^9, 3.7507494217237225`*^9}, 3.7507511396729794`*^9, {3.7507512988805475`*^9, 3.75075129961979*^9}, 3.7507514063557973`*^9, 3.7507515330491304`*^9, {3.750751649760004*^9, 3.7507516542298555`*^9}, {3.75075170995093*^9, 3.750751814674227*^9}, { 3.7507518464584923`*^9, 3.750751876000946*^9}, {3.750751909784737*^9, 3.750751911103073*^9}, {3.7507519609170337`*^9, 3.7507520338517213`*^9}, { 3.750752083476493*^9, 3.7507521400036263`*^9}, {3.7507522448110113`*^9, 3.7507522509192524`*^9}, {3.750752966812497*^9, 3.750753010021612*^9}, { 3.7507531146772323`*^9, 3.7507532007350483`*^9}, {3.7825688075418353`*^9, 3.782568829849742*^9}, {3.78256887440396*^9, 3.782568894783976*^9}, { 3.782568975147844*^9, 3.78256898558232*^9}, {3.7825690276350455`*^9, 3.7825690421707783`*^9}, {3.7827212969817934`*^9, 3.7827213073630805`*^9}, {3.845977158370861*^9, 3.8459773378385706`*^9}, { 3.8459773742237425`*^9, 3.84597737504911*^9}, {3.8459774081263466`*^9, 3.845977414089896*^9}, {3.8459774736110315`*^9, 3.845977768677133*^9}, { 3.845977803178728*^9, 3.845977944078887*^9}, {3.84597797594662*^9, 3.8459779761726456`*^9}, {3.845978489847187*^9, 3.845978575465848*^9}, { 3.845979198357986*^9, 3.8459792014115047`*^9}, {3.8461301712823725`*^9, 3.8461301891156464`*^9}, {3.8461302219613523`*^9, 3.846130224066016*^9}, { 3.8463095578732758`*^9, 3.8463095676117744`*^9}}, CellLabel-> "In[429]:=",ExpressionUUID->"db8ee931-289b-47b9-9589-71e480a80848"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "gr1", "}"}], ",", RowBox[{"{", "gr2", "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.846130233977189*^9, 3.846130263374669*^9}}, CellLabel-> "In[433]:=",ExpressionUUID->"25dbe15f-f1c7-414f-b110-7f3eeee56c44"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.7 (bar)", "Subsubsection", CellChangeTimes->{ 3.4734694944314003`*^9, 3.599224766420371*^9, 3.6862337099646473`*^9, 3.686290219307787*^9, {3.6862903012279015`*^9, 3.686290301967902*^9}, { 3.6863951855946074`*^9, 3.686395186494609*^9}, {3.6864635001634054`*^9, 3.6864635018334074`*^9}, {3.749818305963309*^9, 3.749818306886223*^9}, 3.7825478821244354`*^9, {3.782547922460088*^9, 3.782547922845597*^9}, 3.7826597543701677`*^9, 3.8144436291920147`*^9, 3.846466349175765*^9},ExpressionUUID->"e0623656-aa4e-4163-be7b-\ b07ce1a6a8c8"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "fz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[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[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uc1", "=", RowBox[{ RowBox[{ RowBox[{"3", "/", "8"}], RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"6", "/", "8"}], RowBox[{"ux", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"1", "/", "8"}], RowBox[{"ux", "[", "3", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uc2", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "8"}], RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"6", "/", "8"}], RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"3", "/", "8"}], RowBox[{"ux", "[", "3", "]"}]}]}]}], ";"}], "\[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[{ RowBox[{"h", "/", "4"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"uc1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", RowBox[{"h", "/", "4"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"uc2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.6297833622479496`*^9, 3.6297833821535845`*^9}, {3.6297834663625326`*^9, 3.6297834719785423`*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.6297840054526796`*^9, 3.6297840056398797`*^9}, {3.6297840416291428`*^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.6297860683067026`*^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.6297874597063127`*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.6297885659354553`*^9, 3.6297885755294724`*^9}, {3.6297892278758183`*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.6297893332852035`*^9}, { 3.6297914556533313`*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.6298702559641933`*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.6306586027288923`*^9}, { 3.630658768962784*^9, 3.6306589911851745`*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.6306734854495883`*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.6306752822962494`*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.6306754692369413`*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.6306757374963827`*^9}, {3.6306758978040085`*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.6852523453938932`*^9, 3.68525240748398*^9}, {3.6852525490681486`*^9, 3.6852525670281763`*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.6852714610531816`*^9, 3.6852714662331886`*^9}, { 3.685340224314878*^9, 3.6853402425549035`*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, 3.6863952420746865`*^9, { 3.6866590821902657`*^9, 3.6866591337503376`*^9}, {3.686659210920446*^9, 3.6866592825905457`*^9}, 3.686659319650598*^9, {3.718089929604436*^9, 3.718089937596391*^9}, {3.748925556248083*^9, 3.748925596504529*^9}, { 3.7489256818595314`*^9, 3.7489256827028418`*^9}, {3.748925773478675*^9, 3.7489257778055353`*^9}, {3.748926055597584*^9, 3.748926062252592*^9}, { 3.7498183167074556`*^9, 3.749818323150751*^9}, {3.7498184776431103`*^9, 3.7498184970219464`*^9}, {3.7498186926216*^9, 3.749818695064655*^9}, { 3.7498187482508116`*^9, 3.749818753180888*^9}, {3.749818791697117*^9, 3.74981882272311*^9}, 3.7498188581034184`*^9, 3.7498188937280397`*^9, { 3.750738836526843*^9, 3.750738994287031*^9}, {3.750739479955144*^9, 3.7507394890626364`*^9}, {3.7507395263507853`*^9, 3.7507395564997435`*^9}, {3.7507398115497265`*^9, 3.7507398850637856`*^9}, {3.750740274597377*^9, 3.7507403074656067`*^9}, { 3.7507403555793552`*^9, 3.750740401349904*^9}, {3.750740465553377*^9, 3.750740508199918*^9}, 3.750740629952758*^9, {3.7823101737187147`*^9, 3.7823103634283786`*^9}, {3.7825479311322384`*^9, 3.7825479353423777`*^9}, {3.7825480262609863`*^9, 3.7825481716515837`*^9}, {3.7825482102779408`*^9, 3.7825482328803453`*^9}, {3.782548272115299*^9, 3.7825482752964735`*^9}, { 3.7825485180909595`*^9, 3.7825486234952216`*^9}, {3.7825488872315836`*^9, 3.7825490109806633`*^9}, 3.7825687734018755`*^9, {3.845977045530012*^9, 3.8459770616144032`*^9}}, CellLabel-> "In[435]:=",ExpressionUUID->"0386609d-1c2d-438a-a886-4733d223eeba"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar mode)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.750565926739056*^9, 3.7505659341120853`*^9}, {3.750752857204367*^9, 3.7507528581125317`*^9}, 3.782659794667615*^9, 3.782710363130872*^9},ExpressionUUID->"cc990ac8-5120-4641-8d5c-\ 94a1ff12e713"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2"}], "}"}], ",", "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[{ 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[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505659451563754`*^9, 3.750566085061419*^9}, { 3.7827103775705137`*^9, 3.78271042439074*^9}, {3.7827104673152027`*^9, 3.7827104865205307`*^9}, {3.845979224615173*^9, 3.8459792257243967`*^9}}, CellLabel-> "In[443]:=",ExpressionUUID->"415e6818-6853-4ec0-9d68-7d166a4b3d20"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (torsion mode)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.7505659158975925`*^9, 3.7505659224119425`*^9}, {3.7507528109774723`*^9, 3.7507528118918147`*^9}, 3.7826597918875985`*^9},ExpressionUUID->"bcc9edda-0a1e-48bd-8b0f-\ 40589a5d99e2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"G1", ",", "G2"}], "}"}], "}"}], ",", RowBox[{"{", "J", "}"}], ",", RowBox[{"{", RowBox[{"mx", ",", "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[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.75057898594298*^9, 3.7505790034143305`*^9}, { 3.7505790504251184`*^9, 3.7505790510513926`*^9}, {3.782710548970234*^9, 3.7827105902506247`*^9}, {3.845979247295101*^9, 3.84597924840653*^9}, 3.846030661989381*^9, 3.846466457378631*^9}, CellLabel-> "In[446]:=",ExpressionUUID->"1d5c2128-8f7d-49c2-bc6a-69def3a3b90c"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (bar mode)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.750565926739056*^9, 3.7505659341120853`*^9}, {3.750752857204367*^9, 3.7507528581125317`*^9}, 3.782659794667615*^9},ExpressionUUID->"c5bda663-503c-4be3-a470-\ 910cb7fbe884"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]1", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]2", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "+", RowBox[{"ux", "[", "2", "]"}]}], ")"}], "/", "2"}], ",", "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[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505659451563754`*^9, 3.750566085061419*^9}, { 3.782710654290349*^9, 3.78271071465012*^9}, {3.8459792649525595`*^9, 3.8459792700895824`*^9}}, CellLabel-> "In[449]:=",ExpressionUUID->"517546cf-2cdd-428e-9d3d-54eb92182a10"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (torsion)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.7505659158975925`*^9, 3.7505659224119425`*^9}, {3.7505789254448276`*^9, 3.750578929759143*^9}, {3.750579770840417*^9, 3.7505797724359093`*^9}, { 3.7507529181246862`*^9, 3.7507529186404753`*^9}, 3.7826597975552855`*^9},ExpressionUUID->"38424070-2f98-480c-a83b-\ 8f8cdab9d549"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"G1", ",", "G2"}], "}"}], "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "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", ",", "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]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505791099855146`*^9, 3.7505791559679317`*^9}, {3.750579542389488*^9, 3.7505796130522037`*^9}, { 3.7505796720954795`*^9, 3.7505797072586193`*^9}, {3.750579765832862*^9, 3.750579766232874*^9}, 3.7507535393582745`*^9, {3.78271076552037*^9, 3.782710793460365*^9}, {3.7827108264003487`*^9, 3.782710861734082*^9}, { 3.845979291055648*^9, 3.8459792916633863`*^9}, 3.8464666143121386`*^9}, CellLabel-> "In[452]:=",ExpressionUUID->"15d6043f-09ef-4bb7-bf9a-ee72c646c2ea"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.7505659158975925`*^9, 3.7505659224119425`*^9}, {3.7505789254448276`*^9, 3.750578929759143*^9}, {3.750579770840417*^9, 3.7505797907432437`*^9}, 3.782659803011798*^9, {3.7827111005215473`*^9, 3.7827111013316174`*^9}},ExpressionUUID->"1a87b817-5277-4c97-aaf1-\ d210c560af5a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", 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[{"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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505791099855146`*^9, 3.7505791559679317`*^9}, {3.750579542389488*^9, 3.7505796130522037`*^9}, { 3.7505796720954795`*^9, 3.7505797072586193`*^9}, {3.750579765832862*^9, 3.750579766232874*^9}, {3.750579802867135*^9, 3.7505798722541504`*^9}, 3.75075350410437*^9, {3.7827109362140217`*^9, 3.7827109631539116`*^9}, { 3.84597931608607*^9, 3.8459793172203665`*^9}}, CellLabel-> "In[456]:=",ExpressionUUID->"5327ae1a-5d00-451f-8900-d292d24f17f7"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.7505659158975925`*^9, 3.7505659224119425`*^9}, {3.7505789254448276`*^9, 3.750578929759143*^9}, {3.750579770840417*^9, 3.7505797907432437`*^9}, 3.750580076696847*^9, 3.7826598053639565`*^9, 3.782711104411296*^9},ExpressionUUID->"333acb68-32af-4274-87c4-\ 46a821e4001c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "A", " ", SuperscriptBox["\[Omega]", "2"], RowBox[{"{", RowBox[{"0", ",", "L"}], "}"}]}], ",", "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[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505791099855146`*^9, 3.7505791559679317`*^9}, {3.750579542389488*^9, 3.7505796130522037`*^9}, { 3.7505796720954795`*^9, 3.7505797072586193`*^9}, {3.750579765832862*^9, 3.750579766232874*^9}, {3.750579802867135*^9, 3.7505798722541504`*^9}, 3.7505800846538973`*^9, {3.7505801357713585`*^9, 3.7505802043807445`*^9}, { 3.7505802503265038`*^9, 3.7505804196446767`*^9}, 3.7505805534015827`*^9, { 3.7507532856705427`*^9, 3.750753460826091*^9}, {3.782711115741482*^9, 3.782711142811342*^9}, {3.8459793347899704`*^9, 3.845979336014468*^9}}, CellLabel-> "In[460]:=",ExpressionUUID->"64ba7119-8eb4-4de7-838c-26bedd1b9233"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.750561911146058*^9, 3.7505619176163893`*^9}, { 3.7505659158975925`*^9, 3.7505659224119425`*^9}, {3.7505789254448276`*^9, 3.750578929759143*^9}, {3.750579770840417*^9, 3.7505797907432437`*^9}, 3.750580998214035*^9, 3.782659807563279*^9, {3.782711172559081*^9, 3.7827111734913597`*^9}},ExpressionUUID->"aab4ba74-25cc-44df-b5f7-\ a7fc3e83f524"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "g", " ", "A"}], ",", "0", ",", "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"}], "}"}]}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uX", "[", "3", "]"}], " ", "/.", " ", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.7505619665169616`*^9, 3.750562136247263*^9}, { 3.7505628196815586`*^9, 3.750562890357929*^9}, {3.7505629425800385`*^9, 3.750562963411825*^9}, {3.750562995094347*^9, 3.7505630239120665`*^9}, { 3.7505630659334183`*^9, 3.750563112601778*^9}, 3.7505631636962347`*^9, { 3.750564042076792*^9, 3.750564152727738*^9}, {3.7505641857639956`*^9, 3.7505641906159678`*^9}, {3.7505791099855146`*^9, 3.7505791559679317`*^9}, {3.750579542389488*^9, 3.7505796130522037`*^9}, { 3.7505796720954795`*^9, 3.7505797072586193`*^9}, {3.750579765832862*^9, 3.750579766232874*^9}, {3.750579802867135*^9, 3.7505798722541504`*^9}, 3.7505810501237736`*^9, {3.7505810840064735`*^9, 3.750581089755114*^9}, { 3.7827112012610683`*^9, 3.782711239831455*^9}, {3.8459793578950243`*^9, 3.8459793592882895`*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"34f22d8f-caa8-489c-99a2-2e76a8a02e41"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (beam bending )", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.4742603407157393`*^9, {3.600666351963651*^9, 3.6006663781981516`*^9}, 3.6321880085476494`*^9, 3.6636795657621937`*^9, {3.6874157308398046`*^9, 3.6874157382298145`*^9}, {3.6875990980906777`*^9, 3.687599101560683*^9}, { 3.687599789631646*^9, 3.6875997922216496`*^9}, 3.750510479053434*^9, { 3.7505811542400494`*^9, 3.7505811936995697`*^9}, {3.750753700420952*^9, 3.7507537086963844`*^9}, 3.782659810242653*^9},ExpressionUUID->"6708adae-a8fc-470c-90b7-\ 2e2a0d1b90ef"], Cell[CellGroupData[{ 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[{"0", ",", "0", ",", "0", ",", "0", ",", "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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.631886640185182*^9, 3.6318867801798277`*^9}, {3.631886811395483*^9, 3.6318868532971563`*^9}, { 3.63188689538603*^9, 3.631886911126458*^9}, 3.632220880961799*^9, { 3.6635854561992054`*^9, 3.6635854723021264`*^9}, {3.685947722189886*^9, 3.6859480185078344`*^9}, {3.6859480495976124`*^9, 3.6859481066958785`*^9}, {3.6859482534012694`*^9, 3.6859482744204717`*^9}, {3.685948346996623*^9, 3.6859483521469173`*^9}, { 3.6859486889111795`*^9, 3.6859487382179995`*^9}, {3.6874157463798265`*^9, 3.687415778329871*^9}, {3.687415861979988*^9, 3.687415898030039*^9}, { 3.6874213041776075`*^9, 3.687421314837622*^9}, {3.6875991104306955`*^9, 3.68759922084085*^9}, {3.687599258320902*^9, 3.687599276800928*^9}, { 3.6875994307911434`*^9, 3.687599436341151*^9}, {3.6875997994616594`*^9, 3.6875998920817895`*^9}, {3.68774648180365*^9, 3.6877465313837194`*^9}, { 3.7192413363579865`*^9, 3.719241337121456*^9}, {3.750510494907881*^9, 3.7505105614605274`*^9}, {3.750581226082611*^9, 3.7505812652141*^9}, { 3.7827112890602274`*^9, 3.782711335160014*^9}, {3.845979382846133*^9, 3.8459793841884236`*^9}}, CellLabel-> "In[468]:=",ExpressionUUID->"b9404848-3da8-4ab5-a92a-8a47bf53174f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "\[Rule]", FractionBox[ RowBox[{"L", " ", "M"}], RowBox[{"4", " ", "\[CapitalEpsilon]", " ", "\[CapitalIota]"}]]}], "}"}]], "Output", CellChangeTimes->{3.908935457422844*^9}, CellLabel-> "Out[471]=",ExpressionUUID->"70965383-68af-4d61-a12e-801659f7270c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (shape functions )", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.4742603407157393`*^9, {3.600666351963651*^9, 3.6006663781981516`*^9}, 3.6321880085476494`*^9, 3.6636795657621937`*^9, {3.6874157308398046`*^9, 3.6874157382298145`*^9}, {3.6875990980906777`*^9, 3.687599101560683*^9}, { 3.687599789631646*^9, 3.6875997922216496`*^9}, 3.750510479053434*^9, { 3.7505811542400494`*^9, 3.750581171579791*^9}, {3.7507537197785788`*^9, 3.750753725500464*^9}, 3.7826598126184177`*^9, {3.7827179828730965`*^9, 3.78271798737152*^9}},ExpressionUUID->"9e0e1551-fd38-43f5-aaac-\ abd016071f72"], Cell[BoxData[{ RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "h"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"-", "h"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SHAPES2", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"-", "h"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.631886640185182*^9, 3.6318867801798277`*^9}, {3.631886811395483*^9, 3.6318868532971563`*^9}, { 3.63188689538603*^9, 3.631886911126458*^9}, 3.632220880961799*^9, { 3.6635854561992054`*^9, 3.6635854723021264`*^9}, {3.685947722189886*^9, 3.6859480185078344`*^9}, {3.6859480495976124`*^9, 3.6859481066958785`*^9}, {3.6859482534012694`*^9, 3.6859482744204717`*^9}, {3.685948346996623*^9, 3.6859483521469173`*^9}, { 3.6859486889111795`*^9, 3.6859487382179995`*^9}, {3.6874157463798265`*^9, 3.687415778329871*^9}, {3.687415861979988*^9, 3.687415898030039*^9}, { 3.6874213041776075`*^9, 3.687421314837622*^9}, {3.6875991104306955`*^9, 3.68759922084085*^9}, {3.687599258320902*^9, 3.687599276800928*^9}, { 3.6875994307911434`*^9, 3.687599436341151*^9}, {3.6875997994616594`*^9, 3.6875998920817895`*^9}, {3.68774648180365*^9, 3.6877465313837194`*^9}, { 3.7192413363579865`*^9, 3.719241337121456*^9}, {3.750510494907881*^9, 3.7505105614605274`*^9}, {3.750581351975045*^9, 3.7505814225991716`*^9}, { 3.7827179928861876`*^9, 3.78271805327505*^9}, {3.782718119954771*^9, 3.7827181456003895`*^9}, {3.78271818509567*^9, 3.782718225739417*^9}}, CellLabel-> "In[472]:=",ExpressionUUID->"65d066f7-8a2f-4825-8944-a300f0e5600b"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (shape functions)", "Subsubsection", CellChangeTimes->{{3.4444393346048*^9, 3.4444393512032003`*^9}, { 3.6018122641967864`*^9, 3.6018122767548084`*^9}, 3.601814557276416*^9, 3.6022333243607655`*^9, 3.6022342077215185`*^9, 3.602234294504471*^9, { 3.6877467093739686`*^9, 3.6877467095139685`*^9}, {3.750581539743651*^9, 3.7505815398373814`*^9}, {3.750754308694276*^9, 3.7507543094107695`*^9}, 3.7826598179096603`*^9},ExpressionUUID->"10499989-c157-4dbd-95c1-\ 866b3211b10e"], Cell[BoxData[{ RowBox[{ RowBox[{"ver", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "h"}], "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "h"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", "=", RowBox[{"Triangle", "[", "ver", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uu", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}], ",", "ver"}], "]"}], ".", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "a"}], ",", RowBox[{"2", " ", "a"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "uu"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "uu"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{"uu", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], "\[CapitalOmega]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"h", ">", "0"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4444394155376*^9, 3.4444394296400003`*^9}, 3.4444395284192*^9, {3.444439820422*^9, 3.4444398548044*^9}, { 3.6018122988912477`*^9, 3.6018124350014863`*^9}, {3.6018124741731553`*^9, 3.601812490865185*^9}, {3.6018125305516543`*^9, 3.6018125546536965`*^9}, { 3.6018126174282064`*^9, 3.6018126378642426`*^9}, {3.6018126786739144`*^9, 3.601812742306426*^9}, {3.6018128387457952`*^9, 3.6018128626918373`*^9}, { 3.6018129226895432`*^9, 3.601813010876498*^9}, {3.6018130418581524`*^9, 3.6018131642715673`*^9}, {3.601813205034439*^9, 3.601813425494026*^9}, { 3.601813512448579*^9, 3.601813555801055*^9}, {3.601813764309823*^9, 3.6018137710334344`*^9}, {3.6018140333322954`*^9, 3.6018140528791294`*^9}, {3.6018145657316303`*^9, 3.6018147404363375`*^9}, {3.601814774023196*^9, 3.601814782197611*^9}, { 3.6018148332097*^9, 3.6018149333774757`*^9}, {3.601814967806737*^9, 3.6018151916515293`*^9}, {3.601815244348422*^9, 3.601815250479233*^9}, { 3.601815514650097*^9, 3.6018155326057286`*^9}, {3.6018155739458013`*^9, 3.601815606721459*^9}, {3.6022335292451267`*^9, 3.6022335296819277`*^9}, { 3.6022335728472033`*^9, 3.602233829686054*^9}, 3.60223402070839*^9, { 3.6022340618924627`*^9, 3.6022340620172625`*^9}, {3.6022341439642067`*^9, 3.602234156849829*^9}, {3.602234204695113*^9, 3.602234217206335*^9}, { 3.602234290214463*^9, 3.602234302554085*^9}, {3.6022343660773964`*^9, 3.6022344318471117`*^9}, {3.6022344729843845`*^9, 3.6022344749343877`*^9}, {3.633919936325143*^9, 3.633919949520898*^9}, { 3.6877467564440346`*^9, 3.6877469222242665`*^9}, {3.6877517223390765`*^9, 3.687751726919083*^9}, 3.6877517582391267`*^9, {3.687751806249194*^9, 3.6877518650892763`*^9}, {3.6877519436493864`*^9, 3.6877519463393903`*^9}, {3.7827182789678555`*^9, 3.782718649002737*^9}}, CellLabel-> "In[474]:=",ExpressionUUID->"4ab11e26-06c7-4cce-bba4-e2dbb07b5060"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (torsion mode)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, {3.6883874731431046`*^9, 3.688387474933107*^9}, 3.7505815813114414`*^9, {3.750755438325096*^9, 3.7507554390283165`*^9}, { 3.877064967760496*^9, 3.87706497120457*^9}},ExpressionUUID->"463c8efd-1146-4de8-9809-\ ec8dbb3e439d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "G", "}"}], ",", RowBox[{"{", "J", "}"}], ",", RowBox[{"{", RowBox[{"mx", ",", "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[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.688387486153123*^9, 3.688387516193165*^9}, { 3.6883875476732087`*^9, 3.688387572993244*^9}, {3.7507553475216866`*^9, 3.7507553604408283`*^9}, {3.7826275853572035`*^9, 3.782627646246913*^9}, { 3.845979484716564*^9, 3.8459794908477488`*^9}}, CellLabel-> "In[480]:=",ExpressionUUID->"adee6d13-ed20-40b0-9f57-86421b54d62e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (shape functions)", "Subsubsection", CellChangeTimes->{{3.4444393346048*^9, 3.4444393512032003`*^9}, { 3.6018122641967864`*^9, 3.6018122767548084`*^9}, 3.601814557276416*^9, 3.6022333243607655`*^9, 3.6022342077215185`*^9, 3.602234294504471*^9, { 3.6022369605335536`*^9, 3.602236961547555*^9}, {3.687527219346206*^9, 3.6875272346562276`*^9}, 3.75058157548466*^9, {3.7507543123410654`*^9, 3.750754315688427*^9}, {3.7507559948336515`*^9, 3.750756000441642*^9}, 3.750759249725996*^9, {3.8770649740535126`*^9, 3.8770649766710076`*^9}},ExpressionUUID->"0ccb8fc5-d873-487f-81e4-\ c8c0e34ba70a"], Cell[BoxData[{ RowBox[{ RowBox[{"p\[Xi]", "=", RowBox[{"{", RowBox[{"1", ",", "\[Xi]", ",", SuperscriptBox["\[Xi]", "2"]}], "}"}]}], ";", " ", RowBox[{"\[Xi]p", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"3", "/", "4"}], ",", "1"}], "}"}]}], ";", RowBox[{"NN", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{"p\[Xi]", ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Xi]p"}], "}"}]}], "]"}], "]"}], "]"}], ".", "p\[Xi]"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "NN", "]"}], ",", RowBox[{"Plot", "[", RowBox[{"NN", ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "}"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4444394155376*^9, 3.4444394296400003`*^9}, 3.4444395284192*^9, {3.444439820422*^9, 3.4444398548044*^9}, { 3.6018122988912477`*^9, 3.6018124350014863`*^9}, {3.6018124741731553`*^9, 3.601812490865185*^9}, {3.6018125305516543`*^9, 3.6018125546536965`*^9}, { 3.6018126174282064`*^9, 3.6018126378642426`*^9}, {3.6018126786739144`*^9, 3.601812742306426*^9}, {3.6018128387457952`*^9, 3.6018128626918373`*^9}, { 3.6018129226895432`*^9, 3.601813010876498*^9}, {3.6018130418581524`*^9, 3.6018131642715673`*^9}, {3.601813205034439*^9, 3.601813425494026*^9}, { 3.601813512448579*^9, 3.601813555801055*^9}, {3.601813764309823*^9, 3.6018137710334344`*^9}, {3.6018140333322954`*^9, 3.6018140528791294`*^9}, {3.6018145657316303`*^9, 3.6018147404363375`*^9}, {3.601814774023196*^9, 3.601814782197611*^9}, { 3.6018148332097*^9, 3.6018149333774757`*^9}, {3.601814967806737*^9, 3.6018151916515293`*^9}, {3.601815244348422*^9, 3.601815250479233*^9}, { 3.601815514650097*^9, 3.6018155326057286`*^9}, {3.6018155739458013`*^9, 3.601815606721459*^9}, {3.6022335292451267`*^9, 3.6022335296819277`*^9}, { 3.6022335728472033`*^9, 3.602233829686054*^9}, 3.60223402070839*^9, { 3.6022340618924627`*^9, 3.6022340620172625`*^9}, {3.6022341439642067`*^9, 3.602234156849829*^9}, {3.602234204695113*^9, 3.602234217206335*^9}, { 3.602234290214463*^9, 3.602234302554085*^9}, {3.6022343660773964`*^9, 3.6022344318471117`*^9}, {3.6022344729843845`*^9, 3.6022344749343877`*^9}, {3.60224368525255*^9, 3.602243759976681*^9}, { 3.6022438108239717`*^9, 3.6022438300900054`*^9}, {3.6022438813984957`*^9, 3.6022440010195055`*^9}, {3.633396099666407*^9, 3.633396122759728*^9}, { 3.687757806321924*^9, 3.687757827621954*^9}, {3.6877578934920464`*^9, 3.687757986622176*^9}, {3.687761775217445*^9, 3.6877617775274477`*^9}, { 3.6877618193775063`*^9, 3.6877618329675255`*^9}, {3.687761863957569*^9, 3.687761882617595*^9}, {3.750758681375268*^9, 3.7507587395647845`*^9}, { 3.7507587895688*^9, 3.750758860911395*^9}, {3.7507588936535244`*^9, 3.7507589375808115`*^9}, {3.7507589762750683`*^9, 3.7507591141332903`*^9}, {3.750759149624155*^9, 3.7507591892088947`*^9}, { 3.8145833705035863`*^9, 3.8145834883848567`*^9}, {3.814583583956476*^9, 3.8145835917239513`*^9}, 3.814583663560208*^9, {3.877508245124486*^9, 3.877508277014731*^9}, {3.877508369975003*^9, 3.8775083710831027`*^9}, { 3.877508960934513*^9, 3.877508968214244*^9}}, CellLabel-> "In[483]:=",ExpressionUUID->"bf6cefa2-3e79-492b-b071-c07b44b59c2f"], Cell[BoxData[{ RowBox[{ RowBox[{"p\[Xi]", "=", RowBox[{"{", RowBox[{"1", ",", "\[Xi]", ",", SuperscriptBox["\[Xi]", "2"], ",", SuperscriptBox["\[Xi]", "3"]}], "}"}]}], ";", " ", RowBox[{"\[Xi]p", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "4"}], ",", RowBox[{"3", "/", "4"}], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{"p\[Xi]", ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Xi]p"}], "}"}]}], "]"}], "]"}], "]"}], ".", "p\[Xi]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "NN", "]"}], ",", RowBox[{"Plot", "[", RowBox[{"NN", ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "}"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4444394155376*^9, 3.4444394296400003`*^9}, 3.4444395284192*^9, {3.444439820422*^9, 3.4444398548044*^9}, { 3.6018122988912477`*^9, 3.6018124350014863`*^9}, {3.6018124741731553`*^9, 3.601812490865185*^9}, {3.6018125305516543`*^9, 3.6018125546536965`*^9}, { 3.6018126174282064`*^9, 3.6018126378642426`*^9}, {3.6018126786739144`*^9, 3.601812742306426*^9}, {3.6018128387457952`*^9, 3.6018128626918373`*^9}, { 3.6018129226895432`*^9, 3.601813010876498*^9}, {3.6018130418581524`*^9, 3.6018131642715673`*^9}, {3.601813205034439*^9, 3.601813425494026*^9}, { 3.601813512448579*^9, 3.601813555801055*^9}, {3.601813764309823*^9, 3.6018137710334344`*^9}, {3.6018140333322954`*^9, 3.6018140528791294`*^9}, {3.6018145657316303`*^9, 3.6018147404363375`*^9}, {3.601814774023196*^9, 3.601814782197611*^9}, { 3.6018148332097*^9, 3.6018149333774757`*^9}, {3.601814967806737*^9, 3.6018151916515293`*^9}, {3.601815244348422*^9, 3.601815250479233*^9}, { 3.601815514650097*^9, 3.6018155326057286`*^9}, {3.6018155739458013`*^9, 3.601815606721459*^9}, {3.6022335292451267`*^9, 3.6022335296819277`*^9}, { 3.6022335728472033`*^9, 3.602233829686054*^9}, 3.60223402070839*^9, { 3.6022340618924627`*^9, 3.6022340620172625`*^9}, {3.6022341439642067`*^9, 3.602234156849829*^9}, {3.602234204695113*^9, 3.602234217206335*^9}, { 3.602234290214463*^9, 3.602234302554085*^9}, {3.6022343660773964`*^9, 3.6022344318471117`*^9}, {3.6022344729843845`*^9, 3.6022344749343877`*^9}, {3.60224368525255*^9, 3.602243759976681*^9}, { 3.6022438108239717`*^9, 3.6022438300900054`*^9}, {3.6022438813984957`*^9, 3.6022440010195055`*^9}, {3.633396099666407*^9, 3.633396122759728*^9}, { 3.687757806321924*^9, 3.687757827621954*^9}, {3.6877578934920464`*^9, 3.687757986622176*^9}, {3.687761775217445*^9, 3.6877617775274477`*^9}, { 3.6877618193775063`*^9, 3.6877618329675255`*^9}, {3.687761863957569*^9, 3.687761882617595*^9}, {3.750758681375268*^9, 3.7507587395647845`*^9}, { 3.7507587895688*^9, 3.750758860911395*^9}, {3.7507588936535244`*^9, 3.7507589375808115`*^9}, {3.7507589762750683`*^9, 3.7507591141332903`*^9}, {3.750759149624155*^9, 3.7507591892088947`*^9}, { 3.8145833705035863`*^9, 3.814583436083416*^9}, {3.814583522389844*^9, 3.8145835235249233`*^9}, {3.8145836149888353`*^9, 3.814583642668388*^9}, 3.814583683772899*^9}, CellLabel-> "In[485]:=",ExpressionUUID->"db664ac0-eb85-4da5-8f48-e184561d8f34"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.6877571565810146`*^9, 3.6877571643910255`*^9}, 3.750581572797803*^9, {3.7505818362360835`*^9, 3.750581844249834*^9}, { 3.750581940696036*^9, 3.7505819445545454`*^9}, {3.750753999063446*^9, 3.7507539998866377`*^9}, {3.78270783583883*^9, 3.782707836291849*^9}, { 3.8770649922600975`*^9, 3.87706499757327*^9}},ExpressionUUID->"5af94978-b624-4ea4-84dc-\ a4c74d6434c1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"fx1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"fx2", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{ RowBox[{"h", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "+", RowBox[{"ux", "[", "2", "]"}]}], ")"}], "/", "2"}], ",", "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[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.4436808471962*^9, 3.4436809538378*^9}, { 3.443681135921*^9, 3.443681156435*^9}, {3.4436932592028*^9, 3.4436934237047997`*^9}, {3.4436935689876003`*^9, 3.4436937308064003`*^9}, {3.4436938048596*^9, 3.4436938539216003`*^9}, { 3.4436938933115997`*^9, 3.4436940028859997`*^9}, {3.4436940413868*^9, 3.4436943576768*^9}, 3.569906467788733*^9, {3.6006674027727537`*^9, 3.6006674063279576`*^9}, {3.6321937953686347`*^9, 3.6321940032435246`*^9}, {3.632194047502056*^9, 3.632194108361537*^9}, { 3.686023222242097*^9, 3.686023228422106*^9}, {3.686023420882375*^9, 3.6860235613925714`*^9}, 3.686023718102791*^9, {3.686023858792988*^9, 3.6860239212530756`*^9}, {3.68602400304319*^9, 3.68602400334319*^9}, { 3.6860240896433115`*^9, 3.686024121733356*^9}, {3.6860241698034234`*^9, 3.686024192163455*^9}, 3.6874464056255856`*^9, {3.687493904712118*^9, 3.687493919452962*^9}, {3.687493953807927*^9, 3.687494423111769*^9}, 3.6874944573877296`*^9, {3.6875150024245615`*^9, 3.6875150213786454`*^9}, { 3.6875151509430504`*^9, 3.68751525041674*^9}, {3.687515698320302*^9, 3.6875160210537477`*^9}, {3.6875160733507385`*^9, 3.6875161577225647`*^9}, {3.687516650114722*^9, 3.6875166670296893`*^9}, { 3.6875169150648556`*^9, 3.687516982734726*^9}, {3.6875170234790564`*^9, 3.6875170717578106`*^9}, {3.687517189607551*^9, 3.687517212350852*^9}, { 3.687517947316862*^9, 3.687517960002588*^9}, {3.6875181788311043`*^9, 3.687518188304646*^9}, {3.6875188353286533`*^9, 3.687518873331827*^9}, 3.687521331859447*^9, {3.687521459437744*^9, 3.6875214742015886`*^9}, { 3.6877571986110735`*^9, 3.6877574332014017`*^9}, {3.687757472451456*^9, 3.6877574820714703`*^9}, {3.750581876039261*^9, 3.750581930042222*^9}, { 3.7827078522971115`*^9, 3.7827079479570513`*^9}, {3.8459794422007084`*^9, 3.8459794470096245`*^9}}, CellLabel-> "In[488]:=",ExpressionUUID->"524964cf-5391-4ef5-bb9e-4cf6005c363d"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam bending )", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558002`*^9}, { 3.4430753426703997`*^9, 3.4430753634028*^9}, 3.4430770141963997`*^9, 3.4742603407157393`*^9, {3.600666351963651*^9, 3.6006663781981516`*^9}, 3.6321880085476494`*^9, 3.6636795657621937`*^9, {3.6874157308398046`*^9, 3.6874157382298145`*^9}, {3.6875990980906777`*^9, 3.687599101560683*^9}, { 3.687599789631646*^9, 3.6875997922216496`*^9}, 3.750510479053434*^9, { 3.7505811542400494`*^9, 3.750581171579791*^9}, {3.7507537197785788`*^9, 3.750753725500464*^9}, {3.750754355267947*^9, 3.7507543598680077`*^9}, 3.7826307999382095`*^9, {3.8770650005633993`*^9, 3.877065005885188*^9}},ExpressionUUID->"6eefa5e5-3af5-419a-87af-\ 79058e85dd28"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", 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]"}], "\[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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}], "Input", CellChangeTimes->{ 3.4426469719054456`*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.4430753715772*^9, 3.4430754825088*^9}, { 3.4430755569208*^9, 3.4430756008816*^9}, {3.4430770228856*^9, 3.4430770663784*^9}, {3.4430771036935997`*^9, 3.4430771281387997`*^9}, { 3.4430774685931997`*^9, 3.4430774744588003`*^9}, {3.631886640185182*^9, 3.6318867801798277`*^9}, {3.631886811395483*^9, 3.6318868532971563`*^9}, { 3.63188689538603*^9, 3.631886911126458*^9}, 3.632220880961799*^9, { 3.6635854561992054`*^9, 3.6635854723021264`*^9}, {3.685947722189886*^9, 3.6859480185078344`*^9}, {3.6859480495976124`*^9, 3.6859481066958785`*^9}, {3.6859482534012694`*^9, 3.6859482744204717`*^9}, {3.685948346996623*^9, 3.6859483521469173`*^9}, { 3.6859486889111795`*^9, 3.6859487382179995`*^9}, {3.6874157463798265`*^9, 3.687415778329871*^9}, {3.687415861979988*^9, 3.687415898030039*^9}, { 3.6874213041776075`*^9, 3.687421314837622*^9}, {3.6875991104306955`*^9, 3.68759922084085*^9}, {3.687599258320902*^9, 3.687599276800928*^9}, { 3.6875994307911434`*^9, 3.687599436341151*^9}, {3.6875997994616594`*^9, 3.6875998920817895`*^9}, {3.68774648180365*^9, 3.6877465313837194`*^9}, { 3.7192413363579865`*^9, 3.719241337121456*^9}, {3.750510494907881*^9, 3.7505105614605274`*^9}, {3.750581351975045*^9, 3.7505814225991716`*^9}, { 3.7507543721196623`*^9, 3.7507544653364305`*^9}, {3.7826308120023527`*^9, 3.782630834826322*^9}}, CellLabel-> "In[491]:=",ExpressionUUID->"63f8958a-64de-41c2-b7bf-81808f03aea9"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (shape functions)", "Subsubsection", CellChangeTimes->{{3.443679756257*^9, 3.4436797622318*^9}, 3.4436808360109997`*^9, 3.4751535594029493`*^9, {3.4751540447407494`*^9, 3.4751540450527496`*^9}, {3.6006660270400667`*^9, 3.600666027653102*^9}, 3.6006663585140257`*^9, 3.6321910383869467`*^9, 3.6636795589293823`*^9, { 3.6875207571905775`*^9, 3.687520761194807*^9}, {3.6876685148042345`*^9, 3.6876685204242425`*^9}, {3.749628860913476*^9, 3.7496288663579645`*^9}, 3.7496994923944416`*^9, {3.7507540809074497`*^9, 3.7507540866831155`*^9}, 3.782630877210558*^9, {3.782630929089062*^9, 3.782630933116787*^9}, { 3.8770650090770206`*^9, 3.877065014768378*^9}},ExpressionUUID->"56f9e29f-79fa-440c-88a4-\ d6ef5d824130"], Cell[BoxData[{ RowBox[{ RowBox[{"NN", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "/", "3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "\[Xi]", ",", "\[Eta]"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "NN", "]"}]}], "Input", CellChangeTimes->{{3.4436798248501997`*^9, 3.4436798429618*^9}, { 3.443679898061*^9, 3.4436799888686*^9}, {3.4436801692514*^9, 3.4436801991098003`*^9}, 3.443680378775*^9, {3.4436804193974*^9, 3.4436804370566*^9}, 3.6006660683034267`*^9, {3.6318882390863276`*^9, 3.631888248789544*^9}, {3.6318888523390045`*^9, 3.6318889287011385`*^9}, { 3.631888959277192*^9, 3.6318889956252565`*^9}, 3.6318892166152444`*^9, { 3.6318892804661565`*^9, 3.6318892814801583`*^9}, {3.631889317734622*^9, 3.631889323959033*^9}, {3.631889414080391*^9, 3.6318894734852953`*^9}, { 3.6318895695658646`*^9, 3.631889576336276*^9}, {3.6318896192051516`*^9, 3.6318896215607557`*^9}, {3.63188970927971*^9, 3.631889709934911*^9}, { 3.632190742688033*^9, 3.6321907489713926`*^9}, {3.632190921438257*^9, 3.632190943394513*^9}, {3.6321912567764378`*^9, 3.632191262218749*^9}, { 3.6321913668477335`*^9, 3.6321913716630087`*^9}, {3.685952813676102*^9, 3.6859528607797966`*^9}, {3.68595290787049*^9, 3.6859533988145704`*^9}, { 3.685953517748373*^9, 3.6859535591427402`*^9}, 3.685965506548236*^9, { 3.6859655476582937`*^9, 3.6859655504682975`*^9}, {3.685965631278411*^9, 3.685965634198415*^9}, {3.6859658476887136`*^9, 3.6859659061787953`*^9}, { 3.685966268959303*^9, 3.685966274369311*^9}, 3.6860125052055483`*^9, { 3.6876698089360466`*^9, 3.687669930876217*^9}, {3.687669965616266*^9, 3.6876699690562706`*^9}, {3.6876701468865194`*^9, 3.6876702688366904`*^9}, 3.687671951523484*^9, {3.6876720519736247`*^9, 3.6876720974836884`*^9}, 3.6876721497037616`*^9, {3.6876721862038126`*^9, 3.687672192653822*^9}, { 3.6876722286538725`*^9, 3.6876723088439846`*^9}, {3.6876740255104027`*^9, 3.6876740281804066`*^9}, 3.687783855173648*^9, {3.7192404630234146`*^9, 3.71924049126862*^9}, {3.7192405358821263`*^9, 3.71924053705192*^9}, { 3.7507540971562033`*^9, 3.750754107865892*^9}, {3.7826309520901594`*^9, 3.782630970652353*^9}, {3.7826310098954353`*^9, 3.782631067716502*^9}, { 3.782631101283888*^9, 3.7826311363805866`*^9}, {3.7826311815765486`*^9, 3.7826311916774073`*^9}, {3.814583707300671*^9, 3.8145837384239798`*^9}}, CellLabel-> "In[495]:=",ExpressionUUID->"6e604da2-badb-4b18-a57e-5169287292b6"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIRTUAL WORK DENSITY (week 47)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, { 3.4742602258717394`*^9, 3.4742602349087396`*^9}, {3.4751533480335493`*^9, 3.4751533839809494`*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.4758461893361397`*^9, 3.4758462006617393`*^9}, {3.4782569733691998`*^9, 3.4782570107312*^9}, {3.5728448971418185`*^9, 3.572844900293024*^9}, { 3.603075880189313*^9, 3.6030758835433187`*^9}, {3.629791676471719*^9, 3.6297916782189217`*^9}, 3.6308961507564125`*^9, {3.634543316694062*^9, 3.6345433204642773`*^9}, {3.666086967186925*^9, 3.6660869701250935`*^9}, 3.6852489657601895`*^9, 3.6853235104535847`*^9, {3.6860286322360067`*^9, 3.6860286394984217`*^9}, 3.6864666412776737`*^9, {3.6868402248605633`*^9, 3.6868402263805656`*^9}, {3.687427356936081*^9, 3.6874273664060946`*^9}, 3.687939586884596*^9, {3.687939626544651*^9, 3.687939633734661*^9}, { 3.6882673004189034`*^9, 3.6882673398789587`*^9}, {3.7199228770641465`*^9, 3.719922877811071*^9}, {3.7199229096438*^9, 3.719922910128081*^9}, 3.7807552561191516`*^9, {3.7834232601496735`*^9, 3.7834232654567776`*^9}, { 3.873870800858427*^9, 3.873870800983836*^9}},ExpressionUUID->"3b8bbb34-7a59-4c20-925e-\ 26bc5bd51903"], Cell[CellGroupData[{ Cell["Lecture example 5.1 (solid and tetrahedron)", "Subsubsection", CellChangeTimes->{{3.4461858096703997`*^9, 3.44618581577*^9}, { 3.4783088292724*^9, 3.4783088356372004`*^9}, 3.572946752325334*^9, 3.6345673551106033`*^9, {3.688120820670149*^9, 3.6881208288301606`*^9}, 3.688276291574788*^9, {3.688285903799246*^9, 3.688285922669272*^9}, 3.6883501802229247`*^9, {3.6883502258629885`*^9, 3.6883502442430143`*^9}, 3.75082511983012*^9, {3.7508252305521297`*^9, 3.7508252335474377`*^9}, { 3.751197450399726*^9, 3.751197451305794*^9}, {3.783411074091236*^9, 3.7834110789615927`*^9}, 3.8146803425169497`*^9},ExpressionUUID->"799faeba-1f47-4fe6-8909-\ 9b75f1b345e6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "h"}], "}"}], ",", 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]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4461842708238*^9, 3.4461843475914*^9}, { 3.4461843871998*^9, 3.4461844674119997`*^9}, {3.4461853601563997`*^9, 3.4461853767392*^9}, {3.4783088965084*^9, 3.4783088977564*^9}, { 3.6031676342279634`*^9, 3.603167637722369*^9}, 3.603167671480829*^9, { 3.6320425732995977`*^9, 3.6320427112184863`*^9}, {3.6320427413082075`*^9, 3.632042759953274*^9}, 3.632043223912811*^9, {3.6348908023085775`*^9, 3.634890812463158*^9}, {3.634890845456045*^9, 3.634890917799183*^9}, 3.634890949290984*^9, {3.6348910904570584`*^9, 3.6348910940192623`*^9}, 3.6348911383837996`*^9, {3.6348912352033377`*^9, 3.634891278477813*^9}, { 3.634891319326149*^9, 3.63489160012521*^9}, 3.634896592566805*^9, { 3.634896640266533*^9, 3.6348966674110856`*^9}, {3.634896714207762*^9, 3.6348967218161974`*^9}, {3.666087057906114*^9, 3.6660870797743645`*^9}, 3.6660871449200907`*^9, {3.6882762940547915`*^9, 3.6882765684451756`*^9}, { 3.6882766163452425`*^9, 3.68827669295635*^9}, {3.688276735226409*^9, 3.688276765026451*^9}, {3.6882859834593573`*^9, 3.688286297299796*^9}, 3.688286910641655*^9, {3.6882869529417143`*^9, 3.6882869797717524`*^9}, { 3.6882871732020226`*^9, 3.68828719274205*^9}, {3.688287227542099*^9, 3.688287280112172*^9}, 3.6882876142056417`*^9, {3.750825139372815*^9, 3.7508251589769144`*^9}, {3.750825315817686*^9, 3.7508253307108173`*^9}, { 3.7511974650681667`*^9, 3.751197716352787*^9}, {3.7511978729720216`*^9, 3.7511978959040065`*^9}, {3.7511979269437747`*^9, 3.7511979311928763`*^9}, {3.751198077432763*^9, 3.7511980786043634`*^9}, 3.783078234323082*^9, {3.7830783031733418`*^9, 3.783078359180637*^9}, { 3.7830784105145917`*^9, 3.783078444938653*^9}, {3.8146889352008*^9, 3.8146889476944675`*^9}}, CellLabel-> "In[425]:=",ExpressionUUID->"76c2b17f-59ad-4a3d-8c77-55b44be9b71c"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.2 (solid and hexahedron)", "Subsubsection", CellChangeTimes->{{3.4461858096703997`*^9, 3.44618581577*^9}, { 3.4783088292724*^9, 3.4783088356372004`*^9}, 3.572946752325334*^9, 3.6345673551106033`*^9, {3.688120820670149*^9, 3.6881208288301606`*^9}, 3.688276291574788*^9, {3.688285903799246*^9, 3.688285922669272*^9}, 3.6883501802229247`*^9, 3.7511986771610527`*^9, {3.7834110986847677`*^9, 3.783411099436548*^9}, 3.8146803451275425`*^9},ExpressionUUID->"460f4545-102c-41b5-91e5-\ bca75f05122c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[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[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4461842708238*^9, 3.4461843475914*^9}, { 3.4461843871998*^9, 3.4461844674119997`*^9}, {3.4461853601563997`*^9, 3.4461853767392*^9}, {3.4783088965084*^9, 3.4783088977564*^9}, { 3.6031676342279634`*^9, 3.603167637722369*^9}, 3.603167671480829*^9, { 3.6320425732995977`*^9, 3.6320427112184863`*^9}, {3.6320427413082075`*^9, 3.632042759953274*^9}, 3.632043223912811*^9, {3.6348908023085775`*^9, 3.634890812463158*^9}, {3.634890845456045*^9, 3.634890917799183*^9}, 3.634890949290984*^9, {3.6348910904570584`*^9, 3.6348910940192623`*^9}, 3.6348911383837996`*^9, {3.6348912352033377`*^9, 3.634891278477813*^9}, { 3.634891319326149*^9, 3.63489160012521*^9}, 3.634896592566805*^9, { 3.634896640266533*^9, 3.6348966674110856`*^9}, {3.634896714207762*^9, 3.6348967218161974`*^9}, {3.666087057906114*^9, 3.6660870797743645`*^9}, 3.6660871449200907`*^9, {3.6882762940547915`*^9, 3.6882765684451756`*^9}, { 3.6882766163452425`*^9, 3.68827669295635*^9}, {3.688276735226409*^9, 3.688276765026451*^9}, {3.6882859834593573`*^9, 3.688286297299796*^9}, 3.688286910641655*^9, {3.6882869529417143`*^9, 3.6882869797717524`*^9}, { 3.6882871732020226`*^9, 3.68828719274205*^9}, {3.688287227542099*^9, 3.688287280112172*^9}, 3.6882876142056417`*^9, {3.6883502721530533`*^9, 3.6883503064231014`*^9}, {3.7511986882832193`*^9, 3.7511987004368563`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"3824df2f-8cb1-470b-9b76-d4cce804cbd4"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.3 (plane-strain and triangle element)", \ "Subsubsection", CellChangeTimes->{{3.4461858096703997`*^9, 3.44618581577*^9}, { 3.4783088292724*^9, 3.4783088356372004`*^9}, 3.572946752325334*^9, 3.6345673551106033`*^9, {3.688120820670149*^9, 3.6881208288301606`*^9}, 3.688276291574788*^9, 3.688354984092181*^9, 3.751261967695571*^9, { 3.7834111027722273`*^9, 3.783411104679905*^9}, 3.814680351038374*^9},ExpressionUUID->"e0260b6b-dac4-4ffc-9f7e-\ 6287a1bb7fac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", 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[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"F", "/", "L"}]}], ",", RowBox[{ RowBox[{"-", "2"}], RowBox[{"F", "/", "L"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"F", "/", "L"}]}], ",", RowBox[{ RowBox[{"-", "2"}], RowBox[{"F", "/", "L"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{"in", "=", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4461842708238*^9, 3.4461843475914*^9}, { 3.4461843871998*^9, 3.4461844674119997`*^9}, {3.4461853601563997`*^9, 3.4461853767392*^9}, {3.4783088965084*^9, 3.4783088977564*^9}, { 3.6031676342279634`*^9, 3.603167637722369*^9}, 3.603167671480829*^9, { 3.6320425732995977`*^9, 3.6320427112184863`*^9}, {3.6320427413082075`*^9, 3.632042759953274*^9}, 3.632043223912811*^9, {3.6348908023085775`*^9, 3.634890812463158*^9}, {3.634890845456045*^9, 3.634890917799183*^9}, 3.634890949290984*^9, {3.6348910904570584`*^9, 3.6348910940192623`*^9}, 3.6348911383837996`*^9, {3.6348912352033377`*^9, 3.634891278477813*^9}, { 3.634891319326149*^9, 3.63489160012521*^9}, 3.634896592566805*^9, { 3.634896640266533*^9, 3.6348966674110856`*^9}, {3.634896714207762*^9, 3.6348967218161974`*^9}, {3.666087057906114*^9, 3.6660870797743645`*^9}, 3.6660871449200907`*^9, {3.6882762940547915`*^9, 3.6882765684451756`*^9}, { 3.6882766163452425`*^9, 3.68827669295635*^9}, {3.688276735226409*^9, 3.688276765026451*^9}, {3.688355019432231*^9, 3.6883550314722476`*^9}, { 3.6883551544404364`*^9, 3.6883551602104445`*^9}, {3.6883552110305157`*^9, 3.688355271800601*^9}, {3.688355338290694*^9, 3.6883554434028425`*^9}, { 3.688355670915162*^9, 3.688355706495212*^9}, {3.6883557567952824`*^9, 3.688355771985304*^9}, {3.6883558263753796`*^9, 3.688355875705449*^9}, { 3.688355917685508*^9, 3.688355944935546*^9}, {3.688355980185595*^9, 3.6883559976156197`*^9}, 3.751261984426061*^9, {3.7512641011575675`*^9, 3.7512641694851646`*^9}, {3.7512642901286583`*^9, 3.7512642915971146`*^9}, 3.751264507540121*^9, 3.783414218776184*^9, {3.783757831523662*^9, 3.7837578322733045`*^9}, {3.7837578927129774`*^9, 3.7837579310887794`*^9}, {3.7837579756190605`*^9, 3.7837580915236235`*^9}, {3.7837581818942947`*^9, 3.7837581902867403`*^9}, {3.783762353708048*^9, 3.78376255351056*^9}, { 3.8146802996777163`*^9, 3.814680300132944*^9}, {3.814685012195855*^9, 3.8146850125628147`*^9}, {3.814685180121467*^9, 3.814685180907949*^9}, { 3.846911776086683*^9, 3.8469117866175575`*^9}, {3.8469118238043375`*^9, 3.846911833111084*^9}, {3.846911892049018*^9, 3.846911893443119*^9}, { 3.8469123232509823`*^9, 3.8469123275686464`*^9}, {3.8469130024289937`*^9, 3.8469130656745753`*^9}, {3.846913710841335*^9, 3.846913751027584*^9}, 3.846913924236359*^9, 3.847104821686632*^9, {3.84710526949061*^9, 3.847105282408266*^9}, {3.847106711744707*^9, 3.847106719029561*^9}, 3.877756595762864*^9, {3.87775670703481*^9, 3.8777567167756147`*^9}, { 3.9093670975646687`*^9, 3.9093671162135086`*^9}, {3.9093672958549232`*^9, 3.909367300713216*^9}, {3.909367332598833*^9, 3.909367336575184*^9}, { 3.909367394637574*^9, 3.909367397868797*^9}, {3.909367534522259*^9, 3.909367624189692*^9}, {3.909367687882614*^9, 3.909367688483457*^9}, { 3.909367722716448*^9, 3.909367726424448*^9}, {3.9093681882700987`*^9, 3.909368199550314*^9}, {3.909368404062061*^9, 3.9093684061089892`*^9}, { 3.9093686492929316`*^9, 3.9093686797458715`*^9}, {3.909374122337641*^9, 3.909374122769226*^9}, {3.9093742001757717`*^9, 3.909374206248623*^9}, { 3.9093742636652236`*^9, 3.909374273896846*^9}, {3.909561142139521*^9, 3.9095611471398554`*^9}}, CellLabel-> "In[436]:=",ExpressionUUID->"61493109-5f62-4795-a969-d3796f5420c9"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"model\"\>", HoldForm], TagBox["\<\"properties\"\>", HoldForm], TagBox["\<\"geometry\"\>", HoldForm]}, { TagBox["1", HoldForm], "PLANESTRAIN", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}, { TagBox["2", HoldForm], "FORCE", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "F"}], "L"]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "F"}], "L"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}, { TagBox["3", HoldForm], "FORCE", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "F"}], "L"]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "F"}], "L"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2, 3}, {"model", "properties", "geometry"}}]]]}, {""}, { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"{X,Y,Z}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(u\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(u\\), \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\ \\(u\\), \\(Z\\)]\\)}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(Z\\)]\\)}\"\>", HoldForm]}, { TagBox["1", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["2", HoldForm], RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["3", HoldForm], RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2, 3}, { "{X,Y,Z}", "{\!\(\*SubscriptBox[\(u\), \(X\)]\),\!\(\*SubscriptBox[\(u\), \(Y\ \)]\),\!\(\*SubscriptBox[\(u\), \(Z\)]\)}", "{\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\),\!\(\*SubscriptBox[\(\ \[Theta]\), \(Y\)]\),\!\(\*SubscriptBox[\(\[Theta]\), \(Z\)]\)}", "\[CurlyTheta]"}}]]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.909560928444355*^9, 3.9095611483989835`*^9}, CellLabel-> "Out[439]=",ExpressionUUID->"6f62eacd-8e84-4c93-aaca-466cc509cb86"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "1", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"F", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}], RowBox[{"t", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Nu]"}], ")"}]}]]}]}], ",", RowBox[{ RowBox[{"uY", "[", "1", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"F", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}], RowBox[{"t", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Nu]"}], ")"}]}]]}]}]}], "}"}]], "Output", CellChangeTimes->{3.909560928444355*^9, 3.909561148845788*^9}, CellLabel-> "Out[440]=",ExpressionUUID->"2a77ce07-99b9-4ba2-8a05-1f3812ecb9bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "point", " ", "force", " ", "is", " ", "a", " ", "tricky", " ", "concept", " ", "in", " ", "2", "D", " ", "and", " ", "3", "D", " ", "elasticity"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "lets", " ", "refine", " ", "to", " ", "improve", " ", "the", " ", "solution"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100."}], ",", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"F", "\[Rule]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"inr", "=", RowBox[{"in", " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"inr", "=", RowBox[{"REFINE", "[", "inr", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "inr", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}]}], "}"}], "/.", "sol"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"DISP", "[", RowBox[{"inr", "/.", "sol"}], " ", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", "2"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4461842708238*^9, 3.4461843475914*^9}, { 3.4461843871998*^9, 3.4461844674119997`*^9}, {3.4461853601563997`*^9, 3.4461853767392*^9}, {3.4783088965084*^9, 3.4783088977564*^9}, { 3.6031676342279634`*^9, 3.603167637722369*^9}, 3.603167671480829*^9, { 3.6320425732995977`*^9, 3.6320427112184863`*^9}, {3.6320427413082075`*^9, 3.632042759953274*^9}, 3.632043223912811*^9, {3.6348908023085775`*^9, 3.634890812463158*^9}, {3.634890845456045*^9, 3.634890917799183*^9}, 3.634890949290984*^9, {3.6348910904570584`*^9, 3.6348910940192623`*^9}, 3.6348911383837996`*^9, {3.6348912352033377`*^9, 3.634891278477813*^9}, { 3.634891319326149*^9, 3.63489160012521*^9}, 3.634896592566805*^9, { 3.634896640266533*^9, 3.6348966674110856`*^9}, {3.634896714207762*^9, 3.6348967218161974`*^9}, {3.666087057906114*^9, 3.6660870797743645`*^9}, 3.6660871449200907`*^9, {3.6882762940547915`*^9, 3.6882765684451756`*^9}, { 3.6882766163452425`*^9, 3.68827669295635*^9}, {3.688276735226409*^9, 3.688276765026451*^9}, {3.688355019432231*^9, 3.6883550314722476`*^9}, { 3.6883551544404364`*^9, 3.6883551602104445`*^9}, {3.6883552110305157`*^9, 3.688355271800601*^9}, {3.688355338290694*^9, 3.6883554434028425`*^9}, { 3.688355670915162*^9, 3.688355706495212*^9}, {3.6883557567952824`*^9, 3.688355771985304*^9}, {3.6883558263753796`*^9, 3.688355875705449*^9}, { 3.688355917685508*^9, 3.688355944935546*^9}, {3.688355980185595*^9, 3.6883559976156197`*^9}, 3.751261984426061*^9, {3.7512641011575675`*^9, 3.7512641694851646`*^9}, {3.7512642310016947`*^9, 3.7512642523719397`*^9}, {3.7512643072493367`*^9, 3.751264404603403*^9}, { 3.7512644392433944`*^9, 3.751264488388084*^9}, {3.751264525832696*^9, 3.7512645459528985`*^9}, {3.751264611187366*^9, 3.751264611312291*^9}, { 3.783414205705018*^9, 3.783414229007724*^9}, {3.783757668975924*^9, 3.7837576824363685`*^9}, {3.7837577554202147`*^9, 3.7837577841634665`*^9}, {3.814685120272374*^9, 3.8146851323483553`*^9}, 3.8471048078340473`*^9, {3.9093741519274535`*^9, 3.909374161476595*^9}}, CellLabel-> "In[441]:=",ExpressionUUID->"7cb5f5c1-0068-4da0-9b45-d64991d88430"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05641025641025638`"}], ",", RowBox[{"-", "0.05641025641025642`"}]}], "}"}]], "Print", CellChangeTimes->{3.9095611129061637`*^9, 3.9095611660080585`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"ebcd3546-4c24-4b29-a13e-d92ef02a048a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05378614628311223`"}], ",", RowBox[{"-", "0.0537861462831122`"}]}], "}"}]], "Print", CellChangeTimes->{3.9095611129061637`*^9, 3.909561166641431*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"9d4f11e8-9000-42eb-9dd1-e69ab31c5859"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05387853766996829`"}], ",", RowBox[{"-", "0.05387853766996855`"}]}], "}"}]], "Print", CellChangeTimes->{3.9095611129061637`*^9, 3.9095611674398074`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"0ac17faf-7505-4401-b0de-2255d6fd8b7f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05403281435842218`"}], ",", RowBox[{"-", "0.054032814358422186`"}]}], "}"}]], "Print", CellChangeTimes->{3.9095611129061637`*^9, 3.9095611690923376`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"745a9da4-5c12-4387-89b9-aa71edd1f450"] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{ GraphicsComplexBox[{{-0.05641025641025638, -0.05641025641025642}, {1., 0.}, {0., 1.}, { 0.4846153846153846, -0.04615384615384616}, {-0.046153846153846156`, 0.4846153846153846}, {0.5, 0.5}}, {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[ Tiny]}], TagBox[PolygonBox[{{1, 4, 5}, {4, 2, 6}, {5, 6, 3}, {4, 6, 5}}], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[{{-0.05641025641025638, -0.05641025641025642}, {1., 0.}, {0., 1.}, { 0.4846153846153846, -0.04615384615384616}, {-0.046153846153846156`, 0.4846153846153846}, {0.5, 0.5}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 4, 5}, {4, 2, 6}, {5, 6, 3}, {4, 6, 5}}], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6}]}}]}, Boxed -> True, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}, DisplayFunction->Identity, ImagePadding->{{0.5, 14.669921684265148`}, {0.5, 17.171875}}, PlotRange->{{-0.35520819881934107`, 1.2987979424090847`}, {-0.3552081988193411, 1.2987979424090847`}}], {192., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}, BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}], InsetBox[ GraphicsBox[{ GraphicsComplexBox[{{-0.05378614628311223, -0.0537861462831122}, {1., 0.}, {0., 1.}, { 0.48854049420292645`, -0.04557312091615684}, {-0.04557312091615687, 0.4885404942029265}, {0.5, 0.5}, { 0.21833461530346684`, -0.053481764376182746`}, {-0.05348176437618282, 0.2183346153034669}, {0.21840654552392902`, 0.21840654552392907`}, { 0.7512920034418261, -0.02892116594610313}, {0.4872121185852187, 0.22895306613314695`}, {0.75, 0.25}, {0.22895306613314692`, 0.4872121185852187}, {-0.028921165946103135`, 0.7512920034418261}, { 0.25, 0.75}}, {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[ Tiny]}], TagBox[PolygonBox[{{1, 7, 8}, {7, 4, 9}, {8, 9, 5}, {7, 9, 8}, {4, 10, 11}, {10, 2, 12}, {11, 12, 6}, {10, 12, 11}, {5, 13, 14}, {13, 6, 15}, {14, 15, 3}, {13, 15, 14}, {4, 11, 9}, {11, 6, 13}, {9, 13, 5}, {11, 13, 9}}], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[{{-0.05378614628311223, -0.0537861462831122}, {1., 0.}, {0., 1.}, { 0.48854049420292645`, -0.04557312091615684}, {-0.04557312091615687, 0.4885404942029265}, {0.5, 0.5}, { 0.21833461530346684`, -0.053481764376182746`}, {-0.05348176437618282, 0.2183346153034669}, {0.21840654552392902`, 0.21840654552392907`}, { 0.7512920034418261, -0.02892116594610313}, {0.4872121185852187, 0.22895306613314695`}, {0.75, 0.25}, {0.22895306613314692`, 0.4872121185852187}, {-0.028921165946103135`, 0.7512920034418261}, { 0.25, 0.75}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 7, 8}, {7, 4, 9}, {8, 9, 5}, {7, 9, 8}, {4, 10, 11}, {10, 2, 12}, {11, 12, 6}, {10, 12, 11}, {5, 13, 14}, {13, 6, 15}, {14, 15, 3}, {13, 15, 14}, {4, 11, 9}, {11, 6, 13}, {9, 13, 5}, {11, 13, 9}}], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}]}}]}, Boxed -> True, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}, DisplayFunction->Identity, ImagePadding->{{0.5, 14.669921684265148`}, {0.5, 17.171875}}, PlotRange->{{-0.3518418782660034, 1.2980557319828911`}, {-0.3518418782660033, 1.2980557319828911`}}], {576., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}, BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}]}, { InsetBox[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGDQBWIQzZdav+v71NX7jaE0Axh8sGfACj7YOx55Pz0n+r59 RnuxV5PP8v2BUNoWKg5R9wBOr38azVrIdMY+uO223nX31ft1oPRyqPj2mh8h F36dtl8PpU/MOzHhtdQL+4Whm4QEQufuP3HmnuAX/fv29xcev5PnexZq7gso fcH+EVT8GFTdTJg+qDkwdTB9aSFfPrEKb7XfU7us6+OO1ftnQekgqLjCXe+3 Vz9sseeD0vb2/OdObL9m7+WmM+3+3ZX7RUQvbJpw67S90qH6wzf1ttrzpevE ak+6Zr9AXv2LLvM2ewuoOA9UnQZUnxXUnA1QdZxQfcxtZamL3z+2P1i8a87+ 3sX777Q93XBO8b69zzH32vWN2+1vJMeffXPysb2axMLuzNU77R/9f8s5T+2N /bbivD1HpCbuP5nHlKz94bm97C3Lax01e6D+fAOlD9gvrD+8dPGlx/bT1T6/ Z6k/Z1+twdc4o/a+fVT1oa+hsdeh6p5A6Rv2IVB7b0LdsQ/qLiaoOzWg7rgO dVc01JwqqLkzoPYsgNoLMxdmD8ydJ6Du3gD1B8xfMHfD/GGya+dH44XX7Iv2 LP1iWHrG/hRLxyrpZ9fsT0DpCqi4IVQdAGvoSSw= "], {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[ Tiny]}], TagBox[PolygonBox[{{1, 16, 17}, {16, 7, 18}, {17, 18, 8}, {16, 18, 17}, {7, 19, 20}, {19, 4, 21}, {20, 21, 9}, {19, 21, 20}, {8, 22, 23}, {22, 9, 24}, {23, 24, 5}, {22, 24, 23}, {7, 20, 18}, {20, 9, 22}, {18, 22, 8}, {20, 22, 18}, {4, 25, 26}, {25, 10, 27}, {26, 27, 11}, {25, 27, 26}, {10, 28, 29}, {28, 2, 30}, {29, 30, 12}, { 28, 30, 29}, {11, 31, 32}, {31, 12, 33}, {32, 33, 6}, {31, 33, 32}, {10, 29, 27}, {29, 12, 31}, {27, 31, 11}, {29, 31, 27}, {5, 34, 35}, {34, 13, 36}, {35, 36, 14}, {34, 36, 35}, {13, 37, 38}, { 37, 6, 39}, {38, 39, 15}, {37, 39, 38}, {14, 40, 41}, {40, 15, 42}, {41, 42, 3}, {40, 42, 41}, {13, 38, 36}, {38, 15, 40}, {36, 40, 14}, {38, 40, 36}, {4, 26, 21}, {26, 11, 43}, {21, 43, 9}, { 26, 43, 21}, {11, 32, 44}, {32, 6, 37}, {44, 37, 13}, {32, 37, 44}, {9, 45, 24}, {45, 13, 34}, {24, 34, 5}, {45, 34, 24}, {11, 44, 43}, {44, 13, 45}, {43, 45, 9}, {44, 45, 43}}], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGDQBWIQzZdav+v71NX7jaE0Axh8sGfACj7YOx55Pz0n+r59 RnuxV5PP8v2BUNoWKg5R9wBOr38azVrIdMY+uO223nX31ft1oPRyqPj2mh8h F36dtl8PpU/MOzHhtdQL+4Whm4QEQufuP3HmnuAX/fv29xcev5PnexZq7gso fcH+EVT8GFTdTJg+qDkwdTB9aSFfPrEKb7XfU7us6+OO1ftnQekgqLjCXe+3 Vz9sseeD0vb2/OdObL9m7+WmM+3+3ZX7RUQvbJpw67S90qH6wzf1ttrzpevE ak+6Zr9AXv2LLvM2ewuoOA9UnQZUnxXUnA1QdZxQfcxtZamL3z+2P1i8a87+ 3sX777Q93XBO8b69zzH32vWN2+1vJMeffXPysb2axMLuzNU77R/9f8s5T+2N /bbivD1HpCbuP5nHlKz94bm97C3Lax01e6D+fAOlD9gvrD+8dPGlx/bT1T6/ Z6k/Z1+twdc4o/a+fVT1oa+hsdeh6p5A6Rv2IVB7b0LdsQ/qLiaoOzWg7rgO dVc01JwqqLkzoPYsgNoLMxdmD8ydJ6Du3gD1B8xfMHfD/GGya+dH44XX7Iv2 LP1iWHrG/hRLxyrpZ9fsT0DpCqi4IVQdAGvoSSw= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 16, 17}, {16, 7, 18}, {17, 18, 8}, {16, 18, 17}, {7, 19, 20}, {19, 4, 21}, {20, 21, 9}, {19, 21, 20}, {8, 22, 23}, {22, 9, 24}, {23, 24, 5}, {22, 24, 23}, {7, 20, 18}, {20, 9, 22}, {18, 22, 8}, {20, 22, 18}, {4, 25, 26}, {25, 10, 27}, {26, 27, 11}, {25, 27, 26}, {10, 28, 29}, {28, 2, 30}, {29, 30, 12}, { 28, 30, 29}, {11, 31, 32}, {31, 12, 33}, {32, 33, 6}, {31, 33, 32}, {10, 29, 27}, {29, 12, 31}, {27, 31, 11}, {29, 31, 27}, {5, 34, 35}, {34, 13, 36}, {35, 36, 14}, {34, 36, 35}, {13, 37, 38}, { 37, 6, 39}, {38, 39, 15}, {37, 39, 38}, {14, 40, 41}, {40, 15, 42}, {41, 42, 3}, {40, 42, 41}, {13, 38, 36}, {38, 15, 40}, {36, 40, 14}, {38, 40, 36}, {4, 26, 21}, {26, 11, 43}, {21, 43, 9}, { 26, 43, 21}, {11, 32, 44}, {32, 6, 37}, {44, 37, 13}, {32, 37, 44}, {9, 45, 24}, {45, 13, 34}, {24, 34, 5}, {45, 34, 24}, {11, 44, 43}, {44, 13, 45}, {43, 45, 9}, {44, 45, 43}}], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45}]}}]}, Boxed -> True, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}, DisplayFunction->Identity, ImagePadding->{{0.5, 14.669921684265148`}, {0.5, 17.171875}}, PlotRange->{{-0.3523027213086649, 1.2981573392141939`}, {-0.35230272130866513`, 1.2981573392141939`}}], {192., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}, BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}], InsetBox[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxtVXs01HkUH2UPdU5LL0mzIhlbHqtNZU9b1yKPTcuyR6QH8ohGOGxPtpdV a4VkOURFSxjvZ8L+ZJjI6DEy49nMNIMhhCyRsnbnfvtrf+fM+Zxzz/3e+7mf z+ec0fYMdPReRKPRkhd+/+Jm9U3exrksSh+R9t83BrT//cYgn5Wc/42HEAp7 DudOO96jOhFzsS7vE31C9avmdNYiLuh8Pm1fb82iViOuxbrRjOnO9rkW2ICo EklfqawtA9NOddmkeRo1FuOc6mQshEYv3e+Ydq04V4b4DOqxPop91viOzCF9 n971G96xXFYOBmHvgpNKF+5FnO6T1wOsFL7PnCoDb8SpshCDsAd86HdhPLeR 5lC6WvUc1ZctoE1XcnDZUg6Du9farkzgw6n8w+V5tAowwboW9rXguwmcE4V9 A/iu96SsdeOkBEDTVtsq5i51pDAlTKAjhCrz+BNHwyuhMODHVz2PJfDYrVrK ya4Cl/DquULDYai7cPOUbCaOasos4WePDQDdebzIKbwG7xxGrIPwn6yUk3gS eLZ4Tnz6lydwYcIXksKFsDtt1MfgkAD7pIgdkIt7DyEPT+RFeFLIowB57cI5 53FuK+4he8lcsmcd8iS8a/AOchfhTe7YJvBgqGTwYToj9cKqn7nAcNL9w7Sf DzqItLvy+tfYt1HPN9GBHQ0J2wbDyktYlC+iiCGv2ySqPPG4Eg00xJDkNzNm lmyQ/Fatw0xkUdL1+kF7PpaBonTvEM0/GoaDknQebWODTXBVhFtHNBzEugj7 OvFdIM45iH3k3Q1+aYjbER580aDUIa3KpVzEgRzjoRboWaNplbwxBpLmZ3ve 2PFA8bG9+V6LOAh6qDkwr9oNY2ObuCfrs6kEjfJ3aul8OE0zsN6iGg/hCgLa 1rEu+HLRnbZ7FxOgeO62Va4FDzRlWl5aEeUQ01vJ05e0QIz7oMaOfWzg5py4 aLSHB0E7IuZXnmWDpbp8L+ExzJbzikOep5FHIvK6iXMica4J7inAvWE4txn3 VCDPeOQ9gncw8S4G8j6Hd4hSIlVuGbFBa7vhrLtiOQQ3DurPm7CBicjAei/2 KQaUiNgvxJCmXup6IDGTEmxY3dxvKgS1KR8T55QkOAr2M7IaMawqEgmVXG9C JKezWLqsH4yGk3898206FXHuOq2xQwIl/P3H6x/chonES0ZWb/rgY9T627GH MyDtraJPZJEY2vO4SnfC70MT09/dSVsIUcp/xh682gBZIVfihAVicKBe7VZQ bQQtPVNTa4MhaOBd+mwyNImKP78558b8AJgV+E7UG2fCiRFaOkt5CIA+Pm/p mg2V28sqarRH4feuSguXDZep6i10ym7JMEwanJHZDbAw96OIRZDlN9tr8n4Q XIz5S7l6f0FzsUIAZ3wA6vgvs/MYj7BvCLEJ7Dzzzy6pXOBvbKSQ1dUKmk+F S+PshTDn/CFrvWIbFHb6P3z/SAwK6bXjq35og+zQdr/2oT5wa7Ytc9r+FOj0 a0LHPgnoqX2oDcxow7n9iC9gvkHJK1MkBj+q62lOjgD8NM3CB+4LQewl0lhb 3I19rxB74PWKsoxjoj54KzB8uOzjA1jelWWbIuyD4xZ5oOLOAc827ybLZglo 1B3IiMhvhI6/5T62o6916PNi9P1+odxX4nMk+sJBnxrQt1T00RZ9ykTfQtH3 y5iDnZgLkpNJzME45uI96kZHHXmo617UmYY6FqCuItTBH3UhOhHdiC5EJwbq THQnPhBfiO7EB1PMFcnZM8wdyeEuzBnJHYU5acLckByRXJHckBxNYQ5JLiMx pyS3JJckp2romwf66I++Ep9H0XeSAy9KwXyTsAtclj/vH8muAIdjoYtf93ZB 1GWtXbZrGqDxjNK44XAXHD1U8dX0Cy5kcvbZWSz8T541v565tZYNI1ufnL/m yIMUbmWMpiEXrNNuOLsu6YZUm/Sk4EYerLOqXJ1o0g3MnSscytcJQOCUoStm dn9CUtfAvlv4bg/OSce5MtxzCfemIw8f5NWAPGOR9z684wje5Yl3ek2wPM7V 8iGWusUpjedBPKI71qVmQbP7mTwQIv4DQD6AYA== "], {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[ Tiny]}], TagBox[PolygonBox[CompressedData[" 1:eJwVxWdDKQoAANDevW1pCIlEQgolJDKzMiKrJLIiIyszElL23vzb9975cg6c YZ3zz9x//pmb+/t/p2enm5QzytYp5WzznHq+RKPSQOc06hb9gg5iXDCW6YyL TSqFCqJT6FtUOmXpknm5zWKywJcs5vYV+2qew+ZArjhsMJfHhfB5/BUun7fN ZrEhXBYXzOaylgXXAqjwWrgjEF5DRWLRikQsgYkk4h3pjRQmu5EtSGU3ULFQ DJMKpTtiqXCJSWOC5TQ5iCmngXkK3opIIYLyRAqQkqGEChiCZaWAAVbIFVCl XAlSKOXzt6rbXbVKDb9Vq3bvNHerWo0WcafVwHV6HcKgNwB0Bv2uRq1B6NQ6 uEanXr1/uN8zPhiR98aHvUfT458n09P+45MJabaY958tz2vmZ8ueyWjaNxvN SJPZCLDarCi7zY622m0oh9Ox9uJ8OXC8ONEut+vg1f266Hp1o5x254HL7kI7 XfbVB+0D0qP1IB48WqTFa1lzeB0oi8OL8Bl8KKvBCvBZDUivx4vyeXwIr8+z 4H/zYwJvgUN/4A0TDAWB4VAYGwyHDiPvEWz0Pboeib5jQoEQNhKIHIYiAWAs HsMl4gl8LBHHJVPJxY/Ux1HyI4VPZ9JHn5nPjfRnBpdKpI7SiTQ+lU6sZ7+y hNxX7jib+yLkC/mN78L3Sf67cFz8KZ78/vz+Lf7+EAq5wkkxVzwuFHPAeDiO L4VL2HgpjM+UMxv5cp6QyZexlWiFkI1m1yvZKL5cKhMqpQq2XCnNqzgqeJVT haiqHLi+pgfUa3Wivl6DNPgNYpPfXGk0+fBatUZsVBuQWqMKsLVs6HarTbK1 W2h3x72Y7CRx7mSH1O11cbFeDNiN9dCddgfXbXdJnW57pS/pkweSAaw/kJCH oyEwOApihsERbCwbY/wy/8LYLyOPBiPMeDCGjcYDQKveIk3qE2JrUif1pj3g cDok94ZT4qw5I/eb/ZVZv0maTqbk2WRGnM4m/wIoMvee "]], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[CompressedData[" 1:eJxtVXs01HkUH2UPdU5LL0mzIhlbHqtNZU9b1yKPTcuyR6QH8ohGOGxPtpdV a4VkOURFSxjvZ8L+ZJjI6DEy49nMNIMhhCyRsnbnfvtrf+fM+Zxzz/3e+7mf z+ec0fYMdPReRKPRkhd+/+Jm9U3exrksSh+R9t83BrT//cYgn5Wc/42HEAp7 DudOO96jOhFzsS7vE31C9avmdNYiLuh8Pm1fb82iViOuxbrRjOnO9rkW2ICo EklfqawtA9NOddmkeRo1FuOc6mQshEYv3e+Ydq04V4b4DOqxPop91viOzCF9 n971G96xXFYOBmHvgpNKF+5FnO6T1wOsFL7PnCoDb8SpshCDsAd86HdhPLeR 5lC6WvUc1ZctoE1XcnDZUg6Du9farkzgw6n8w+V5tAowwboW9rXguwmcE4V9 A/iu96SsdeOkBEDTVtsq5i51pDAlTKAjhCrz+BNHwyuhMODHVz2PJfDYrVrK ya4Cl/DquULDYai7cPOUbCaOasos4WePDQDdebzIKbwG7xxGrIPwn6yUk3gS eLZ4Tnz6lydwYcIXksKFsDtt1MfgkAD7pIgdkIt7DyEPT+RFeFLIowB57cI5 53FuK+4he8lcsmcd8iS8a/AOchfhTe7YJvBgqGTwYToj9cKqn7nAcNL9w7Sf DzqItLvy+tfYt1HPN9GBHQ0J2wbDyktYlC+iiCGv2ySqPPG4Eg00xJDkNzNm lmyQ/Fatw0xkUdL1+kF7PpaBonTvEM0/GoaDknQebWODTXBVhFtHNBzEugj7 OvFdIM45iH3k3Q1+aYjbER580aDUIa3KpVzEgRzjoRboWaNplbwxBpLmZ3ve 2PFA8bG9+V6LOAh6qDkwr9oNY2ObuCfrs6kEjfJ3aul8OE0zsN6iGg/hCgLa 1rEu+HLRnbZ7FxOgeO62Va4FDzRlWl5aEeUQ01vJ05e0QIz7oMaOfWzg5py4 aLSHB0E7IuZXnmWDpbp8L+ExzJbzikOep5FHIvK6iXMica4J7inAvWE4txn3 VCDPeOQ9gncw8S4G8j6Hd4hSIlVuGbFBa7vhrLtiOQQ3DurPm7CBicjAei/2 KQaUiNgvxJCmXup6IDGTEmxY3dxvKgS1KR8T55QkOAr2M7IaMawqEgmVXG9C JKezWLqsH4yGk3898206FXHuOq2xQwIl/P3H6x/chonES0ZWb/rgY9T627GH MyDtraJPZJEY2vO4SnfC70MT09/dSVsIUcp/xh682gBZIVfihAVicKBe7VZQ bQQtPVNTa4MhaOBd+mwyNImKP78558b8AJgV+E7UG2fCiRFaOkt5CIA+Pm/p mg2V28sqarRH4feuSguXDZep6i10ym7JMEwanJHZDbAw96OIRZDlN9tr8n4Q XIz5S7l6f0FzsUIAZ3wA6vgvs/MYj7BvCLEJ7Dzzzy6pXOBvbKSQ1dUKmk+F S+PshTDn/CFrvWIbFHb6P3z/SAwK6bXjq35og+zQdr/2oT5wa7Ytc9r+FOj0 a0LHPgnoqX2oDcxow7n9iC9gvkHJK1MkBj+q62lOjgD8NM3CB+4LQewl0lhb 3I19rxB74PWKsoxjoj54KzB8uOzjA1jelWWbIuyD4xZ5oOLOAc827ybLZglo 1B3IiMhvhI6/5T62o6916PNi9P1+odxX4nMk+sJBnxrQt1T00RZ9ykTfQtH3 y5iDnZgLkpNJzME45uI96kZHHXmo617UmYY6FqCuItTBH3UhOhHdiC5EJwbq THQnPhBfiO7EB1PMFcnZM8wdyeEuzBnJHYU5acLckByRXJHckBxNYQ5JLiMx pyS3JJckp2romwf66I++Ep9H0XeSAy9KwXyTsAtclj/vH8muAIdjoYtf93ZB 1GWtXbZrGqDxjNK44XAXHD1U8dX0Cy5kcvbZWSz8T541v565tZYNI1ufnL/m yIMUbmWMpiEXrNNuOLsu6YZUm/Sk4EYerLOqXJ1o0g3MnSscytcJQOCUoStm dn9CUtfAvlv4bg/OSce5MtxzCfemIw8f5NWAPGOR9z684wje5Yl3ek2wPM7V 8iGWusUpjedBPKI71qVmQbP7mTwQIv4DQD6AYA== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[CompressedData[" 1:eJwVxWdDKQoAANDevW1pCIlEQgolJDKzMiKrJLIiIyszElL23vzb9975cg6c YZ3zz9x//pmb+/t/p2enm5QzytYp5WzznHq+RKPSQOc06hb9gg5iXDCW6YyL TSqFCqJT6FtUOmXpknm5zWKywJcs5vYV+2qew+ZArjhsMJfHhfB5/BUun7fN ZrEhXBYXzOaylgXXAqjwWrgjEF5DRWLRikQsgYkk4h3pjRQmu5EtSGU3ULFQ DJMKpTtiqXCJSWOC5TQ5iCmngXkK3opIIYLyRAqQkqGEChiCZaWAAVbIFVCl XAlSKOXzt6rbXbVKDb9Vq3bvNHerWo0WcafVwHV6HcKgNwB0Bv2uRq1B6NQ6 uEanXr1/uN8zPhiR98aHvUfT458n09P+45MJabaY958tz2vmZ8ueyWjaNxvN SJPZCLDarCi7zY622m0oh9Ox9uJ8OXC8ONEut+vg1f266Hp1o5x254HL7kI7 XfbVB+0D0qP1IB48WqTFa1lzeB0oi8OL8Bl8KKvBCvBZDUivx4vyeXwIr8+z 4H/zYwJvgUN/4A0TDAWB4VAYGwyHDiPvEWz0Pboeib5jQoEQNhKIHIYiAWAs HsMl4gl8LBHHJVPJxY/Ux1HyI4VPZ9JHn5nPjfRnBpdKpI7SiTQ+lU6sZ7+y hNxX7jib+yLkC/mN78L3Sf67cFz8KZ78/vz+Lf7+EAq5wkkxVzwuFHPAeDiO L4VL2HgpjM+UMxv5cp6QyZexlWiFkI1m1yvZKL5cKhMqpQq2XCnNqzgqeJVT haiqHLi+pgfUa3Wivl6DNPgNYpPfXGk0+fBatUZsVBuQWqMKsLVs6HarTbK1 W2h3x72Y7CRx7mSH1O11cbFeDNiN9dCddgfXbXdJnW57pS/pkweSAaw/kJCH oyEwOApihsERbCwbY/wy/8LYLyOPBiPMeDCGjcYDQKveIk3qE2JrUif1pj3g cDok94ZT4qw5I/eb/ZVZv0maTqbk2WRGnM4m/wIoMvee "]], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153}]}}]}, Boxed -> True, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}, DisplayFunction->Identity, ImagePadding->{{0.5, 14.669921684265148`}, {0.5, 17.171875}}, PlotRange->{{-0.35225034020477075`, 1.2981457901650675`}, {-0.3522503402047711, 1.2981457901650675`}}], {576., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}, BaseStyle->{Graphics3DBoxOptions -> {SphericalRegion -> False}}]}}, {}}, ImageSize->{ UpTo[600], UpTo[700]}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.909561119394863*^9, 3.909561169467436*^9}, CellLabel-> "Out[443]=",ExpressionUUID->"0844f3a1-3ae2-4dae-9fb0-f4e27bc70453"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.4 (plane stress and quadrilateral element)", \ "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, 3.572946782433387*^9, 3.634567631130391*^9, 3.634610434326293*^9, 3.634611542343668*^9, {3.634787392185001*^9, 3.634787394985161*^9}, 3.634795742882633*^9, 3.666087688711194*^9, {3.688120833010166*^9, 3.6881208343201685`*^9}, 3.6883549869221854`*^9, 3.7512646469199333`*^9, 3.783411107827134*^9, 3.814680353110828*^9},ExpressionUUID->"964c563f-8cd4-4fb0-a14e-\ 6a5b2cb09098"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100."}], ",", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"F", "\[Rule]", "10"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9", ",", "8"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10", ",", "9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "/", "L"}], ",", RowBox[{"F", "/", "L"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", RowBox[{"uY", "[", "4", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", RowBox[{"uY", "[", "5", "]"}], ",", "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", "[", "7", "]"}], ",", RowBox[{"uY", "[", "7", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "8", "]"}], ",", RowBox[{"uY", "[", "8", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", " ", "L"}], ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "9", "]"}], ",", RowBox[{"uY", "[", "9", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", " ", "L"}], ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "10", "]"}], ",", RowBox[{"uY", "[", "10", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{ RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "2"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uX", "[", "5", "]"}], "+", RowBox[{"uX", "[", "10", "]"}]}], ")"}], "/", "2."}], " ", "/.", "sol"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"DISP", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "sol"}], "]"}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, 3.603167701448481*^9, { 3.6305527201760035`*^9, 3.630552938770506*^9}, {3.6345676503834925`*^9, 3.6345676818222904`*^9}, {3.6345688863991885`*^9, 3.6345689891650667`*^9}, 3.6345692742413716`*^9, 3.6345693788933573`*^9, {3.6345695183433332`*^9, 3.6345696795895567`*^9}, {3.63461061365755*^9, 3.634610615326646*^9}, { 3.6354741435175705`*^9, 3.635474208878309*^9}, {3.6354742396790705`*^9, 3.635474258640155*^9}, 3.635474295701275*^9, {3.688274575490385*^9, 3.688274878281809*^9}, {3.688274942101898*^9, 3.6882749535919147`*^9}, 3.688275290273386*^9, {3.688275581803794*^9, 3.6882755933138103`*^9}, { 3.6882757272839975`*^9, 3.688275828054139*^9}, {3.688276055484457*^9, 3.688276151094591*^9}, {3.6883560558657007`*^9, 3.688356057165703*^9}, { 3.7512647267871175`*^9, 3.7512647590610733`*^9}, {3.751264793990218*^9, 3.7512648301846685`*^9}, {3.751264872706222*^9, 3.7512649601231127`*^9}, { 3.751265019656413*^9, 3.75126528704638*^9}, 3.7512653434396305`*^9, { 3.7512653792436924`*^9, 3.751265396942418*^9}, {3.783136140195486*^9, 3.7831362067059755`*^9}, {3.7831362563945475`*^9, 3.7831363329253793`*^9}, {3.783136468046363*^9, 3.783136561717618*^9}, 3.783414420745185*^9, {3.7834144548624296`*^9, 3.7834145030225706`*^9}, { 3.783762907311827*^9, 3.7837629354147706`*^9}, {3.8146816513188615`*^9, 3.8146816736399136`*^9}, {3.8146817181289225`*^9, 3.814681745362296*^9}, { 3.814681777169162*^9, 3.8146818790183187`*^9}, {3.814682942052958*^9, 3.814682947975092*^9}, {3.8146835350411577`*^9, 3.814683599164892*^9}, { 3.8146836458256226`*^9, 3.814683675048786*^9}, {3.8146837237910833`*^9, 3.8146837328616557`*^9}, {3.814684161537176*^9, 3.8146841830522423`*^9}, { 3.8146842421259995`*^9, 3.814684242265738*^9}, {3.8146843153737974`*^9, 3.814684318971287*^9}, {3.814684425117116*^9, 3.814684479979563*^9}, { 3.8146847451409407`*^9, 3.8146847707141466`*^9}, {3.847104851703741*^9, 3.8471048787165112`*^9}, {3.8777568208732224`*^9, 3.8777568407646284`*^9}, {3.909368703074834*^9, 3.9093687181008925`*^9}, { 3.909368750457572*^9, 3.9093687542642975`*^9}, {3.9093687938517237`*^9, 3.9093687962922583`*^9}, {3.9093689441908092`*^9, 3.909368994420817*^9}, { 3.909369028867297*^9, 3.909369035422368*^9}, {3.9093693409807*^9, 3.909369341143057*^9}, {3.9093694054081717`*^9, 3.909369406334135*^9}, { 3.909369460926341*^9, 3.909369483919083*^9}}, CellLabel-> "In[444]:=",ExpressionUUID->"fba6b4ba-32f8-409b-8f3d-90bb68c75a7d"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"model\"\>", HoldForm], TagBox["\<\"properties\"\>", HoldForm], TagBox["\<\"geometry\"\>", HoldForm]}, { TagBox["1", HoldForm], "PLANESTRESS", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7", ",", "6"}], "}"}], "]"}]}, { TagBox["2", HoldForm], "PLANESTRESS", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8", ",", "7"}], "}"}], "]"}]}, { TagBox["3", HoldForm], "PLANESTRESS", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9", ",", "8"}], "}"}], "]"}]}, { TagBox["4", HoldForm], "PLANESTRESS", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10", ",", "9"}], "}"}], "]"}]}, { TagBox["5", HoldForm], "FORCE", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["F", "L"], ",", FractionBox["F", "L"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}], "]"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2, 3, 4, 5}, { "model", "properties", "geometry"}}]]]}, {""}, { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"{X,Y,Z}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(u\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(u\\), \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\ \\(u\\), \\(Z\\)]\\)}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(Z\\)]\\)}\"\>", HoldForm]}, { TagBox["1", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["2", HoldForm], RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["3", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["4", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"3", " ", "L"}], ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", RowBox[{"uY", "[", "4", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["5", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"4", " ", "L"}], ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", RowBox[{"uY", "[", "5", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["6", HoldForm], RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["7", HoldForm], RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "7", "]"}], ",", RowBox[{"uY", "[", "7", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["8", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "8", "]"}], ",", RowBox[{"uY", "[", "8", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["9", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"3", " ", "L"}], ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "9", "]"}], ",", RowBox[{"uY", "[", "9", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["10", HoldForm], RowBox[{"{", RowBox[{ RowBox[{"4", " ", "L"}], ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "10", "]"}], ",", RowBox[{"uY", "[", "10", "]"}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, { "{X,Y,Z}", "{\!\(\*SubscriptBox[\(u\), \(X\)]\),\!\(\*SubscriptBox[\(u\), \(Y\ \)]\),\!\(\*SubscriptBox[\(u\), \(Z\)]\)}", "{\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\),\!\(\*SubscriptBox[\(\ \[Theta]\), \(Y\)]\),\!\(\*SubscriptBox[\(\[Theta]\), \(Z\)]\)}", "\[CurlyTheta]"}}]]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.909561433459015*^9}, CellLabel-> "Out[447]=",ExpressionUUID->"8fdb1ec5-2ead-4151-b48a-c794b9af3581"], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJyFkTsKwzAQRI0xQQRjdIWcxDpDIBcIuM5VfQSVU6pwocJFkmIKPWwcMOLt fHYhj/fnufRd171+3/89/pUZg9RiAEcwe/i6zxzAEZxxT76YM8d5Ra6yL7Vc kR9Smx/gD2Drzo/Ij/BHsHXnV9y/XszzfOzzXMgJPu7VSe9ZD/ewV3iv5hv2 bOit4A137Mjv8Pv/X+HP6BP2CXpBXugXdPv71N5n9j0D2LrvuyFvtj+ArWf0 CfsEvSAv9Au6/XfcZ/Y9I9i675uQn+CPYOsZfcI+QS/IC/2CXuYvCdiEPA== "], {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[Tiny]}], TagBox[ PolygonBox[{{1, 28, 29, 30}, {28, 11, 31, 29}, {30, 29, 32, 13}, {29, 31, 12, 32}, {11, 33, 34, 31}, {33, 2, 35, 34}, {31, 34, 36, 12}, {34, 35, 14, 36}, {13, 32, 37, 38}, {32, 12, 39, 37}, {38, 37, 40, 6}, {37, 39, 15, 40}, {12, 36, 41, 39}, {36, 14, 42, 41}, {39, 41, 43, 15}, {41, 42, 7, 43}, {2, 44, 45, 35}, {44, 16, 46, 45}, {35, 45, 47, 14}, {45, 46, 17, 47}, {16, 48, 49, 46}, {48, 3, 50, 49}, {46, 49, 51, 17}, {49, 50, 18, 51}, {14, 47, 52, 42}, {47, 17, 53, 52}, {42, 52, 54, 7}, {52, 53, 19, 54}, {17, 51, 55, 53}, {51, 18, 56, 55}, {53, 55, 57, 19}, {55, 56, 8, 57}, {3, 58, 59, 50}, {58, 20, 60, 59}, {50, 59, 61, 18}, {59, 60, 21, 61}, {20, 62, 63, 60}, {62, 4, 64, 63}, {60, 63, 65, 21}, {63, 64, 22, 65}, {18, 61, 66, 56}, {61, 21, 67, 66}, {56, 66, 68, 8}, {66, 67, 23, 68}, {21, 65, 69, 67}, {65, 22, 70, 69}, {67, 69, 71, 23}, {69, 70, 9, 71}, {4, 72, 73, 64}, {72, 24, 74, 73}, {64, 73, 75, 22}, {73, 74, 25, 75}, {24, 76, 77, 74}, {76, 5, 78, 77}, {74, 77, 79, 25}, {77, 78, 26, 79}, {22, 75, 80, 70}, {75, 25, 81, 80}, {70, 80, 82, 9}, {80, 81, 27, 82}, {25, 79, 83, 81}, {79, 26, 84, 83}, {81, 83, 85, 27}, {83, 84, 10, 85}}], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[CompressedData[" 1:eJyFkTsKwzAQRI0xQQRjdIWcxDpDIBcIuM5VfQSVU6pwocJFkmIKPWwcMOLt fHYhj/fnufRd171+3/89/pUZg9RiAEcwe/i6zxzAEZxxT76YM8d5Ra6yL7Vc kR9Smx/gD2Drzo/Ij/BHsHXnV9y/XszzfOzzXMgJPu7VSe9ZD/ewV3iv5hv2 bOit4A137Mjv8Pv/X+HP6BP2CXpBXugXdPv71N5n9j0D2LrvuyFvtj+ArWf0 CfsEvSAv9Au6/XfcZ/Y9I9i675uQn+CPYOsZfcI+QS/IC/2CXuYvCdiEPA== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{1, 28, 29, 30}, {28, 11, 31, 29}, {30, 29, 32, 13}, {29, 31, 12, 32}, {11, 33, 34, 31}, {33, 2, 35, 34}, {31, 34, 36, 12}, {34, 35, 14, 36}, {13, 32, 37, 38}, {32, 12, 39, 37}, {38, 37, 40, 6}, {37, 39, 15, 40}, {12, 36, 41, 39}, {36, 14, 42, 41}, {39, 41, 43, 15}, {41, 42, 7, 43}, {2, 44, 45, 35}, {44, 16, 46, 45}, {35, 45, 47, 14}, {45, 46, 17, 47}, {16, 48, 49, 46}, {48, 3, 50, 49}, {46, 49, 51, 17}, {49, 50, 18, 51}, {14, 47, 52, 42}, {47, 17, 53, 52}, {42, 52, 54, 7}, {52, 53, 19, 54}, {17, 51, 55, 53}, {51, 18, 56, 55}, {53, 55, 57, 19}, {55, 56, 8, 57}, {3, 58, 59, 50}, {58, 20, 60, 59}, {50, 59, 61, 18}, {59, 60, 21, 61}, {20, 62, 63, 60}, {62, 4, 64, 63}, {60, 63, 65, 21}, {63, 64, 22, 65}, {18, 61, 66, 56}, {61, 21, 67, 66}, {56, 66, 68, 8}, {66, 67, 23, 68}, {21, 65, 69, 67}, {65, 22, 70, 69}, {67, 69, 71, 23}, {69, 70, 9, 71}, {4, 72, 73, 64}, {72, 24, 74, 73}, {64, 73, 75, 22}, {73, 74, 25, 75}, {24, 76, 77, 74}, {76, 5, 78, 77}, {74, 77, 79, 25}, {77, 78, 26, 79}, {22, 75, 80, 70}, {75, 25, 81, 80}, {70, 80, 82, 9}, {80, 81, 27, 82}, {25, 79, 83, 81}, {79, 26, 84, 83}, {81, 83, 85, 27}, {83, 84, 10, 85}}], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}}]}, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}]], "Output", CellChangeTimes->{3.9095614335358095`*^9}, CellLabel-> "Out[449]=",ExpressionUUID->"d73ef79e-4efb-48ee-91b6-78e9c2b805b6"], Cell[BoxData["3.9810034732105293`"], "Output", CellChangeTimes->{3.909561435333603*^9}, CellLabel-> "Out[451]=",ExpressionUUID->"fa23dbf8-03a8-4358-ba77-8c5dc19958f6"], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxdlH9Q02UcxwcEBoSEOhwjmwEh4jaS1Etrfr4YztPB4Y1tSPmTWIemC+VC k7pTBO7UCXpoDl15BW2y8WsIXewqHDo65EoQJpt1k5IRjK+BAx1iuJ6n5/tP fO92u9d9Pp/3+/083+f5vpbzsVTpz2Kx5OiH/+c+sc3raqStPmAFOt5Yr7HC am+0KtgRTmXNjtboZVaoNz1QqOnFVOOP7Qq53Ar+vxr4appHiSUh72P+v9oE xLUQvaa2roKJKjcMTBO9D/OtkXcNbjjbTPSSPRkGA+JHjN5ZSlSL+W/lxZ6a oXE4J00Njr1zE0wHzw9qAsah4bkPPffn+A0ChzfmvWr0QfIzUo/PI/PNow2i w91uGOFYdurt86j7YDgcud0KshMxRRsd86i1T0h/7Xm2ZznKd2ucsJhL+qeV 7JyZq25gffTDFTW9kMoN0fJXoPV6rH/uxRw0SvqHteJQvJ7mPwg7mf63h+2r WtF6Oo50CNV0NJUwXxOhQPMT1fsSMf91j/R/Zi8W4vXv6iP8zaekP2qgqgjv B4fDCl75wSAEdd1wOfgWSM4qzJLudEJZzN7qNZ/3zdmPHuhvaFPHbxmHu+0L LK0SG5zKuFigEDmhzkf0gwIXX1vW6YWjXxcWR5us0BRwqZJb74U63Ybrj0ts MMN6dWqpyQctL6/yW19gg/Rz5uBUrRcEs2ReuI34Z6skDbkpw3P8R+D3RuJv /KqQ9/p7LkiJIvnDwirKulrG4NALxO96rZNXKnKBx4/4/eJR+naLXaAJIvmK ZDm8tko3RByv6G20B1C3mw71SfOtYP5JlrnEEUCpnzxLWrvbBtJSi0KA3qew RRv5XZYNGi4fi6xF/a5pkjdBMts7ZA+lVAfPsJvR/i/SJ3THOkKpF7OfysRy G2zqW7rmFfT+F5Uof/5HZoPBzJ6FKajOmSTzW9sZv1m/vAcZLmCVEb8grWkq TuaCDcUk3/60WMlYtRt6Gf1K8QnbdrkLQvqJfqcgXXsccVMayXPlC+3RSvR+ Zboz1Gk6gnJ/mX5vCN230ueqU2rEFas58XEo32+p5TH4PLHq3i1PRbxP1Xih HNUP0CQfV9BdrqbZlKl7l0WC72d4YjTmdzTLuFLUv679ZBw+n1yj2ShHHLr5 W99pVAcXmX/I+DX1TtIHUL4tG4mfZYHz+x2Ik/Qk3+2S/V2dKO8njP7KKNqj QPV6Rj9dHZMoRzzD5BF79OH1qP/WS3feUtNRVPHkQw0+/29eoxMxC0VJUziP mZ8rwOf98swRHWZ32GMervOcJF9edSf6PiyhtvY7NPh7M5/vL8TsNAfn4372 Be5/90fXsXwb5qKKfgGuiwbIvI7xU8FIIM63QkD88nfc4GM2hJF8cXtuZuP7 dozRNz6d2YTrJYz+xCN3Jua0GpJnak9XFe7/F/QakZI= "], {Hue[0.6, 0.3, 0.95], EdgeForm[{Hue[0.6, 0.3, 0.75], Thickness[Tiny]}], TagBox[ PolygonBox[{{1, 28, 29, 30}, {28, 11, 31, 29}, {30, 29, 32, 13}, {29, 31, 12, 32}, {11, 33, 34, 31}, {33, 2, 35, 34}, {31, 34, 36, 12}, {34, 35, 14, 36}, {13, 32, 37, 38}, {32, 12, 39, 37}, {38, 37, 40, 6}, {37, 39, 15, 40}, {12, 36, 41, 39}, {36, 14, 42, 41}, {39, 41, 43, 15}, {41, 42, 7, 43}, {2, 44, 45, 35}, {44, 16, 46, 45}, {35, 45, 47, 14}, {45, 46, 17, 47}, {16, 48, 49, 46}, {48, 3, 50, 49}, {46, 49, 51, 17}, {49, 50, 18, 51}, {14, 47, 52, 42}, {47, 17, 53, 52}, {42, 52, 54, 7}, {52, 53, 19, 54}, {17, 51, 55, 53}, {51, 18, 56, 55}, {53, 55, 57, 19}, {55, 56, 8, 57}, {3, 58, 59, 50}, {58, 20, 60, 59}, {50, 59, 61, 18}, {59, 60, 21, 61}, {20, 62, 63, 60}, {62, 4, 64, 63}, {60, 63, 65, 21}, {63, 64, 22, 65}, {18, 61, 66, 56}, {61, 21, 67, 66}, {56, 66, 68, 8}, {66, 67, 23, 68}, {21, 65, 69, 67}, {65, 22, 70, 69}, {67, 69, 71, 23}, {69, 70, 9, 71}, {4, 72, 73, 64}, {72, 24, 74, 73}, {64, 73, 75, 22}, {73, 74, 25, 75}, {24, 76, 77, 74}, {76, 5, 78, 77}, {74, 77, 79, 25}, {77, 78, 26, 79}, {22, 75, 80, 70}, {75, 25, 81, 80}, {70, 80, 82, 9}, {80, 81, 27, 82}, {25, 79, 83, 81}, {79, 26, 84, 83}, {81, 83, 85, 27}, {83, 84, 10, 85}}], Annotation[#, "Geometry"]& ]}], GraphicsComplexBox[CompressedData[" 1:eJxdlH9Q02UcxwcEBoSEOhwjmwEh4jaS1Etrfr4YztPB4Y1tSPmTWIemC+VC k7pTBO7UCXpoDl15BW2y8WsIXewqHDo65EoQJpt1k5IRjK+BAx1iuJ6n5/tP fO92u9d9Pp/3+/083+f5vpbzsVTpz2Kx5OiH/+c+sc3raqStPmAFOt5Yr7HC am+0KtgRTmXNjtboZVaoNz1QqOnFVOOP7Qq53Ar+vxr4appHiSUh72P+v9oE xLUQvaa2roKJKjcMTBO9D/OtkXcNbjjbTPSSPRkGA+JHjN5ZSlSL+W/lxZ6a oXE4J00Njr1zE0wHzw9qAsah4bkPPffn+A0ChzfmvWr0QfIzUo/PI/PNow2i w91uGOFYdurt86j7YDgcud0KshMxRRsd86i1T0h/7Xm2ZznKd2ucsJhL+qeV 7JyZq25gffTDFTW9kMoN0fJXoPV6rH/uxRw0SvqHteJQvJ7mPwg7mf63h+2r WtF6Oo50CNV0NJUwXxOhQPMT1fsSMf91j/R/Zi8W4vXv6iP8zaekP2qgqgjv B4fDCl75wSAEdd1wOfgWSM4qzJLudEJZzN7qNZ/3zdmPHuhvaFPHbxmHu+0L LK0SG5zKuFigEDmhzkf0gwIXX1vW6YWjXxcWR5us0BRwqZJb74U63Ybrj0ts MMN6dWqpyQctL6/yW19gg/Rz5uBUrRcEs2ReuI34Z6skDbkpw3P8R+D3RuJv /KqQ9/p7LkiJIvnDwirKulrG4NALxO96rZNXKnKBx4/4/eJR+naLXaAJIvmK ZDm8tko3RByv6G20B1C3mw71SfOtYP5JlrnEEUCpnzxLWrvbBtJSi0KA3qew RRv5XZYNGi4fi6xF/a5pkjdBMts7ZA+lVAfPsJvR/i/SJ3THOkKpF7OfysRy G2zqW7rmFfT+F5Uof/5HZoPBzJ6FKajOmSTzW9sZv1m/vAcZLmCVEb8grWkq TuaCDcUk3/60WMlYtRt6Gf1K8QnbdrkLQvqJfqcgXXsccVMayXPlC+3RSvR+ Zboz1Gk6gnJ/mX5vCN230ueqU2rEFas58XEo32+p5TH4PLHq3i1PRbxP1Xih HNUP0CQfV9BdrqbZlKl7l0WC72d4YjTmdzTLuFLUv679ZBw+n1yj2ShHHLr5 W99pVAcXmX/I+DX1TtIHUL4tG4mfZYHz+x2Ik/Qk3+2S/V2dKO8njP7KKNqj QPV6Rj9dHZMoRzzD5BF79OH1qP/WS3feUtNRVPHkQw0+/29eoxMxC0VJUziP mZ8rwOf98swRHWZ32GMervOcJF9edSf6PiyhtvY7NPh7M5/vL8TsNAfn4372 Be5/90fXsXwb5qKKfgGuiwbIvI7xU8FIIM63QkD88nfc4GM2hJF8cXtuZuP7 dozRNz6d2YTrJYz+xCN3Jua0GpJnak9XFe7/F/QakZI= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{1, 28, 29, 30}, {28, 11, 31, 29}, {30, 29, 32, 13}, {29, 31, 12, 32}, {11, 33, 34, 31}, {33, 2, 35, 34}, {31, 34, 36, 12}, {34, 35, 14, 36}, {13, 32, 37, 38}, {32, 12, 39, 37}, {38, 37, 40, 6}, {37, 39, 15, 40}, {12, 36, 41, 39}, {36, 14, 42, 41}, {39, 41, 43, 15}, {41, 42, 7, 43}, {2, 44, 45, 35}, {44, 16, 46, 45}, {35, 45, 47, 14}, {45, 46, 17, 47}, {16, 48, 49, 46}, {48, 3, 50, 49}, {46, 49, 51, 17}, {49, 50, 18, 51}, {14, 47, 52, 42}, {47, 17, 53, 52}, {42, 52, 54, 7}, {52, 53, 19, 54}, {17, 51, 55, 53}, {51, 18, 56, 55}, {53, 55, 57, 19}, {55, 56, 8, 57}, {3, 58, 59, 50}, {58, 20, 60, 59}, {50, 59, 61, 18}, {59, 60, 21, 61}, {20, 62, 63, 60}, {62, 4, 64, 63}, {60, 63, 65, 21}, {63, 64, 22, 65}, {18, 61, 66, 56}, {61, 21, 67, 66}, {56, 66, 68, 8}, {66, 67, 23, 68}, {21, 65, 69, 67}, {65, 22, 70, 69}, {67, 69, 71, 23}, {69, 70, 9, 71}, {4, 72, 73, 64}, {72, 24, 74, 73}, {64, 73, 75, 22}, {73, 74, 25, 75}, {24, 76, 77, 74}, {76, 5, 78, 77}, {74, 77, 79, 25}, {77, 78, 26, 79}, {22, 75, 80, 70}, {75, 25, 81, 80}, {70, 80, 82, 9}, {80, 81, 27, 82}, {25, 79, 83, 81}, {79, 26, 84, 83}, {81, 83, 85, 27}, {83, 84, 10, 85}}], Annotation[#, "Geometry"]& ], {Hue[0.125, 0.5, 0.95], AbsolutePointSize[5], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}}]}, Boxed -> True, SphericalRegion -> True, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm]}, PlotRange->{{-1.6086816574819929`, 9.589685158168814}, {-1.6086816574819929`, 2.608681657481993}}]], "Output", CellChangeTimes->{3.9095614353834715`*^9}, CellLabel-> "Out[452]=",ExpressionUUID->"f85f1bd9-f752-4d39-bb42-9a94877cc9e5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (plane stress)", "Subsubsection", CellChangeTimes->{{3.4736023870954*^9, 3.4736023880782003`*^9}, { 3.510384108059813*^9, 3.510384119371715*^9}, {3.6028138023903317`*^9, 3.6028138109828234`*^9}, 3.6028178176958942`*^9, {3.688120877010228*^9, 3.688120877130228*^9}, 3.6883571447492256`*^9, 3.7512851902667027`*^9, 3.783411128547967*^9},ExpressionUUID->"4ba5a090-536d-404b-8256-\ 038c66bbe544"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"STRESS", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5054687231944*^9, 3.5054687305576*^9}, { 3.5057268781428127`*^9, 3.505726878383263*^9}, {3.506238124130774*^9, 3.5062381889354486`*^9}, {3.506238242404757*^9, 3.506238242834897*^9}, { 3.510384295148356*^9, 3.5103843381089993`*^9}, {3.510384369917561*^9, 3.510384396077835*^9}, {3.510384452713147*^9, 3.5103844533633633`*^9}, { 3.602245412938677*^9, 3.6022454413953047`*^9}, {3.602249912726405*^9, 3.602249951757674*^9}, {3.6028138246736064`*^9, 3.602814240969417*^9}, 3.6028142716121693`*^9, {3.633942335687601*^9, 3.633942337802722*^9}, { 3.688357149319232*^9, 3.688357255839381*^9}, {3.783416782568739*^9, 3.7834168408032184`*^9}, {3.7834170282657995`*^9, 3.7834171589024577`*^9}, 3.847104941965269*^9, {3.8471053403222413`*^9, 3.8471053420873814`*^9}, { 3.8471061477820587`*^9, 3.8471061676783404`*^9}, {3.8471062981363697`*^9, 3.847106299416054*^9}, {3.909369541251444*^9, 3.909369542266424*^9}, { 3.9093699802607927`*^9, 3.909369990021185*^9}, {3.9093723083951597`*^9, 3.9093723578432293`*^9}, {3.909372431587866*^9, 3.9093724553468266`*^9}, { 3.9093725383998938`*^9, 3.909372547546206*^9}, {3.9093728660218987`*^9, 3.9093728767703485`*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"641c0c3f-6311-4e0e-9c23-07642290a680"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (plane strain)", "Subsubsection", CellChangeTimes->{{3.4736023870954*^9, 3.4736023880782003`*^9}, { 3.510384108059813*^9, 3.510384119371715*^9}, {3.6028138023903317`*^9, 3.6028138109828234`*^9}, 3.6028178176958942`*^9, {3.688120877010228*^9, 3.688120877130228*^9}, 3.6883571447492256`*^9, {3.6883582990628414`*^9, 3.688358302682847*^9}, 3.751285302493861*^9, 3.78341113205847*^9},ExpressionUUID->"fcc8fbfc-b811-457e-b206-\ a9409d2364e5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "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"}], "}"}]}], "}"}], ",", " ", "\[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[{"STRESS", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5054687231944*^9, 3.5054687305576*^9}, { 3.5057268781428127`*^9, 3.505726878383263*^9}, {3.506238124130774*^9, 3.5062381889354486`*^9}, {3.506238242404757*^9, 3.506238242834897*^9}, { 3.510384295148356*^9, 3.5103843381089993`*^9}, {3.510384369917561*^9, 3.510384396077835*^9}, {3.510384452713147*^9, 3.5103844533633633`*^9}, { 3.602245412938677*^9, 3.6022454413953047`*^9}, {3.602249912726405*^9, 3.602249951757674*^9}, {3.6028138246736064`*^9, 3.602814240969417*^9}, 3.6028142716121693`*^9, {3.633942335687601*^9, 3.633942337802722*^9}, { 3.688357149319232*^9, 3.688357255839381*^9}, 3.688358311082858*^9, { 3.688358494333115*^9, 3.6883585758232293`*^9}, {3.6883586324233084`*^9, 3.688358708503415*^9}, {3.7834174680762053`*^9, 3.7834175425331903`*^9}, { 3.783417678514696*^9, 3.7834176800013*^9}, {3.847106865163937*^9, 3.847106887141971*^9}, {3.909370018141426*^9, 3.909370037069419*^9}, { 3.90937021419998*^9, 3.9093702187842607`*^9}}, CellLabel-> "In[428]:=",ExpressionUUID->"dafba73c-a33b-4816-87cd-b17e6d2d57d9"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (plane stress and quadrilateral element)", \ "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512854740185995`*^9, 3.783411134459617*^9},ExpressionUUID->"87025aae-7f52-4432-b63c-\ 091a4384afe2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.751285580053713*^9, 3.751285833215563*^9}, {3.751285892965088*^9, 3.7512859156455746`*^9}, {3.751294088336151*^9, 3.7512940931475315`*^9}, { 3.783418071831477*^9, 3.7834181885242443`*^9}, 3.783418236823071*^9, { 3.783418291744519*^9, 3.7834182959590034`*^9}, 3.7834183333518777`*^9, { 3.8471069141248784`*^9, 3.8471069421181917`*^9}, 3.877756987310091*^9, { 3.909370376467125*^9, 3.909370378132924*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"19202e85-a8b7-451f-acab-fb833b3b3ccc"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (plane-strain and triangle element)", "Subsubsection", CellChangeTimes->{{3.4461858096703997`*^9, 3.44618581577*^9}, { 3.4783088292724*^9, 3.4783088356372004`*^9}, {3.5729451980670743`*^9, 3.5729452013274803`*^9}, 3.634787589927311*^9, 3.688031803936941*^9, { 3.688117392322846*^9, 3.688117392412846*^9}, {3.6881180219237275`*^9, 3.688118024413731*^9}, 3.7512860362241287`*^9, 3.7834111369610033`*^9, 3.7834196335019827`*^9},ExpressionUUID->"853866ea-ee39-426e-96a1-\ 2916848e162b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", 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[{ 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[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4461842708238*^9, 3.4461843475914*^9}, { 3.4461843871998*^9, 3.4461844674119997`*^9}, {3.4461853601563997`*^9, 3.4461853767392*^9}, {3.4783088965084*^9, 3.4783088977564*^9}, { 3.572945229220329*^9, 3.572945297002448*^9}, {3.6346134851637907`*^9, 3.634613588842721*^9}, {3.6880313492463045`*^9, 3.688031391596364*^9}, { 3.688031580176628*^9, 3.688031647186722*^9}, {3.6880317197768235`*^9, 3.6880317538868713`*^9}, {3.6881176412631946`*^9, 3.6881176433231974`*^9}, { 3.751286068129795*^9, 3.7512860773364754`*^9}, {3.783421969943163*^9, 3.7834219716681995`*^9}, {3.7834220073531075`*^9, 3.7834220108029203`*^9}, { 3.7834220663980036`*^9, 3.783422078032855*^9}, {3.8471069825425653`*^9, 3.8471069845553446`*^9}, {3.9093704040788655`*^9, 3.909370408728615*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"c2f55bc7-9cf5-4ddb-8a6e-5056caf68bce"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"convergence", " ", "test"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"L", "->", "1."}], ",", RowBox[{"g", "\[Rule]", "1"}], ",", RowBox[{"\[Rho]", "\[Rule]", "1"}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"uY", "[", "3", "]"}], "/.", "sol"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.783419604382059*^9, 3.7834196128121147`*^9}, { 3.783421277872789*^9, 3.7834212872728357`*^9}, {3.783421317972748*^9, 3.7834214038929396`*^9}, {3.7834214856429477`*^9, 3.7834215014228325`*^9}, 3.783421535693192*^9, {3.909370436978438*^9, 3.909370442545966*^9}, { 3.9093704733557177`*^9, 3.9093704734557843`*^9}, {3.9093718633041816`*^9, 3.909371864205747*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"a39c217b-ca7f-433e-bba4-75cd4e775db0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "0.21963824289405687`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "0.22428561498854974`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "0.22975805509862754`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "0.2321951825943476`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.9093704590394263`*^9, 3.9093718787349005`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"e48a6300-66f8-4b78-805d-7c53532c9bdb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (plane stress and triangle element)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.688110133856064*^9, 3.6881101339760647`*^9}, { 3.6883582796828146`*^9, 3.6883582809828167`*^9}, 3.7512863987413254`*^9, 3.783411156488371*^9},ExpressionUUID->"8797b216-03e0-4b5d-a390-\ 4c6d37872327"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[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[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.688110144646079*^9, 3.6881101479260836`*^9}, {3.6881101891961412`*^9, 3.688110255926235*^9}, { 3.6881104170464606`*^9, 3.6881104221664677`*^9}, {3.688110496386572*^9, 3.6881105349266253`*^9}, {3.688110575236682*^9, 3.6881105779866858`*^9}, { 3.68811063814677*^9, 3.688110651326789*^9}, {3.6881108547670736`*^9, 3.6881108996871367`*^9}, {3.688110987457259*^9, 3.6881110692673736`*^9}, 3.6883594326044283`*^9, {3.72096758139988*^9, 3.720967715517316*^9}, { 3.720967872491661*^9, 3.7209679097843013`*^9}, {3.720967966700378*^9, 3.7209679852210083`*^9}, {3.75128641355925*^9, 3.7512864451014056`*^9}, { 3.844325968071072*^9, 3.8443259703209887`*^9}, {3.8443260004516954`*^9, 3.844326049912223*^9}, {3.844326107590131*^9, 3.844326122121071*^9}, { 3.844326314528557*^9, 3.844326368792054*^9}, {3.844326431967179*^9, 3.8443264487264233`*^9}, {3.8704786118635225`*^9, 3.8704786724249263`*^9}, {3.9093718885437098`*^9, 3.9093718896676197`*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"0806d1ce-ba9f-4957-99e0-fc2aeb1b483e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (plane stress and triangle element)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.688110133856064*^9, 3.6881101339760647`*^9}, { 3.6883582796828146`*^9, 3.6883582809828167`*^9}, 3.6883596219646935`*^9, 3.75128645803424*^9, 3.783411159759368*^9},ExpressionUUID->"ea2a79b4-de7b-4cf5-aa38-\ 7c54c347a04f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "g"}], " ", "\[Rho]", " ", "t"}], " ", ",", "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", ",", 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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.688110144646079*^9, 3.6881101479260836`*^9}, {3.6881101891961412`*^9, 3.688110255926235*^9}, { 3.6881104170464606`*^9, 3.6881104221664677`*^9}, {3.688110496386572*^9, 3.6881105349266253`*^9}, {3.688110575236682*^9, 3.6881105779866858`*^9}, { 3.68811063814677*^9, 3.688110651326789*^9}, {3.6881108547670736`*^9, 3.6881108996871367`*^9}, {3.688110987457259*^9, 3.6881110692673736`*^9}, 3.6883594326044283`*^9, {3.6883596508247337`*^9, 3.6883597232548356`*^9}, 3.6883597583558846`*^9, {3.751286472432746*^9, 3.7512864761907983`*^9}, 3.7512865090227356`*^9, {3.7834197868417845`*^9, 3.7834198677923117`*^9}, { 3.8471053803686666`*^9, 3.847105382502696*^9}, 3.8777571335759993`*^9, { 3.9022886977962894`*^9, 3.902288711626692*^9}, {3.9022888814462957`*^9, 3.9022888818993206`*^9}, {3.9022889247290125`*^9, 3.9022889249804907`*^9}, 3.902288995128527*^9, {3.909371910942055*^9, 3.909371912133131*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"94470b95-71e9-4693-8fdd-092c4a38527e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (plane strain and triangle element)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512866598973365`*^9, {3.75129147133146*^9, 3.7512914813759513`*^9}, 3.7834111629194775`*^9},ExpressionUUID->"552d5b3f-1777-4235-825e-\ f9297f00183b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", " ", "t"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.7512866791330085`*^9, 3.751286699056904*^9}, {3.751291492092165*^9, 3.751291497700221*^9}, {3.7512915335138044`*^9, 3.751291586517207*^9}, { 3.7512916190093207`*^9, 3.7512916380520096`*^9}, {3.7512916689903793`*^9, 3.7512916870333033`*^9}, {3.8471054128556395`*^9, 3.8471054187332287`*^9}, 3.8471071079858847`*^9, {3.8777650435534086`*^9, 3.8777650503559904`*^9}, { 3.909371927345963*^9, 3.9093719470581827`*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"21a689a9-7fe2-4f2d-b6c1-d7a79ffa8db3"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (plane stress and quadrilateral element)", \ "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512866598973365`*^9, 3.7834111662861013`*^9},ExpressionUUID->"fafa6ada-6521-4bba-a72c-\ 91f3cd64d070"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "f"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"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"}], "}"}]}], "}"}], ",", " ", "\[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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.7512866791330085`*^9, 3.751286699056904*^9}, {3.847105435228075*^9, 3.8471054957535906`*^9}, {3.8471057539628363`*^9, 3.847105756258417*^9}, { 3.909371961503026*^9, 3.9093719625781593`*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"bf4212de-4239-4023-9e56-847a714c0bd1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"convergence", " ", "test"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3."}]}], ",", RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "10"}], ",", RowBox[{"f", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", "0.1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"uX", "[", "4", "]"}], " ", "/.", " ", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "i"}], "]"}], " ", "/.", "val"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.7512866791330085`*^9, 3.751286699056904*^9}, {3.9093719780848017`*^9, 3.9093719853486657`*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"05bbf065-d021-44d8-aa49-1027d5dbb751"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (simple structure)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, { 3.7512867909464*^9, 3.7512867987070704`*^9}, {3.7834111712616377`*^9, 3.7834111782199583`*^9}},ExpressionUUID->"c1bf9ba8-53c0-4cce-9a0b-\ e8aec4b2cdd3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, 3.6883625134880257`*^9, {3.75128680622136*^9, 3.751286818104207*^9}, 3.783420148452202*^9, 3.7834202121523533`*^9, {3.8471058794263525`*^9, 3.8471058855386677`*^9}, {3.847105939919419*^9, 3.8471059418634677`*^9}, { 3.9093720080218945`*^9, 3.909372011079039*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"044b01b8-d5db-4f6a-9392-3c6afd92e820"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (solid and tetrahedron element)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6033418125511665`*^9, 3.6033418347656054`*^9}, {3.6881170847524157`*^9, 3.6881170848324156`*^9}, {3.751286848540131*^9, 3.7512868486330724`*^9}, 3.783411174761882*^9},ExpressionUUID->"15f4de20-d8ca-4ef8-8cfd-\ 86f0924dd91b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", 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", ",", "0", ",", "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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, {3.60334189409951*^9, 3.603341934706382*^9}, {3.6033420186657295`*^9, 3.603342095355464*^9}, { 3.603342177583208*^9, 3.603342191280032*^9}, {3.6033424047196074`*^9, 3.6033424056868086`*^9}, {3.6033424414576716`*^9, 3.6033427834882727`*^9}, {3.6033428137835255`*^9, 3.603342919099311*^9}, { 3.6033430329795103`*^9, 3.6033430442739305`*^9}, {3.6308937722659883`*^9, 3.6308938790949755`*^9}, {3.630895187999675*^9, 3.630895358741975*^9}, 3.634613126106254*^9, {3.6346132226047735`*^9, 3.634613259930908*^9}, { 3.687865467869472*^9, 3.687865590772502*^9}, {3.687865713387515*^9, 3.687865720219906*^9}, {3.687866306081375*^9, 3.687866311132664*^9}, { 3.6881171221824675`*^9, 3.688117210052591*^9}, {3.688117280242689*^9, 3.6881173384027705`*^9}, {3.7512914164690323`*^9, 3.7512914264358044`*^9}, {3.7740745374419465`*^9, 3.774074540614051*^9}, 3.7740746751866093`*^9, {3.774088990817813*^9, 3.7740890894928274`*^9}, { 3.774089190613978*^9, 3.774089191916827*^9}, 3.77408927951208*^9, { 3.7741518143458586`*^9, 3.774151849722659*^9}, {3.774151930011162*^9, 3.774151930390722*^9}, 3.774164289798223*^9, {3.774166900868268*^9, 3.7741669037162633`*^9}, {3.7741669696447077`*^9, 3.774166969979418*^9}, { 3.7741670136923437`*^9, 3.7741670234041023`*^9}, {3.774167062886531*^9, 3.7741670937992363`*^9}, {3.774168362801942*^9, 3.774168364045298*^9}, { 3.774168410304835*^9, 3.774168552089986*^9}, 3.774168583189966*^9, { 3.7834202694421997`*^9, 3.7834203169122524`*^9}, {3.7834203932726946`*^9, 3.783420418092345*^9}, {3.909372050957055*^9, 3.9093720526454606`*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"d4360ee2-8ec7-48fd-895c-cfbb96e726a0"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, {3.6883031146344156`*^9, 3.688303126044431*^9}, { 3.688378737315959*^9, 3.6883787409759645`*^9}, {3.6888905293623123`*^9, 3.6888905307023144`*^9}, 3.751336483704151*^9, {3.877754560747393*^9, 3.87775456396706*^9}},ExpressionUUID->"39fa591e-e445-4b5d-b1e1-\ b5899c6b884f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", " ", SubscriptBox["k", "1"]}], ",", RowBox[{"h", " ", SubscriptBox["k", "3"]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "h"}], " ", SubscriptBox["k", "3"]}], ",", RowBox[{"h", " ", SubscriptBox["k", "2"]}], ",", "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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STRESS", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, { 3.6883031354444447`*^9, 3.688303304504681*^9}, {3.6883033462647395`*^9, 3.6883033615747614`*^9}, {3.688303626345132*^9, 3.688303628435135*^9}, { 3.688303805025382*^9, 3.6883038634454637`*^9}, {3.6883048468268404`*^9, 3.688304864146865*^9}, {3.688304935576965*^9, 3.688305011527071*^9}, { 3.6883051211172247`*^9, 3.688305286687456*^9}, {3.688305381527589*^9, 3.6883054162776375`*^9}, 3.688305538647809*^9, {3.6883066712393947`*^9, 3.688306678589405*^9}, {3.6883073609303603`*^9, 3.6883073611403604`*^9}, { 3.688378751475979*^9, 3.688378833816094*^9}, {3.6883788682461424`*^9, 3.6883789212262163`*^9}, {3.6883789819763017`*^9, 3.688378982396302*^9}, { 3.688890539042326*^9, 3.6888906222624426`*^9}, {3.688890654752488*^9, 3.688890709112564*^9}, {3.7513389111022406`*^9, 3.751339063413638*^9}, { 3.751339125759699*^9, 3.751339127118745*^9}, {3.7513391918423934`*^9, 3.7513391939512653`*^9}, {3.751339426226322*^9, 3.751339427944371*^9}, { 3.7513394660450926`*^9, 3.7513394828220863`*^9}, {3.783410969479591*^9, 3.783411009923984*^9}, {3.8150998710943346`*^9, 3.8150998947619553`*^9}, { 3.847107393673952*^9, 3.8471073982072244`*^9}, {3.9093720734852962`*^9, 3.90937207464921*^9}, {3.9093731902931013`*^9, 3.9093732057306576`*^9}, { 3.909374754508527*^9, 3.9093747554255095`*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"ac35a57a-ebb6-4314-a262-e59e1b8e461c"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, {3.6883031146344156`*^9, 3.688303126044431*^9}, { 3.688378737315959*^9, 3.6883787409759645`*^9}, {3.6888905293623123`*^9, 3.6888905307023144`*^9}, 3.7513403267221117`*^9, {3.877754567063425*^9, 3.8777545716734257`*^9}},ExpressionUUID->"f9fb5a78-a6f5-46a9-98f8-\ ca704f2b0012"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, { 3.6883031354444447`*^9, 3.688303304504681*^9}, {3.6883033462647395`*^9, 3.6883033615747614`*^9}, {3.688303626345132*^9, 3.688303628435135*^9}, { 3.688303805025382*^9, 3.6883038634454637`*^9}, {3.6883048468268404`*^9, 3.688304864146865*^9}, {3.688304935576965*^9, 3.688305011527071*^9}, { 3.6883051211172247`*^9, 3.688305286687456*^9}, {3.688305381527589*^9, 3.6883054162776375`*^9}, 3.688305538647809*^9, {3.6883066712393947`*^9, 3.688306678589405*^9}, {3.6883073609303603`*^9, 3.6883073611403604`*^9}, { 3.688378751475979*^9, 3.688378833816094*^9}, {3.6883788682461424`*^9, 3.6883789212262163`*^9}, {3.6883789819763017`*^9, 3.688378982396302*^9}, { 3.688890539042326*^9, 3.6888906222624426`*^9}, {3.688890654752488*^9, 3.688890709112564*^9}, {3.7513403335174685`*^9, 3.7513403654627843`*^9}, 3.783411034364565*^9, {3.847107446524934*^9, 3.847107453654496*^9}, 3.8777652857426033`*^9, {3.909372968023572*^9, 3.9093729691751566`*^9}}, CellLabel-> "In[454]:=",ExpressionUUID->"37108704-f0be-414f-8a75-dddc274860bb"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Delta]W = -\"\>", "\[InvisibleSpace]", SuperscriptBox[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"\[Delta]uY", "[", "2", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "T"], "\[InvisibleSpace]", "\<\"(\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox[ RowBox[{ SqrtBox[ SuperscriptBox["L", "4"]], " ", "t", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "\[Nu]"}], ")"}]}], RowBox[{"4", " ", SuperscriptBox["L", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"uY", "[", "2", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["\[Delta]W = -", MatrixForm[{ $CellContext`\[Delta]uY[2]}]^$CellContext`T, "(", MatrixForm[{{ Rational[1, 4] $CellContext`L^(-2) ($CellContext`L^4)^ Rational[ 1, 2] $CellContext`t $CellContext`\[CapitalEpsilon] (-3 + \ $CellContext`\[Nu])/(-1 + $CellContext`\[Nu]^2)}}], "", MatrixForm[{ $CellContext`uY[2]}], "-", MatrixForm[{0}], ")"], Editable->False]], "Print", CellChangeTimes->{3.909563229595507*^9}, CellLabel-> "During evaluation of \ In[454]:=",ExpressionUUID->"99c4d12d-0d7b-4699-aa8a-f709d780b918"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Assignment 3", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, {3.6883031146344156`*^9, 3.688303126044431*^9}, { 3.6883787332359533`*^9, 3.6883787339959545`*^9}, 3.7512917511657004`*^9, { 3.8777545748190746`*^9, 3.8777545822656174`*^9}},ExpressionUUID->"3811eb31-ffe5-43ac-905b-\ e7cd32b868b2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"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[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, { 3.6883031354444447`*^9, 3.688303304504681*^9}, {3.6883033462647395`*^9, 3.6883033615747614`*^9}, {3.688303626345132*^9, 3.688303628435135*^9}, { 3.688303805025382*^9, 3.6883038634454637`*^9}, {3.6883048468268404`*^9, 3.688304864146865*^9}, {3.688304935576965*^9, 3.688305011527071*^9}, { 3.6883051211172247`*^9, 3.688305286687456*^9}, {3.688305381527589*^9, 3.6883054162776375`*^9}, 3.688305538647809*^9, {3.6883066712393947`*^9, 3.688306678589405*^9}, {3.6883073609303603`*^9, 3.6883073611403604`*^9}, { 3.7512941803923516`*^9, 3.751294216852568*^9}, 3.7513362298191566`*^9, { 3.7834079295612755`*^9, 3.7834080378411207`*^9}, {3.7834081631031685`*^9, 3.783408169935551*^9}, {3.78340822475251*^9, 3.7834082459425187`*^9}, { 3.8146981394704695`*^9, 3.8146981521078434`*^9}, {3.8471072176550417`*^9, 3.8471072447359686`*^9}, {3.909372986358827*^9, 3.9093730019360437`*^9}}, CellLabel-> "In[157]:=",ExpressionUUID->"091e8c0b-c36a-4b77-a935-ede796d3a61a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, {3.6883031146344156`*^9, 3.688303126044431*^9}, { 3.688378737315959*^9, 3.6883787409759645`*^9}, 3.7512917555706644`*^9, { 3.8777545860265026`*^9, 3.877754591321806*^9}},ExpressionUUID->"9ae23928-f42b-4fd5-8b60-\ 2e031f841d21"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "f"}], ",", RowBox[{"-", "f"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "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"}], "}"}]}], "}"}], ",", " ", "\[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[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, { 3.6883031354444447`*^9, 3.688303304504681*^9}, {3.6883033462647395`*^9, 3.6883033615747614`*^9}, {3.688303626345132*^9, 3.688303628435135*^9}, { 3.688303805025382*^9, 3.6883038634454637`*^9}, {3.6883048468268404`*^9, 3.688304864146865*^9}, {3.688304935576965*^9, 3.688305011527071*^9}, { 3.6883051211172247`*^9, 3.688305286687456*^9}, {3.688305381527589*^9, 3.6883054162776375`*^9}, 3.688305538647809*^9, {3.6883066712393947`*^9, 3.688306678589405*^9}, {3.6883073609303603`*^9, 3.6883073611403604`*^9}, { 3.688378751475979*^9, 3.688378833816094*^9}, {3.6883788682461424`*^9, 3.6883789212262163`*^9}, {3.6883789819763017`*^9, 3.688378982396302*^9}, { 3.7833974018587823`*^9, 3.7833975528131633`*^9}, {3.7833976076990547`*^9, 3.783397608621016*^9}, {3.783397654343261*^9, 3.7833977964806194`*^9}, { 3.783401424896967*^9, 3.7834014535857573`*^9}, {3.7834082711179733`*^9, 3.783408273574458*^9}, {3.8146983555164332`*^9, 3.814698378940027*^9}, { 3.90937303732331*^9, 3.9093730389787903`*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"f00abee4-32b3-4252-b5a8-ffaf923f349f"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453610242333`*^9}, {3.6881165790617075`*^9, 3.6881165792117076`*^9}, {3.6883031146344156`*^9, 3.688303126044431*^9}, { 3.688378737315959*^9, 3.6883787409759645`*^9}, 3.7512917555706644`*^9, 3.751297603833567*^9, {3.8777545937463293`*^9, 3.8777545989465733`*^9}},ExpressionUUID->"13c1fbf3-447a-42fa-a632-\ 36a3585d6cd8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"PLANESTRESS", ",", 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[{ 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[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, {3.5729261320974627`*^9, 3.572926321762596*^9}, {3.6031687440128527`*^9, 3.6031687449332542`*^9}, { 3.6031687982229476`*^9, 3.603168824633794*^9}, 3.6320402368949633`*^9, { 3.63204174146702*^9, 3.632041851912337*^9}, {3.6345434606482954`*^9, 3.6345435150414066`*^9}, {3.6345436615827885`*^9, 3.6345436977558575`*^9}, {3.6346117997963934`*^9, 3.6346118340633535`*^9}, 3.634611896179906*^9, {3.634612071313923*^9, 3.634612092485134*^9}, { 3.6346126773445864`*^9, 3.6346126847480097`*^9}, {3.6351291866120987`*^9, 3.6351292015219517`*^9}, {3.6351292397031355`*^9, 3.635129328728227*^9}, 3.6351293922568607`*^9, {3.6351294387045174`*^9, 3.6351294417016892`*^9}, { 3.635129484220121*^9, 3.6351295151848917`*^9}, 3.635129702328596*^9, { 3.635134078836198*^9, 3.635134093755051*^9}, 3.6351342697581177`*^9, 3.6351343217400913`*^9, 3.6351343584501905`*^9, {3.666087996034772*^9, 3.6660880025491447`*^9}, {3.666088047506716*^9, 3.666088076054349*^9}, { 3.687939828704934*^9, 3.6879398594649773`*^9}, {3.687944819931922*^9, 3.687944926122071*^9}, {3.6879453317526383`*^9, 3.687945334232642*^9}, { 3.6880233804029846`*^9, 3.68802340568302*^9}, {3.6880234410630693`*^9, 3.6880234439030733`*^9}, {3.6880234879931355`*^9, 3.6880234991531506`*^9}, {3.688023679763404*^9, 3.68802371252345*^9}, 3.688023821443602*^9, {3.6880238794336834`*^9, 3.6880239003237123`*^9}, { 3.688023955023789*^9, 3.6880239983138494`*^9}, {3.6881166034017415`*^9, 3.688116615111758*^9}, {3.6881167209119062`*^9, 3.68811687358212*^9}, 3.68811698795228*^9, {3.6881170302923393`*^9, 3.688117055682375*^9}, { 3.6883031354444447`*^9, 3.688303304504681*^9}, {3.6883033462647395`*^9, 3.6883033615747614`*^9}, {3.688303626345132*^9, 3.688303628435135*^9}, { 3.688303805025382*^9, 3.6883038634454637`*^9}, {3.6883048468268404`*^9, 3.688304864146865*^9}, {3.688304935576965*^9, 3.688305011527071*^9}, { 3.6883051211172247`*^9, 3.688305286687456*^9}, {3.688305381527589*^9, 3.6883054162776375`*^9}, 3.688305538647809*^9, {3.6883066712393947`*^9, 3.688306678589405*^9}, {3.6883073609303603`*^9, 3.6883073611403604`*^9}, { 3.688378751475979*^9, 3.688378833816094*^9}, {3.6883788682461424`*^9, 3.6883789212262163`*^9}, {3.6883789819763017`*^9, 3.688378982396302*^9}, { 3.751297613252968*^9, 3.7512976494009695`*^9}, {3.751297683221142*^9, 3.7512977465343695`*^9}, {3.783408336117815*^9, 3.783408402637492*^9}, 3.7834084682286525`*^9, {3.7834085074770174`*^9, 3.783408514700861*^9}, { 3.783408609187885*^9, 3.7834086196732087`*^9}, {3.7834086672237244`*^9, 3.7834086691281414`*^9}, {3.783408830962015*^9, 3.7834088329216003`*^9}, { 3.847107338442585*^9, 3.847107340912531*^9}, {3.9093730508229733`*^9, 3.909373055807969*^9}}, CellLabel-> "In[165]:=",ExpressionUUID->"7eafe735-db3a-44a5-ab56-67fa5444635f"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["BEAM AND PLATE MODELS (week 48)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, { 3.4742602258717394`*^9, 3.4742602349087396`*^9}, {3.4751533480335493`*^9, 3.4751533839809494`*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.4758461893361397`*^9, 3.4758462006617393`*^9}, {3.4782569733691998`*^9, 3.4782570107312*^9}, {3.4801235510838003`*^9, 3.480123567495*^9}, { 3.480123621705*^9, 3.480123624903*^9}, {3.574131782681972*^9, 3.574131786519579*^9}, {3.603722925089178*^9, 3.6037229351043954`*^9}, 3.629791681042527*^9, {3.634905179231354*^9, 3.634905187802844*^9}, { 3.6668793703995185`*^9, 3.666879373240728*^9}, 3.6852489702601957`*^9, { 3.6853235130135884`*^9, 3.685323515403592*^9}, {3.6860286448277264`*^9, 3.6860286455047655`*^9}, {3.686466654707692*^9, 3.686466688107739*^9}, { 3.686840182440504*^9, 3.6868401825505037`*^9}, 3.688364650699027*^9, 3.780755267207376*^9, {3.815546917621894*^9, 3.815546922914048*^9}, { 3.8738708035875063`*^9, 3.87387080392266*^9}},ExpressionUUID->"b7146cd7-5d2d-40f9-9dd4-\ df903f172f53"], Cell[CellGroupData[{ Cell["Lecture example 6.1a (Plate bending)", "Subsubsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, 3.6018936089046106`*^9, {3.664878906157814*^9, 3.6648789098394203`*^9}, { 3.6983882168251424`*^9, 3.6983882190651455`*^9}, {3.729841498400111*^9, 3.729841511714019*^9}, {3.7298438456432447`*^9, 3.729843846549593*^9}, { 3.751956438263767*^9, 3.7519564399821167`*^9}, 3.783656434955984*^9, 3.815546950985428*^9, 3.8155533887795944`*^9, {3.8437124429895773`*^9, 3.84371244543067*^9}, {3.843781012544642*^9, 3.843781018971984*^9}, { 3.8437810984980755`*^9, 3.8437811060259047`*^9}},ExpressionUUID->"b1f0f36e-4ef8-4687-b58e-\ b6b31014e1d6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "5"}], ",", RowBox[{"H", "->", "5"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", "0.3"}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Rho]", "->", " ", "8000"}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"fz", "->", " ", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], ",", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"wij", "=", RowBox[{ RowBox[{"16", FractionBox["fz", "DD"], FractionBox["1", RowBox[{"i", " ", "j", " ", SuperscriptBox["\[Pi]", "2"], " "}]], FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"i", " ", "\[Pi]", " ", "x"}], "L"], "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"j", " ", "\[Pi]", " ", "y"}], "H"], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", " ", "i"}], "L"], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", " ", "j"}], "H"], ")"}], "2"]}], ")"}], "2"]]}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"derived", " ", "terms"}], "*)"}], "\n", RowBox[{ RowBox[{"Mxxij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "wij"}], "+", RowBox[{"\[Nu]", "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "wij"}]}]}], ")"}]}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Myyij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "wij"}], "+", RowBox[{"\[Nu]", "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "wij"}]}]}], ")"}]}], "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxyij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "wij"}]}], "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qxij", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "Mxxij"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "Mxyij"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qyij", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "Myyij"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "Mxyij"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "quantities", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "21"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ws", "=", RowBox[{"ParallelSum", "[", RowBox[{"wij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxxs", "=", RowBox[{"ParallelSum", "[", RowBox[{"Mxxij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Myys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Myyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Mxyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qxs", "=", RowBox[{"ParallelSum", "[", RowBox[{"Qxij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Qyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fsize", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"#1", ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}], " ", "/.", "val"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "0", ",", "H"}], "}"}], " ", "/.", "val"}], "]"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"SphericalRegion", "->", "True"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "fsize"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Automatic", ",", "All"}], "}"}]}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ "ws", ",", "Mxxs", ",", "Myys", ",", "Mxys", ",", "Qxs", ",", "Qys"}], "}"}]}], "]"}], ",", "3"}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ws", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"5", "/", "2"}]}], ",", RowBox[{"y", "->", RowBox[{"5", "/", "2"}]}]}], "}"}]}]}]}]], "Input", CellChangeTimes->{{3.601313951267284*^9, 3.6013140252114134`*^9}, { 3.601314093711134*^9, 3.601314270787045*^9}, {3.6013143804084377`*^9, 3.601314473337801*^9}, {3.6013149788098884`*^9, 3.6013149882323055`*^9}, { 3.601340614118454*^9, 3.6013407373898706`*^9}, {3.60134077135113*^9, 3.6013409616246643`*^9}, {3.6013410067087436`*^9, 3.601341086268883*^9}, { 3.601341120557743*^9, 3.6013411387473755`*^9}, {3.601341251847574*^9, 3.601341291128443*^9}, {3.6013413215796967`*^9, 3.6013413257449036`*^9}, { 3.601341393651823*^9, 3.6013416705991096`*^9}, {3.6013417051375704`*^9, 3.601341724809205*^9}, {3.601341773980491*^9, 3.6013417869285135`*^9}, { 3.6013418901538954`*^9, 3.6013418908246965`*^9}, {3.601341940869584*^9, 3.601342003316494*^9}, {3.6013420798502283`*^9, 3.6013420878374424`*^9}, { 3.6013421442471414`*^9, 3.601342212278861*^9}, {3.601342248658125*^9, 3.6013422850685887`*^9}, {3.6013423513687053`*^9, 3.601342444157668*^9}, { 3.601342521409004*^9, 3.6013425273526144`*^9}, {3.6013425640594788`*^9, 3.6013425781775036`*^9}, {3.6013426110779614`*^9, 3.601342686145293*^9}, { 3.601342786437869*^9, 3.601342789230274*^9}, {3.6013428577455945`*^9, 3.601342863018404*^9}, {3.6013429094284854`*^9, 3.6013429182581005`*^9}, { 3.601342961048976*^9, 3.6013429880838237`*^9}, {3.6013430210622816`*^9, 3.601343064882758*^9}, {3.6013434076309605`*^9, 3.601343573287651*^9}, { 3.6013436285273485`*^9, 3.6013436334881573`*^9}, {3.601343670600622*^9, 3.6013437385543413`*^9}, {3.6013437701443973`*^9, 3.601343787164027*^9}, { 3.6013438278332987`*^9, 3.6013438388625183`*^9}, {3.601343873104578*^9, 3.6013438948978167`*^9}, 3.6013439274550734`*^9, {3.6013439625551353`*^9, 3.6013440811621437`*^9}, {3.6013441228922167`*^9, 3.601344308672943*^9}, { 3.601344546900962*^9, 3.601344548523364*^9}, {3.6013446565379543`*^9, 3.601344663464366*^9}, 3.6013457077950006`*^9, {3.601345758151889*^9, 3.6013457699143095`*^9}, {3.6013553145229216`*^9, 3.6013553209642897`*^9}, {3.60135565822058*^9, 3.601355667418106*^9}, 3.601355795222416*^9, 3.6013558538517694`*^9, 3.6013558876107006`*^9, { 3.601356829699139*^9, 3.60135692696531*^9}, {3.601356987104416*^9, 3.601356998320835*^9}, {3.6013570424377127`*^9, 3.601357045932119*^9}, { 3.601357118269446*^9, 3.6013571225906534`*^9}, {3.601357369479273*^9, 3.601357370424327*^9}, {3.6013574497938666`*^9, 3.601357453105056*^9}, { 3.601357520199894*^9, 3.6013575282613544`*^9}, {3.601357806887291*^9, 3.601357809292429*^9}, {3.601357884232715*^9, 3.6013579135581255`*^9}, { 3.601357949952989*^9, 3.60135795026499*^9}, {3.601358031993533*^9, 3.6013580320871334`*^9}, {3.601362738657782*^9, 3.6013628080077486`*^9}, { 3.6013628827610245`*^9, 3.6013628841501036`*^9}, {3.6013629148928623`*^9, 3.601362918095045*^9}, {3.6013640636965103`*^9, 3.6013640711065235`*^9}, { 3.6013643582562275`*^9, 3.601364358396628*^9}, {3.6013677590224004`*^9, 3.601367794808863*^9}, {3.601375836845947*^9, 3.6013758526175747`*^9}, { 3.601375998711831*^9, 3.601376186863762*^9}, 3.6013762366902494`*^9, { 3.601376325984806*^9, 3.6013763393852296`*^9}, {3.6013764020037394`*^9, 3.6013765606092176`*^9}, {3.6013766141329117`*^9, 3.6013766244289303`*^9}, {3.6013766900894456`*^9, 3.6013767180602946`*^9}, {3.6013767498843503`*^9, 3.6013768530005317`*^9}, {3.601376884184986*^9, 3.6013769402046847`*^9}, { 3.601378062205456*^9, 3.6013780778678827`*^9}, {3.6013783095906897`*^9, 3.601378350774762*^9}, {3.601378416513278*^9, 3.6013784166380777`*^9}, 3.6013785842915726`*^9, {3.6013798010625095`*^9, 3.60137982408815*^9}, 3.6013804517240524`*^9, {3.601434409144231*^9, 3.6014344404222856`*^9}, { 3.601434482136759*^9, 3.6014345019331937`*^9}, {3.60143459105615*^9, 3.6014346522862577`*^9}, {3.6014346924875283`*^9, 3.601434697541937*^9}, 3.6014347466352234`*^9, 3.601434806554929*^9, {3.601434976907228*^9, 3.601434983474839*^9}, {3.6016460476287994`*^9, 3.601646052932809*^9}, { 3.6016460985940886`*^9, 3.601646257589568*^9}, {3.6016462884620223`*^9, 3.601646289413624*^9}, {3.6016463880837975`*^9, 3.601646389222599*^9}, { 3.601646486894371*^9, 3.601646499015592*^9}, {3.60164653785966*^9, 3.6016468795938606`*^9}, {3.6016469317759523`*^9, 3.6016469762204304`*^9}, {3.6016470902878304`*^9, 3.6016471621415567`*^9}, {3.6016472342604837`*^9, 3.6016472790325623`*^9}, {3.601647315411826*^9, 3.601647376548333*^9}, { 3.6016474226620145`*^9, 3.6016475634210615`*^9}, 3.6016475935447145`*^9, { 3.6016476532772193`*^9, 3.601647668346846*^9}, {3.60164773330536*^9, 3.601647950239341*^9}, {3.601648056647128*^9, 3.6016480580667305`*^9}, { 3.6016480924023905`*^9, 3.601648263472291*^9}, {3.664874573877735*^9, 3.6648746136450047`*^9}, {3.6648746564066796`*^9, 3.6648746796039205`*^9}, {3.6648747193371897`*^9, 3.6648748515150213`*^9}, {3.6648749886080627`*^9, 3.664875099338057*^9}, { 3.664875165372973*^9, 3.6648751726269855`*^9}, {3.664875246103115*^9, 3.6648752857739844`*^9}, {3.664875329500861*^9, 3.664875376176143*^9}, { 3.6648755553091326`*^9, 3.664875885761033*^9}, {3.6648759162587776`*^9, 3.664875947703576*^9}, {3.6648760365246973`*^9, 3.6648760568203335`*^9}, { 3.664876156364108*^9, 3.6648761571129093`*^9}, {3.664876208140599*^9, 3.6648763971817307`*^9}, {3.6648764385374036`*^9, 3.664876511280331*^9}, { 3.6648786999878516`*^9, 3.664878830528881*^9}, {3.6980482838405857`*^9, 3.698048333130655*^9}, {3.69804845097182*^9, 3.6980484527018223`*^9}, { 3.6980486250220633`*^9, 3.698048627152066*^9}, {3.6980487261522055`*^9, 3.6980487608222537`*^9}, 3.6980489255834846`*^9, 3.6980489586135306`*^9, { 3.698124529974787*^9, 3.6981247658751173`*^9}, {3.698124852985239*^9, 3.6981248604952497`*^9}, {3.6981248980953026`*^9, 3.698124970945404*^9}, { 3.6981251279956245`*^9, 3.6981251586756673`*^9}, {3.698127679572028*^9, 3.698127755282134*^9}, {3.698127800582197*^9, 3.698128047222543*^9}, { 3.698128134272664*^9, 3.698128145882681*^9}, {3.6981282586728387`*^9, 3.6981282606728415`*^9}, {3.6981283393629513`*^9, 3.6981283607929816`*^9}, {3.6981284771131444`*^9, 3.698128512633194*^9}, { 3.6981287316955023`*^9, 3.6981287361755085`*^9}, {3.698387961654785*^9, 3.6983879877048216`*^9}, {3.6983880189948654`*^9, 3.698388020214867*^9}, { 3.698388078564949*^9, 3.6983881242550125`*^9}, 3.6983882227651505`*^9, { 3.730025600824583*^9, 3.730025755981753*^9}, {3.73002587851016*^9, 3.7300259422515697`*^9}, {3.815553468916843*^9, 3.8155535416649694`*^9}, { 3.8437323336539035`*^9, 3.843732552037575*^9}, {3.8437339030736995`*^9, 3.8437339152566767`*^9}, {3.843733949469775*^9, 3.8437339750199604`*^9}, { 3.843800053536092*^9, 3.843800053834758*^9}, {3.8438001065299625`*^9, 3.843800254245796*^9}, {3.8438003242948375`*^9, 3.843800333335549*^9}, { 3.843885944038465*^9, 3.8438859447473164`*^9}, {3.843886309231366*^9, 3.8438863329819083`*^9}, 3.843886486115221*^9, {3.847349675824704*^9, 3.8473497338638105`*^9}, {3.8473502547068834`*^9, 3.847350292825791*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"07d45348-e5a0-4f3d-a127-ada5be2bad68"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.1b (Plate bending)", "Subsubsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, 3.6018936089046106`*^9, {3.664878906157814*^9, 3.6648789098394203`*^9}, { 3.6983882168251424`*^9, 3.6983882190651455`*^9}, {3.729841498400111*^9, 3.729841511714019*^9}, {3.7298438456432447`*^9, 3.729843846549593*^9}, { 3.751956438263767*^9, 3.7519564399821167`*^9}, 3.783656434955984*^9, 3.815546950985428*^9, 3.8155533887795944`*^9, {3.8437124429895773`*^9, 3.8437124840677366`*^9}, {3.843781076002167*^9, 3.8437810767317696`*^9}, 3.843781115205649*^9},ExpressionUUID->"132f69ee-be6b-4151-a9f9-\ 49461be4f47e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "5"}], ",", RowBox[{"H", "->", "5"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", "0.3"}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Rho]", "->", " ", "8000"}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"fz", "->", " ", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], ",", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "triangulation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RM", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}], " ", "/.", "val"}], ",", RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"1", "/", "4"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tri", "=", RowBox[{"MeshCells", "[", RowBox[{"RM", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{"MeshCoordinates", "[", "RM", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BP", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "RM", "]"}], ",", "0"}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"Point", "[", "a_", "]"}], "->", "a"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"RM", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "desciption"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "fz"}], "}"}]}], "}"}], ",", "#"}], "}"}], "&"}], ",", "tri"}], "]"}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", RowBox[{"First", "[", "#2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "&"}], ",", "crd"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"BP", ",", "2"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2", ",", "3"}], "]"}], "]"}], " ", "/.", "sol"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.843712489561475*^9, 3.8437125191636505`*^9}, { 3.8437125669452877`*^9, 3.8437128861466413`*^9}, {3.8437129974672656`*^9, 3.843713013276997*^9}, {3.8437130877334933`*^9, 3.843713115525275*^9}, { 3.8437131610200434`*^9, 3.843713184083996*^9}, {3.8437132376823063`*^9, 3.8437133819533014`*^9}, {3.843713417383176*^9, 3.8437134591968803`*^9}, { 3.8437134969492474`*^9, 3.843714009759672*^9}, {3.8437140452435923`*^9, 3.843714111557973*^9}, {3.8437141639936004`*^9, 3.8437142958338394`*^9}, { 3.843714347828083*^9, 3.843714402241315*^9}, {3.843714446367948*^9, 3.843714483293212*^9}, {3.8437145134209394`*^9, 3.843714607114248*^9}, { 3.8437146421322346`*^9, 3.8437147443335323`*^9}, {3.843714859691022*^9, 3.843714880661008*^9}, 3.843727661110819*^9, {3.843727788123135*^9, 3.843727809991126*^9}, {3.8437278452671795`*^9, 3.843727866796069*^9}, { 3.8437279042833357`*^9, 3.8437279384702826`*^9}, {3.8437279917906923`*^9, 3.843728014300745*^9}, {3.843728058011294*^9, 3.843728070994938*^9}, { 3.843728283567544*^9, 3.843728295020647*^9}, 3.843728354372954*^9, { 3.8437284108832283`*^9, 3.84372844664116*^9}, {3.8437294169912252`*^9, 3.8437294179220486`*^9}, {3.8437297801112328`*^9, 3.843729783271413*^9}, { 3.843729818792511*^9, 3.8437298264312377`*^9}, {3.843729863878994*^9, 3.8437298922040176`*^9}, {3.8437299343862047`*^9, 3.8437299383156004`*^9}, {3.843730017696064*^9, 3.843730021118506*^9}, { 3.8437301229230814`*^9, 3.8437301232077713`*^9}, {3.8437301781460457`*^9, 3.843730179049358*^9}, {3.843730519602999*^9, 3.843730531038521*^9}, { 3.843730580731274*^9, 3.8437305815804663`*^9}, {3.8437307799694905`*^9, 3.8437307804542665`*^9}, {3.8437357974539785`*^9, 3.843735798798041*^9}, { 3.843739734808449*^9, 3.84373974053426*^9}, {3.8437397734028144`*^9, 3.8437397736272783`*^9}, {3.8437399266072054`*^9, 3.8437399307183466`*^9}, {3.8437785391874743`*^9, 3.843778614827943*^9}, { 3.8437797173996153`*^9, 3.8437798317379956`*^9}, {3.84378091552238*^9, 3.843780918197078*^9}, {3.843800344508738*^9, 3.8438003688560977`*^9}, 3.843800482587283*^9, 3.843885974191356*^9, {3.843886124599569*^9, 3.8438861258441687`*^9}, {3.843886202594633*^9, 3.8438862617074957`*^9}, { 3.843886373235973*^9, 3.843886456299819*^9}, {3.8438865015860643`*^9, 3.8438865027697735`*^9}, {3.8438865354952965`*^9, 3.843886536284978*^9}, { 3.8438865795954227`*^9, 3.843886580704484*^9}, {3.843886626985989*^9, 3.8438866287525787`*^9}, {3.8438869644711795`*^9, 3.8438869646956034`*^9}, {3.843887006314372*^9, 3.8438870254462175`*^9}, { 3.8443281903743467`*^9, 3.8443282152887535`*^9}, {3.8443285232627645`*^9, 3.8443285233494787`*^9}, {3.8473483626542854`*^9, 3.8473483635203133`*^9}, {3.847348432150258*^9, 3.8473484798076506`*^9}, { 3.8473486530499783`*^9, 3.8473488241207576`*^9}, {3.847348855019195*^9, 3.8473488704579573`*^9}, {3.847348968466106*^9, 3.84734897577304*^9}, 3.847350333010788*^9, {3.8476073840766*^9, 3.8476073845125904`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"2c4d25fc-1d9f-4a9c-af50-f2e03be99d00"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.1c (Plate bending)", "Subsubsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, 3.6018936089046106`*^9, {3.664878906157814*^9, 3.6648789098394203`*^9}, { 3.6983882168251424`*^9, 3.6983882190651455`*^9}, {3.729841498400111*^9, 3.729841511714019*^9}, {3.7298438456432447`*^9, 3.729843846549593*^9}, { 3.751956438263767*^9, 3.7519564399821167`*^9}, 3.783656434955984*^9, 3.815546950985428*^9, 3.8155533887795944`*^9, {3.8437124429895773`*^9, 3.8437124840677366`*^9}, {3.843781076002167*^9, 3.8437810767317696`*^9}, 3.843781115205649*^9, {3.901687639169937*^9, 3.90168764162438*^9}},ExpressionUUID->"1c9e9a7b-4877-455e-9e2d-\ 36513b1ceed5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "5"}], ",", RowBox[{"H", "->", "5"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", "0.3"}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Rho]", "->", " ", "8000"}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"fz", "->", " ", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], ",", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "triangulation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RM", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}], " ", "/.", "val"}], ",", RowBox[{"MaxCellMeasure", "\[Rule]", "0.5"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tri", "=", RowBox[{"MeshCells", "[", RowBox[{"RM", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{"MeshCoordinates", "[", "RM", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BP", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "RM", "]"}], ",", "0"}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"Point", "[", "a_", "]"}], "->", "a"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"RM", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "desciption"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "fz"}], "}"}]}], "}"}], ",", "#"}], "}"}], "&"}], ",", "tri"}], "]"}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", RowBox[{"First", "[", "#2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "&"}], ",", "crd"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"BP", ",", "2"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"convert", " ", "to", " ", "six", " ", "noded"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.843712489561475*^9, 3.8437125191636505`*^9}, { 3.8437125669452877`*^9, 3.8437128861466413`*^9}, {3.8437129974672656`*^9, 3.843713013276997*^9}, {3.8437130877334933`*^9, 3.843713115525275*^9}, { 3.8437131610200434`*^9, 3.843713184083996*^9}, {3.8437132376823063`*^9, 3.8437133819533014`*^9}, {3.843713417383176*^9, 3.8437134591968803`*^9}, { 3.8437134969492474`*^9, 3.843714009759672*^9}, {3.8437140452435923`*^9, 3.843714111557973*^9}, {3.8437141639936004`*^9, 3.8437142958338394`*^9}, { 3.843714347828083*^9, 3.843714402241315*^9}, {3.843714446367948*^9, 3.843714483293212*^9}, {3.8437145134209394`*^9, 3.843714607114248*^9}, { 3.8437146421322346`*^9, 3.8437147443335323`*^9}, {3.843714859691022*^9, 3.843714880661008*^9}, 3.843727661110819*^9, {3.843727788123135*^9, 3.843727809991126*^9}, {3.8437278452671795`*^9, 3.843727866796069*^9}, { 3.8437279042833357`*^9, 3.8437279384702826`*^9}, {3.8437279917906923`*^9, 3.843728014300745*^9}, {3.843728058011294*^9, 3.843728070994938*^9}, { 3.843728283567544*^9, 3.843728295020647*^9}, 3.843728354372954*^9, { 3.8437284108832283`*^9, 3.84372844664116*^9}, {3.8437294169912252`*^9, 3.8437294179220486`*^9}, {3.8437297801112328`*^9, 3.843729783271413*^9}, { 3.843729818792511*^9, 3.8437298264312377`*^9}, {3.843729863878994*^9, 3.8437298922040176`*^9}, {3.8437299343862047`*^9, 3.8437299383156004`*^9}, {3.843730017696064*^9, 3.843730021118506*^9}, { 3.8437301229230814`*^9, 3.8437301232077713`*^9}, {3.8437301781460457`*^9, 3.843730179049358*^9}, {3.843730519602999*^9, 3.843730531038521*^9}, { 3.843730580731274*^9, 3.8437305815804663`*^9}, {3.8437307799694905`*^9, 3.8437307804542665`*^9}, {3.8437357974539785`*^9, 3.843735798798041*^9}, { 3.843739734808449*^9, 3.84373974053426*^9}, {3.8437397734028144`*^9, 3.8437397736272783`*^9}, {3.8437399266072054`*^9, 3.8437399307183466`*^9}, {3.8437785391874743`*^9, 3.843778614827943*^9}, { 3.8437797173996153`*^9, 3.8437798317379956`*^9}, {3.84378091552238*^9, 3.843780918197078*^9}, {3.843800344508738*^9, 3.8438003688560977`*^9}, 3.843800482587283*^9, 3.843885974191356*^9, {3.843886124599569*^9, 3.8438861258441687`*^9}, {3.843886202594633*^9, 3.8438862617074957`*^9}, { 3.843886373235973*^9, 3.843886456299819*^9}, {3.8438865015860643`*^9, 3.8438865027697735`*^9}, {3.8438865354952965`*^9, 3.843886536284978*^9}, { 3.8438865795954227`*^9, 3.843886580704484*^9}, {3.843886626985989*^9, 3.8438866287525787`*^9}, {3.8438869644711795`*^9, 3.8438869646956034`*^9}, {3.843887006314372*^9, 3.8438870254462175`*^9}, { 3.8443281903743467`*^9, 3.8443282152887535`*^9}, {3.8443285232627645`*^9, 3.8443285233494787`*^9}, {3.8473483626542854`*^9, 3.8473483635203133`*^9}, {3.847348432150258*^9, 3.8473484798076506`*^9}, { 3.8473486530499783`*^9, 3.8473488241207576`*^9}, {3.847348855019195*^9, 3.8473488704579573`*^9}, {3.847348968466106*^9, 3.84734897577304*^9}, 3.847350333010788*^9, {3.8476073840766*^9, 3.8476073845125904`*^9}, { 3.901687671876395*^9, 3.901687688003721*^9}, {3.9017056827132907`*^9, 3.9017057316156287`*^9}, 3.9017057978316307`*^9, {3.90170592937726*^9, 3.9017059698018*^9}, {3.901706011135604*^9, 3.901706015895569*^9}, { 3.9017061944034057`*^9, 3.901706195062599*^9}, {3.9017062437705917`*^9, 3.9017062501436214`*^9}, {3.9017064196468506`*^9, 3.9017064219770966`*^9}, {3.901706456644784*^9, 3.901706500201603*^9}, { 3.9017067373589387`*^9, 3.901706795876951*^9}, {3.9017068977957344`*^9, 3.9017069097253866`*^9}, {3.901706960542514*^9, 3.9017070137087493`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"c589d0a0-b5d3-4f22-9582-a01ece890ef1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Timing", "[", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2", ",", "3"}], "]"}], "]"}], " ", "/.", "sol"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.843712489561475*^9, 3.8437125191636505`*^9}, { 3.8437125669452877`*^9, 3.8437128861466413`*^9}, {3.8437129974672656`*^9, 3.843713013276997*^9}, {3.8437130877334933`*^9, 3.843713115525275*^9}, { 3.8437131610200434`*^9, 3.843713184083996*^9}, {3.8437132376823063`*^9, 3.8437133819533014`*^9}, {3.843713417383176*^9, 3.8437134591968803`*^9}, { 3.8437134969492474`*^9, 3.843714009759672*^9}, {3.8437140452435923`*^9, 3.843714111557973*^9}, {3.8437141639936004`*^9, 3.8437142958338394`*^9}, { 3.843714347828083*^9, 3.843714402241315*^9}, {3.843714446367948*^9, 3.843714483293212*^9}, {3.8437145134209394`*^9, 3.843714607114248*^9}, { 3.8437146421322346`*^9, 3.8437147443335323`*^9}, {3.843714859691022*^9, 3.843714880661008*^9}, 3.843727661110819*^9, {3.843727788123135*^9, 3.843727809991126*^9}, {3.8437278452671795`*^9, 3.843727866796069*^9}, { 3.8437279042833357`*^9, 3.8437279384702826`*^9}, {3.8437279917906923`*^9, 3.843728014300745*^9}, {3.843728058011294*^9, 3.843728070994938*^9}, { 3.843728283567544*^9, 3.843728295020647*^9}, 3.843728354372954*^9, { 3.8437284108832283`*^9, 3.84372844664116*^9}, {3.8437294169912252`*^9, 3.8437294179220486`*^9}, {3.8437297801112328`*^9, 3.843729783271413*^9}, { 3.843729818792511*^9, 3.8437298264312377`*^9}, {3.843729863878994*^9, 3.8437298922040176`*^9}, {3.8437299343862047`*^9, 3.8437299383156004`*^9}, {3.843730017696064*^9, 3.843730021118506*^9}, { 3.8437301229230814`*^9, 3.8437301232077713`*^9}, {3.8437301781460457`*^9, 3.843730179049358*^9}, {3.843730519602999*^9, 3.843730531038521*^9}, { 3.843730580731274*^9, 3.8437305815804663`*^9}, {3.8437307799694905`*^9, 3.8437307804542665`*^9}, {3.8437357974539785`*^9, 3.843735798798041*^9}, { 3.843739734808449*^9, 3.84373974053426*^9}, {3.8437397734028144`*^9, 3.8437397736272783`*^9}, {3.8437399266072054`*^9, 3.8437399307183466`*^9}, {3.8437785391874743`*^9, 3.843778614827943*^9}, { 3.8437797173996153`*^9, 3.8437798317379956`*^9}, {3.84378091552238*^9, 3.843780918197078*^9}, {3.843800344508738*^9, 3.8438003688560977`*^9}, 3.843800482587283*^9, 3.843885974191356*^9, {3.843886124599569*^9, 3.8438861258441687`*^9}, {3.843886202594633*^9, 3.8438862617074957`*^9}, { 3.843886373235973*^9, 3.843886456299819*^9}, {3.8438865015860643`*^9, 3.8438865027697735`*^9}, {3.8438865354952965`*^9, 3.843886536284978*^9}, { 3.8438865795954227`*^9, 3.843886580704484*^9}, {3.843886626985989*^9, 3.8438866287525787`*^9}, {3.8438869644711795`*^9, 3.8438869646956034`*^9}, {3.843887006314372*^9, 3.8438870254462175`*^9}, { 3.8443281903743467`*^9, 3.8443282152887535`*^9}, {3.8443285232627645`*^9, 3.8443285233494787`*^9}, {3.8473483626542854`*^9, 3.8473483635203133`*^9}, {3.847348432150258*^9, 3.8473484798076506`*^9}, { 3.8473486530499783`*^9, 3.8473488241207576`*^9}, {3.847348855019195*^9, 3.8473488704579573`*^9}, {3.847348968466106*^9, 3.84734897577304*^9}, 3.847350333010788*^9, {3.8476073840766*^9, 3.8476073845125904`*^9}, { 3.901687671876395*^9, 3.901687688003721*^9}, {3.9017056827132907`*^9, 3.901705689560731*^9}, 3.9017059006052046`*^9, 3.9017069163416753`*^9, 3.902455268845796*^9, {3.902455369714896*^9, 3.9024553788742886`*^9}, { 3.9024554197527914`*^9, 3.9024554280316744`*^9}, 3.9100060111954575`*^9}, CellLabel->"In[45]:=",ExpressionUUID->"ec7e472d-ff1f-4da7-ad2c-7bcb52c6992b"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.2 (Bernoulli beam)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.4467289165844*^9}, 3.4467805293608*^9, 3.4801237733058*^9, 3.574414477473764*^9, {3.5744712109877467`*^9, 3.5744712119705486`*^9}, 3.574475230726144*^9, 3.6037233433571124`*^9, 3.6037234592185163`*^9, {3.6352279082028255`*^9, 3.635227913380121*^9}, { 3.688539891695098*^9, 3.6885398999051094`*^9}, {3.6886484594700756`*^9, 3.6886484600000763`*^9}, 3.688884553797928*^9, 3.6899058063129454`*^9, { 3.7515485745414057`*^9, 3.751548576271186*^9}, 3.7515486386973314`*^9, 3.783656417326279*^9, {3.8155469386680045`*^9, 3.815546938957738*^9}, 3.815553397450206*^9},ExpressionUUID->"bf8a6733-9c45-4d6e-944d-\ 4421930433e1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]y", ",", "\[CapitalIota]z"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ 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[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "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.446729203484*^9, 3.4467292383812*^9}, {3.4467877972641726`*^9, 3.4467877976385727`*^9}, {3.5009903487265353`*^9, 3.5009903595373354`*^9}, {3.574471092521138*^9, 3.574471133954811*^9}, { 3.5744712188033605`*^9, 3.5744712254177723`*^9}, 3.5744713020139065`*^9, { 3.635161887530303*^9, 3.635161992939332*^9}, {3.6352290663870697`*^9, 3.635229075675601*^9}, {3.6668796255250177`*^9, 3.6668796435240474`*^9}, { 3.66687967678995*^9, 3.666879688235605*^9}, {3.6668797952457256`*^9, 3.6668798335859184`*^9}, {3.6886484682900877`*^9, 3.6886486364603233`*^9}, {3.6886486728003745`*^9, 3.688648679270383*^9}, { 3.6886528872062745`*^9, 3.688652897196288*^9}, 3.6888859600498967`*^9, { 3.68990583810299*^9, 3.6899058599630203`*^9}, {3.689905992953207*^9, 3.6899060056432247`*^9}, {3.68990615938344*^9, 3.6899061621934433`*^9}, { 3.7515486229339185`*^9, 3.751548684687366*^9}, {3.7515488720040293`*^9, 3.7515489826437516`*^9}, 3.7515499027087545`*^9, {3.7837559270161324`*^9, 3.7837559294959693`*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"946c091a-a4be-4ef5-86f3-2895b1e33151"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.3 (Timoshenko beam)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.4467289165844*^9}, {3.4467297578612003`*^9, 3.4467297741632*^9}, {3.4467805329332*^9, 3.4467805662392*^9}, { 3.4467837724681997`*^9, 3.4467837873974*^9}, 3.4467838747262*^9, 3.4467839094986*^9, 3.447032670762*^9, {3.4801243923636*^9, 3.4801244011152*^9}, {3.4803073076387997`*^9, 3.4803073429728003`*^9}, { 3.4803074085114*^9, 3.480307409541*^9}, 3.5744144418745017`*^9, { 3.574474905059972*^9, 3.5744749098179803`*^9}, {3.574475366572386*^9, 3.574475377196004*^9}, {3.574475410517663*^9, 3.5744754407037153`*^9}, { 3.5750081951129265`*^9, 3.5750082013529377`*^9}, {3.5750083550303583`*^9, 3.5750083766455946`*^9}, 3.5750084728950996`*^9, {3.575009984202676*^9, 3.575009988976284*^9}, 3.6352479511301355`*^9, {3.6884591450448647`*^9, 3.6884591463648667`*^9}, {3.688727247840191*^9, 3.6887272541001997`*^9}, 3.6893289340314417`*^9, {3.7515485682716866`*^9, 3.7515485694214697`*^9}, 3.7515487846118393`*^9, 3.783656420101801*^9, 3.8155469412280064`*^9, 3.815553400932724*^9},ExpressionUUID->"40c72242-d0ea-4e37-a255-\ 66d789e802aa"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "G", ",", "\[Kappa]y", ",", "\[Kappa]z"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "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[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "]"}], "\[IndentingNewLine]"}]}]], "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.446729203484*^9, 3.4467292383812*^9}, {3.4467297972824*^9, 3.446729803382*^9}, {3.4467805759268*^9, 3.4467806372192*^9}, { 3.4467806779508*^9, 3.446780691866*^9}, {3.4467808153556004`*^9, 3.4467808238264*^9}, {3.446780991074*^9, 3.44678100956*^9}, { 3.4467817953710003`*^9, 3.4467817964318*^9}, {3.4467818981906*^9, 3.4467819034946003`*^9}, {3.4467819468626003`*^9, 3.4467819476893997`*^9}, {3.446782758593*^9, 3.4467827910098*^9}, { 3.4467831324002*^9, 3.4467831494354*^9}, {3.4467831885758*^9, 3.4467831999326*^9}, {3.446783237591*^9, 3.4467832606633997`*^9}, 3.4467834854126*^9, {3.4467837629365997`*^9, 3.4467838047914*^9}, { 3.4467838809194*^9, 3.4467839164094*^9}, {3.480125027756*^9, 3.4801250487692003`*^9}, {3.4801259920076*^9, 3.4801260243775997`*^9}, { 3.4801260961219997`*^9, 3.4801261021436*^9}, {3.480126160316*^9, 3.4801261608775997`*^9}, 3.505526673999*^9, {3.511162102146681*^9, 3.511162112239832*^9}, {3.511162320753841*^9, 3.5111624041098633`*^9}, { 3.511162434312612*^9, 3.511162472840623*^9}, {3.5111626521805363`*^9, 3.5111626570543423`*^9}, {3.51116384595252*^9, 3.511163855662384*^9}, { 3.5111642905929937`*^9, 3.5111643428283*^9}, {3.511233729147643*^9, 3.511233733164753*^9}, {3.511242946284502*^9, 3.511242951405178*^9}, { 3.511242986860924*^9, 3.511242993610053*^9}, 3.511246048004801*^9, { 3.511248741425228*^9, 3.511248833339509*^9}, {3.511249095932605*^9, 3.511249099139844*^9}, {3.511249136022367*^9, 3.51124917708092*^9}, 3.5112492464746103`*^9, {3.51124937632263*^9, 3.511249397605589*^9}, { 3.511250151212386*^9, 3.51125027339494*^9}, {3.5750082105413537`*^9, 3.575008231975791*^9}, {3.5750083848860655`*^9, 3.5750084021790547`*^9}, { 3.575008796623814*^9, 3.575008845002581*^9}, {3.5750096211900387`*^9, 3.575009637024066*^9}, 3.575009848997238*^9, {3.5750099980399003`*^9, 3.57501000368711*^9}, 3.60372584601431*^9, {3.6037259610957117`*^9, 3.6037259746053357`*^9}, {3.603726624861278*^9, 3.603726627762883*^9}, 3.603726713344633*^9, {3.635229174113231*^9, 3.6352293171044097`*^9}, { 3.635229499793859*^9, 3.6352295519208403`*^9}, {3.635230007209882*^9, 3.6352300146783085`*^9}, {3.636384703885615*^9, 3.6363847046646595`*^9}, 3.636384793773756*^9, {3.636384831710926*^9, 3.636384844731671*^9}, { 3.6363849893099403`*^9, 3.6363849901219864`*^9}, 3.636385066693366*^9, { 3.6363852523299837`*^9, 3.636385304345959*^9}, {3.636385347160408*^9, 3.63638536363135*^9}, {3.6363854535594935`*^9, 3.6363854692933936`*^9}, { 3.6668799699977207`*^9, 3.6668799701777306`*^9}, {3.6884591312548456`*^9, 3.6884591320848465`*^9}, 3.6887273240202975`*^9, {3.688727503870549*^9, 3.6887275481406116`*^9}, {3.6887276343007317`*^9, 3.688727686500805*^9}, { 3.6887280832313604`*^9, 3.688728102101387*^9}, {3.75154903601289*^9, 3.7515490548293667`*^9}, {3.751549466636806*^9, 3.75154949720774*^9}, { 3.7515497369297895`*^9, 3.75154973855445*^9}, {3.7837558673428497`*^9, 3.783755908301218*^9}, {3.78375598846976*^9, 3.783755998602437*^9}, { 3.783756155083074*^9, 3.7837561602273235`*^9}, {3.783756320971648*^9, 3.783756334041545*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"ad0d37d0-ad01-43e5-aeb1-48d281bd09bf"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.4 (Beam)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.4467289165844*^9}, 3.4467805293608*^9, 3.4801237733058*^9, 3.574414477473764*^9, {3.5744712109877467`*^9, 3.5744712119705486`*^9}, 3.574475230726144*^9, 3.6037233433571124`*^9, 3.6037234592185163`*^9, {3.6352279082028255`*^9, 3.635227913380121*^9}, { 3.688539891695098*^9, 3.6885398999051094`*^9}, {3.6886484594700756`*^9, 3.6886484600000763`*^9}, 3.688884553797928*^9, 3.7515517983964925`*^9, { 3.7519415405413203`*^9, 3.751941553850751*^9}, 3.783656422487809*^9, 3.8155469430558276`*^9, 3.815553405680099*^9},ExpressionUUID->"49e49c61-5287-4af6-bc73-\ c829e06fc49a"], Cell[BoxData[{ 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", ",", RowBox[{"\[Rho]", " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", 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[{"{", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "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.446729203484*^9, 3.4467292383812*^9}, {3.4467877972641726`*^9, 3.4467877976385727`*^9}, {3.5009903487265353`*^9, 3.5009903595373354`*^9}, {3.574471092521138*^9, 3.574471133954811*^9}, { 3.5744712188033605`*^9, 3.5744712254177723`*^9}, 3.5744713020139065`*^9, { 3.635161887530303*^9, 3.635161992939332*^9}, {3.6352290663870697`*^9, 3.635229075675601*^9}, {3.6668796255250177`*^9, 3.6668796435240474`*^9}, { 3.66687967678995*^9, 3.666879688235605*^9}, {3.6668797952457256`*^9, 3.6668798335859184`*^9}, {3.6886484682900877`*^9, 3.6886486364603233`*^9}, {3.6886486728003745`*^9, 3.688648679270383*^9}, { 3.6886528872062745`*^9, 3.688652897196288*^9}, 3.6888859600498967`*^9, { 3.751551808679706*^9, 3.75155182284762*^9}, {3.751941619782477*^9, 3.751941620157426*^9}, {3.751946092637025*^9, 3.7519461038531184`*^9}, { 3.751946558593465*^9, 3.7519465607179356`*^9}, 3.7519475642055492`*^9, { 3.7837569325364075`*^9, 3.783756939890103*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"3a571324-0d33-48bc-b79b-07ee6082ab54"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.5 (Beam)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.4467289165844*^9}, 3.4467805293608*^9, 3.4801237733058*^9, 3.574414477473764*^9, {3.5744712109877467`*^9, 3.5744712119705486`*^9}, 3.574475230726144*^9, 3.6037233433571124`*^9, 3.6037234592185163`*^9, {3.6352279082028255`*^9, 3.635227913380121*^9}, { 3.688539891695098*^9, 3.6885398999051094`*^9}, {3.6886484594700756`*^9, 3.6886484600000763`*^9}, 3.688884553797928*^9, 3.7515517983964925`*^9, { 3.7519415405413203`*^9, 3.751941553850751*^9}, 3.7519451097491617`*^9, 3.7836564249177694`*^9, 3.81554694597066*^9, 3.8155534096196766`*^9},ExpressionUUID->"78e6ae05-4cf4-4ef8-b1bb-\ 7b5b168abf06"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[Rho]", " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", 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[{"{", 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[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "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.446729203484*^9, 3.4467292383812*^9}, {3.4467877972641726`*^9, 3.4467877976385727`*^9}, {3.5009903487265353`*^9, 3.5009903595373354`*^9}, {3.574471092521138*^9, 3.574471133954811*^9}, { 3.5744712188033605`*^9, 3.5744712254177723`*^9}, 3.5744713020139065`*^9, { 3.635161887530303*^9, 3.635161992939332*^9}, {3.6352290663870697`*^9, 3.635229075675601*^9}, {3.6668796255250177`*^9, 3.6668796435240474`*^9}, { 3.66687967678995*^9, 3.666879688235605*^9}, {3.6668797952457256`*^9, 3.6668798335859184`*^9}, {3.6886484682900877`*^9, 3.6886486364603233`*^9}, {3.6886486728003745`*^9, 3.688648679270383*^9}, { 3.6886528872062745`*^9, 3.688652897196288*^9}, 3.6888859600498967`*^9, { 3.751551808679706*^9, 3.75155182284762*^9}, {3.751941619782477*^9, 3.751941620157426*^9}, {3.751945123184829*^9, 3.751945181174547*^9}, { 3.7519452434075623`*^9, 3.751945272290078*^9}, {3.78375735423774*^9, 3.783757358657503*^9}, {3.8470005445228057`*^9, 3.847000548565008*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"0df93cf9-085f-42af-b1d4-447a93ac3cc2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.6 (beam - rigid body structure)", "Subsubsection", CellChangeTimes->{{3.4430796042548*^9, 3.4430796102452*^9}, 3.4742603575787396`*^9, 3.4742616369947395`*^9, 3.5999979378481426`*^9, { 3.5999980111214714`*^9, 3.5999980296387043`*^9}, {3.6311614587030363`*^9, 3.6311614593700743`*^9}, 3.632029553675836*^9, {3.689396083585063*^9, 3.6893960904050727`*^9}, 3.7515484775516677`*^9, 3.75154997734745*^9, 3.7519484958954897`*^9, 3.7836564274640584`*^9, 3.8155469477091866`*^9, 3.8155534134725084`*^9},ExpressionUUID->"ba923300-b39a-4b9f-9928-\ dcb59ddfac5d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"values", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", " ", SuperscriptBox["10", "9"]}]}], ",", RowBox[{"G", "\[Rule]", RowBox[{"80", " ", SuperscriptBox["10", "9"]}]}], ",", RowBox[{"d", "\[Rule]", "0.0069"}], ",", RowBox[{"l", "\[Rule]", "0.408"}], ",", RowBox[{"w", "\[Rule]", "0.263"}], ",", RowBox[{"h", "\[Rule]", "0.17"}], ",", RowBox[{"F", "\[Rule]", "69."}], ",", RowBox[{"A", "\[Rule]", RowBox[{ FractionBox["\[Pi]", "4"], " ", SuperscriptBox["d", RowBox[{"2", " "}]]}]}], ",", RowBox[{"\[CapitalIota]", "\[Rule]", RowBox[{ FractionBox["\[Pi]", "64"], " ", SuperscriptBox["d", RowBox[{"4", " "}]]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"conditions", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uY", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nf", " ", "=", "4"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], " ", "4"}], "+", "j"}], ",", RowBox[{ RowBox[{"k", " ", "4"}], "+", "j"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "nf"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{"nf", "+", "1"}], ")"}]}], "+", "k"}], ",", RowBox[{ RowBox[{"k", " ", "4"}], "+", "j"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "nf"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"4", " ", RowBox[{"(", RowBox[{"nf", "+", "1"}], ")"}]}], "}"}], "]"}]}], "}"}], " ", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"l", " ", "i"}], ",", RowBox[{"w", " ", "j"}], ",", " ", RowBox[{"h", " ", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nf"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"l", "/", "2"}], ",", RowBox[{"w", " ", "/", "2"}], ",", " ", RowBox[{"h", " ", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "k"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "nf"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "values"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "=", RowBox[{"Nest", "[", RowBox[{"REFINE", ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", "0"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uX", "[", RowBox[{"1", ",", "1", ",", "nf"}], "]"}], "/.", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "conditions"}], " ", "//.", "values"}], " ", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.443079292748*^9, 3.4430793382064*^9}, { 3.4430793684236*^9, 3.4430793881731997`*^9}, {3.4430794204088*^9, 3.4430794617799997`*^9}, {3.569296747516491*^9, 3.5692968645634966`*^9}, { 3.6310179468433547`*^9, 3.6310182377682657`*^9}, {3.631018267938719*^9, 3.631018407574564*^9}, {3.631018540339905*^9, 3.6310187006200724`*^9}, { 3.6310187395072966`*^9, 3.631018771948152*^9}, {3.6310190134119625`*^9, 3.6310190168191576`*^9}, {3.631429199356635*^9, 3.631429218076668*^9}, { 3.6893458350311937`*^9, 3.6893459577513657`*^9}, {3.6893460398714805`*^9, 3.6893462549417815`*^9}, {3.689346285731825*^9, 3.689346285911825*^9}, { 3.689346318951871*^9, 3.689346322121876*^9}, {3.6893463858319645`*^9, 3.6893463941219764`*^9}, {3.689346435142034*^9, 3.689346442642044*^9}, { 3.689346474312089*^9, 3.6893465686422205`*^9}, {3.6893466254023004`*^9, 3.689346638932319*^9}, {3.6893466873223867`*^9, 3.689346858182626*^9}, { 3.6893468910926723`*^9, 3.6893469082926965`*^9}, {3.6893469521727576`*^9, 3.6893469539827604`*^9}, {3.6893469857528048`*^9, 3.689347147843032*^9}, { 3.6893471788430753`*^9, 3.68934728956323*^9}, {3.689347330433287*^9, 3.6893473448233075`*^9}, {3.689347387163367*^9, 3.6893473967833805`*^9}, { 3.6893474514434566`*^9, 3.6893474770034924`*^9}, {3.6893857480748863`*^9, 3.6893857887749434`*^9}, {3.6893858596150427`*^9, 3.6893859816952133`*^9}, {3.689386090635366*^9, 3.689386097865376*^9}, { 3.68938615076545*^9, 3.6893861585354605`*^9}, {3.68938621507554*^9, 3.689386383595776*^9}, {3.689386434555847*^9, 3.6893864380358524`*^9}, { 3.6893864819459133`*^9, 3.6893865483160067`*^9}, {3.6893865805360518`*^9, 3.689386642056138*^9}, {3.6893866742861834`*^9, 3.6893867054162264`*^9}, { 3.6893868039863644`*^9, 3.689386969346596*^9}, {3.689387001686641*^9, 3.6893870227266707`*^9}, {3.689387059276722*^9, 3.689387066556732*^9}, { 3.6893871257468147`*^9, 3.689387176566886*^9}, {3.6893872233469515`*^9, 3.689387230796962*^9}, {3.6893872859770393`*^9, 3.689387299427058*^9}, { 3.689387404277205*^9, 3.6893874210272284`*^9}, {3.68938779357775*^9, 3.689387991718027*^9}, {3.689388031778084*^9, 3.6893881673682733`*^9}, { 3.6893882189983454`*^9, 3.68938824341838*^9}, 3.689388626728916*^9, 3.6893961145451064`*^9, {3.6893961475851526`*^9, 3.689396182275201*^9}, { 3.6893962523252993`*^9, 3.6893963757754717`*^9}, {3.689411983278683*^9, 3.689412028968747*^9}, {3.6894216158540964`*^9, 3.6894216159540963`*^9}, { 3.6894216972442102`*^9, 3.6894217189342403`*^9}, 3.6894217537842894`*^9, { 3.6894217918243427`*^9, 3.6894218124343715`*^9}, 3.6894218453644176`*^9, { 3.689568802657915*^9, 3.689568814597932*^9}, {3.6895689717191515`*^9, 3.6895690521592646`*^9}, {3.68956987226142*^9, 3.6895698878614416`*^9}, { 3.6895699179914837`*^9, 3.689569924811493*^9}, 3.689569960271543*^9, { 3.751948524529109*^9, 3.7519485427907825`*^9}, {3.75194859479383*^9, 3.7519486427984543`*^9}, {3.751948682664075*^9, 3.751948711328912*^9}, { 3.751948759520702*^9, 3.7519487819842157`*^9}, {3.7843466918006372`*^9, 3.7843467600648937`*^9}, {3.7843468393498306`*^9, 3.7843468701197596`*^9}, {3.7843470773631077`*^9, 3.7843470788054256`*^9}, {3.784347449976926*^9, 3.78434745244143*^9}, { 3.847000745800007*^9, 3.847000751895419*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"0d3c7aca-4dfb-4dfa-a5ce-262562ff4558"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.7a (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, 3.6043261554004374`*^9, 3.604326368715212*^9, 3.6358539327435455`*^9, {3.688793491656571*^9, 3.6887934970465784`*^9}, { 3.751956180558316*^9, 3.751956191868157*^9}, {3.75195623634207*^9, 3.7519562479799566`*^9}, {3.7519565457228656`*^9, 3.751956553783457*^9}, 3.783656437998582*^9, 3.81554695268262*^9, 3.84735018462148*^9},ExpressionUUID->"833fc726-a714-41d3-9d4c-\ 27e440be5b27"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "5"}], ",", RowBox[{"H", "->", "1"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", "0.3"}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Rho]", "->", " ", "8000"}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"fz", "->", " ", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], ",", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}], "2"]}]}], ",", "\[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[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "=", 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[{ RowBox[{ 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"}]}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "fz"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", 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]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"w", " ", "/.", "sol"}], ")"}], " ", "/.", RowBox[{"x", "->", RowBox[{"L", "/", "2"}]}]}], ")"}], "/.", "val"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043262260529613`*^9, 3.6043262636958275`*^9}, {3.6043262960190845`*^9, 3.6043263263143377`*^9}, {3.63585396708951*^9, 3.6358539860515947`*^9}, { 3.635854025494851*^9, 3.635854093723753*^9}, {3.63585412688665*^9, 3.635854205140126*^9}, 3.6358542470575237`*^9, 3.6885399659752016`*^9, { 3.688542406818619*^9, 3.688542488158733*^9}, {3.688542555158827*^9, 3.688542655038966*^9}, {3.68854276460912*^9, 3.688542769519127*^9}, { 3.6885435013701515`*^9, 3.688543502520153*^9}, {3.688543571200249*^9, 3.688543605190297*^9}, {3.6885436559003677`*^9, 3.6885437827205453`*^9}, { 3.6887935118365993`*^9, 3.688793540406639*^9}, {3.6887935912867103`*^9, 3.68879361258674*^9}, {3.68879369842686*^9, 3.6887937020868654`*^9}, { 3.688793804067008*^9, 3.68879381245702*^9}, {3.6887938523170757`*^9, 3.688793878327112*^9}, {3.6887939201671705`*^9, 3.6887939329171886`*^9}, { 3.688809028525826*^9, 3.68880903887584*^9}, {3.6888096953767595`*^9, 3.6888097390468206`*^9}, {3.6888099024470496`*^9, 3.6888099095570593`*^9}, {3.688810364147696*^9, 3.6888104325877914`*^9}, { 3.6888699116958637`*^9, 3.688869954045923*^9}, {3.688870212896285*^9, 3.6888702826463833`*^9}, {3.688870324776442*^9, 3.688870341366465*^9}, { 3.6888703736365104`*^9, 3.6888703737365103`*^9}, {3.688870541036745*^9, 3.6888706080368385`*^9}, {3.6888706877569504`*^9, 3.688870691966956*^9}, { 3.688871750438438*^9, 3.688871779498479*^9}, {3.688871834948556*^9, 3.68887184514857*^9}, 3.6888719193886747`*^9, 3.68887406629204*^9, { 3.688874175099601*^9, 3.6888742084784775`*^9}, {3.688874778973279*^9, 3.6888747878232913`*^9}, 3.6888750967337236`*^9, {3.688878647907729*^9, 3.688878680997775*^9}, 3.688878943988143*^9, 3.6888832221760635`*^9, { 3.689058349610656*^9, 3.689058356800666*^9}, 3.6890584103607407`*^9, 3.7519563404114923`*^9, {3.751956560312887*^9, 3.75195661920557*^9}, 3.751956913573533*^9, {3.784004645794924*^9, 3.7840046492856646`*^9}, { 3.7840046968502245`*^9, 3.784004782254335*^9}, 3.7840048288538294`*^9, { 3.843887100054741*^9, 3.843887188891218*^9}, 3.8470009504127674`*^9, { 3.847001174868622*^9, 3.8470011858230066`*^9}, 3.8470012159408216`*^9, 3.8472560095815067`*^9, {3.847256077905465*^9, 3.8472560917549553`*^9}, { 3.8473503722577996`*^9, 3.847350378284053*^9}, {3.847350455717604*^9, 3.8473505503373346`*^9}, {3.847350585546796*^9, 3.8473505889286203`*^9}, { 3.847350622175912*^9, 3.847350683869407*^9}, 3.847351026238633*^9, { 3.8476068496388903`*^9, 3.847606913948801*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"c0f0fda1-82d7-4ea1-ab7e-d12f3898dd3e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.7b (Plate bending)", "Subsubsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, 3.6018936089046106`*^9, {3.664878906157814*^9, 3.6648789098394203`*^9}, { 3.6983882168251424`*^9, 3.6983882190651455`*^9}, {3.729841498400111*^9, 3.729841511714019*^9}, {3.7298438456432447`*^9, 3.729843846549593*^9}, { 3.751956438263767*^9, 3.7519564399821167`*^9}, 3.783656434955984*^9, 3.815546950985428*^9, 3.8155533887795944`*^9, {3.8437124429895773`*^9, 3.8437124840677366`*^9}, {3.843781076002167*^9, 3.8437810767317696`*^9}, 3.843781115205649*^9, 3.8438873423636456`*^9, {3.8473502065568175`*^9, 3.847350210806963*^9}},ExpressionUUID->"8e9b0c0e-6206-4933-9344-\ 82ea7c2d54d0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "5"}], ",", RowBox[{"H", "->", "1"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", "0.3"}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Rho]", "->", " ", "8000"}], ",", RowBox[{"g", "->", "9.81"}], ",", RowBox[{"fz", "->", " ", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], ",", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "triangulation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"seg", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "H"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{ RowBox[{"-", "H"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{"H", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"H", "/", "2"}]}], "}"}]}], "}"}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mrk", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], "=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg", ",", "mrk"}], "}"}], ",", "crd", ",", RowBox[{"1.", "/", "6"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BP", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"segout", ",", RowBox[{"mrkout", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "|", "4"}], "->", "True"}], ",", RowBox[{ RowBox[{"1", "|", "3"}], "->", "False"}]}], "}"}]}]}], "]"}], "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"MeshRegion", "[", RowBox[{"crdout", ",", "eleout"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", RowBox[{"crdout", "[", RowBox[{"[", "BP", "]"}], "]"}], "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.843712489561475*^9, 3.8437125191636505`*^9}, { 3.8437125669452877`*^9, 3.8437128861466413`*^9}, {3.8437129974672656`*^9, 3.843713013276997*^9}, {3.8437130877334933`*^9, 3.843713115525275*^9}, { 3.8437131610200434`*^9, 3.843713184083996*^9}, {3.8437132376823063`*^9, 3.8437133819533014`*^9}, {3.843713417383176*^9, 3.8437134591968803`*^9}, { 3.8437134969492474`*^9, 3.843714009759672*^9}, {3.8437140452435923`*^9, 3.843714111557973*^9}, {3.8437141639936004`*^9, 3.8437142958338394`*^9}, { 3.843714347828083*^9, 3.843714402241315*^9}, {3.843714446367948*^9, 3.843714483293212*^9}, {3.8437145134209394`*^9, 3.843714607114248*^9}, { 3.8437146421322346`*^9, 3.8437147443335323`*^9}, {3.843714859691022*^9, 3.843714880661008*^9}, 3.843727661110819*^9, {3.843727788123135*^9, 3.843727809991126*^9}, {3.8437278452671795`*^9, 3.843727866796069*^9}, { 3.8437279042833357`*^9, 3.8437279384702826`*^9}, {3.8437279917906923`*^9, 3.843728014300745*^9}, {3.843728058011294*^9, 3.843728070994938*^9}, { 3.843728283567544*^9, 3.843728295020647*^9}, 3.843728354372954*^9, { 3.8437284108832283`*^9, 3.84372844664116*^9}, {3.8437294169912252`*^9, 3.8437294179220486`*^9}, {3.8437297801112328`*^9, 3.843729783271413*^9}, { 3.843729818792511*^9, 3.8437298264312377`*^9}, {3.843729863878994*^9, 3.8437298922040176`*^9}, {3.8437299343862047`*^9, 3.8437299383156004`*^9}, {3.843730017696064*^9, 3.843730021118506*^9}, { 3.8437301229230814`*^9, 3.8437301232077713`*^9}, {3.8437301781460457`*^9, 3.843730179049358*^9}, {3.843730519602999*^9, 3.843730531038521*^9}, { 3.843730580731274*^9, 3.8437305815804663`*^9}, {3.8437307799694905`*^9, 3.8437307804542665`*^9}, {3.8437357974539785`*^9, 3.843735798798041*^9}, { 3.843739734808449*^9, 3.84373974053426*^9}, {3.8437397734028144`*^9, 3.8437397736272783`*^9}, {3.8437399266072054`*^9, 3.8437399307183466`*^9}, {3.8437785391874743`*^9, 3.843778614827943*^9}, { 3.8437797173996153`*^9, 3.8437798317379956`*^9}, {3.84378091552238*^9, 3.843780918197078*^9}, {3.843800344508738*^9, 3.8438003688560977`*^9}, 3.843800482587283*^9, 3.843885974191356*^9, {3.843886124599569*^9, 3.8438861258441687`*^9}, {3.843886202594633*^9, 3.8438862617074957`*^9}, { 3.843886373235973*^9, 3.843886456299819*^9}, {3.8438865015860643`*^9, 3.8438865027697735`*^9}, {3.8438865354952965`*^9, 3.843886536284978*^9}, { 3.8438865795954227`*^9, 3.843886580704484*^9}, {3.843886626985989*^9, 3.8438866287525787`*^9}, {3.8438869644711795`*^9, 3.8438869646956034`*^9}, {3.843887006314372*^9, 3.8438870254462175`*^9}, { 3.8438873515358677`*^9, 3.8438875392735586`*^9}, {3.843887597338445*^9, 3.8438876777781754`*^9}, {3.84388775598219*^9, 3.8438877747534003`*^9}, { 3.843887816092876*^9, 3.8438880757912474`*^9}, {3.843888113458597*^9, 3.8438881782660666`*^9}, {3.843888233176072*^9, 3.8438882810182943`*^9}, { 3.843888336735701*^9, 3.843888366047564*^9}, {3.8438884962978516`*^9, 3.8438885169893637`*^9}, {3.8438885470288663`*^9, 3.84388874907994*^9}, { 3.843888807202323*^9, 3.8438888219768677`*^9}, {3.8438889218946505`*^9, 3.843888935598253*^9}, {3.84388896808926*^9, 3.843889095417819*^9}, 3.847350727426014*^9, {3.8473508140933285`*^9, 3.847350928494855*^9}, { 3.847351133313609*^9, 3.8473511340464673`*^9}, 3.847351179416072*^9, 3.8781793367523603`*^9, {3.8781793717692447`*^9, 3.8781793731665306`*^9}, { 3.878179410613021*^9, 3.8781794121179233`*^9}, {3.910010734176705*^9, 3.910010741116171*^9}, 3.9100107976393723`*^9, {3.910010832696289*^9, 3.910010875982216*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"904f89dd-4cc3-4bdc-9371-255c8e6861ae"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"problem", " ", "desciption"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "fz"}], "}"}]}], "}"}], ",", "#"}], "}"}], "&"}], ",", "eleout"}], "]"}], " ", "//.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", RowBox[{"First", "[", "#2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"First", "[", "#2", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "&"}], ",", "crdout"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"BP", ",", RowBox[{"2", ";;", "3"}]}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2", ",", "3"}], "]"}], "]"}], " ", "/.", "sol"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.843712489561475*^9, 3.8437125191636505`*^9}, { 3.8437125669452877`*^9, 3.8437128861466413`*^9}, {3.8437129974672656`*^9, 3.843713013276997*^9}, {3.8437130877334933`*^9, 3.843713115525275*^9}, { 3.8437131610200434`*^9, 3.843713184083996*^9}, {3.8437132376823063`*^9, 3.8437133819533014`*^9}, {3.843713417383176*^9, 3.8437134591968803`*^9}, { 3.8437134969492474`*^9, 3.843714009759672*^9}, {3.8437140452435923`*^9, 3.843714111557973*^9}, {3.8437141639936004`*^9, 3.8437142958338394`*^9}, { 3.843714347828083*^9, 3.843714402241315*^9}, {3.843714446367948*^9, 3.843714483293212*^9}, {3.8437145134209394`*^9, 3.843714607114248*^9}, { 3.8437146421322346`*^9, 3.8437147443335323`*^9}, {3.843714859691022*^9, 3.843714880661008*^9}, 3.843727661110819*^9, {3.843727788123135*^9, 3.843727809991126*^9}, {3.8437278452671795`*^9, 3.843727866796069*^9}, { 3.8437279042833357`*^9, 3.8437279384702826`*^9}, {3.8437279917906923`*^9, 3.843728014300745*^9}, {3.843728058011294*^9, 3.843728070994938*^9}, { 3.843728283567544*^9, 3.843728295020647*^9}, 3.843728354372954*^9, { 3.8437284108832283`*^9, 3.84372844664116*^9}, {3.8437294169912252`*^9, 3.8437294179220486`*^9}, {3.8437297801112328`*^9, 3.843729783271413*^9}, { 3.843729818792511*^9, 3.8437298264312377`*^9}, {3.843729863878994*^9, 3.8437298922040176`*^9}, {3.8437299343862047`*^9, 3.8437299383156004`*^9}, {3.843730017696064*^9, 3.843730021118506*^9}, { 3.8437301229230814`*^9, 3.8437301232077713`*^9}, {3.8437301781460457`*^9, 3.843730179049358*^9}, {3.843730519602999*^9, 3.843730531038521*^9}, { 3.843730580731274*^9, 3.8437305815804663`*^9}, {3.8437307799694905`*^9, 3.8437307804542665`*^9}, {3.8437357974539785`*^9, 3.843735798798041*^9}, { 3.843739734808449*^9, 3.84373974053426*^9}, {3.8437397734028144`*^9, 3.8437397736272783`*^9}, {3.8437399266072054`*^9, 3.8437399307183466`*^9}, {3.8437785391874743`*^9, 3.843778614827943*^9}, { 3.8437797173996153`*^9, 3.8437798317379956`*^9}, {3.84378091552238*^9, 3.843780918197078*^9}, {3.843800344508738*^9, 3.8438003688560977`*^9}, 3.843800482587283*^9, 3.843885974191356*^9, {3.843886124599569*^9, 3.8438861258441687`*^9}, {3.843886202594633*^9, 3.8438862617074957`*^9}, { 3.843886373235973*^9, 3.843886456299819*^9}, {3.8438865015860643`*^9, 3.8438865027697735`*^9}, {3.8438865354952965`*^9, 3.843886536284978*^9}, { 3.8438865795954227`*^9, 3.843886580704484*^9}, {3.843886626985989*^9, 3.8438866287525787`*^9}, {3.8438869644711795`*^9, 3.8438869646956034`*^9}, {3.843887006314372*^9, 3.8438870254462175`*^9}, { 3.8438873515358677`*^9, 3.8438875392735586`*^9}, {3.843887597338445*^9, 3.8438876777781754`*^9}, {3.84388775598219*^9, 3.8438877747534003`*^9}, { 3.843887816092876*^9, 3.8438880757912474`*^9}, {3.843888113458597*^9, 3.8438881782660666`*^9}, {3.843888233176072*^9, 3.8438882810182943`*^9}, { 3.843888336735701*^9, 3.843888366047564*^9}, {3.8438884962978516`*^9, 3.8438885169893637`*^9}, {3.8438885470288663`*^9, 3.84388874907994*^9}, { 3.843888807202323*^9, 3.8438888219768677`*^9}, {3.8438889218946505`*^9, 3.843888935598253*^9}, {3.84388896808926*^9, 3.843889095417819*^9}, 3.847350727426014*^9, {3.8473508140933285`*^9, 3.847350928494855*^9}, { 3.847351133313609*^9, 3.8473511340464673`*^9}, 3.847351179416072*^9, 3.8781793367523603`*^9, {3.8781793717692447`*^9, 3.8781793731665306`*^9}, { 3.878179410613021*^9, 3.8781794121179233`*^9}, {3.910010734176705*^9, 3.910010741116171*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"24fd6d6f-e2fb-41f0-9108-a1960923935d"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.8 (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, 3.6043261554004374`*^9, 3.604326368715212*^9, 3.6358539327435455`*^9, {3.6887937711269617`*^9, 3.688793777686971*^9}, { 3.751956230687197*^9, 3.751956232420846*^9}, {3.7519588554399524`*^9, 3.7519588723107996`*^9}, 3.7836564411191063`*^9, 3.8155469543000364`*^9},ExpressionUUID->"f4cf8894-a90d-4a31-a231-\ df0a2ff36898"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", RowBox[{"x", "/", "L"}]}]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "L", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "L"}], "-", "1"}], ")"}]}]}]}], ",", "\[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]", RowBox[{"fz", "=", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{"h", "/", "2"}]}], "}"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "=", 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[{ RowBox[{ 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"}]}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "fz"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", 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]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}], " ", "/.", RowBox[{"x", "\[Rule]", "L"}]}]}]}], "]"}], " ", "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043262260529613`*^9, 3.6043262636958275`*^9}, {3.6043262960190845`*^9, 3.6043263263143377`*^9}, {3.63585396708951*^9, 3.6358539860515947`*^9}, { 3.635854025494851*^9, 3.635854093723753*^9}, {3.63585412688665*^9, 3.635854205140126*^9}, 3.6358542470575237`*^9, 3.6885399659752016`*^9, { 3.688542406818619*^9, 3.688542488158733*^9}, {3.688542555158827*^9, 3.688542655038966*^9}, {3.68854276460912*^9, 3.688542769519127*^9}, { 3.6885435013701515`*^9, 3.688543502520153*^9}, {3.688543571200249*^9, 3.688543605190297*^9}, {3.6885436559003677`*^9, 3.6885437827205453`*^9}, 3.688715150969486*^9, {3.6887155365000257`*^9, 3.688715884650513*^9}, { 3.688716631661559*^9, 3.6887166460915794`*^9}, {3.688716690951642*^9, 3.6887167116016707`*^9}, {3.688720675138956*^9, 3.6887209105792856`*^9}, { 3.6887209479293375`*^9, 3.6887210602094946`*^9}, {3.6888832605361176`*^9, 3.68888326246612*^9}, 3.6888836255766287`*^9, 3.688884209877446*^9, { 3.6890594302881937`*^9, 3.6890594382482047`*^9}, {3.689396676065892*^9, 3.6893966924259157`*^9}, {3.703313836517067*^9, 3.7033138458826027`*^9}, { 3.703313876916377*^9, 3.70331397260585*^9}, {3.703314040231718*^9, 3.703314055920616*^9}, {3.7033141329970245`*^9, 3.7033141886852093`*^9}, { 3.703314226755387*^9, 3.7033142874298573`*^9}, {3.7033144069136915`*^9, 3.7033144174202924`*^9}, 3.703314511466672*^9, {3.70331455707228*^9, 3.7033146861866646`*^9}, {3.7033147266539793`*^9, 3.7033147542205563`*^9}, {3.7033147870404334`*^9, 3.7033148567674217`*^9}, {3.7519589825190053`*^9, 3.751958992688488*^9}, { 3.7519590463789845`*^9, 3.7519591954850564`*^9}, {3.7519592534400897`*^9, 3.751959255720559*^9}, {3.751959316050466*^9, 3.751959322736043*^9}, { 3.7519593624767447`*^9, 3.7519593674601803`*^9}, {3.784004021508711*^9, 3.784004045138651*^9}, {3.7840040801209717`*^9, 3.7840041253037786`*^9}, { 3.7840041599964066`*^9, 3.784004302649433*^9}, {3.784004345016542*^9, 3.7840043675617743`*^9}, {3.784004486581006*^9, 3.784004525427271*^9}, { 3.843887245378562*^9, 3.8438872460182486`*^9}, {3.8470012669991064`*^9, 3.847001288793158*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"a9c5e014-df91-41b5-85f5-e7bcfa982602"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.9 (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, 3.6043261554004374`*^9, 3.604326368715212*^9, 3.6358539327435455`*^9, {3.688793491656571*^9, 3.6887934970465784`*^9}, { 3.751956180558316*^9, 3.751956191868157*^9}, {3.75195623634207*^9, 3.7519562479799566`*^9}, {3.7519565457228656`*^9, 3.751956553783457*^9}, 3.751968367989352*^9, 3.7836564454267206`*^9, 3.8155469570423107`*^9},ExpressionUUID->"57e77531-a026-4240-8382-\ 1980ff7d5a10"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n", "=", "4"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}], ".", RowBox[{"Array", "[", RowBox[{"a", ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}], ".", RowBox[{"Array", "[", RowBox[{"b", ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}], ".", RowBox[{"Array", "[", RowBox[{"c", ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}]}], "]"}]}]}], ",", "\[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]", RowBox[{"fz", "=", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{"h", "/", "2"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"rule", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"h", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", "1"}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "1"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0"}], ",", RowBox[{"\[Rho]", " ", "\[Rule]", "1"}], ",", RowBox[{"g", "\[Rule]", "1"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint1", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", "3"], "/", "12"}], "*", "E\[Sigma]"}], ")"}], ".", 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[{"\[Delta]wint2", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}]}], "}"}]}]}], "*", "t", "*", "G"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "fz"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint1", "+", "\[Delta]wint2", "+", "\[Delta]wext"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], "/.", StyleBox[" ", "OperatorCharacter"], StyleBox["rule", "OperatorCharacter"]}]}], StyleBox[" ", "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"w", "/.", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}], " ", "/.", RowBox[{"x", "\[Rule]", "1"}]}], ",", RowBox[{"G", "\[Rule]", "Infinity"}]}], "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.6888689611245327`*^9, 3.6888691441747894`*^9}, { 3.688869175904834*^9, 3.6888691949848604`*^9}, {3.688869303295012*^9, 3.6888694251851826`*^9}, {3.688869534825336*^9, 3.6888695373653393`*^9}, { 3.6888695909654145`*^9, 3.688869620615456*^9}, {3.6888696695055246`*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.6888698131457253`*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516861997`*^9, {3.688870779087078*^9, 3.6888708600371914`*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.6888713416978655`*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.6888751073437386`*^9, {3.6888752493389473`*^9, 3.6888752569189587`*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.6888754299492006`*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.6888787903179283`*^9, 3.6888788206179705`*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.6890585394429307`*^9, 3.6890585586029577`*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.6890586753831205`*^9, 3.6890587218131857`*^9, {3.6890588371733475`*^9, 3.6890588479333625`*^9}, 3.6890593143580313`*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.7519568500887613`*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.7519570979991937`*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, { 3.751968386812757*^9, 3.75196845897968*^9}, {3.751968516184675*^9, 3.7519685359147015`*^9}, {3.7519685671571083`*^9, 3.7519685887613487`*^9}, 3.751968621441209*^9, {3.7519686521214466`*^9, 3.751968677631068*^9}, { 3.7519688415746813`*^9, 3.751968856055916*^9}, 3.751969316157104*^9, { 3.751969494310449*^9, 3.751969521850837*^9}, 3.751969706308375*^9, { 3.784004998001523*^9, 3.784005426568697*^9}, {3.784005472174257*^9, 3.7840054916320624`*^9}, {3.7840056133743753`*^9, 3.7840056607331967`*^9}, {3.784005783232899*^9, 3.7840060277781363`*^9}, { 3.7840060844339232`*^9, 3.784006092863429*^9}, {3.7840086605295753`*^9, 3.7840086646764107`*^9}, {3.7840088463216295`*^9, 3.784008912717235*^9}, { 3.7840094669899406`*^9, 3.7840094842853155`*^9}, {3.784009633514021*^9, 3.784009747383206*^9}, {3.7840098033288107`*^9, 3.7840098562826834`*^9}, { 3.784009941620722*^9, 3.784009942275926*^9}, {3.78436765790169*^9, 3.784367716911665*^9}, 3.843624472027237*^9}, CellLabel-> "In[122]:=",ExpressionUUID->"dc384cfd-ad44-42b1-977d-7207eebe611a"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (Beam)", "Subsubsection", CellChangeTimes->{{3.4467272545257998`*^9, 3.4467272551809998`*^9}, { 3.4470326830236*^9, 3.4470326987172003`*^9}, {3.4470327910732*^9, 3.4470328568272*^9}, {3.4470332885104*^9, 3.4470332996644*^9}, 3.4803955556906*^9, 3.4803956288746*^9, 3.5741318501832905`*^9, { 3.688907262668313*^9, 3.688907263698314*^9}, {3.7518564487888465`*^9, 3.7518564599036164`*^9}, {3.7838338276407895`*^9, 3.7838338318801365`*^9}},ExpressionUUID->"b980e8b7-c8f2-4d72-a034-\ 89739394a800"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["t", "2"], ",", RowBox[{ SuperscriptBox["t", "4"], "/", "12"}], ",", RowBox[{ SuperscriptBox["t", "4"], "/", "12"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "g", " ", RowBox[{ SuperscriptBox["t", "2"], "/", SqrtBox["2"]}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", RowBox[{ SuperscriptBox["t", "2"], "/", SqrtBox["2"]}]}]}], "}"}]}], "}"}], ",", 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[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4470329272144003`*^9, 3.447032945326*^9}, { 3.4470329838892*^9, 3.4470330443859997`*^9}, {3.4470330828556004`*^9, 3.4470331057096*^9}, {3.4470331580632*^9, 3.447033193756*^9}, { 3.4470333076984*^9, 3.4470334514368*^9}, {3.635213204984849*^9, 3.6352134019321136`*^9}, {3.6352137922734404`*^9, 3.635213850699782*^9}, 3.6352139351176105`*^9, {3.635216913411959*^9, 3.6352169164011297`*^9}, { 3.6352170892600174`*^9, 3.635217143791136*^9}, {3.635217414188602*^9, 3.6352174172177753`*^9}, {3.6352178017787704`*^9, 3.6352178041859083`*^9}, {3.6352181563510513`*^9, 3.6352181607243013`*^9}, {3.6352491991145163`*^9, 3.635249202022682*^9}, { 3.6889072794883366`*^9, 3.6889073638684545`*^9}, {3.6889079728927164`*^9, 3.6889081550629716`*^9}, {3.688908283083151*^9, 3.688908284333153*^9}, { 3.6889087666538277`*^9, 3.688908766843828*^9}, 3.688910125975731*^9, { 3.7518564811558094`*^9, 3.7518566618666534`*^9}, {3.7518566958830357`*^9, 3.7518567325936937`*^9}, {3.783929980295684*^9, 3.7839299896483116`*^9}, { 3.8472567453558064`*^9, 3.8472567535519166`*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"da7f5b52-0e96-449a-8aa5-700f171a0498"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (Beam)", "Subsubsection", CellChangeTimes->{{3.4467272545257998`*^9, 3.4467272551809998`*^9}, { 3.4470326830236*^9, 3.4470326987172003`*^9}, {3.4470327910732*^9, 3.4470328568272*^9}, {3.4470332885104*^9, 3.4470332996644*^9}, 3.4803955556906*^9, 3.4803956288746*^9, 3.5741318501832905`*^9, { 3.688907262668313*^9, 3.688907263698314*^9}, 3.7518932843166037`*^9, { 3.7518933408411922`*^9, 3.7518933456566167`*^9}, 3.7836564660188074`*^9},ExpressionUUID->"d2ed1f7c-0069-4d6c-876e-\ 373c52bdfa3a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", " ", "t"}], ",", RowBox[{ FractionBox["1", "12"], "b", " ", SuperscriptBox["t", "3"]}], ",", RowBox[{ FractionBox["1", "12"], "t", " ", SuperscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", 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[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "/.", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4470329272144003`*^9, 3.447032945326*^9}, { 3.4470329838892*^9, 3.4470330443859997`*^9}, {3.4470330828556004`*^9, 3.4470331057096*^9}, {3.4470331580632*^9, 3.447033193756*^9}, { 3.4470333076984*^9, 3.4470334514368*^9}, {3.635213204984849*^9, 3.6352134019321136`*^9}, {3.6352137922734404`*^9, 3.635213850699782*^9}, 3.6352139351176105`*^9, {3.635216913411959*^9, 3.6352169164011297`*^9}, { 3.6352170892600174`*^9, 3.635217143791136*^9}, {3.635217414188602*^9, 3.6352174172177753`*^9}, {3.6352178017787704`*^9, 3.6352178041859083`*^9}, {3.6352181563510513`*^9, 3.6352181607243013`*^9}, {3.6352491991145163`*^9, 3.635249202022682*^9}, { 3.6889072794883366`*^9, 3.6889073638684545`*^9}, {3.6889079728927164`*^9, 3.6889081550629716`*^9}, {3.688908283083151*^9, 3.688908284333153*^9}, { 3.6889087666538277`*^9, 3.688908766843828*^9}, 3.688910125975731*^9, { 3.751893291788067*^9, 3.751893317183008*^9}, 3.8473364489315867`*^9, { 3.8784561326780896`*^9, 3.878456136328779*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"735ccb14-6d5e-4865-9d68-b16b4b5069a6"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (Offset beam)", "Subsubsection", CellChangeTimes->{{3.4467272545257998`*^9, 3.4467272551809998`*^9}, { 3.4470326830236*^9, 3.4470326987172003`*^9}, {3.4470327910732*^9, 3.4470328568272*^9}, {3.4470332885104*^9, 3.4470332996644*^9}, { 3.4470334831672*^9, 3.4470335040243998`*^9}, 3.4803956534896*^9, 3.5741318548008986`*^9, {3.6889072673183193`*^9, 3.688907271408325*^9}, { 3.751893349010321*^9, 3.7518933577588253`*^9}, 3.783656468810971*^9},ExpressionUUID->"25a8d750-1d96-4553-a668-\ 5f62faeb35a2"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", " ", "t"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "b", " ", SuperscriptBox["t", "2"]}], ",", "0", ",", RowBox[{ FractionBox["1", "3"], "b", " ", SuperscriptBox["t", "3"]}], ",", RowBox[{ FractionBox["1", "12"], "t", " ", SuperscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", 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[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "/.", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"G", "->", "Infinity"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4470329272144003`*^9, 3.447032945326*^9}, { 3.4470329838892*^9, 3.4470330443859997`*^9}, {3.4470330828556004`*^9, 3.4470331057096*^9}, {3.4470331580632*^9, 3.447033193756*^9}, { 3.4470333076984*^9, 3.4470334514368*^9}, {3.4470335907448*^9, 3.4470337472284*^9}, 3.44703378562*^9, {3.4470338403448*^9, 3.4470338832448*^9}, {3.5009899888969355`*^9, 3.5009900696893353`*^9}, { 3.5009902954525356`*^9, 3.5009902982761354`*^9}, 3.6352139588569684`*^9, { 3.635214007900773*^9, 3.6352140369384346`*^9}, {3.6352140679872103`*^9, 3.6352140708653746`*^9}, {3.635214275357071*^9, 3.635214297510338*^9}, { 3.6352176507351313`*^9, 3.6352176938575983`*^9}, {3.6352178267371984`*^9, 3.6352178285643024`*^9}, 3.6352179455099916`*^9, 3.635218172539977*^9, { 3.6352207575538316`*^9, 3.6352207626921253`*^9}, 3.6352234981135826`*^9, { 3.635223537819854*^9, 3.6352235603151407`*^9}, {3.6352235942730827`*^9, 3.635223606775798*^9}, 3.6352251520741835`*^9, {3.635249218964651*^9, 3.6352492226188602`*^9}, {3.635657579376608*^9, 3.6356575800946493`*^9}, { 3.6889088012238765`*^9, 3.688908893854006*^9}, {3.688908934494063*^9, 3.688908937814068*^9}, {3.688909226634472*^9, 3.6889092820245495`*^9}, { 3.688910060225639*^9, 3.688910062965643*^9}, 3.688910160135779*^9, { 3.751894760101399*^9, 3.751894792757862*^9}, {3.7838359055206103`*^9, 3.7838359465220375`*^9}, {3.783836305336522*^9, 3.7838363114717083`*^9}, { 3.7838363477005816`*^9, 3.783836348060169*^9}, {3.7838364074593997`*^9, 3.783836420910056*^9}, {3.7838365299155955`*^9, 3.7838365382980537`*^9}, { 3.783836574768899*^9, 3.783836597736317*^9}, {3.7838366295476255`*^9, 3.7838366616299777`*^9}, {3.7838366999366465`*^9, 3.783836723233356*^9}, { 3.7838367999954214`*^9, 3.7838368378984604`*^9}, 3.78383690243846*^9, 3.7838369415092535`*^9, {3.7838369753099723`*^9, 3.7838369926991367`*^9}, { 3.7838371245212994`*^9, 3.7838371258219757`*^9}, {3.783837325882361*^9, 3.783837329968996*^9}, {3.7838373731734457`*^9, 3.7838373794530525`*^9}, { 3.783837481853959*^9, 3.7838375447020855`*^9}, {3.783838264184908*^9, 3.783838264872538*^9}, {3.7838383113670483`*^9, 3.7838383403305244`*^9}, { 3.7838383728032694`*^9, 3.7838384186898136`*^9}, {3.7838384833916388`*^9, 3.7838385153372774`*^9}, 3.7838385925375953`*^9, {3.8472568545139713`*^9, 3.847256874358624*^9}, {3.8472604549785748`*^9, 3.847260468094096*^9}, { 3.84733603151758*^9, 3.847336037571719*^9}, {3.8473362203040733`*^9, 3.84733625102029*^9}}, CellLabel-> "In[587]:=",ExpressionUUID->"69d54410-5621-47dd-8085-4f2dc3f64343"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (Thin slab mode)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512854740185995`*^9, {3.7518966277446337`*^9, 3.7518966313635087`*^9}, {3.7518966840466094`*^9, 3.7518966964430327`*^9}, 3.783656471044837*^9},ExpressionUUID->"ed6d94c6-a05c-451f-b6da-\ 9654852ff719"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", " ", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{"F", ",", "F"}], "}"}]}], "/", "h"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"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"}], "}"}]}], "}"}], ",", " ", "\[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[{"0", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.751285580053713*^9, 3.751285833215563*^9}, {3.751285892965088*^9, 3.7512859156455746`*^9}, {3.751294088336151*^9, 3.7512940931475315`*^9}, 3.751896678757072*^9, {3.7518967088560967`*^9, 3.751896750956246*^9}, { 3.7518967904976397`*^9, 3.751896825142912*^9}, {3.8159731458788314`*^9, 3.815973164019205*^9}, {3.8473364663331127`*^9, 3.84733646779469*^9}, { 3.910011171452756*^9, 3.910011173596898*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"8fbdbe19-fdc4-4199-b87c-2fd47590e6c4"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (Thin slab mode)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512854740185995`*^9, {3.7518966277446337`*^9, 3.7518966313635087`*^9}, {3.7518966840466094`*^9, 3.7518966964430327`*^9}, 3.7518999074620028`*^9, 3.783656481356152*^9},ExpressionUUID->"4fd28bbe-3ed0-43d0-991e-\ ad70ad35afac"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", " ", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{"F", ",", "F"}], "}"}]}], "/", "h"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"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"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{"L", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uX", "[", "2", "]"}]}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "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[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}]}], "}"}], "/.", " ", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.751285580053713*^9, 3.751285833215563*^9}, {3.751285892965088*^9, 3.7512859156455746`*^9}, {3.751294088336151*^9, 3.7512940931475315`*^9}, 3.751896678757072*^9, {3.7518967088560967`*^9, 3.751896750956246*^9}, { 3.7518967904976397`*^9, 3.751896825142912*^9}, {3.751899927321224*^9, 3.751900002203864*^9}, {3.7519002440328183`*^9, 3.751900246714067*^9}, { 3.8159731914390793`*^9, 3.815973191858983*^9}, {3.8473365772163486`*^9, 3.8473365787478848`*^9}, {3.847336624344222*^9, 3.847336684715886*^9}, { 3.847336724869244*^9, 3.847336732903336*^9}, {3.878456695062991*^9, 3.8784566995378246`*^9}, {3.878456792693279*^9, 3.8784568291081223`*^9}, { 3.8784568613549232`*^9, 3.8784568651832895`*^9}, {3.910011192489778*^9, 3.910011193668759*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"aefd3dfe-ca5f-4bfb-9708-c2b7bc42dadf"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (Plate strip bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.6889933424974422`*^9, 3.688993352477456*^9}, 3.6889988585223417`*^9, { 3.689480870769858*^9, 3.6894808898298845`*^9}, {3.7519025257121596`*^9, 3.7519025506918354`*^9}, {3.7519382063290777`*^9, 3.751938208231679*^9}, 3.783656483282949*^9},ExpressionUUID->"793e83c8-6db5-4aaf-8b42-\ 5162e9cce071"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}], RowBox[{"x", "/", "L"}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "H"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{"H", "/", "2"}]}], "}"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{"\[Delta]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"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}]}], " ", "]"}], "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043109233452473`*^9, 3.604311002296986*^9}, {3.6043110410942545`*^9, 3.604311044713461*^9}, { 3.604311077301918*^9, 3.6043113010219107`*^9}, 3.604311474057415*^9, { 3.6043115724311876`*^9, 3.6043115749739923`*^9}, {3.6043116205416718`*^9, 3.6043116224136753`*^9}, {3.6043116548617325`*^9, 3.604311738571479*^9}, { 3.6043119619326715`*^9, 3.6043119879847174`*^9}, {3.604312252108781*^9, 3.6043122715620155`*^9}, {3.604312318159297*^9, 3.604312461367549*^9}, { 3.6043125259828625`*^9, 3.6043125318016725`*^9}, {3.6043125750605483`*^9, 3.6043125754037495`*^9}, {3.6043127726660957`*^9, 3.604312785458118*^9}, { 3.636082009030026*^9, 3.6360821021793537`*^9}, {3.6360821353592515`*^9, 3.6360821994179153`*^9}, {3.6360822411353016`*^9, 3.636082308140134*^9}, { 3.636082428925042*^9, 3.6360824672832365`*^9}, 3.636082772513695*^9, { 3.6364550263262777`*^9, 3.636455043447257*^9}, 3.63645529332755*^9, 3.6364553732171187`*^9, {3.636455466633462*^9, 3.6364555214936*^9}, 3.6673026911198535`*^9, {3.688993360197467*^9, 3.6889934094075356`*^9}, { 3.6889934413475804`*^9, 3.6889934979176598`*^9}, {3.6889986435220413`*^9, 3.6889988109722757`*^9}, {3.689070158580252*^9, 3.6890701724702716`*^9}, { 3.7519025738975544`*^9, 3.751902597349186*^9}, {3.7519026561196384`*^9, 3.751902756450328*^9}, {3.7519060333921175`*^9, 3.7519060589399147`*^9}, { 3.783930236365265*^9, 3.7839303127654667`*^9}, {3.783930391905014*^9, 3.783930403087326*^9}, {3.7839304333343906`*^9, 3.7839305514885445`*^9}, 3.7839305989226093`*^9, {3.8159733122740855`*^9, 3.8159733753139997`*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"856aedd3-3de5-4c5a-8e6b-101a227dbbea"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, { 3.6043065528927712`*^9, 3.6043065559659767`*^9}, {3.688968109956272*^9, 3.6889681207962875`*^9}, 3.6890360320853367`*^9, {3.7519062113337307`*^9, 3.7519062159805574`*^9}, {3.75193819029403*^9, 3.7519381958375883`*^9}, 3.7836564856389265`*^9},ExpressionUUID->"13e33cbb-d02c-4d64-8951-\ 5f4f44bdbb2e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], RowBox[{"(", RowBox[{"y", "/", "L"}], " ", ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", "0"}]}], " ", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", 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"], "\[IndentingNewLine]", RowBox[{"\[Delta]Wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], "]"}], " ", "F"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"\[Delta]Wint", StyleBox["+", "OperatorCharacter"], "\[Delta]Wext"}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}]}], "]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.6043063458024073`*^9}, {3.604306388328082*^9, 3.604306585777629*^9}, {3.604306680859796*^9, 3.604306773664359*^9}, { 3.604306839636875*^9, 3.604306873239334*^9}, 3.604306909462598*^9, { 3.604307205047517*^9, 3.6043072143295326`*^9}, {3.604307265248022*^9, 3.6043072677752266`*^9}, 3.6043076582751126`*^9, 3.604308261886973*^9, { 3.635813960588502*^9, 3.635814073105937*^9}, {3.6358141191235695`*^9, 3.6358142680160856`*^9}, {3.6358143868928847`*^9, 3.6358145222866287`*^9}, {3.6358146212522893`*^9, 3.635814628802721*^9}, { 3.63581467179718*^9, 3.6358147952282405`*^9}, {3.6358148277330995`*^9, 3.635814923941602*^9}, {3.6358150940673327`*^9, 3.635815217771408*^9}, { 3.6889681964363937`*^9, 3.6889682630364866`*^9}, {3.6889682991865377`*^9, 3.688968367456633*^9}, {3.6889684003766794`*^9, 3.688968447666745*^9}, { 3.6889684883368025`*^9, 3.6889686700270567`*^9}, {3.68896870852711*^9, 3.688968718287124*^9}, {3.688968776057205*^9, 3.68896880792725*^9}, { 3.688968844597301*^9, 3.688968918827405*^9}, {3.7519062551015606`*^9, 3.751906260748067*^9}, {3.751906299952424*^9, 3.7519063104824934`*^9}, { 3.7519063665825987`*^9, 3.75190642764285*^9}, {3.783930642613084*^9, 3.7839308159304037`*^9}, {3.7839308465681953`*^9, 3.783930850174042*^9}, { 3.7839309476635942`*^9, 3.7839309516495805`*^9}, {3.815973475164554*^9, 3.81597367961854*^9}, {3.815973734328734*^9, 3.8159737931784654`*^9}, { 3.8159741021382065`*^9, 3.8159741042433434`*^9}, {3.8470010525091505`*^9, 3.8470010567080564`*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"48cda1ed-396b-4630-99d7-5b680aa527eb"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, { 3.6043065528927712`*^9, 3.6043065559659767`*^9}, {3.688968109956272*^9, 3.6889681207962875`*^9}, 3.6890360320853367`*^9, {3.7519062113337307`*^9, 3.7519062159805574`*^9}, {3.75193819029403*^9, 3.7519381958375883`*^9}, 3.7519382655155926`*^9, 3.783656487685109*^9},ExpressionUUID->"df600024-33dc-4290-aeb4-\ 26fe251da71c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "L"}]}], " ", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y", "/", "L"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Delta]Wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "}"}]}], "]"}], " ", "F"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"\[Delta]Wint", StyleBox["+", "OperatorCharacter"], "\[Delta]Wext"}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", " ", RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.6043063458024073`*^9}, {3.604306388328082*^9, 3.604306585777629*^9}, {3.604306680859796*^9, 3.604306773664359*^9}, { 3.604306839636875*^9, 3.604306873239334*^9}, 3.604306909462598*^9, { 3.604307205047517*^9, 3.6043072143295326`*^9}, {3.604307265248022*^9, 3.6043072677752266`*^9}, 3.6043076582751126`*^9, 3.604308261886973*^9, { 3.635813960588502*^9, 3.635814073105937*^9}, {3.6358141191235695`*^9, 3.6358142680160856`*^9}, {3.6358143868928847`*^9, 3.6358145222866287`*^9}, {3.6358146212522893`*^9, 3.635814628802721*^9}, { 3.63581467179718*^9, 3.6358147952282405`*^9}, {3.6358148277330995`*^9, 3.635814923941602*^9}, {3.6358150940673327`*^9, 3.635815217771408*^9}, { 3.6889681964363937`*^9, 3.6889682630364866`*^9}, {3.6889682991865377`*^9, 3.688968367456633*^9}, {3.6889684003766794`*^9, 3.688968447666745*^9}, { 3.6889684883368025`*^9, 3.6889686700270567`*^9}, {3.68896870852711*^9, 3.688968718287124*^9}, {3.688968776057205*^9, 3.68896880792725*^9}, { 3.688968844597301*^9, 3.688968918827405*^9}, {3.7519062551015606`*^9, 3.751906260748067*^9}, {3.751906299952424*^9, 3.7519063104824934`*^9}, { 3.7519063665825987`*^9, 3.75190642764285*^9}, {3.751938280407312*^9, 3.7519383053581076`*^9}, 3.751938346439109*^9, {3.7519383810733995`*^9, 3.751938384180049*^9}, {3.783930910689376*^9, 3.7839310542359285`*^9}, { 3.81597383462962*^9, 3.8159738993084717`*^9}, {3.8159740098488607`*^9, 3.8159740393184023`*^9}, {3.8159740785486064`*^9, 3.8159740846078568`*^9}, 3.8470010260834103`*^9}, CellLabel-> "In[152]:=",ExpressionUUID->"3a2f78ad-9260-42bb-8330-c56e2e325703"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (Plate bending)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.6889689555874567`*^9, 3.6889689557074566`*^9}, { 3.7519381865838604`*^9, 3.751938204137138*^9}, 3.7836564905245705`*^9},ExpressionUUID->"7896620f-1289-4410-b2ae-\ b01279d699a0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[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"]}], ")"}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}]}], " ", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", " ", RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}]}], " ", "]"}], "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, 3.635815254775525*^9, { 3.635815306485482*^9, 3.635815357946426*^9}, {3.6358153975456905`*^9, 3.635815400293848*^9}, {3.6889689965775137`*^9, 3.6889691458577228`*^9}, { 3.751938473097871*^9, 3.7519385148872175`*^9}, {3.783931151742539*^9, 3.7839311993580637`*^9}, {3.8159741664284697`*^9, 3.8159742181680007`*^9}, 3.8159742487689466`*^9}, CellLabel-> "In[153]:=",ExpressionUUID->"8e42fed0-41e6-47ac-9462-e180d1d278e1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (Virtual work)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, {3.6889572756379094`*^9, 3.6889572763479104`*^9}, 3.6889779027443466`*^9, {3.7518965140882363`*^9, 3.7518965226800327`*^9}, { 3.751938750101478*^9, 3.7519387588305473`*^9}, 3.783656492774307*^9},ExpressionUUID->"af29f515-6c17-4f87-ba79-\ 9c8a0fbeac97"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{"y", "/", "L"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}], RowBox[{"\[Theta]Y", "[", "3", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wext", "=", RowBox[{ RowBox[{"-", "M"}], "*", RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]Y", "[", RowBox[{ RowBox[{"L", "/", "4"}], ",", RowBox[{"L", "/", "2"}]}], "]"}], "]"}]}]}]}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043262260529613`*^9, 3.6043262636958275`*^9}, {3.6043262960190845`*^9, 3.6043263263143377`*^9}, {3.63585396708951*^9, 3.6358539860515947`*^9}, { 3.635854025494851*^9, 3.635854093723753*^9}, {3.63585412688665*^9, 3.635854205140126*^9}, 3.6358542470575237`*^9, 3.6885399659752016`*^9, { 3.688542406818619*^9, 3.688542488158733*^9}, {3.688542555158827*^9, 3.688542655038966*^9}, {3.68854276460912*^9, 3.688542769519127*^9}, { 3.6885435013701515`*^9, 3.688543502520153*^9}, {3.688543571200249*^9, 3.688543605190297*^9}, {3.6885436559003677`*^9, 3.6885437827205453`*^9}, { 3.6887935118365993`*^9, 3.688793540406639*^9}, {3.6887935912867103`*^9, 3.68879361258674*^9}, {3.68879369842686*^9, 3.6887937020868654`*^9}, { 3.688793804067008*^9, 3.68879381245702*^9}, {3.6887938523170757`*^9, 3.688793878327112*^9}, {3.6887939201671705`*^9, 3.6887939329171886`*^9}, { 3.688809028525826*^9, 3.68880903887584*^9}, {3.6888096953767595`*^9, 3.6888097390468206`*^9}, {3.6888099024470496`*^9, 3.6888099095570593`*^9}, {3.688810364147696*^9, 3.6888104325877914`*^9}, { 3.6888699116958637`*^9, 3.688869954045923*^9}, {3.688870212896285*^9, 3.6888702826463833`*^9}, {3.688870324776442*^9, 3.688870341366465*^9}, { 3.6888703736365104`*^9, 3.6888703737365103`*^9}, {3.688870541036745*^9, 3.6888706080368385`*^9}, {3.6888706877569504`*^9, 3.688870691966956*^9}, { 3.688871750438438*^9, 3.688871779498479*^9}, {3.688871834948556*^9, 3.68887184514857*^9}, 3.6888719193886747`*^9, 3.68887406629204*^9, { 3.688874175099601*^9, 3.6888742084784775`*^9}, {3.688874778973279*^9, 3.6888747878232913`*^9}, 3.6888750967337236`*^9, {3.688878647907729*^9, 3.688878680997775*^9}, 3.688878943988143*^9, 3.6888832221760635`*^9, { 3.6890362896656976`*^9, 3.6890363834158287`*^9}, {3.689036421615882*^9, 3.689036777676381*^9}, {3.689036812336429*^9, 3.6890368524464855`*^9}, { 3.689036899906552*^9, 3.6890369232465844`*^9}, {3.689036953746627*^9, 3.6890369796866636`*^9}, {3.6890370404767485`*^9, 3.689037048086759*^9}, { 3.689037094946825*^9, 3.6890371147668524`*^9}, {3.751938808135952*^9, 3.751938824684553*^9}, {3.751938860243642*^9, 3.751939111448078*^9}, 3.7839312396799526`*^9}, CellLabel->"In[38]:=",ExpressionUUID->"65e8efe4-930f-46b2-883d-d0502481e9a2"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (Beam bending mode)", "Subsubsection", CellChangeTimes->{{3.4783105840072002`*^9, 3.4783105927276*^9}, { 3.5728449762183576`*^9, 3.572844979151163*^9}, {3.5728453343325863`*^9, 3.5728453405569973`*^9}, {3.688118092873827*^9, 3.688118092983827*^9}, 3.688359609384676*^9, 3.7512866598973365`*^9, {3.751873567770299*^9, 3.75187357623706*^9}, {3.751938639882143*^9, 3.751938642396762*^9}, { 3.7519661121438475`*^9, 3.7519661395436525`*^9}, {3.7838631173771544`*^9, 3.783863122546702*^9}, {3.878177960883691*^9, 3.8781779638166676`*^9}},ExpressionUUID->"75e40b36-7343-484b-af31-\ 0d8496537aa0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"x", "^", "2"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"b", " ", "t"}]}], ",", "\[IndentingNewLine]", RowBox[{"Iyy", "=", RowBox[{"b", " ", RowBox[{ SuperscriptBox["t", "3"], "/", "12"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "L", "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", " ", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "}"}], "]"}]}], "\[CapitalEpsilon]", " ", "Iyy", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"x", StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4461905586956*^9, 3.4461905700524*^9}, { 3.4461906058543997`*^9, 3.4461906595184*^9}, {3.4461909080108*^9, 3.4461909084944*^9}, 3.4783106355184*^9, {3.572845003159605*^9, 3.5728450179796305`*^9}, {3.572845143575452*^9, 3.572845224321193*^9}, { 3.5728452678452697`*^9, 3.5728452910893106`*^9}, 3.6308071837539654`*^9, { 3.6308072232376347`*^9, 3.6308072806925354`*^9}, {3.630807380891511*^9, 3.6308073810631113`*^9}, 3.630807416662374*^9, {3.6308074522148366`*^9, 3.6308074569416447`*^9}, {3.630808242239827*^9, 3.6308082648781223`*^9}, 3.6308084593562455`*^9, {3.6345433582074366`*^9, 3.634543372320244*^9}, { 3.6346116313217573`*^9, 3.6346116325178256`*^9}, {3.666087872613713*^9, 3.666087886573511*^9}, {3.6881181216838675`*^9, 3.688118174223941*^9}, { 3.688118207333987*^9, 3.6881182190740037`*^9}, {3.6881198165987434`*^9, 3.6881198365987716`*^9}, {3.688119917098884*^9, 3.6881199552489376`*^9}, { 3.6881200535590754`*^9, 3.688120067969095*^9}, {3.6881202600693645`*^9, 3.6881202623293676`*^9}, {3.6882115663473253`*^9, 3.6882116196673994`*^9}, {3.6882146169274535`*^9, 3.688214623197462*^9}, { 3.68821534280847*^9, 3.6882153918885384`*^9}, {3.6882155882088137`*^9, 3.688215596588825*^9}, {3.688215832739156*^9, 3.688216010999405*^9}, { 3.6882160560194683`*^9, 3.6882161733196325`*^9}, {3.688216240949727*^9, 3.688216241329728*^9}, {3.6883602152375245`*^9, 3.68836024784757*^9}, 3.688360344247705*^9, {3.6883608241383767`*^9, 3.688360825178378*^9}, { 3.7512866791330085`*^9, 3.751286699056904*^9}, {3.7518735943577967`*^9, 3.7518736772780695`*^9}, {3.7519661481666827`*^9, 3.7519662902266593`*^9}, {3.7519663327325573`*^9, 3.7519663367628913`*^9}, {3.751966376173849*^9, 3.751966446798154*^9}, { 3.7838636295979414`*^9, 3.783863868422082*^9}, {3.7838639059018145`*^9, 3.783863908964238*^9}, {3.7838639679153423`*^9, 3.7838639734000444`*^9}, { 3.783864105610245*^9, 3.783864283265831*^9}, {3.7839179884119616`*^9, 3.783918035772231*^9}, {3.783918127450878*^9, 3.78391814927584*^9}, { 3.7840383839991336`*^9, 3.784038405187052*^9}, {3.7843645384447894`*^9, 3.7843645390069814`*^9}, {3.7843645808725567`*^9, 3.7843646011455536`*^9}, {3.7843646898444138`*^9, 3.784364693345668*^9}, { 3.7843647342699285`*^9, 3.784364738577711*^9}, {3.7843647781334476`*^9, 3.784364845748866*^9}, {3.7843648766378193`*^9, 3.784364887768874*^9}, { 3.784370077763171*^9, 3.7843701161273317`*^9}, {3.847338938839561*^9, 3.8473389418309765`*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"e1f2638c-ce7e-4ebe-81a4-9467c2487233"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.4736023747714*^9, 3.4736023781098003`*^9}, { 3.6868022785686846`*^9, 3.6868022850886936`*^9}, {3.7492979598334618`*^9, 3.749297959983119*^9}, 3.751966534292943*^9, {3.7838632193963895`*^9, 3.7838632250490403`*^9}, {3.8781779672368784`*^9, 3.878177970332885*^9}},ExpressionUUID->"25b8e96c-ed7b-43c8-98a0-\ 27ba2d82eed7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", SuperscriptBox["x", "2"]}]}], ",", "\[IndentingNewLine]", StyleBox[ RowBox[{"fz", "=", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "t"}]}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "b"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", RowBox[{"b", "/", "2"}]}], "}"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"b", ">", "0"}]}], "}"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5995329860720997`*^9, 3.5995329864777007`*^9}, { 3.630659778315757*^9, 3.630659828048644*^9}, {3.6306598914627557`*^9, 3.6306599306656246`*^9}, {3.6306599731444993`*^9, 3.6306599829569163`*^9}, {3.662454347459821*^9, 3.6624543518500724`*^9}, { 3.68526405607954*^9, 3.6852640707595606`*^9}, {3.6852641077696123`*^9, 3.685264155179679*^9}, 3.6852673060840898`*^9, {3.6853472003408313`*^9, 3.6853472271923676`*^9}, {3.6858570860961666`*^9, 3.685857127369527*^9}, { 3.6858768949343204`*^9, 3.685876957124408*^9}, {3.685876989354453*^9, 3.6858770065044775`*^9}, {3.686802340768771*^9, 3.6868023465387793`*^9}, { 3.687096288077949*^9, 3.687096301137967*^9}, {3.6870963358880157`*^9, 3.6870963412180233`*^9}, {3.6870963927480955`*^9, 3.687096425488141*^9}, { 3.688212170418171*^9, 3.688212173478175*^9}, 3.688212222858244*^9, { 3.718713559287408*^9, 3.718713566112142*^9}, {3.749297987905261*^9, 3.7492980245735807`*^9}, {3.7492980614235954`*^9, 3.7492980977687564`*^9}, {3.7519665466649914`*^9, 3.751966597028448*^9}, { 3.7519666286772346`*^9, 3.751966815242736*^9}, {3.7519668678711214`*^9, 3.751966880290109*^9}, {3.7838632121004066`*^9, 3.7838635234782686`*^9}, { 3.7838635706344037`*^9, 3.7838635939551997`*^9}, {3.783918089393834*^9, 3.783918095087676*^9}, {3.7839181658238006`*^9, 3.783918170518629*^9}, { 3.7840384239125705`*^9, 3.784038429895836*^9}, 3.7843683088109984`*^9, { 3.8159706335005927`*^9, 3.815970673200989*^9}, {3.815970713445261*^9, 3.8159707468098154`*^9}, {3.8159745383278017`*^9, 3.8159746407077513`*^9}, 3.8473392648401303`*^9}, CellLabel-> "In[155]:=",ExpressionUUID->"52c6221a-6a56-424a-a7b4-fe9cf70f6f92"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.8686838702521915`*^9},ExpressionUUID->"8f7af942-2e8f-4052-8251-\ 75d4301dd3fe"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (Beam bending and bar modes)", "Subsubsection", CellChangeTimes->{{3.4467272545257998`*^9, 3.4467272551809998`*^9}, { 3.4470326830236*^9, 3.4470326987172003`*^9}, {3.4470327910732*^9, 3.4470328568272*^9}, {3.4470332885104*^9, 3.4470332996644*^9}, 3.4803955556906*^9, 3.4803956288746*^9, 3.5741318501832905`*^9, { 3.688907262668313*^9, 3.688907263698314*^9}, {3.7518564487888465`*^9, 3.7518564599036164`*^9}, {3.7839176334545565`*^9, 3.7839176645245857`*^9}, {3.8781779727487965`*^9, 3.8781779792394314`*^9}},ExpressionUUID->"a6c7fff6-ad90-4b65-be40-\ f1ef5e43f3d5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["t", "2"], ",", RowBox[{ SuperscriptBox["t", "4"], "/", "12"}], ",", RowBox[{ SuperscriptBox["t", "4"], "/", "12"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "f"}], " ", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"f", " ", "L"}], ",", RowBox[{ RowBox[{"-", "f"}], " ", "L"}], " ", ",", "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", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4470329272144003`*^9, 3.447032945326*^9}, { 3.4470329838892*^9, 3.4470330443859997`*^9}, {3.4470330828556004`*^9, 3.4470331057096*^9}, {3.4470331580632*^9, 3.447033193756*^9}, { 3.4470333076984*^9, 3.4470334514368*^9}, {3.635213204984849*^9, 3.6352134019321136`*^9}, {3.6352137922734404`*^9, 3.635213850699782*^9}, 3.6352139351176105`*^9, {3.635216913411959*^9, 3.6352169164011297`*^9}, { 3.6352170892600174`*^9, 3.635217143791136*^9}, {3.635217414188602*^9, 3.6352174172177753`*^9}, {3.6352178017787704`*^9, 3.6352178041859083`*^9}, {3.6352181563510513`*^9, 3.6352181607243013`*^9}, {3.6352491991145163`*^9, 3.635249202022682*^9}, { 3.6889072794883366`*^9, 3.6889073638684545`*^9}, {3.6889079728927164`*^9, 3.6889081550629716`*^9}, {3.688908283083151*^9, 3.688908284333153*^9}, { 3.6889087666538277`*^9, 3.688908766843828*^9}, 3.688910125975731*^9, { 3.7518564811558094`*^9, 3.7518566618666534`*^9}, {3.7518566958830357`*^9, 3.7518567325936937`*^9}, {3.7839084427375174`*^9, 3.7839085027275615`*^9}, {3.7839122952361803`*^9, 3.7839123747779207`*^9}, {3.7839124503183956`*^9, 3.783912461712295*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"a1a3c5a2-7c40-4ee1-903a-77ce92267b58"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.6889933424974422`*^9, 3.688993352477456*^9}, 3.6889988585223417`*^9, { 3.689480870769858*^9, 3.6894808898298845`*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.7519386265381956`*^9, 3.7519386622978053`*^9}, { 3.8781779819182835`*^9, 3.8781779871723557`*^9}},ExpressionUUID->"d01be3bf-362e-4c3a-ac3f-\ 7439439c163e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "L"}]}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y", "/", "L"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", " ", RowBox[{"f", " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "L"}]}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y", "/", "L"}]}], "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", " ", RowBox[{"w", " ", "/.", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}]}], " ", "]"}], "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043109233452473`*^9, 3.604311002296986*^9}, {3.6043110410942545`*^9, 3.604311044713461*^9}, { 3.604311077301918*^9, 3.6043113010219107`*^9}, 3.604311474057415*^9, { 3.6043115724311876`*^9, 3.6043115749739923`*^9}, {3.6043116205416718`*^9, 3.6043116224136753`*^9}, {3.6043116548617325`*^9, 3.604311738571479*^9}, { 3.6043119619326715`*^9, 3.6043119879847174`*^9}, {3.604312252108781*^9, 3.6043122715620155`*^9}, {3.604312318159297*^9, 3.604312461367549*^9}, { 3.6043125259828625`*^9, 3.6043125318016725`*^9}, {3.6043125750605483`*^9, 3.6043125754037495`*^9}, {3.6043127726660957`*^9, 3.604312785458118*^9}, { 3.636082009030026*^9, 3.6360821021793537`*^9}, {3.6360821353592515`*^9, 3.6360821994179153`*^9}, {3.6360822411353016`*^9, 3.636082308140134*^9}, { 3.636082428925042*^9, 3.6360824672832365`*^9}, 3.636082772513695*^9, { 3.6364550263262777`*^9, 3.636455043447257*^9}, 3.63645529332755*^9, 3.6364553732171187`*^9, {3.636455466633462*^9, 3.6364555214936*^9}, 3.6673026911198535`*^9, {3.688993360197467*^9, 3.6889934094075356`*^9}, { 3.6889934413475804`*^9, 3.6889934979176598`*^9}, {3.6889986435220413`*^9, 3.6889988109722757`*^9}, {3.689070158580252*^9, 3.6890701724702716`*^9}, { 3.75186550410758*^9, 3.7518656604145575`*^9}, {3.751865728032886*^9, 3.751865773303449*^9}, {3.7518658124036255`*^9, 3.7518658214955225`*^9}, { 3.7518658552375374`*^9, 3.7518658598771863`*^9}, {3.7518659717099*^9, 3.751866085179107*^9}, 3.7839177034967346`*^9, 3.7839185417062864`*^9, { 3.7839185739816604`*^9, 3.783918629207261*^9}, {3.7839452946382055`*^9, 3.783945323002612*^9}, {3.815974299934433*^9, 3.8159743434080467`*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"8d2b8558-ac03-4374-8190-f650a342ff7a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.4467272483794003`*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.5744708417194977`*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.6889933424974422`*^9, 3.688993352477456*^9}, 3.6889988585223417`*^9, { 3.689480870769858*^9, 3.6894808898298845`*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.7519386265381956`*^9, 3.7519386622978053`*^9}, { 3.7838621732103148`*^9, 3.783862173777651*^9}, {3.878177989789151*^9, 3.8781779950535936`*^9}},ExpressionUUID->"fc5bfcbd-2424-4fc3-aab3-\ 753c661c1714"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Lets", " ", "start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", SuperscriptBox["x", "2"], SuperscriptBox["y", "2"]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[Nu]", "=", "0"}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fz", "=", RowBox[{"\[Rho]", " ", "g", " ", "t"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]w", ":=", RowBox[{ 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[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}], ")"}], ".", 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]", "[", "w", "]"}], " ", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"Integrate", "[", RowBox[{"\[Delta]w", ",", 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"], "\[IndentingNewLine]", " ", RowBox[{"SOLVE", "[", "\[Delta]WW", "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "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.5744707871506023`*^9, 3.5744707892254057`*^9}, {3.5744708230306654`*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.5744709163032293`*^9}, {3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.5744710339742355`*^9}, 3.6042992082891903`*^9, {3.6042992538197947`*^9, 3.6042992780501804`*^9}, { 3.6042993188655148`*^9, 3.6042993269519777`*^9}, {3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427600994`*^9, 3.6043059892481813`*^9}, { 3.604306056094299*^9, 3.604306314961153*^9}, {3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, { 3.6043089926234565`*^9, 3.604309008441884*^9}, {3.6043109233452473`*^9, 3.604311002296986*^9}, {3.6043110410942545`*^9, 3.604311044713461*^9}, { 3.604311077301918*^9, 3.6043113010219107`*^9}, 3.604311474057415*^9, { 3.6043115724311876`*^9, 3.6043115749739923`*^9}, {3.6043116205416718`*^9, 3.6043116224136753`*^9}, {3.6043116548617325`*^9, 3.604311738571479*^9}, { 3.6043119619326715`*^9, 3.6043119879847174`*^9}, {3.604312252108781*^9, 3.6043122715620155`*^9}, {3.604312318159297*^9, 3.604312461367549*^9}, { 3.6043125259828625`*^9, 3.6043125318016725`*^9}, {3.6043125750605483`*^9, 3.6043125754037495`*^9}, {3.6043127726660957`*^9, 3.604312785458118*^9}, { 3.636082009030026*^9, 3.6360821021793537`*^9}, {3.6360821353592515`*^9, 3.6360821994179153`*^9}, {3.6360822411353016`*^9, 3.636082308140134*^9}, { 3.636082428925042*^9, 3.6360824672832365`*^9}, 3.636082772513695*^9, { 3.6364550263262777`*^9, 3.636455043447257*^9}, 3.63645529332755*^9, 3.6364553732171187`*^9, {3.636455466633462*^9, 3.6364555214936*^9}, 3.6673026911198535`*^9, {3.688993360197467*^9, 3.6889934094075356`*^9}, { 3.6889934413475804`*^9, 3.6889934979176598`*^9}, {3.6889986435220413`*^9, 3.6889988109722757`*^9}, {3.689070158580252*^9, 3.6890701724702716`*^9}, { 3.75186550410758*^9, 3.7518656604145575`*^9}, {3.751865728032886*^9, 3.751865773303449*^9}, {3.7518658124036255`*^9, 3.7518658214955225`*^9}, { 3.7518658552375374`*^9, 3.7518658598771863`*^9}, {3.7518659717099*^9, 3.751866085179107*^9}, {3.783862187507926*^9, 3.783862723887079*^9}, 3.7838627567987103`*^9, {3.7838627975110397`*^9, 3.7838628317624273`*^9}, { 3.783862870605214*^9, 3.7838628960456295`*^9}, 3.78386294016465*^9, { 3.78386393060279*^9, 3.7838639355638156`*^9}, {3.783917730098337*^9, 3.783917864130623*^9}, {3.7839179089804335`*^9, 3.783917919226283*^9}, { 3.783918219871359*^9, 3.783918223138747*^9}, {3.7839183372149825`*^9, 3.783918352411933*^9}, {3.783918438427128*^9, 3.7839184537026205`*^9}, { 3.7840383415148354`*^9, 3.7840383772831526`*^9}, {3.815974451228001*^9, 3.815974500478052*^9}, 3.847338411001088*^9}, CellLabel-> "In[162]:=",ExpressionUUID->"4d3c253e-93f0-445f-84e0-4eba467134ac"] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{812.5714285714286, 472.2857142857143}, WindowMargins->{{Automatic, 10.28571428571422}, { Automatic, 70.28571428571428}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, TaggingRules-><|"TryRealOnly" -> False|>, Magnification:>1.25 Inherited, FrontEndVersion->"13.3 for Microsoft Windows (64-bit) (July 24, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"53ad4b5b-c0e7-4ba6-a97e-9cfcbe252b16" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1486, 22, 199, "Title",ExpressionUUID->"88382003-a489-4214-981a-b19c8fc5cd6f", InitializationCell->True], Cell[CellGroupData[{ Cell[2078, 48, 914, 15, 83, "Section",ExpressionUUID->"cb3a1f75-9a10-41d6-99b3-f59ad344b30e"], Cell[CellGroupData[{ Cell[3017, 67, 156, 2, 54, "Subsection",ExpressionUUID->"a2b5157e-9931-41be-af94-56c2731080a7"], Cell[3176, 71, 31655, 716, 1547, "Input",ExpressionUUID->"d722d9d5-e5a8-4723-b032-a2dac3cb4341", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[34868, 792, 88, 0, 38, "Subsection",ExpressionUUID->"2880ece4-57d6-4da6-850e-b3d83def7f8f"], Cell[34959, 794, 33133, 974, 1420, "Input",ExpressionUUID->"949f3c6e-b286-43ed-a34f-aa3dd4dc50a2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[68129, 1773, 87, 0, 38, "Subsection",ExpressionUUID->"259608e3-64c5-4b1e-83e1-b5792f128b91"], Cell[68219, 1775, 55687, 1478, 2974, "Input",ExpressionUUID->"112ff001-71b5-4ee9-8554-8dbbd43cfe73", InitializationCell->True], Cell[CellGroupData[{ Cell[123931, 3257, 4479, 126, 295, "Input",ExpressionUUID->"41ea94fa-3471-4e94-8419-fc65bb1db3f9"], Cell[128413, 3385, 553, 13, 32, "Output",ExpressionUUID->"5c70b6b9-c30b-46b3-afce-eb7f67ce14e8"], Cell[128969, 3400, 368, 7, 48, "Output",ExpressionUUID->"ccdfb145-d222-436f-9263-b885bb4f0ac1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[129386, 3413, 92, 0, 38, "Subsection",ExpressionUUID->"d89c3d2e-31e8-470a-bafe-d6836a98655c"], Cell[129481, 3415, 7124, 207, 514, "Input",ExpressionUUID->"a165fbae-254d-4945-9f41-5f8ade16ec6f", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[136654, 3628, 1136, 18, 65, "Section",ExpressionUUID->"86437964-b67c-4d4e-90d0-d30496792bce"], Cell[CellGroupData[{ Cell[137815, 3650, 273, 4, 54, "Subsection",ExpressionUUID->"e9926d23-a09f-4166-aecd-9400bd019c99"], Cell[138091, 3656, 844, 21, 87, "Input",ExpressionUUID->"60b1d3ba-de0b-48aa-902a-3a83e87980ed"] }, Closed]], Cell[CellGroupData[{ Cell[138972, 3682, 379, 6, 38, "Subsection",ExpressionUUID->"2ccf49ca-79f2-4805-b085-32b3d650d437"], Cell[139354, 3690, 18292, 449, 749, "Input",ExpressionUUID->"21781e36-b245-4c73-b2fa-7dfa637f51a1", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[157683, 4144, 273, 4, 38, "Subsection",ExpressionUUID->"eaa35285-81e7-40b4-b2c5-8d13aed3621f"], Cell[157959, 4150, 20962, 522, 936, "Input",ExpressionUUID->"1330ddda-ed28-4d07-b43b-4691aea868bc", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[178958, 4677, 324, 5, 38, "Subsection",ExpressionUUID->"ed5ef1fa-01d9-4d4f-a2aa-7ac2ee0a277c"], Cell[179285, 4684, 10149, 223, 442, "Input",ExpressionUUID->"9d6dfabb-bde7-4c44-9528-20da7d9d9de0", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[189471, 4912, 375, 6, 38, "Subsection",ExpressionUUID->"c74e8a16-8a3e-4487-b326-2ea0ac7abafb"], Cell[189849, 4920, 11256, 243, 406, "Input",ExpressionUUID->"4307d1b1-da3f-464a-a32a-7995695d6541", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[201142, 5168, 425, 6, 38, "Subsection",ExpressionUUID->"1cdfed34-4f44-42f0-a145-829e8aa5245c"], Cell[201570, 5176, 5006, 79, 96, "Input",ExpressionUUID->"2c527f04-6c37-4046-845c-95fc47b8219d", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[206625, 5261, 1138, 18, 65, "Section",ExpressionUUID->"67285ce7-d82f-41e3-a6e2-2cadc9c8944d"], Cell[CellGroupData[{ Cell[207788, 5283, 555, 8, 54, "Subsection",ExpressionUUID->"eecc05f4-082f-4ea4-8833-b9432509fcd7"], Cell[208346, 5293, 15755, 358, 464, "Input",ExpressionUUID->"8c073c8d-0706-4e83-893c-5df4b377e8ca", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[224138, 5656, 477, 7, 38, "Subsection",ExpressionUUID->"11fd43b9-caa7-4d32-b82f-feb20ad07129"], Cell[224618, 5665, 16148, 374, 702, "Input",ExpressionUUID->"47e5f451-a6d3-4a47-bac9-cfbda8063918", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[240803, 6044, 583, 8, 38, "Subsection",ExpressionUUID->"6d25bb91-fb19-48e1-b342-edba8ba57903"], Cell[241389, 6054, 6852, 116, 216, "Input",ExpressionUUID->"c19e2fb5-fdc7-48d2-adac-2f9250dbee7e", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[248278, 6175, 637, 9, 38, "Subsection",ExpressionUUID->"6189b05a-d7c5-47d8-b836-4858c162234b"], Cell[248918, 6186, 8566, 161, 292, "Input",ExpressionUUID->"7661e187-3a47-482f-ab52-af9fbf7a9753", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[257521, 6352, 691, 10, 38, "Subsection",ExpressionUUID->"9437abe6-9f46-4050-bf02-de966bdb5454"], Cell[258215, 6364, 6958, 118, 216, "Input",ExpressionUUID->"4490eba9-29e7-4f47-804d-1b5f11dca07a", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[265222, 6488, 1135, 18, 65, "Section",ExpressionUUID->"9b068719-9f7a-4418-ab5e-ca0ed75c7742"], Cell[CellGroupData[{ Cell[266382, 6510, 279, 5, 54, "Subsection",ExpressionUUID->"568fa040-cf3d-4218-b2d4-14fa7b6448e6", InitializationCell->True], Cell[266664, 6517, 43146, 863, 1496, "Input",ExpressionUUID->"dcfb3860-7bc8-44ad-857d-e09d41820290", InitializationCell->True], Cell[309813, 7382, 23729, 438, 866, "Input",ExpressionUUID->"5ea0bce4-84ce-492d-89b9-3e847d88ba6a"], Cell[333545, 7822, 18088, 304, 394, "Input",ExpressionUUID->"fdae9222-9e4e-488c-bd6b-b4f3f20163ae"] }, Closed]], Cell[CellGroupData[{ Cell[351670, 8131, 277, 5, 38, "Subsection",ExpressionUUID->"4b9a3adb-ddc5-4f1c-bb1a-35752a62e73f", InitializationCell->True], Cell[351950, 8138, 18524, 345, 523, "Input",ExpressionUUID->"5e2f721b-ed56-4b79-9ea8-8d1f94b66f93", InitializationCell->True], Cell[370477, 8485, 16394, 284, 451, "Input",ExpressionUUID->"9811c46f-63bc-4216-b1b4-d29a18bf4e52"] }, Closed]], Cell[CellGroupData[{ Cell[386908, 8774, 276, 5, 38, "Subsection",ExpressionUUID->"c72e91cc-693f-4ef5-a493-086e7069f242", InitializationCell->True], Cell[387187, 8781, 13811, 224, 175, "Input",ExpressionUUID->"7a5a368b-5362-4a49-8b5b-c4d3dd4b2f50", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[401035, 9010, 298, 5, 38, "Subsection",ExpressionUUID->"bb2740ac-ec0f-41e6-92a7-db34eeaaa4da", InitializationCell->True], Cell[401336, 9017, 21224, 423, 727, "Input",ExpressionUUID->"35e5187b-5439-4349-8c79-2e276a933f2f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[422597, 9445, 408, 7, 38, "Subsection",ExpressionUUID->"ccb08159-1c02-418a-a04d-cf4a0477d307", InitializationCell->True], Cell[423008, 9454, 21088, 408, 770, "Input",ExpressionUUID->"27681318-7fa4-43e2-82fd-3f4b32f00609", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[444133, 9867, 333, 6, 38, "Subsection",ExpressionUUID->"a4000ffe-f46b-4157-85fc-82a4512a98e6", InitializationCell->True], Cell[444469, 9875, 7285, 189, 559, "Input",ExpressionUUID->"f3ba3a74-d66e-414a-8df1-d6fda4182eb2", InitializationCell->True], Cell[451757, 10066, 20686, 373, 544, "Input",ExpressionUUID->"2874f95e-75cd-4bdb-8106-150c430d882a"] }, Closed]], Cell[CellGroupData[{ Cell[472480, 10444, 378, 6, 38, "Subsection",ExpressionUUID->"d3117ef6-9d9a-4098-8a9b-a474801fbceb", InitializationCell->True], Cell[472861, 10452, 21049, 380, 543, "Input",ExpressionUUID->"5237a2a8-7531-4861-8ec7-231c8ac680cf", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[493947, 10837, 383, 6, 38, "Subsection",ExpressionUUID->"7901318a-a955-4960-9a6e-a062432dc242", InitializationCell->True], Cell[494333, 10845, 14511, 218, 102, "Input",ExpressionUUID->"e79801e6-6827-4821-94b7-d026f09b7353", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[508881, 11068, 437, 7, 38, "Subsection",ExpressionUUID->"c56a5950-a048-4998-9c61-40cd30785ecb", InitializationCell->True], Cell[509321, 11077, 14090, 204, 102, "Input",ExpressionUUID->"ee5e6990-5413-45ba-bc80-9cf3278c9f04", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[523448, 11286, 583, 8, 38, "Subsection",ExpressionUUID->"27b88952-8e52-493c-9a6e-a80f1369d864"], Cell[524034, 11296, 51572, 771, 274, "Input",ExpressionUUID->"42f06758-5237-4e15-8583-023c92558984", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[575643, 12072, 635, 9, 38, "Subsection",ExpressionUUID->"bd9573d6-69c3-43f7-9842-565f7c148867"], Cell[576281, 12083, 48239, 720, 235, "Input",ExpressionUUID->"4c35fd39-04a0-43ae-8dce-8b99138d4077", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[624557, 12808, 633, 9, 38, "Subsection",ExpressionUUID->"6e887df6-0cf9-40b9-b1d6-8a3551c1b98e"], Cell[625193, 12819, 47361, 657, 83, "Input",ExpressionUUID->"05ee036c-9237-43ea-812c-20f26b8ccdfc", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[672591, 13481, 578, 8, 38, "Subsection",ExpressionUUID->"9e8bd901-5371-42e0-825b-9f97356685c7"], Cell[673172, 13491, 32733, 761, 1433, "Input",ExpressionUUID->"99c39953-ed80-419c-bccd-bce5bd42d46f", InitializationCell->True], Cell[705908, 14254, 99835, 1924, 2185, "Input",ExpressionUUID->"44edfb23-52f1-4fb0-aac2-46fe58366ff2"], Cell[805746, 16180, 179134, 3583, 4524, "Input",ExpressionUUID->"79b19e6e-2d72-4d8d-9472-5bf96b08cd42", InitializationCell->True], Cell[984883, 19765, 83122, 1560, 2940, "Input",ExpressionUUID->"78f789b1-55c9-45bf-a595-a4aedbc461d3"] }, Closed]], Cell[CellGroupData[{ Cell[1068042, 21330, 635, 9, 38, "Subsection",ExpressionUUID->"fbcc1a48-7fbe-4786-b89a-013010ef5943"], Cell[1068680, 21341, 424269, 8292, 12652, "Input",ExpressionUUID->"c5153e4f-f20c-44fe-8685-08d062832088", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1492986, 29638, 406, 6, 38, "Subsection",ExpressionUUID->"450f5ed7-0a36-48de-823d-abcc6ff4b10d"], Cell[1493395, 29646, 15640, 392, 1148, "Input",ExpressionUUID->"1d7fcbef-cf63-465b-9394-1034bc7a3cf2", InitializationCell->True], Cell[1509038, 30040, 92813, 1743, 2341, "Input",ExpressionUUID->"1151c495-0417-4f77-8161-7340f15d7ae9"], Cell[1601854, 31785, 22298, 580, 1786, "Input",ExpressionUUID->"bad642f1-fa5d-4d6c-9dde-a8164e9722c1", InitializationCell->True], Cell[1624155, 32367, 84840, 1570, 1994, "Input",ExpressionUUID->"93e6aa41-4059-43f3-96f6-72ffdef67f05"], Cell[1708998, 33939, 169697, 3471, 6852, "Input",ExpressionUUID->"f0a302c2-7c34-478a-8549-925dd3c0f634"] }, Closed]], Cell[CellGroupData[{ Cell[1878732, 37415, 687, 10, 38, "Subsection",ExpressionUUID->"2682fd43-240c-45f1-be84-bcda68ad1890"], Cell[1879422, 37427, 86787, 1562, 2129, "Input",ExpressionUUID->"4eec8df8-f45e-46ca-b99b-b2bb8fc7e641", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1966246, 38994, 302, 5, 38, "Subsection",ExpressionUUID->"9ebb074d-4d72-48a8-9cf6-4c32d244602e"], Cell[1966551, 39001, 68772, 1205, 1402, "Input",ExpressionUUID->"7e4b6666-3a5e-45ea-a96b-7a94e360f6da", InitializationCell->True], Cell[2035326, 40208, 58291, 986, 1195, "Input",ExpressionUUID->"adab9ab6-5173-42f2-b654-9513c61feb0c"] }, Closed]], Cell[CellGroupData[{ Cell[2093654, 41199, 739, 10, 38, "Subsection",ExpressionUUID->"016f3205-e07d-4083-b61d-00f0d3f81c9f"], Cell[2094396, 41211, 56188, 891, 667, "Input",ExpressionUUID->"cbc84c99-28f1-4a62-9632-2e7a91b2a486", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2150621, 42107, 328, 5, 38, "Subsection",ExpressionUUID->"bbc505ac-d886-4568-83e2-321f8b4a38b6"], Cell[2150952, 42114, 420036, 9117, 20185, "Input",ExpressionUUID->"0ac30366-d3eb-41d7-9c44-b7127840eb1a"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2571037, 51237, 1060, 17, 65, "Section",ExpressionUUID->"93220a6d-0173-4e77-911e-dacc355adefd"], Cell[CellGroupData[{ Cell[2572122, 51258, 272, 4, 54, "Subsection",ExpressionUUID->"2a82557e-888a-4c11-8f80-7aab10a2d264"], Cell[2572397, 51264, 44426, 915, 1951, "Input",ExpressionUUID->"3dcc9f4c-83a8-4f2c-bae8-bd605f9a206d", InitializationCell->True], Cell[2616826, 52181, 31665, 594, 922, "Input",ExpressionUUID->"4b447767-6eee-475f-84a2-4bcf9249462a", InitializationCell->True], Cell[2648494, 52777, 110372, 2579, 6134, "Input",ExpressionUUID->"95a66290-baa4-467c-ab52-5f398d7ff50f"] }, Open ]], Cell[CellGroupData[{ Cell[2758903, 55361, 326, 5, 54, "Subsection",ExpressionUUID->"f8d9bcc8-2394-4572-802f-e8d90d90fee4"], Cell[2759232, 55368, 41367, 867, 1625, "Input",ExpressionUUID->"ca5d2c29-4368-405f-9535-152c01462e8a", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[2800636, 56240, 227, 4, 54, "Subsection",ExpressionUUID->"b9c851ba-8696-4548-907c-1f5ac36d6e4e"], Cell[2800866, 56246, 31368, 632, 1224, "Input",ExpressionUUID->"fc2cf228-2d65-48ab-9b23-d5122487d6ec", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2832271, 56883, 274, 4, 38, "Subsection",ExpressionUUID->"819d6f04-a2ad-4c09-b6c7-8bb59597faa3"], Cell[2832548, 56889, 19880, 324, 349, "Input",ExpressionUUID->"6634e120-b453-4f84-8a85-a572ddda398b", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2852465, 57218, 307, 5, 38, "Subsection",ExpressionUUID->"8a93012e-eaf6-48d0-a4c1-a68b4795d253"], Cell[2852775, 57225, 33019, 675, 1262, "Input",ExpressionUUID->"f56e04b1-d506-4ae6-8d4b-4ad0843094d7", InitializationCell->True], Cell[2885797, 57902, 24098, 452, 710, "Input",ExpressionUUID->"36d23eee-c000-42e6-8392-dbd28285e8d4"] }, Closed]], Cell[CellGroupData[{ Cell[2909932, 58359, 226, 4, 38, "Subsection",ExpressionUUID->"1459acfd-7ecf-47ef-b071-68cc987b58b2"], Cell[2910161, 58365, 32512, 666, 1246, "Input",ExpressionUUID->"5792b052-d9be-4642-94b8-5ca29af3db82", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2942710, 59036, 465, 7, 38, "Subsection",ExpressionUUID->"51e6947d-eb6f-4d3b-8938-c15e87497910"], Cell[2943178, 59045, 68430, 1151, 1267, "Input",ExpressionUUID->"96f49a95-e03a-4bf7-ae4f-7c1b9ded5371", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3011645, 60201, 463, 7, 38, "Subsection",ExpressionUUID->"40af9bb4-f9dd-46eb-aa70-55355bae86e5"], Cell[3012111, 60210, 71992, 1229, 1628, "Input",ExpressionUUID->"59b16f2f-0f59-4e42-b807-a562e043eb64", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3084140, 61444, 509, 7, 38, "Subsection",ExpressionUUID->"3434d93c-a4a5-4777-8d5f-d1a0b60a42a0"], Cell[3084652, 61453, 69900, 1185, 1420, "Input",ExpressionUUID->"a59def62-55a0-4ce9-83e3-58a97ed6aef8", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3154589, 62643, 467, 7, 38, "Subsection",ExpressionUUID->"8dbd43a7-1163-4abe-8685-46771154b84b"], Cell[3155059, 62652, 70049, 1188, 1287, "Input",ExpressionUUID->"fed63024-e531-4bd9-9dd1-0305a3e80eb7", InitializationCell->True], Cell[3225111, 63842, 77329, 1374, 1782, "Input",ExpressionUUID->"d7cfbf73-188c-4211-919f-f8d2a3477023"] }, Closed]], Cell[CellGroupData[{ Cell[3302477, 65221, 251, 4, 38, "Subsection",ExpressionUUID->"3545cf78-2b34-414e-aa94-d8386fcfb240"], Cell[3302731, 65227, 91177, 1730, 2793, "Input",ExpressionUUID->"936fe8d5-44ca-47e4-a61a-bb4c31d39150", InitializationCell->True], Cell[3393911, 66959, 105442, 1856, 1935, "Input",ExpressionUUID->"860d8d18-754c-4568-bd72-f938383a0ffe", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3499390, 68820, 303, 5, 38, "Subsection",ExpressionUUID->"3cf428d9-95c3-40a4-bef8-744b32549798"], Cell[3499696, 68827, 71992, 1229, 1457, "Input",ExpressionUUID->"607b645f-758a-44c3-ab8a-17fa77675746", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3571725, 70061, 529, 8, 38, "Subsection",ExpressionUUID->"cdd1c494-27f5-4371-a70b-dee6f967266d"], Cell[3572257, 70071, 95184, 1816, 2665, "Input",ExpressionUUID->"7c3e4c4e-0e01-45b4-a740-a9f018da5247", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3667478, 71892, 325, 5, 38, "Subsection",ExpressionUUID->"642c621f-7718-4f20-94e6-c3cad7cb5a98"], Cell[3667806, 71899, 81152, 1335, 1287, "Input",ExpressionUUID->"58ddf8fb-0ea6-44ee-8c9d-b49b4371a5dd", InitializationCell->True], Cell[3748961, 73236, 79852, 1324, 1279, "Input",ExpressionUUID->"402962ca-70af-4f34-aa5f-61b2f8c56332", InitializationCell->True], Cell[3828816, 74562, 119105, 2316, 3417, "Input",ExpressionUUID->"8832cce2-09f1-43b6-b27c-0b4f101ae2a4"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3947970, 76884, 1108, 17, 65, "Section",ExpressionUUID->"128ee05f-f88f-4fa7-a7f0-2df7463eeb89"], Cell[CellGroupData[{ Cell[3949103, 76905, 226, 4, 54, "Subsection",ExpressionUUID->"71b4a6e8-2d68-490d-89b8-f5e8da86914b", InitializationCell->True], Cell[3949332, 76911, 27480, 706, 1631, "Input",ExpressionUUID->"c92c9985-e4fc-4352-87d0-e52867eec9c0"], Cell[3976815, 77619, 131653, 2551, 2927, "Input",ExpressionUUID->"98902c26-2910-42a9-a34c-ed5229503a8e", InitializationCell->True], Cell[4108471, 80172, 128430, 2490, 4018, "Input",ExpressionUUID->"914883af-b74c-4ec4-a2f4-40a5b9b6dec0"], Cell[4236904, 82664, 94572, 1692, 1966, "Input",ExpressionUUID->"2316a8a3-0ffd-4872-8a26-459d03673b42"], Cell[4331479, 84358, 27125, 655, 1344, "Input",ExpressionUUID->"96f38bdf-8181-4a2b-a6fc-2fcc7dd1d82a"], Cell[4358607, 85015, 81519, 1395, 1366, "Input",ExpressionUUID->"e9fb1fdb-0989-41a6-96e5-b9b38bb3dfec"], Cell[4440129, 86412, 65431, 1087, 1140, "Input",ExpressionUUID->"70ee26ef-7261-4312-aaea-09b1d9796420"], Cell[4505563, 87501, 89022, 1921, 4137, "Input",ExpressionUUID->"c7f86a0a-ea87-47c4-89fc-f9256c590eec"] }, Open ]], Cell[CellGroupData[{ Cell[4594622, 89427, 278, 5, 54, "Subsection",ExpressionUUID->"ed1764f3-6209-4f99-821d-7dba3512520a", InitializationCell->True], Cell[4594903, 89434, 94062, 1618, 3407, "Input",ExpressionUUID->"5e7fe1db-abc9-4d1d-a8e0-b3ff47866d12", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4689002, 91057, 507, 8, 38, "Subsection",ExpressionUUID->"7301a79d-d7a0-461d-a6f9-dd3b4d0f7af2", InitializationCell->True], Cell[4689512, 91067, 95184, 1816, 5140, "Input",ExpressionUUID->"297a356b-6633-481d-a368-e069bdb3ca49", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4784733, 92888, 302, 5, 38, "Subsection",ExpressionUUID->"e0ce3787-f7ae-4b11-9458-0e73d07c6938", InitializationCell->True], Cell[4785038, 92895, 122692, 2356, 8956, "Input",ExpressionUUID->"c60c258e-186d-4949-a746-1c3791f3cb80", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4907779, 95257, 1058, 17, 65, "Section",ExpressionUUID->"4cbc3e49-edcb-4343-9874-64963ceb9d5d"], Cell[CellGroupData[{ Cell[4908862, 95278, 279, 4, 54, "Subsection",ExpressionUUID->"622ee295-b97d-4f32-9775-471ce705cc39"], Cell[4909144, 95284, 55867, 1226, 2804, "Input",ExpressionUUID->"1ba6c0f0-e01f-47cc-b26b-3f4fb79de419", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4965048, 96515, 253, 4, 38, "Subsection",ExpressionUUID->"1121b9ae-2c3a-4f78-a75a-761ddc5da1a6"], Cell[4965304, 96521, 43164, 930, 1967, "Input",ExpressionUUID->"5ecab2be-6b5a-469d-9921-d479d15e6a32", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5008505, 97456, 277, 4, 38, "Subsection",ExpressionUUID->"6f4268de-eb1e-4040-a780-604f202daf11"], Cell[5008785, 97462, 27972, 547, 1092, "Input",ExpressionUUID->"c7143ca0-8996-4fd7-a102-4fd44bb8e43e", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5036794, 98014, 303, 5, 38, "Subsection",ExpressionUUID->"9de7445a-c1c4-4146-8e33-d2fc708a2537"], Cell[5037100, 98021, 29782, 593, 1113, "Input",ExpressionUUID->"f6c84778-e2c5-49d3-98c8-675908d4b5ea", InitializationCell->True], Cell[5066885, 98616, 98753, 2322, 6600, "Input",ExpressionUUID->"708d2e95-0c80-4c40-a711-af7774fa7b32"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5165687, 100944, 1057, 17, 65, "Section",ExpressionUUID->"664e356d-8724-48b3-9555-0df24407f24d"], Cell[CellGroupData[{ Cell[5166769, 100965, 239, 4, 54, "Subsection",ExpressionUUID->"086c307b-1357-4e95-a1f1-7a89a24dae73"], Cell[5167011, 100971, 41692, 891, 2541, "Input",ExpressionUUID->"c47b8bfd-3673-4e2f-8572-599b87871eff", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[5208740, 101867, 236, 4, 54, "Subsection",ExpressionUUID->"1fb23608-c09c-43bc-af65-f59053d34745"], Cell[5208979, 101873, 26798, 529, 1285, "Input",ExpressionUUID->"22a9bf89-2eba-42ce-a521-b9da27fa3679", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5235814, 102407, 210, 4, 38, "Subsection",ExpressionUUID->"57f7d088-1e5a-487d-9f2f-92c687f47367"], Cell[5236027, 102413, 25379, 479, 994, "Input",ExpressionUUID->"c19963c9-1f1a-48a8-a9bb-2e1893c37b83", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5261443, 102897, 308, 5, 38, "Subsection",ExpressionUUID->"0a048134-d541-4cf2-8f85-e9ff17c2f78d"], Cell[5261754, 102904, 30306, 627, 1301, "Input",ExpressionUUID->"3afe77c6-ead7-4199-9329-ed7d136ffa8b", InitializationCell->True], Cell[5292063, 103533, 3387, 93, 257, "Input",ExpressionUUID->"0d91f613-0963-4177-80b3-3af2636d3fde"] }, Closed]], Cell[CellGroupData[{ Cell[5295487, 103631, 314, 5, 38, "Subsection",ExpressionUUID->"f69831af-5faf-423d-9391-eb1510ce89f5"], Cell[5295804, 103638, 14252, 221, 172, "Input",ExpressionUUID->"4a41b42f-12fd-4226-a2ca-8b3e1e470909", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5310105, 103865, 1007, 16, 65, "Section",ExpressionUUID->"39d272e7-f20b-4eef-92dd-7a2463ee0890"], Cell[CellGroupData[{ Cell[5311137, 103885, 431, 7, 54, "Subsection",ExpressionUUID->"83c19408-37ef-46bb-a835-4a8304f0105c"], Cell[5311571, 103894, 19552, 469, 1282, "Input",ExpressionUUID->"fa94f47e-479c-4f59-bc84-4c6fec03b773", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5331160, 104368, 86, 0, 38, "Subsection",ExpressionUUID->"02f5db09-96ec-4874-8031-bca572c9a0c5"], Cell[5331249, 104370, 15190, 404, 1110, "Input",ExpressionUUID->"eba5d517-e569-45ca-a410-6a3d56d28540", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5346476, 104779, 216, 4, 38, "Subsection",ExpressionUUID->"909ecae6-288e-450e-8d6d-924670e50837"], Cell[5346695, 104785, 141594, 3537, 7713, "Input",ExpressionUUID->"db9170c3-80a8-400d-ae8b-1c40b67af528", InitializationCell->True], Cell[5488292, 108324, 49055, 1198, 2635, "Input",ExpressionUUID->"cc32cdb3-95ea-4a06-8848-9d2a0b0c9b55"], Cell[CellGroupData[{ Cell[5537372, 109526, 2501, 66, 162, "Input",ExpressionUUID->"5adb69fa-bafb-49b7-a500-4b36bcf914b3"], Cell[5539876, 109594, 1375, 42, 52, "Output",ExpressionUUID->"d5ab1252-471a-4527-96a8-142cf7503a87"] }, Open ]], Cell[5541266, 109639, 13069, 308, 676, "Input",ExpressionUUID->"e8ac5de4-1403-4327-8eab-481b90b5d699"], Cell[5554338, 109949, 27980, 514, 790, "Input",ExpressionUUID->"a08a39b0-db35-4904-8d7c-e78405a982ef"] }, Closed]], Cell[CellGroupData[{ Cell[5582355, 110468, 214, 4, 38, "Subsection",ExpressionUUID->"c6581130-f010-4488-9ca3-28c0cca1e24e"], Cell[5582572, 110474, 15464, 307, 616, "Input",ExpressionUUID->"085b00c9-ac19-4da6-b881-276f57e75583", InitializationCell->True], Cell[5598039, 110783, 12972, 248, 504, "Input",ExpressionUUID->"22beaf0b-4bf9-4c0d-8d19-f510c4095b8c"], Cell[CellGroupData[{ Cell[5611036, 111035, 7040, 106, 86, "Input",ExpressionUUID->"138654d5-247b-41aa-aaa1-5d8a03e9736c"], Cell[5618079, 111143, 784, 22, 32, "Output",ExpressionUUID->"0f4c5ac2-d252-4ec3-8f71-327d3aaaa03c"] }, Open ]], Cell[5618878, 111168, 16897, 344, 600, "Input",ExpressionUUID->"5dff6e0c-9a38-4b39-bbbb-8f49f50fb690"] }, Closed]], Cell[CellGroupData[{ Cell[5635812, 111517, 316, 5, 38, "Subsection",ExpressionUUID->"341dbd34-147a-4298-9a14-977adf877e4b"], Cell[5636131, 111524, 16363, 356, 901, "Input",ExpressionUUID->"05dff643-0796-4a2e-9153-17814f274d46", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5652531, 111885, 362, 6, 38, "Subsection",ExpressionUUID->"54e69d30-8e83-44c8-9ee7-d18afe0c4908"], Cell[5652896, 111893, 11181, 244, 894784842, "Input",ExpressionUUID->"30fed272-790d-475d-85ea-bc4e60d22afd", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5664114, 112142, 219, 4, 38, "Subsection",ExpressionUUID->"4763e8c8-8d0f-4e23-a643-2d51b827a040"], Cell[5664336, 112148, 38976, 789, 2937, "Input",ExpressionUUID->"ad9842ca-f3d5-473a-a657-597c1807148f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5703349, 112942, 319, 5, 38, "Subsection",ExpressionUUID->"a386f9f5-f0fc-48c6-b0e2-dece22a35df4"], Cell[5703671, 112949, 62293, 1391, 4464, "Input",ExpressionUUID->"700ae30c-c681-4f52-aa11-9ef78b0938ff", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5766001, 114345, 215, 4, 38, "Subsection",ExpressionUUID->"119d5fe3-c8f8-421d-8bd0-88fc1daf4bcc"], Cell[5766219, 114351, 24090, 512, 939, "Input",ExpressionUUID->"b4ec5559-ed9f-45e2-9f53-17bd895f816d", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[5790346, 114868, 86, 0, 54, "Subsection",ExpressionUUID->"849a548b-aa2c-4011-b5ef-e80547938cf1"], Cell[5790435, 114870, 49163, 1259, 2902, "Input",ExpressionUUID->"d60c6f64-fd54-46d0-a19c-5c544728e062"] }, Closed]], Cell[CellGroupData[{ Cell[5839635, 116134, 438, 7, 38, "Subsection",ExpressionUUID->"1f151ec3-885b-4625-90c3-0eb02a264269"], Cell[5840076, 116143, 73701, 1870, 4114, "Input",ExpressionUUID->"98f56221-c475-4097-885c-ff066a39b9b6", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[5913814, 118018, 458, 7, 38, "Subsection",ExpressionUUID->"3552947f-d811-405d-a41a-0491f58b1a88"], Cell[5914275, 118027, 20610, 418, 749, "Input",ExpressionUUID->"7f31475e-7e30-441f-878b-4fc2c9d4cea8", InitializationCell->True], Cell[5934888, 118447, 33485, 742, 1597, "Input",ExpressionUUID->"2d56f4d3-89a9-4c46-8ef9-2813c91b727d", InitializationCell->True], Cell[5968376, 119191, 86009, 2144, 5342, "Input",ExpressionUUID->"cce037fc-06b7-420c-8fd3-9236077dcf45", InitializationCell->True], Cell[6054388, 121337, 35492, 793, 2102, "Input",ExpressionUUID->"912a96c9-f5e7-48a2-9e80-cf004d2e4138", InitializationCell->True], Cell[6089883, 122132, 14596, 244, 406, "Input",ExpressionUUID->"7581a490-5a6a-4b12-9929-226eb407c91b", InitializationCell->True] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6104540, 122383, 883, 14, 88, "Title",ExpressionUUID->"ff4fd310-395d-483b-a385-9262eaf541db"], Cell[CellGroupData[{ Cell[6105448, 122401, 1215, 17, 67, "Subsection",ExpressionUUID->"1c2ad8e4-55df-4d57-9f3c-d5df39881552"], Cell[6106666, 122420, 48417, 799, 277, "Input",ExpressionUUID->"a0c4ff3a-3e33-4a9d-ac5b-9ef3cb4364e7"], Cell[6155086, 123221, 4109, 103, 426, "Input",ExpressionUUID->"d8f1317d-d14e-4729-aa68-571e856ce307"] }, Closed]], Cell[CellGroupData[{ Cell[6159232, 123329, 1280, 18, 46, "Subsection",ExpressionUUID->"55e4f9da-9f26-4426-b3ca-c2eaf1561303"], Cell[6160515, 123349, 467, 8, 32, "Input",ExpressionUUID->"351ed351-a109-4211-8056-73a3d14714f0"] }, Closed]], Cell[CellGroupData[{ Cell[6161019, 123362, 1326, 19, 46, "Subsection",ExpressionUUID->"91363db0-9e12-41a1-9dc6-4b2a2ed40703"], Cell[6162348, 123383, 561, 9, 32, "Input",ExpressionUUID->"fa8ac702-ecb2-46fe-b6dd-abee06bf34d1"] }, Closed]], Cell[CellGroupData[{ Cell[6162946, 123397, 1381, 20, 46, "Subsection",ExpressionUUID->"5068d9e7-3d74-4f0c-8917-35f620b3d606"], Cell[6164330, 123419, 276, 6, 32, "Input",ExpressionUUID->"0a958e5d-178a-4fbb-9bee-e75538197c4d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6164655, 123431, 927, 14, 88, "Title",ExpressionUUID->"a4d07bda-386c-4147-8949-2d16a7e38fc2"], Cell[CellGroupData[{ Cell[6165607, 123449, 1339, 19, 65, "Subsection",ExpressionUUID->"26a0e207-cdc1-4165-8be3-adf109f96469"], Cell[CellGroupData[{ Cell[6166971, 123472, 266, 4, 54, "Subsubsection",ExpressionUUID->"beff35e0-db9c-4115-83a5-fe3bd9c72370"], Cell[6167240, 123478, 2310, 40, 58, "Input",ExpressionUUID->"82b3efc2-6bb9-4e06-a831-a581297e9cd5"], Cell[6169553, 123520, 2723, 50, 58, "Input",ExpressionUUID->"220b5cf6-939b-4624-82fc-1d448a11a7d2"], Cell[6172279, 123572, 3063, 59, 58, "Input",ExpressionUUID->"db6e53ee-3185-4c35-a060-4c2c3960cadb"] }, Open ]], Cell[CellGroupData[{ Cell[6175379, 123636, 270, 4, 54, "Subsubsection",ExpressionUUID->"cdd99db5-8666-4302-8515-913bb1a6313b"], Cell[6175652, 123642, 694, 20, 54, "Input",ExpressionUUID->"1725c647-4f9c-49d0-a45b-a8ea26e92db3"] }, Closed]], Cell[CellGroupData[{ Cell[6176383, 123667, 320, 5, 43, "Subsubsection",ExpressionUUID->"deaa1804-8901-4753-b24f-eefcd2c5135b"], Cell[6176706, 123674, 1049, 29, 105, "Input",ExpressionUUID->"ebd79481-f6b0-43a0-ab31-430e97161f6d"] }, Closed]], Cell[CellGroupData[{ Cell[6177792, 123708, 326, 5, 43, "Subsubsection",ExpressionUUID->"b62ccebe-0bd1-47e2-89fb-e72a041260aa"], Cell[6178121, 123715, 986, 24, 54, "Input",ExpressionUUID->"b131437e-cf1b-4c1f-abed-aace00b2891c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6179156, 123745, 1399, 20, 43, "Subsection",ExpressionUUID->"efd0b1df-98d3-429f-9f61-0554e5b7fda7"], Cell[CellGroupData[{ Cell[6180580, 123769, 268, 4, 54, "Subsubsection",ExpressionUUID->"2f6bd55d-333f-45fe-bb20-912ec7ed2edf"], Cell[6180851, 123775, 2556, 43, 28, "Input",ExpressionUUID->"1761ef45-e737-40c4-bb87-617517283619"] }, Closed]], Cell[CellGroupData[{ Cell[6183444, 123823, 282, 4, 43, "Subsubsection",ExpressionUUID->"8274c0a0-4338-4bbc-97c8-b1f410862c2d"], Cell[6183729, 123829, 2327, 61, 105, "Input",ExpressionUUID->"b6aa2776-54a6-460b-a154-ed882c8b2d3c"] }, Closed]], Cell[CellGroupData[{ Cell[6186093, 123895, 418, 6, 43, "Subsubsection",ExpressionUUID->"38381475-c1e0-49fa-b66e-3a2e159443d8"], Cell[6186514, 123903, 2466, 65, 122, "Input",ExpressionUUID->"b2d2e567-805d-4daa-b55f-96e2e0f89a05"] }, Closed]], Cell[CellGroupData[{ Cell[6189017, 123973, 372, 6, 43, "Subsubsection",ExpressionUUID->"16d8b5fc-c220-45ce-96b6-b5d2a9ae6b97"], Cell[6189392, 123981, 4852, 108, 82, "Input",ExpressionUUID->"b9bf1c07-b634-412f-b557-607cf36ba9b3"] }, Closed]], Cell[CellGroupData[{ Cell[6194281, 124094, 428, 6, 43, "Subsubsection",ExpressionUUID->"1d7d2bc9-cc40-4ece-9302-7d216538de7b"], Cell[6194712, 124102, 3662, 99, 366, "Input",ExpressionUUID->"8e206646-a479-439f-8bc7-1858921737c9"], Cell[CellGroupData[{ Cell[6198399, 124205, 10070, 245, 390, "Input",ExpressionUUID->"895a1926-bec9-49c5-ac58-eae8d1474468"], Cell[6208472, 124452, 1993, 44, 60, "Output",ExpressionUUID->"289adb74-79ce-4d9d-b9de-871807df2b9c"], Cell[6210468, 124498, 1678, 34, 56, "Output",ExpressionUUID->"45c6cb63-a671-41e9-9f97-bee34dfafdce"], Cell[6212149, 124534, 4026, 93, 129, "Output",ExpressionUUID->"83757d0d-8ad6-4378-a522-41d2b2d74383"], Cell[6216178, 124629, 3883, 97, 203, "Output",ExpressionUUID->"42c220d1-4108-4cc0-9167-94acd4ac46ff"], Cell[6220064, 124728, 3452, 93, 164, "Output",ExpressionUUID->"1039b9b6-c8fd-48b9-99b7-3044e37f002e"] }, Open ]], Cell[CellGroupData[{ Cell[6223553, 124826, 149, 3, 58, "Input",ExpressionUUID->"dd420e93-3cec-4c17-b406-07e7b5f850d1"], Cell[6223705, 124831, 2886, 86, 164, "Output",ExpressionUUID->"1664895e-1be8-43e9-86bd-5054a9e1ed34"] }, Open ]], Cell[CellGroupData[{ Cell[6226628, 124922, 147, 3, 58, "Input",ExpressionUUID->"6e1716e3-0607-4180-b6a6-3067b7546c71"], Cell[6226778, 124927, 2663, 82, 164, "Output",ExpressionUUID->"263dff38-a016-48e3-b2f9-eaed54f8d8f7"] }, Open ]], Cell[CellGroupData[{ Cell[6229478, 125014, 147, 3, 58, "Input",ExpressionUUID->"28ca2f67-313a-4d7e-a4b1-97dc9df59bf0"], Cell[6229628, 125019, 2639, 82, 164, "Output",ExpressionUUID->"a17ce002-b9b1-4658-950c-473dbd49e444"] }, Open ]], Cell[6232282, 125104, 149, 3, 58, "Input",ExpressionUUID->"4924e35c-e415-4366-b2d7-8ddaf970271e"], Cell[CellGroupData[{ Cell[6232456, 125111, 2785, 83, 146, "Input",ExpressionUUID->"7da31417-9e19-40cb-8902-ef14dfab47bd"], Cell[6235244, 125196, 2470, 79, 164, "Output",ExpressionUUID->"7958e287-6aeb-4e51-9391-920374f2f82a"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6237787, 125283, 688, 11, 88, "Title",ExpressionUUID->"662fb6d2-1542-4110-a411-74af252f2ddf"], Cell[CellGroupData[{ Cell[6238500, 125298, 1088, 15, 67, "Subsection",ExpressionUUID->"44d3756d-7928-4bfe-8691-d3a11e8f50ca"], Cell[CellGroupData[{ Cell[6239613, 125317, 661, 9, 56, "Subsubsection",ExpressionUUID->"77046139-e971-4f72-9fa0-ff643348e08e"], Cell[6240277, 125328, 6793, 150, 393, "Input",ExpressionUUID->"d18f22c0-e634-4475-a194-898b117fce72"] }, Closed]], Cell[CellGroupData[{ Cell[6247107, 125483, 689, 10, 45, "Subsubsection",ExpressionUUID->"8d1c9a9e-cf7e-495e-a89b-2f2dfa8e76d9"], Cell[6247799, 125495, 5608, 113, 297, "Input",ExpressionUUID->"74a282c9-dbdf-42c1-bc90-eb641d708739"] }, Closed]], Cell[CellGroupData[{ Cell[6253444, 125613, 784, 11, 45, "Subsubsection",ExpressionUUID->"0828ab34-f1f0-4786-a3e5-abff73a14015"], Cell[6254231, 125626, 4601, 79, 83, "Input",ExpressionUUID->"e719fef8-7be9-40fe-a055-065eb19af5fa"] }, Closed]], Cell[CellGroupData[{ Cell[6258869, 125710, 730, 10, 45, "Subsubsection",ExpressionUUID->"69a9bcc8-7d88-4a90-bf0a-a5c2e39194b8"], Cell[6259602, 125722, 4186, 67, 35, "Input",ExpressionUUID->"f8ff4e8a-36b4-41d7-ad29-115478da0b18"] }, Closed]], Cell[CellGroupData[{ Cell[6263825, 125794, 834, 12, 45, "Subsubsection",ExpressionUUID->"091cea45-6406-4533-b810-82f5d9ce0207"], Cell[6264662, 125808, 4148, 73, 103, "Input",ExpressionUUID->"7e9d547e-959f-4460-9408-d61adde3f05e"] }, Closed]], Cell[CellGroupData[{ Cell[6268847, 125886, 838, 12, 45, "Subsubsection",ExpressionUUID->"cc7586ab-4785-4747-a59a-9aee26fc75f8"], Cell[6269688, 125900, 7785, 147, 274, "Input",ExpressionUUID->"38e28281-3c3b-4f4e-86e0-796018ed7b8d"] }, Closed]], Cell[CellGroupData[{ Cell[6277510, 126052, 1162, 16, 45, "Subsubsection",ExpressionUUID->"db8c8ffe-c767-4353-b874-6bd7dd14decc"], Cell[6278675, 126070, 2477, 61, 346, "Input",ExpressionUUID->"40cd8923-1a22-45c4-8c6a-e754de809452"] }, Closed]], Cell[CellGroupData[{ Cell[6281189, 126136, 1257, 18, 45, "Subsubsection",ExpressionUUID->"5085fbe1-8d45-4b6e-b627-35d8c03b1479"], Cell[6282449, 126156, 10679, 235, 797, "Input",ExpressionUUID->"819fef55-8f7d-4e6d-adf8-585b7da6935a"] }, Closed]], Cell[CellGroupData[{ Cell[6293165, 126396, 1159, 16, 45, "Subsubsection",ExpressionUUID->"b03b4423-fec4-4162-82fd-ea8dcd935555"], Cell[6294327, 126414, 11238, 211, 297, "Input",ExpressionUUID->"d7afd336-c443-4316-b1b1-5f294a0fc6b1"], Cell[6305568, 126627, 10318, 226, 535, "Input",ExpressionUUID->"e9df9a97-1aae-4b0c-9f5f-f3429aba9760"], Cell[6315889, 126855, 3396, 66, 206, "Input",ExpressionUUID->"56530573-225e-4a01-85c9-0380740f56da"], Cell[6319288, 126923, 500, 12, 178, "Input",ExpressionUUID->"d72f9040-31cc-4484-b19f-4aa2a7e429bd"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6319837, 126941, 1000, 14, 46, "Subsection",ExpressionUUID->"367f3997-9909-4c02-b7cf-aa47620191dd"], Cell[CellGroupData[{ Cell[6320862, 126959, 706, 10, 56, "Subsubsection",ExpressionUUID->"a0bc5aaa-f407-43d7-8d01-7b339ca20e07"], Cell[6321571, 126971, 6793, 150, 393, "Input",ExpressionUUID->"dcda3659-9bdd-49ec-8a18-a3b19369cbbc"] }, Closed]], Cell[CellGroupData[{ Cell[6328401, 127126, 504, 7, 45, "Subsubsection",ExpressionUUID->"709acb94-73f0-4e38-b403-e348aa092f06"], Cell[6328908, 127135, 5168, 106, 295, "Input",ExpressionUUID->"4ba1476d-39ce-42dc-8c63-d9a6c3e61d2a"] }, Closed]], Cell[CellGroupData[{ Cell[6334113, 127246, 485, 8, 45, "Subsubsection",ExpressionUUID->"7e63957c-80eb-4394-b663-1bb2f19d6007"], Cell[6334601, 127256, 6139, 112, 224, "Input",ExpressionUUID->"dc4c0ef6-ef57-4e09-8896-98090b4ea190"] }, Closed]], Cell[CellGroupData[{ Cell[6340777, 127373, 480, 8, 45, "Subsubsection",ExpressionUUID->"f6b479a8-7c8b-4e23-8c84-9379087bb1c7"], Cell[6341260, 127383, 3302, 85, 343, "Input",ExpressionUUID->"49e9a65c-8289-478e-9132-249439de440e"] }, Closed]], Cell[CellGroupData[{ Cell[6344599, 127473, 450, 7, 45, "Subsubsection",ExpressionUUID->"62ee511d-b826-4a40-86e0-5152f9a36b62"], Cell[6345052, 127482, 4864, 97, 319, "Input",ExpressionUUID->"8633b53a-d361-44d9-8573-8d91306597a7"] }, Closed]], Cell[CellGroupData[{ Cell[6349953, 127584, 481, 8, 45, "Subsubsection",ExpressionUUID->"5e3c228d-c491-4158-83fd-06d8943fd85a"], Cell[6350437, 127594, 3742, 95, 399, "Input",ExpressionUUID->"b1ba416c-08bb-4b7b-b62b-568430c9ed32"] }, Closed]], Cell[CellGroupData[{ Cell[6354216, 127694, 705, 10, 45, "Subsubsection",ExpressionUUID->"fe97b8ce-6bdf-4cde-bfea-bdd76b45c0ff"], Cell[6354924, 127706, 4055, 101, 343, "Input",ExpressionUUID->"dffb2853-b5d4-407a-b728-b8c94d3015a0"] }, Closed]], Cell[CellGroupData[{ Cell[6359016, 127812, 539, 8, 45, "Subsubsection",ExpressionUUID->"094ba691-40f8-4089-a894-4b61aef69583"], Cell[6359558, 127822, 3623, 88, 295, "Input",ExpressionUUID->"dc815d1e-9047-4d81-847e-c5ff090b6864"] }, Closed]], Cell[CellGroupData[{ Cell[6363218, 127915, 869, 12, 45, "Subsubsection",ExpressionUUID->"b06ea7da-4528-4713-89de-065a2a8c2a65"], Cell[6364090, 127929, 3936, 95, 343, "Input",ExpressionUUID->"b3c2d07b-2035-46d7-a43c-68b45ad5562a"] }, Closed]], Cell[CellGroupData[{ Cell[6368063, 128029, 621, 9, 45, "Subsubsection",ExpressionUUID->"52cc96c7-7aec-427b-a632-097707cc107b"], Cell[6368687, 128040, 3152, 75, 272, "Input",ExpressionUUID->"37e2a102-8ad4-4c26-98c8-c1cf71439164"] }, Closed]], Cell[CellGroupData[{ Cell[6371876, 128120, 699, 10, 45, "Subsubsection",ExpressionUUID->"70852b10-cdcb-475a-8ff0-aaf7f5bbe719"], Cell[6372578, 128132, 5066, 123, 366, "Input",ExpressionUUID->"672e7cf9-8815-47fc-bb1f-d8162311d960"] }, Closed]], Cell[CellGroupData[{ Cell[6377681, 128260, 808, 11, 45, "Subsubsection",ExpressionUUID->"61fe98c3-efb1-42ff-9772-12565f6cd956"], Cell[6378492, 128273, 3310, 77, 272, "Input",ExpressionUUID->"fd9ca9c1-9ae0-4cc9-9a2c-dd16a323f073"] }, Closed]], Cell[CellGroupData[{ Cell[6381839, 128355, 609, 9, 45, "Subsubsection",ExpressionUUID->"f9be7b5c-e7b0-4823-90a6-30c4c2f7cfa5"], Cell[6382451, 128366, 4184, 101, 319, "Input",ExpressionUUID->"a1c5164c-bb4a-46e9-979a-e3b50e460494"] }, Closed]], Cell[CellGroupData[{ Cell[6386672, 128472, 891, 12, 45, "Subsubsection",ExpressionUUID->"8cff0c25-d364-4acc-b696-67124ac149c7"], Cell[6387566, 128486, 3103, 69, 175, "Input",ExpressionUUID->"76c06c08-c3c0-429e-a561-f73b5a15bcd1"] }, Closed]], Cell[CellGroupData[{ Cell[6390706, 128560, 622, 9, 45, "Subsubsection",ExpressionUUID->"64c0d285-2a83-42bb-963e-9285f78b4f9c"], Cell[6391331, 128571, 3851, 96, 295, "Input",ExpressionUUID->"abd2dead-0e42-4ac4-9c8f-551a6c7e3ebe"] }, Closed]], Cell[CellGroupData[{ Cell[6395219, 128672, 731, 10, 45, "Subsubsection",ExpressionUUID->"d3e3ef4f-9669-4e10-bf22-add721f2a62d"], Cell[6395953, 128684, 4011, 99, 319, "Input",ExpressionUUID->"c5fda11e-f403-43ae-85e7-6a656a09aa54"] }, Closed]], Cell[CellGroupData[{ Cell[6400001, 128788, 628, 9, 45, "Subsubsection",ExpressionUUID->"c9e75474-c936-4ab7-bed0-17a3061c8106"], Cell[6400632, 128799, 2786, 69, 272, "Input",ExpressionUUID->"fa14eb02-9a2b-4f4a-98d9-5c66231843ed"] }, Closed]], Cell[CellGroupData[{ Cell[6403455, 128873, 632, 9, 45, "Subsubsection",ExpressionUUID->"e14eabb9-dbd8-4c1a-ac12-bec0618ed855"], Cell[6404090, 128884, 3581, 92, 343, "Input",ExpressionUUID->"2289b07c-4e13-4095-89f5-398da3f3a866"] }, Closed]], Cell[CellGroupData[{ Cell[6407708, 128981, 837, 12, 45, "Subsubsection",ExpressionUUID->"dc1abfdb-1e39-45b7-83a8-6a2cc762fbd4"], Cell[6408548, 128995, 4493, 110, 413, "Input",ExpressionUUID->"65df6051-e112-4694-9288-4864f0b39628"] }, Closed]], Cell[CellGroupData[{ Cell[6413078, 129110, 851, 12, 45, "Subsubsection",ExpressionUUID->"e7d6f3fb-68e2-41e6-8bd0-96a9532d5abd"], Cell[6413932, 129124, 3108, 72, 224, "Input",ExpressionUUID->"2776f558-ed81-4a16-8a71-ccd1f2064d49"] }, Closed]], Cell[CellGroupData[{ Cell[6417077, 129201, 930, 13, 45, "Subsubsection",ExpressionUUID->"d11e58c8-ebe0-4920-9ab4-5eb9800f304d"], Cell[6418010, 129216, 4443, 108, 345, "Input",ExpressionUUID->"14ecc8a8-4e42-438b-9a62-6c72f80b36fa"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6422502, 129330, 894, 13, 46, "Subsection",ExpressionUUID->"1c53073d-67be-434e-8a1b-36ac5af5ef17"], Cell[CellGroupData[{ Cell[6423421, 129347, 583, 8, 56, "Subsubsection",ExpressionUUID->"4136a11b-e82f-4656-b3d6-380cb0c57626"], Cell[6424007, 129357, 3601, 103, 368, "Input",ExpressionUUID->"aab312ea-28bd-451a-b76a-6cfb48548d37"] }, Closed]], Cell[CellGroupData[{ Cell[6427645, 129465, 387, 6, 45, "Subsubsection",ExpressionUUID->"1e41e416-8a31-4652-96ae-b6273ceccb83"], Cell[6428035, 129473, 3149, 70, 226, "Input",ExpressionUUID->"e124aad5-6b55-4fb8-b8ff-0c4cc3630946"] }, Closed]], Cell[CellGroupData[{ Cell[6431221, 129548, 385, 6, 45, "Subsubsection",ExpressionUUID->"8b209519-3bd7-439a-b2de-58ec90b0d3ad"], Cell[6431609, 129556, 5073, 123, 369, "Input",ExpressionUUID->"ccacba99-22a5-402c-a41a-d4e45116dec5"] }, Closed]], Cell[CellGroupData[{ Cell[6436719, 129684, 498, 7, 45, "Subsubsection",ExpressionUUID->"c1853c1a-fb23-4104-b5bd-31b2644ff45d"], Cell[6437220, 129693, 5286, 128, 345, "Input",ExpressionUUID->"c59dde5c-429d-441b-afd2-72d02f20400e"] }, Closed]], Cell[CellGroupData[{ Cell[6442543, 129826, 332, 5, 45, "Subsubsection",ExpressionUUID->"a9964ee5-a703-4a17-8699-ca6cdf0efa18"], Cell[6442878, 129833, 3438, 89, 353, "Input",ExpressionUUID->"a39d07d8-aa54-4173-ba1b-051de834dafd"] }, Closed]], Cell[CellGroupData[{ Cell[6446353, 129927, 370, 6, 45, "Subsubsection",ExpressionUUID->"bc3702dc-c0e5-4881-b56e-f667111a73fe"], Cell[6446726, 129935, 3665, 86, 274, "Input",ExpressionUUID->"981b5f4f-a215-4324-b7a9-0efc222809e5"] }, Closed]], Cell[CellGroupData[{ Cell[6450428, 130026, 535, 8, 45, "Subsubsection",ExpressionUUID->"95583ecb-963b-4e5d-a6b4-ba1fb10b7751"], Cell[6450966, 130036, 7852, 159, 374, "Input",ExpressionUUID->"3d03e607-5ae1-45fd-8fcd-aed561bc9c8a"] }, Closed]], Cell[CellGroupData[{ Cell[6458855, 130200, 491, 8, 45, "Subsubsection",ExpressionUUID->"49ca99a5-de42-4fa1-9fbf-71f1c8bd673d"], Cell[6459349, 130210, 5754, 133, 345, "Input",ExpressionUUID->"af809fd3-73c0-40bd-9bb9-bcc749c18f2a"] }, Closed]], Cell[CellGroupData[{ Cell[6465140, 130348, 528, 8, 45, "Subsubsection",ExpressionUUID->"e4217b3c-c163-4327-92e1-0d085afe2115"], Cell[6465671, 130358, 6261, 155, 393, "Input",ExpressionUUID->"dc3d5f0c-6459-42d9-a17d-a80daf979fef"] }, Closed]], Cell[CellGroupData[{ Cell[6471969, 130518, 390, 6, 45, "Subsubsection",ExpressionUUID->"269f8975-6d5a-4abb-a693-80747513ca0b"], Cell[6472362, 130526, 4116, 104, 401, "Input",ExpressionUUID->"cfb90531-d442-4d7c-b1a5-61e64cf23bb7"] }, Closed]], Cell[CellGroupData[{ Cell[6476515, 130635, 415, 7, 45, "Subsubsection",ExpressionUUID->"8a3b5be2-c82f-4cdd-adcf-ad2a6511c17c"], Cell[6476933, 130644, 4083, 98, 353, "Input",ExpressionUUID->"d9192c3c-0013-416d-a2d1-0b0a4d28922c"] }, Closed]], Cell[CellGroupData[{ Cell[6481053, 130747, 538, 8, 45, "Subsubsection",ExpressionUUID->"ee147a4f-dbc6-4ea4-b8a5-bc5ed3a1991b"], Cell[6481594, 130757, 4181, 109, 387, "Input",ExpressionUUID->"fb03f1de-a678-4405-855a-4831b3559c3f"] }, Closed]], Cell[CellGroupData[{ Cell[6485812, 130871, 381, 6, 45, "Subsubsection",ExpressionUUID->"9f505610-c2f0-4d17-b3da-de27b650cd69"], Cell[6486196, 130879, 5602, 146, 483, "Input",ExpressionUUID->"46e1e75c-5d6d-4e4d-a681-6e5c1a99bb4b"] }, Closed]], Cell[CellGroupData[{ Cell[6491835, 131030, 309, 5, 45, "Subsubsection",ExpressionUUID->"a420c312-b944-4d7e-bb96-6743b4d78e08"], Cell[6492147, 131037, 4567, 117, 435, "Input",ExpressionUUID->"318e7cdd-fc78-48e7-acee-9cbba1a251e9"] }, Closed]], Cell[CellGroupData[{ Cell[6496751, 131159, 337, 6, 45, "Subsubsection",ExpressionUUID->"8cfa98ad-2bc2-4f3f-b5c4-c5907ad8303d"], Cell[6497091, 131167, 6393, 170, 607, "Input",ExpressionUUID->"d3f72870-3fc1-43d1-a526-7e23168b04cd"] }, Closed]], Cell[CellGroupData[{ Cell[6503521, 131342, 581, 8, 45, "Subsubsection",ExpressionUUID->"14e71f9c-3bf4-4784-b992-758f197cf7db"], Cell[6504105, 131352, 4177, 103, 321, "Input",ExpressionUUID->"e1e18c07-c9b5-4c76-8c7e-36a84b173886"] }, Closed]], Cell[CellGroupData[{ Cell[6508319, 131460, 760, 11, 45, "Subsubsection",ExpressionUUID->"889fb8dd-a770-4216-a952-332000fbef97"], Cell[6509082, 131473, 5222, 114, 321, "Input",ExpressionUUID->"7aaa01a1-7826-4354-8dbb-1b72cc795d3d"] }, Closed]], Cell[CellGroupData[{ Cell[6514341, 131592, 779, 11, 45, "Subsubsection",ExpressionUUID->"f7d7fe6c-3ac7-416e-a468-58c02d8db99a"], Cell[6515123, 131605, 3386, 92, 321, "Input",ExpressionUUID->"64d01864-e4bc-486c-8009-4f6f87eb7f8a"] }, Closed]], Cell[CellGroupData[{ Cell[6518546, 131702, 684, 10, 45, "Subsubsection",ExpressionUUID->"67ca5eee-9ed5-44a0-9c42-9909701ff049"], Cell[6519233, 131714, 4507, 106, 321, "Input",ExpressionUUID->"8d1b95ea-785c-411f-8fa4-64485329dae9"] }, Closed]], Cell[CellGroupData[{ Cell[6523777, 131825, 832, 12, 45, "Subsubsection",ExpressionUUID->"6b52bf47-d3ad-44a4-abd3-a500c2e96ebb"], Cell[6524612, 131839, 3478, 91, 297, "Input",ExpressionUUID->"12976909-23f2-41af-a049-8c2b8d2b2e78"] }, Closed]], Cell[CellGroupData[{ Cell[6528127, 131935, 501, 8, 45, "Subsubsection",ExpressionUUID->"897464fb-b71b-491b-850a-aff39235db25"], Cell[6528631, 131945, 6735, 172, 528, "Input",ExpressionUUID->"9a925254-bbcf-4f16-8f7b-2da8d9124353"] }, Closed]], Cell[CellGroupData[{ Cell[6535403, 132122, 733, 11, 45, "Subsubsection",ExpressionUUID->"598edd35-6c5c-469e-b8d5-4d5cdde6de64"], Cell[6536139, 132135, 3645, 85, 226, "Input",ExpressionUUID->"1051d58c-4ee2-4755-bae0-7074896a1fdc"] }, Closed]], Cell[CellGroupData[{ Cell[6539821, 132225, 457, 7, 45, "Subsubsection",ExpressionUUID->"28c3398a-fe3a-4c62-8a53-6acab46f7881"], Cell[6540281, 132234, 4499, 107, 364, "Input",ExpressionUUID->"c3f5e57f-5915-4e42-9170-d68c468b74e6"] }, Closed]], Cell[CellGroupData[{ Cell[6544817, 132346, 843, 12, 45, "Subsubsection",ExpressionUUID->"84b7fbc3-9efa-417d-9ba2-3ccb76f78cc2"], Cell[6545663, 132360, 3612, 94, 321, "Input",ExpressionUUID->"746008ed-f0a3-4f09-8703-67c8768d353b"] }, Closed]], Cell[CellGroupData[{ Cell[6549312, 132459, 924, 13, 45, "Subsubsection",ExpressionUUID->"2d56ef47-5edc-4b07-aba7-712c5769c362"], Cell[6550239, 132474, 4133, 109, 401, "Input",ExpressionUUID->"e8096923-f7c3-40cf-953f-f15a4a433b5e"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6554421, 132589, 1208, 17, 46, "Subsection",ExpressionUUID->"fdd7727f-210b-4fd4-b80b-a30f4b0d5cce"], Cell[CellGroupData[{ Cell[6555654, 132610, 540, 8, 56, "Subsubsection",ExpressionUUID->"e9f2cc75-4840-4b51-898c-43f126510566"], Cell[6556197, 132620, 4721, 119, 345, "Input",ExpressionUUID->"56789d61-cc4f-4423-89bc-586b19f70502"] }, Closed]], Cell[CellGroupData[{ Cell[6560955, 132744, 608, 9, 45, "Subsubsection",ExpressionUUID->"a2d39f62-9949-4e49-9d84-f2f0404e06f7"], Cell[6561566, 132755, 8566, 207, 535, "Input",ExpressionUUID->"d7698e66-9652-4f27-a511-bdf246b0e314"] }, Closed]], Cell[CellGroupData[{ Cell[6570169, 132967, 630, 9, 45, "Subsubsection",ExpressionUUID->"709ca3a5-ada4-43d8-91dd-574ef1c72dbb"], Cell[6570802, 132978, 4056, 90, 224, "Input",ExpressionUUID->"56817a5b-361a-47c2-a073-3e652938c81b"] }, Closed]], Cell[CellGroupData[{ Cell[6574895, 133073, 654, 10, 45, "Subsubsection",ExpressionUUID->"db3a86bf-a2b0-459f-b333-b945ac8aa6d6"], Cell[6575552, 133085, 4837, 119, 295, "Input",ExpressionUUID->"803ab691-1efc-408a-8da6-d835edc6bee0"] }, Closed]], Cell[CellGroupData[{ Cell[6580426, 133209, 505, 8, 45, "Subsubsection",ExpressionUUID->"f52a3393-26a8-4ae8-8cd6-4051d68ee84e"], Cell[6580934, 133219, 11093, 272, 727, "Input",ExpressionUUID->"cb5d9fa5-42bd-4178-a2f5-14d83c3eeb52"] }, Closed]], Cell[CellGroupData[{ Cell[6592064, 133496, 697, 10, 45, "Subsubsection",ExpressionUUID->"e32d75c3-6572-4746-9c32-c786dd207566"], Cell[6592764, 133508, 7078, 152, 416, "Input",ExpressionUUID->"69e82c58-245d-4311-aa05-2da28160884e"], Cell[6599845, 133662, 7254, 161, 440, "Input",ExpressionUUID->"db8ee931-289b-47b9-9589-71e480a80848"], Cell[6607102, 133825, 347, 9, 60, "Input",ExpressionUUID->"25dbe15f-f1c7-414f-b110-7f3eeee56c44"] }, Closed]], Cell[CellGroupData[{ Cell[6607486, 133839, 578, 9, 45, "Subsubsection",ExpressionUUID->"e0623656-aa4e-4163-be7b-b07ce1a6a8c8"], Cell[6608067, 133850, 10018, 230, 607, "Input",ExpressionUUID->"0386609d-1c2d-438a-a886-4733d223eeba"] }, Closed]], Cell[CellGroupData[{ Cell[6618122, 134085, 762, 11, 45, "Subsubsection",ExpressionUUID->"cc990ac8-5120-4641-8d5c-94a1ff12e713"], Cell[6618887, 134098, 4024, 81, 202, "Input",ExpressionUUID->"415e6818-6853-4ec0-9d68-7d166a4b3d20"] }, Closed]], Cell[CellGroupData[{ Cell[6622948, 134184, 750, 11, 45, "Subsubsection",ExpressionUUID->"bcc9edda-0a1e-48bd-8b0f-40589a5d99e2"], Cell[6623701, 134197, 4034, 83, 202, "Input",ExpressionUUID->"1d5c2128-8f7d-49c2-bc6a-69def3a3b90c"] }, Closed]], Cell[CellGroupData[{ Cell[6627772, 134285, 740, 11, 45, "Subsubsection",ExpressionUUID->"c5bda663-503c-4be3-a470-910cb7fbe884"], Cell[6628515, 134298, 4929, 107, 274, "Input",ExpressionUUID->"517546cf-2cdd-428e-9d3d-54eb92182a10"] }, Closed]], Cell[CellGroupData[{ Cell[6633481, 134410, 845, 12, 45, "Subsubsection",ExpressionUUID->"38424070-2f98-480c-a83b-8f8cdab9d549"], Cell[6634329, 134424, 4601, 94, 297, "Input",ExpressionUUID->"15d6043f-09ef-4bb7-bf9a-ee72c646c2ea"] }, Closed]], Cell[CellGroupData[{ Cell[6638967, 134523, 839, 12, 45, "Subsubsection",ExpressionUUID->"1a87b817-5277-4c97-aaf1-d210c560af5a"], Cell[6639809, 134537, 4310, 86, 274, "Input",ExpressionUUID->"5327ae1a-5d00-451f-8900-d292d24f17f7"] }, Closed]], Cell[CellGroupData[{ Cell[6644156, 134628, 835, 12, 45, "Subsubsection",ExpressionUUID->"333acb68-32af-4274-87c4-46a821e4001c"], Cell[6644994, 134642, 4581, 91, 254, "Input",ExpressionUUID->"64ba7119-8eb4-4de7-838c-26bedd1b9233"] }, Closed]], Cell[CellGroupData[{ Cell[6649612, 134738, 859, 12, 45, "Subsubsection",ExpressionUUID->"aab4ba74-25cc-44df-b5f7-a7fc3e83f524"], Cell[6650474, 134752, 4746, 101, 250, "Input",ExpressionUUID->"34f22d8f-caa8-489c-99a2-2e76a8a02e41"] }, Closed]], Cell[CellGroupData[{ Cell[6655257, 134858, 692, 10, 45, "Subsubsection",ExpressionUUID->"6708adae-a8fc-470c-90b7-2e2a0d1b90ef"], Cell[CellGroupData[{ Cell[6655974, 134872, 3619, 84, 274, "Input",ExpressionUUID->"b9404848-3da8-4ab5-a92a-8a47bf53174f"], Cell[6659596, 134958, 355, 10, 58, "Output",ExpressionUUID->"70965383-68af-4d61-a12e-801659f7270c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6660000, 134974, 742, 10, 45, "Subsubsection",ExpressionUUID->"9e0e1551-fd38-43f5-aaac-abd016071f72"], Cell[6660745, 134986, 2535, 54, 83, "Input",ExpressionUUID->"65d066f7-8a2f-4825-8944-a300f0e5600b"] }, Closed]], Cell[CellGroupData[{ Cell[6663317, 135045, 517, 7, 45, "Subsubsection",ExpressionUUID->"10499989-c157-4dbd-95c1-866b3211b10e"], Cell[6663837, 135054, 3391, 73, 252, "Input",ExpressionUUID->"4ab11e26-06c7-4cce-bba4-e2dbb07b5060"] }, Closed]], Cell[CellGroupData[{ Cell[6667265, 135132, 737, 11, 45, "Subsubsection",ExpressionUUID->"463c8efd-1146-4de8-9809-ec8dbb3e439d"], Cell[6668005, 135145, 3679, 76, 250, "Input",ExpressionUUID->"adee6d13-ed20-40b0-9f57-86421b54d62e"] }, Closed]], Cell[CellGroupData[{ Cell[6671721, 135226, 633, 9, 45, "Subsubsection",ExpressionUUID->"0ccb8fc5-d873-487f-81e4-c8c0e34ba70a"], Cell[6672357, 135237, 3585, 67, 88, "Input",ExpressionUUID->"bf6cefa2-3e79-492b-b071-c07b44b59c2f"], Cell[6675945, 135306, 3558, 69, 88, "Input",ExpressionUUID->"db664ac0-eb85-4da5-8f48-e184561d8f34"] }, Closed]], Cell[CellGroupData[{ Cell[6679540, 135380, 825, 12, 45, "Subsubsection",ExpressionUUID->"5af94978-b624-4ea4-84dc-a4c74d6434c1"], Cell[6680368, 135394, 4529, 102, 250, "Input",ExpressionUUID->"524964cf-5391-4ef5-bb9e-4cf6005c363d"] }, Closed]], Cell[CellGroupData[{ Cell[6684934, 135501, 786, 11, 45, "Subsubsection",ExpressionUUID->"6eefa5e5-3af5-419a-87af-79058e85dd28"], Cell[6685723, 135514, 3368, 77, 226, "Input",ExpressionUUID->"63f8958a-64de-41c2-b7bf-81808f03aea9"] }, Closed]], Cell[CellGroupData[{ Cell[6689128, 135596, 763, 11, 45, "Subsubsection",ExpressionUUID->"56f9e29f-79fa-440c-88a4-d6ef5d824130"], Cell[6689894, 135609, 2901, 50, 60, "Input",ExpressionUUID->"6e604da2-badb-4b18-a57e-5169287292b6"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6692844, 135665, 1433, 20, 46, "Subsection",ExpressionUUID->"3b8bbb34-7a59-4c20-925e-26bc5bd51903"], Cell[CellGroupData[{ Cell[6694302, 135689, 692, 10, 56, "Subsubsection",ExpressionUUID->"799faeba-1f47-4fe6-8909-9b75f1b345e6"], Cell[6694997, 135701, 4178, 92, 274, "Input",ExpressionUUID->"76c2b17f-59ad-4a3d-8c77-55b44be9b71c"] }, Closed]], Cell[CellGroupData[{ Cell[6699212, 135798, 540, 8, 45, "Subsubsection",ExpressionUUID->"460f4545-102c-41b5-91e5-bca75f05122c"], Cell[6699755, 135808, 5366, 129, 440, "Input",ExpressionUUID->"3824df2f-8cb1-470b-9b76-d4cce804cbd4"] }, Closed]], Cell[CellGroupData[{ Cell[6705158, 135942, 499, 8, 45, "Subsubsection",ExpressionUUID->"e0260b6b-dac4-4ffc-9f7e-6287a1bb7fac"], Cell[CellGroupData[{ Cell[6705682, 135954, 7669, 170, 488, "Input",ExpressionUUID->"61493109-5f62-4795-a969-d3796f5420c9"], Cell[6713354, 136126, 5620, 160, 226, "Output",ExpressionUUID->"6f62eacd-8e84-4c93-aaca-466cc509cb86"], Cell[6718977, 136288, 1136, 35, 60, "Output",ExpressionUUID->"2a77ce07-99b9-4ba2-8a05-1f3812ecb9bd"] }, Open ]], Cell[CellGroupData[{ Cell[6720150, 136328, 4077, 80, 297, "Input",ExpressionUUID->"7cb5f5c1-0068-4da0-9b45-d64991d88430"], Cell[CellGroupData[{ Cell[6724252, 136412, 322, 8, 27, "Print",ExpressionUUID->"ebcd3546-4c24-4b29-a13e-d92ef02a048a"], Cell[6724577, 136422, 319, 8, 27, "Print",ExpressionUUID->"9d4f11e8-9000-42eb-9dd1-e69ab31c5859"], Cell[6724899, 136432, 322, 8, 27, "Print",ExpressionUUID->"0ac17faf-7505-4401-b0de-2255d6fd8b7f"], Cell[6725224, 136442, 323, 8, 27, "Print",ExpressionUUID->"745a9da4-5c12-4387-89b9-aa71edd1f450"] }, Open ]], Cell[6725562, 136453, 17429, 307, 771, "Output",ExpressionUUID->"0844f3a1-3ae2-4dae-9fb0-f4e27bc70453"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6743040, 136766, 552, 9, 45, "Subsubsection",ExpressionUUID->"964c563f-8cd4-4fb0-a14e-6a5b2cb09098"], Cell[CellGroupData[{ Cell[6743617, 136779, 10707, 272, 773, "Input",ExpressionUUID->"fba6b4ba-32f8-409b-8f3d-90bb68c75a7d"], Cell[6754327, 137053, 8806, 253, 406, "Output",ExpressionUUID->"8fdb1ec5-2ead-4151-b48a-c794b9af3581"], Cell[6763136, 137308, 4251, 69, 169, "Output",ExpressionUUID->"d73ef79e-4efb-48ee-91b6-78e9c2b805b6"], Cell[6767390, 137379, 171, 3, 40, "Output",ExpressionUUID->"fa23dbf8-03a8-4358-ba77-8c5dc19958f6"], Cell[6767564, 137384, 6657, 108, 225, "Output",ExpressionUUID->"f85f1bd9-f752-4d39-bb42-9a94877cc9e5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6774270, 137498, 433, 6, 45, "Subsubsection",ExpressionUUID->"4ba5a090-536d-404b-8256-038c66bbe544"], Cell[6774706, 137506, 3684, 88, 274, "Input",ExpressionUUID->"641c0c3f-6311-4e0e-9c23-07642290a680"] }, Closed]], Cell[CellGroupData[{ Cell[6778427, 137599, 482, 7, 45, "Subsubsection",ExpressionUUID->"fcc8fbfc-b811-457e-b206-a9409d2364e5"], Cell[6778912, 137608, 2945, 70, 226, "Input",ExpressionUUID->"dafba73c-a33b-4816-87cd-b17e6d2d57d9"] }, Closed]], Cell[CellGroupData[{ Cell[6781894, 137683, 437, 7, 45, "Subsubsection",ExpressionUUID->"87025aae-7f52-4432-b63c-091a4384afe2"], Cell[6782334, 137692, 4624, 104, 321, "Input",ExpressionUUID->"19202e85-a8b7-451f-acab-fb833b3b3ccc"] }, Closed]], Cell[CellGroupData[{ Cell[6786995, 137801, 526, 7, 45, "Subsubsection",ExpressionUUID->"853866ea-ee39-426e-96a1-2916848e162b"], Cell[6787524, 137810, 3068, 78, 274, "Input",ExpressionUUID->"c2f55bc7-9cf5-4ddb-8a6e-5056caf68bce"], Cell[CellGroupData[{ Cell[6790617, 137892, 1821, 45, 202, "Input",ExpressionUUID->"a39c217b-ca7f-433e-bba4-75cd4e775db0"], Cell[6792441, 137939, 595, 16, 40, "Output",ExpressionUUID->"e48a6300-66f8-4b78-805d-7c53532c9bdb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6793085, 137961, 460, 6, 45, "Subsubsection",ExpressionUUID->"8797b216-03e0-4b5d-a390-4c6d37872327"], Cell[6793548, 137969, 5135, 108, 321, "Input",ExpressionUUID->"0806d1ce-ba9f-4957-99e0-fc2aeb1b483e"] }, Closed]], Cell[CellGroupData[{ Cell[6798720, 138082, 485, 7, 45, "Subsubsection",ExpressionUUID->"ea2a79b4-de7b-4cf5-aa38-7c54c347a04f"], Cell[6799208, 138091, 4886, 101, 250, "Input",ExpressionUUID->"94470b95-71e9-4693-8fdd-092c4a38527e"] }, Closed]], Cell[CellGroupData[{ Cell[6804131, 138197, 483, 7, 45, "Subsubsection",ExpressionUUID->"552d5b3f-1777-4235-825e-f9297f00183b"], Cell[6804617, 138206, 4603, 101, 321, "Input",ExpressionUUID->"21a689a9-7fe2-4f2d-b6c1-d7a79ffa8db3"] }, Closed]], Cell[CellGroupData[{ Cell[6809257, 138312, 439, 7, 45, "Subsubsection",ExpressionUUID->"fafa6ada-6521-4bba-a72c-91f3cd64d070"], Cell[6809699, 138321, 4538, 106, 321, "Input",ExpressionUUID->"bf4212de-4239-4023-9e56-847a714c0bd1"], Cell[6814240, 138429, 2737, 54, 107, "Input",ExpressionUUID->"05bbf065-d021-44d8-aa49-1027d5dbb751"] }, Closed]], Cell[CellGroupData[{ Cell[6817014, 138488, 441, 6, 45, "Subsubsection",ExpressionUUID->"c1bf9ba8-53c0-4cce-9a0b-e8aec4b2cdd3"], Cell[6817458, 138496, 5235, 118, 369, "Input",ExpressionUUID->"044b01b8-d5db-4f6a-9392-3c6afd92e820"] }, Closed]], Cell[CellGroupData[{ Cell[6822730, 138619, 487, 7, 45, "Subsubsection",ExpressionUUID->"15f4de20-d8ca-4ef8-8cfd-86f0924dd91b"], Cell[6823220, 138628, 4738, 106, 345, "Input",ExpressionUUID->"d4360ee2-8ec7-48fd-895c-cfbb96e726a0"] }, Closed]], Cell[CellGroupData[{ Cell[6827995, 138739, 545, 8, 45, "Subsubsection",ExpressionUUID->"39fa591e-e445-4b5d-b1e1-b5899c6b884f"], Cell[6828543, 138749, 5631, 113, 297, "Input",ExpressionUUID->"ac35a57a-ebb6-4314-a262-e59e1b8e461c"] }, Closed]], Cell[CellGroupData[{ Cell[6834211, 138867, 550, 8, 45, "Subsubsection",ExpressionUUID->"f9fb5a78-a6f5-46a9-98f8-ca704f2b0012"], Cell[CellGroupData[{ Cell[6834786, 138879, 4758, 93, 202, "Input",ExpressionUUID->"37108704-f0be-414f-8a75-dddc274860bb"], Cell[6839547, 138974, 3458, 98, 46, "Print",ExpressionUUID->"99c4d12d-0d7b-4699-aa8a-f709d780b918"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6843054, 139078, 504, 8, 56, "Subsubsection",ExpressionUUID->"3811eb31-ffe5-43ac-905b-e7cd32b868b2"], Cell[6843561, 139088, 5849, 125, 345, "Input",ExpressionUUID->"091e8c0b-c36a-4b77-a935-ede796d3a61a"] }, Closed]], Cell[CellGroupData[{ Cell[6849447, 139218, 500, 8, 45, "Subsubsection",ExpressionUUID->"9ae23928-f42b-4fd5-8b60-2e031f841d21"], Cell[6849950, 139228, 5997, 128, 345, "Input",ExpressionUUID->"f00abee4-32b3-4252-b5a8-ffaf923f349f"] }, Closed]], Cell[CellGroupData[{ Cell[6855984, 139361, 524, 8, 45, "Subsubsection",ExpressionUUID->"13c1fbf3-447a-42fa-a632-36a3585d6cd8"], Cell[6856511, 139371, 5305, 107, 274, "Input",ExpressionUUID->"7eafe735-db3a-44a5-ab56-67fa5444635f"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6861865, 139484, 1260, 18, 46, "Subsection",ExpressionUUID->"b7146cd7-5d2d-40f9-9dd4-df903f172f53"], Cell[CellGroupData[{ Cell[6863150, 139506, 1644, 24, 56, "Subsubsection",ExpressionUUID->"b1f0f36e-4ef8-4687-b58e-b6b31014e1d6"], Cell[6864797, 139532, 16568, 366, 953, "Input",ExpressionUUID->"07d45348-e5a0-4f3d-a127-ada5be2bad68"] }, Closed]], Cell[CellGroupData[{ Cell[6881402, 139903, 1617, 23, 45, "Subsubsection",ExpressionUUID->"132f69ee-be6b-4151-a9f9-49461be4f47e"], Cell[6883022, 139928, 7481, 169, 488, "Input",ExpressionUUID->"2c4d25fc-1d9f-4a9c-af50-f2e03be99d00"] }, Closed]], Cell[CellGroupData[{ Cell[6890540, 140102, 1666, 24, 45, "Subsubsection",ExpressionUUID->"1c9e9a7b-4877-455e-9e2d-36513b1ceed5"], Cell[6892209, 140128, 8016, 176, 488, "Input",ExpressionUUID->"c589d0a0-b5d3-4f22-9582-a01ece890ef1"], Cell[6900228, 140306, 3919, 62, 83, "Input",ExpressionUUID->"ec7e472d-ff1f-4da7-ad2c-7bcb52c6992b"] }, Closed]], Cell[CellGroupData[{ Cell[6904184, 140373, 799, 11, 45, "Subsubsection",ExpressionUUID->"bf8a6733-9c45-4d6e-944d-4421930433e1"], Cell[6904986, 140386, 3073, 71, 250, "Input",ExpressionUUID->"946c091a-a4be-4ef5-86f3-2895b1e33151"] }, Closed]], Cell[CellGroupData[{ Cell[6908096, 140462, 1236, 17, 45, "Subsubsection",ExpressionUUID->"40c72242-d0ea-4e37-a255-66d789e802aa"], Cell[6909335, 140481, 5404, 104, 274, "Input",ExpressionUUID->"ad0d37d0-ad01-43e5-aeb1-48d281bd09bf"] }, Closed]], Cell[CellGroupData[{ Cell[6914776, 140590, 741, 11, 45, "Subsubsection",ExpressionUUID->"49e49c61-5287-4af6-bc73-c829e06fc49a"], Cell[6915520, 140603, 3366, 80, 274, "Input",ExpressionUUID->"3a571324-0d33-48bc-b79b-07ee6082ab54"] }, Closed]], Cell[CellGroupData[{ Cell[6918923, 140688, 766, 11, 45, "Subsubsection",ExpressionUUID->"78e6ae05-4cf4-4ef8-b1bb-7b5b168abf06"], Cell[6919692, 140701, 3434, 81, 274, "Input",ExpressionUUID->"0df93cf9-085f-42af-b1d4-447a93ac3cc2"] }, Closed]], Cell[CellGroupData[{ Cell[6923163, 140787, 600, 8, 45, "Subsubsection",ExpressionUUID->"ba923300-b39a-4b9f-9928-dcb59ddfac5d"], Cell[6923766, 140797, 11939, 275, 826, "Input",ExpressionUUID->"0d3c7aca-4dfb-4dfa-a5ce-262562ff4558"] }, Closed]], Cell[CellGroupData[{ Cell[6935742, 141077, 764, 11, 45, "Subsubsection",ExpressionUUID->"833fc726-a714-41d3-9d4c-27e440be5b27"], Cell[6936509, 141090, 8933, 200, 480, "Input",ExpressionUUID->"c0f0fda1-82d7-4ea1-ab7e-d12f3898dd3e"] }, Closed]], Cell[CellGroupData[{ Cell[6945479, 141295, 1693, 24, 45, "Subsubsection",ExpressionUUID->"8e9b0c0e-6206-4933-9344-82ea7c2d54d0"], Cell[6947175, 141321, 7147, 153, 346, "Input",ExpressionUUID->"904f89dd-4cc3-4bdc-9371-255c8e6861ae"], Cell[6954325, 141476, 5750, 114, 202, "Input",ExpressionUUID->"24fd6d6f-e2fb-41f0-9108-a1960923935d"] }, Closed]], Cell[CellGroupData[{ Cell[6960112, 141595, 698, 10, 45, "Subsubsection",ExpressionUUID->"f4cf8894-a90d-4a31-a231-df0a2ff36898"], Cell[6960813, 141607, 7749, 174, 362, "Input",ExpressionUUID->"a9c5e014-df91-41b5-85f5-e7bcfa982602"] }, Closed]], Cell[CellGroupData[{ Cell[6968599, 141786, 769, 11, 45, "Subsubsection",ExpressionUUID->"57e77531-a026-4240-8382-1980ff7d5a10"], Cell[6969371, 141799, 9700, 243, 505, "Input",ExpressionUUID->"dc384cfd-ad44-42b1-977d-7207eebe611a"] }, Closed]], Cell[CellGroupData[{ Cell[6979108, 142047, 540, 8, 45, "Subsubsection",ExpressionUUID->"b980e8b7-c8f2-4d72-a034-89739394a800"], Cell[6979651, 142057, 3655, 91, 343, "Input",ExpressionUUID->"da7f5b52-0e96-449a-8aa5-700f171a0498"] }, Closed]], Cell[CellGroupData[{ Cell[6983343, 142153, 538, 8, 45, "Subsubsection",ExpressionUUID->"d2ed1f7c-0069-4d6c-876e-373c52bdfa3a"], Cell[6983884, 142163, 3083, 76, 248, "Input",ExpressionUUID->"735ccb14-6d5e-4865-9d68-b16b4b5069a6"] }, Closed]], Cell[CellGroupData[{ Cell[6987004, 142244, 545, 8, 45, "Subsubsection",ExpressionUUID->"25a8d750-1d96-4553-a668-5f62faeb35a2"], Cell[6987552, 142254, 4983, 103, 307, "Input",ExpressionUUID->"69d54410-5621-47dd-8085-4f2dc3f64343"] }, Closed]], Cell[CellGroupData[{ Cell[6992572, 142362, 514, 7, 45, "Subsubsection",ExpressionUUID->"ed6d94c6-a05c-451f-b6da-9654852ff719"], Cell[6993089, 142371, 4887, 112, 345, "Input",ExpressionUUID->"8fbdbe19-fdc4-4199-b87c-2fd47590e6c4"] }, Closed]], Cell[CellGroupData[{ Cell[6998013, 142488, 542, 8, 45, "Subsubsection",ExpressionUUID->"4fd28bbe-3ed0-43d0-991e-ad70ad35afac"], Cell[6998558, 142498, 5665, 132, 393, "Input",ExpressionUUID->"aefd3dfe-ca5f-4bfb-9708-c2b7bc42dadf"] }, Closed]], Cell[CellGroupData[{ Cell[7004260, 142635, 728, 10, 45, "Subsubsection",ExpressionUUID->"793e83c8-6db5-4aaf-8b42-5162e9cce071"], Cell[7004991, 142647, 6460, 142, 383, "Input",ExpressionUUID->"856aedd3-3de5-4c5a-8e6b-101a227dbbea"] }, Closed]], Cell[CellGroupData[{ Cell[7011488, 142794, 652, 9, 45, "Subsubsection",ExpressionUUID->"13e33cbb-d02c-4d64-8951-5f4f44bdbb2e"], Cell[7012143, 142805, 6388, 144, 454, "Input",ExpressionUUID->"48cda1ed-396b-4630-99d7-5b680aa527eb"] }, Closed]], Cell[CellGroupData[{ Cell[7018568, 142954, 678, 10, 45, "Subsubsection",ExpressionUUID->"df600024-33dc-4290-aeb4-26fe251da71c"], Cell[7019249, 142966, 6695, 149, 502, "Input",ExpressionUUID->"3a2f78ad-9260-42bb-8330-c56e2e325703"] }, Closed]], Cell[CellGroupData[{ Cell[7025981, 143120, 548, 8, 45, "Subsubsection",ExpressionUUID->"7896620f-1289-4410-b2ae-b01279d699a0"], Cell[7026532, 143130, 5118, 123, 461, "Input",ExpressionUUID->"8e42fed0-41e6-47ac-9462-e180d1d278e1"] }, Closed]], Cell[CellGroupData[{ Cell[7031687, 143258, 565, 8, 45, "Subsubsection",ExpressionUUID->"af29f515-6c17-4f87-ba79-9c8a0fbeac97"], Cell[7032255, 143268, 3917, 67, 107, "Input",ExpressionUUID->"65e8efe4-930f-46b2-883d-d0502481e9a2"] }, Closed]], Cell[CellGroupData[{ Cell[7036209, 143340, 635, 9, 45, "Subsubsection",ExpressionUUID->"75e40b36-7343-484b-af31-0d8496537aa0"], Cell[7036847, 143351, 5014, 102, 334, "Input",ExpressionUUID->"e1f2638c-ce7e-4ebe-81a4-9467c2487233"] }, Closed]], Cell[CellGroupData[{ Cell[7041898, 143458, 415, 6, 45, "Subsubsection",ExpressionUUID->"25b8e96c-ed7b-43c8-98a0-27ba2d82eed7"], Cell[7042316, 143466, 5575, 131, 457, "Input",ExpressionUUID->"52c6221a-6a56-424a-a7b4-fe9cf70f6f92"], Cell[7047894, 143599, 149, 3, 60, "Input",ExpressionUUID->"8f7af942-2e8f-4052-8251-75d4301dd3fe"] }, Closed]], Cell[CellGroupData[{ Cell[7048080, 143607, 611, 9, 45, "Subsubsection",ExpressionUUID->"a6c7fff6-ad90-4b65-be40-f1ef5e43f3d5"], Cell[7048694, 143618, 3725, 93, 304, "Input",ExpressionUUID->"a1a3c5a2-7c40-4ee1-903a-77ce92267b58"] }, Closed]], Cell[CellGroupData[{ Cell[7052456, 143716, 754, 11, 45, "Subsubsection",ExpressionUUID->"d01be3bf-362e-4c3a-ac3f-7439439c163e"], Cell[7053213, 143729, 6591, 143, 431, "Input",ExpressionUUID->"8d2b8558-ac03-4374-8190-f650a342ff7a"] }, Closed]], Cell[CellGroupData[{ Cell[7059841, 143877, 800, 11, 45, "Subsubsection",ExpressionUUID->"fc5bfcbd-2424-4fc3-aab3-753c661c1714"], Cell[7060644, 143890, 6742, 141, 458, "Input",ExpressionUUID->"4d3c253e-93f0-445f-84e0-4eba467134ac"] }, Closed]] }, Open ]] }, Open ]] } ] *)