(* 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[ 6586103, 132695] NotebookOptionsPosition[ 6525346, 131634] NotebookOutlinePosition[ 6525959, 131655] CellTagsIndexPosition[ 6525916, 131652] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MEC-E8001 Finite Element Analysis 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.690793272858951*^9, 3.6907932833889694`*^9}, 3.692021062414472*^9, 3.723799076464348*^9, 3.7529075526728444`*^9, {3.786674520886054*^9, 3.78667452099538*^9}, { 3.787369077038349*^9, 3.787369078333099*^9}, {3.7873692589195013`*^9, 3.7873692634178495`*^9}, 3.816933053461233*^9, {3.817042959067622*^9, 3.817042966014656*^9}, {3.8191048779101887`*^9, 3.8191048783875504`*^9}, 3.8506134998997335`*^9, {3.8812051775437565`*^9, 3.8812051776745157`*^9}},ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-\ 59c8faa291c7"], 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->"26ddfd20-c266-447e-a4c9-\ fff6724630ac"], Cell[CellGroupData[{ Cell["DEFS defs ", "Subsection", CellChangeTimes->{{3.4770537307790003`*^9, 3.4770537313562*^9}},ExpressionUUID->"69735a39-f3cd-4393-8553-e89bb1d1116a"], 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[1]:=",ExpressionUUID->"3a570fa3-c224-4096-b61a-97d8848b72b7"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.686831884411597*^9, 3.6868318902216053`*^9}}, CellLabel-> "In[423]:=",ExpressionUUID->"c39f5227-6837-4114-a696-f306dceeb59c"] }, Closed]], Cell[CellGroupData[{ Cell["SHAPE defs ", "Subsection",ExpressionUUID->"39c78aab-c01f-4b31-ab89-3b2452c70960"], 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[14]:=",ExpressionUUID->"4528d783-b6d0-4419-afb9-3825268c01e7"] }, Closed]], Cell[CellGroupData[{ Cell["QUAD defs ", "Subsection",ExpressionUUID->"c0ca6b18-5ea7-4420-9301-0619a281cdcd"], 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[{"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[{"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[{"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}}, CellLabel->"In[37]:=",ExpressionUUID->"b5a6363a-3f1b-434b-a897-f9cb880580cc"], 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[472]:=",ExpressionUUID->"e6f03368-b2d5-465f-8f23-16d94c30de63"], 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, 3.883882363853693*^9}, CellLabel-> "Out[477]=",ExpressionUUID->"777f9c23-67ef-41b9-967e-efef4c7d6dcb"], 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.8413906934544754`*^9, 3.8838823638566914`*^9}, CellLabel-> "Out[478]=",ExpressionUUID->"7cc601df-d699-448b-b5ac-c645f61774ef"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["INTEGRATE defs ", "Subsection",ExpressionUUID->"6ac1b71c-e5bf-43ea-ad1b-476669dfea1a"], 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[62]:=",ExpressionUUID->"efe4a541-a33b-443d-97dd-e4318677f6c3"] }, 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->"3ce845d7-3728-4a4e-a7b7-\ 574c47b071a5"], 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->"c08f4636-e9aa-4fe4-8898-\ ac0a3b03383e"], 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}}, CellLabel-> "In[485]:=",ExpressionUUID->"1266771c-2b7c-49ea-93ba-203289e3b8dc"] }, 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->"bd374397-f692-4ad0-9301-\ 5688595d0051"], 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]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[{ 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[{"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}}, CellLabel->"In[68]:=",ExpressionUUID->"341c371d-9c31-4f21-b9d8-c7cf0b9f27fb"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (evnt) 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}, {3.817437626458826*^9, 3.8174376276248903`*^9}, 3.8223693711432643`*^9},ExpressionUUID->"8a71eae6-0384-42b2-9cb9-\ 292ec8e65d81"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVENT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", 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.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.817437636844257*^9, 3.817437649087758*^9}, { 3.8174378054427986`*^9, 3.8174378405468597`*^9}, {3.8174388645560064`*^9, 3.817438902212788*^9}, 3.8175212166525545`*^9}, CellLabel->"In[74]:=",ExpressionUUID->"5828aa55-2f6d-463e-bb6d-dbdf29dce4d3"] }, 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->"d49acdc3-2b40-49ef-850c-\ 3b96c08686d6"], 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[75]:=",ExpressionUUID->"c7196bbe-1d4f-4018-9f02-1b438d81b9d4"] }, 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->"160d6f79-ebe1-44ba-8380-\ bfb0f14a5f88"], 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[85]:=",ExpressionUUID->"dbae2cee-f560-451d-bf93-9e19ab987ce8"] }, 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->"c27433b5-f392-40a3-8776-\ 19ac0dbb17c0"], 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]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}}, CellLabel->"In[91]:=",ExpressionUUID->"697936a1-9c9c-4900-b095-a5a7684f4daf"] }, Open ]], 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->"2818b083-e647-490e-8517-\ 8b77e5876e81"], 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[95]:=",ExpressionUUID->"d53e511a-252e-4467-8d09-256ad3943ef1"] }, 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->"9c431d9e-efad-4046-9b24-\ fa6d06198e8c"], 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->"59ed5a9a-327e-4efd-8832-\ 34ab691c61c9"], 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[{"FN", "[", "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}}, CellLabel->"In[96]:=",ExpressionUUID->"b63963ff-6fe5-4bc1-a3e7-8f697427fc3c"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (evnt) 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}, { 3.8174387848423214`*^9, 3.817438785964677*^9}, 3.8431826672012787`*^9},ExpressionUUID->"c7166bd0-23c0-415f-b4c0-\ 9ecf75aa404a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 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[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 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[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"CONTACT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", "d_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"U", ",", "F", ",", "U0", ",", "dU0", ",", "F0", ",", "dF0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "events", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "-", "d"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"FN", "[", "n1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U0", "=", RowBox[{"U", "/.", "sol0"}]}], ";", RowBox[{"dU0", "=", RowBox[{"D", "[", RowBox[{"U0", ",", "s"}], "]"}]}], ";", RowBox[{"U0", "=", RowBox[{"U0", "/.", RowBox[{"s", "\[Rule]", "s0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"F0", "=", RowBox[{"F", "/.", "sol0"}]}], ";", RowBox[{"dF0", "=", RowBox[{"D", "[", RowBox[{"F0", ",", "s"}], "]"}]}], ";", RowBox[{"F0", "=", RowBox[{"F0", "/.", RowBox[{"s", "\[Rule]", "s0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"U0", ",", "dU0", ",", "F0", ",", "dF0"}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pick", " ", "the", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"U0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"F0", ">", "0"}], ")"}]}], ",", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"F", "*", "U"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"U0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"F0", "<", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"F", "*", "F"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"U0", ">", "0"}], ")"}]}], ",", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"F", "*", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"U0", "<", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"F", "*", "U"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"U0", "==", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"dU0", ">", "0"}], ")"}]}], ",", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"F", "*", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"U0", "==", "0"}], ")"}], "&&", " ", RowBox[{"(", RowBox[{"dU0", "<", "0"}], ")"}]}], ",", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"U", "*", "F"}], "]"}], ",", "True", ",", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"U", "*", "F"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNTPOST", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"CONTACT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", "d_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"UF", ",", "k", ",", "UF0", ",", "\[CapitalDelta]s"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "events", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UF", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "-", "d"}], ")"}], "+", RowBox[{"FN", "[", "n1", "]"}]}], ")"}], " ", "/.", "sol0"}], " ", "/.", RowBox[{"s", "->", RowBox[{"s0", "+", "\[CapitalDelta]s"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"UF0", "=", RowBox[{"UF", " ", "/.", RowBox[{"\[CapitalDelta]s", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"D", "[", RowBox[{"UF", ",", "\[CapitalDelta]s"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]s", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"k", StyleBox["\[NotEqual]", "OperatorCharacter"], StyleBox["0", "OperatorCharacter"]}], ",", RowBox[{ RowBox[{"-", "UF0"}], "/", "k"}], ",", "0"}], "]"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"\[CapitalDelta]s", "\[Equal]", "0"}], ",", RowBox[{"1", "-", "s0"}], ",", "\[CapitalDelta]s"}], "]"}]}]}], "\[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.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.817438930825718*^9, 3.8174390943730135`*^9}, { 3.8174391259139147`*^9, 3.817439141253656*^9}, {3.817521077883604*^9, 3.817521080728553*^9}, {3.8175211772242155`*^9, 3.8175212036088133`*^9}, { 3.8175674512925177`*^9, 3.817567623935768*^9}, {3.8175676609349613`*^9, 3.817567723697788*^9}, {3.817568085932104*^9, 3.8175680987457275`*^9}, { 3.817569108580055*^9, 3.817569117864359*^9}, {3.817569150118846*^9, 3.8175691557258625`*^9}, {3.8176216772973127`*^9, 3.817621692611002*^9}, { 3.8176217285430126`*^9, 3.817621790585905*^9}, {3.817786782380433*^9, 3.8177868741990595`*^9}, {3.8177916370767837`*^9, 3.817791664037953*^9}, 3.8177919725788736`*^9, {3.817797728334919*^9, 3.8177979470877533`*^9}, { 3.817798048009226*^9, 3.8177980720019073`*^9}, {3.8177981782154303`*^9, 3.8177982245972304`*^9}, {3.817874042594287*^9, 3.8178740483145275`*^9}, 3.817874104353353*^9, {3.817874161520626*^9, 3.817874247753765*^9}, { 3.817875812854987*^9, 3.8178758350526857`*^9}, 3.8178759752202544`*^9, { 3.843182718463587*^9, 3.84318273860385*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"a94040c6-b7bf-4e95-8e4e-687a7939046c"] }, 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->"c456088b-f4d9-404b-adee-\ 044969b502b9"], 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[108]:=",ExpressionUUID->"0d31965c-6b4c-4158-a07c-0ca8896d40e2"] }, 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->"9ce36717-7a88-44ac-88f4-\ efbce0033ef1"], 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[115]:=",ExpressionUUID->"d1a08611-d3d4-4baa-ae23-1411c670797e"] }, 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->"1a944d9f-89fc-454f-80c5-\ 0a5a57a4e58c"], 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"}], "]"}]}], ";"}]}]}]], "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}}, CellLabel-> "In[118]:=",ExpressionUUID->"15943973-fcbe-4544-8ede-9998de05e915"] }, 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->"74c3dc18-0652-4152-a6e7-\ 54bf4aa0aa1f"], 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[121]:=",ExpressionUUID->"c21301c4-05c2-4d01-8bb3-c24f8941244e"] }, 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->"a1c1f6c8-65a4-4e7a-b12e-\ 5346023a1cce"], 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->"451404bb-871e-4645-9fa1-\ 3d48d0cd92bc"], 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", "]"}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[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.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}, CellLabel-> "In[124]:=",ExpressionUUID->"2a6e011a-58d7-4c88-bc32-a682d18dbbb9"], Cell[BoxData[ RowBox[{"\[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[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "ix0", ",", "iz0", ",", "ux", ",", "\[Delta]ux", ",", "EE1", ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", "fx", ",", "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[{"fx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", "\[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[{"fx", " ", "/.", "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[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "\[Delta]Wint", ",", "\[Delta]Wext"}], "}"}], ",", "\[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[{"ux", "[", "1", "]"}], "=", RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "2", "]"}], "=", RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"ux", "[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]ux", "[", "2", "]"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"ux", "[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "=", RowBox[{ RowBox[{"-", "AA"}], " ", RowBox[{"EE", "/", "h0"}], " ", "*", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "-", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]Wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "*", RowBox[{"h0", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]Wint", "+", "\[Delta]Wext"}]}]}], "]"}]}], ";"}]}]}]], "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.843626019323427*^9}}, CellLabel-> "In[548]:=",ExpressionUUID->"fd488325-e75b-4619-82a8-b64e25e1b217"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"GENERICBAR", ",", 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]", "]"}]}], ";"}], "\[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}, CellLabel-> "In[552]:=",ExpressionUUID->"e9efd7b3-52d0-4179-8843-46620885b603"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"NEW", " ", "DEFS"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz", ",", 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[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz", ",", 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[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"ly", ",", "lz", ",", 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[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_", ",", "iy_"}], "]"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 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[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"ly", "/.", "rule"}], ",", RowBox[{"lz", "/.", "rule"}]}], "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", ".", "ix0"}], "&"}], ",", RowBox[{"Transpose", "[", 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[{"circle", " ", "cross"}], "-", "section"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"CIRCLE", "[", "d_", "]"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"CIRCLE", "[", RowBox[{"d", ",", 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[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"CIRCLE", "[", "d_", "]"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"CIRCLE", "[", RowBox[{"d", ",", 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[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"CIRCLE", "[", "d_", "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"CIRCLE", "[", 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[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"CIRCLE", "[", RowBox[{"d_", ",", "iy_"}], "]"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 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[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Pi", "/", "4"}], "*", RowBox[{"#", "^", "2"}]}], "&"}], ",", RowBox[{"d", "/.", "rule"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", ".", "ix0"}], "&"}], ",", RowBox[{"Transpose", "[", 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", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "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}, CellLabel-> "In[553]:=",ExpressionUUID->"f9e7d866-990f-4bde-a660-8b689dc794c2"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (evnt) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, { 3.7878946919412775`*^9, 3.7878946924724035`*^9}, 3.7878949434473147`*^9, { 3.817439189246712*^9, 3.8174391911071873`*^9}, 3.8431828238589272`*^9},ExpressionUUID->"03e11713-e539-4bcb-a195-\ 9bccff28c043"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", "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.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.817439204000356*^9, 3.8174392066998005`*^9}, {3.817439295580332*^9, 3.817439307456877*^9}, 3.817521235605838*^9, 3.843182831518036*^9}, CellLabel-> "In[130]:=",ExpressionUUID->"d561c151-fb6d-465c-acbb-a13d3ffa64c0"] }, 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->"0c23c661-27f4-4aa2-adcf-\ b44a93220501"], 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[131]:=",ExpressionUUID->"99b4738c-25f2-45e4-b245-94072371086f"], 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}, CellLabel-> "In[564]:=",ExpressionUUID->"4e25d7a3-3903-40ec-ab12-717839039cc9"] }, 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->"d29d9b1b-09d2-45c9-a877-\ 66eabea5bfd3"], 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[133]:=",ExpressionUUID->"eb78b704-314f-4adb-aaf1-eb7c37316210"] }, 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->"6bbd723d-d2bc-4f31-a629-\ cd5e500ef58c"], 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[135]:=",ExpressionUUID->"67fdc634-a240-4d18-81dd-63f7daafdfff"] }, 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->"9c610489-734e-41c4-931c-\ 824527ec1daa"], 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[139]:=",ExpressionUUID->"95e52243-8fa6-4fcc-9773-4b585b8ddeea"] }, 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->"0acefc98-38bc-4445-885e-\ 65327fcb7c38"], Cell[BoxData[ RowBox[{ 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", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[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.8175324830973916`*^9, 3.817532552103792*^9}, {3.843704806259609*^9, 3.843704863557214*^9}, {3.8437049017363043`*^9, 3.8437049180939226`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"ebfaf6b7-008d-4e24-993b-37a8c7ec2cd0"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (evnt) 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.817439343565061*^9, 3.8174393448082724`*^9}, 3.8431828477515774`*^9},ExpressionUUID->"fcd0ec9e-94d7-4d86-b0cb-\ f5e9a3030d89"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"TORSION", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 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.817439386305109*^9, 3.8174394287787733`*^9}, 3.81752126940705*^9, 3.8431828427789755`*^9}, CellLabel-> "In[143]:=",ExpressionUUID->"3777edd8-cb5d-4aa8-907c-a428c14e86a9"] }, 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->"14226aab-0640-4927-bbb1-\ d3125a1a89b0"], 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[144]:=",ExpressionUUID->"2cdd7d3e-ea21-4c57-b7a4-ab2706cb2dcf"] }, 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->"d467b636-1b28-4428-bfa3-\ 294c757234de"], 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[146]:=",ExpressionUUID->"28ed3e87-21da-4130-9539-9f0c97107029"] }, 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->"71b82b90-6e7c-472d-83d7-\ 47f3eedb1c41"], 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[147]:=",ExpressionUUID->"bc04bd22-b43e-4d55-ae2b-623fadbcc320"] }, 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->"ff5aff0f-aa76-42be-9acd-\ ef5d87132c02"], 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[148]:=",ExpressionUUID->"b220b709-842f-432c-bdcb-090a31607be7"] }, 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->"a4ead0f8-b55a-4191-9808-\ 9f7222aabe34"], 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[152]:=",ExpressionUUID->"c743df21-92c2-49b2-b41d-399ebbbbac13"] }, 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->"3c112b0d-11d9-4930-a612-\ 6e87b6df48ae"], 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[155]:=",ExpressionUUID->"f29d6bb1-b51e-424a-b44e-6ab4030abbb3"] }, 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->"75a36b0b-4a04-43de-a424-\ 57bcb241fd95"], 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[{"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.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}}, CellLabel-> "In[156]:=",ExpressionUUID->"b257f612-c52c-45be-be59-1f79e9d43f30"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"element", " ", "build", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", 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[{"GENERICBEAM", ",", 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[{"GENERICBEAM", ",", 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[{"GENERICBEAM", ",", 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[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "Sy", ",", "Sz", ",", "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[{"GENERICBEAM", ",", 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]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", 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}, CellLabel-> "In[594]:=",ExpressionUUID->"7db23c13-9e31-4be0-b556-40638734920f"] }, 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->"004a3f05-052c-48f9-9b6a-\ 206021b42dfa"], 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[162]:=",ExpressionUUID->"467d77ca-c443-451c-8ebe-ba9c01d88a9a"] }, 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->"ff36d431-8bd9-4242-97e9-\ e86f1c6c97bc"], 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", 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.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[170]:=",ExpressionUUID->"2a11cf0f-81e8-4b6e-b274-a320d4a40ae6"], 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}}, CellLabel-> "In[612]:=",ExpressionUUID->"cd79eea9-114f-4a3b-8f00-35d44cb85f25"], 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}}, CellLabel-> "In[613]:=",ExpressionUUID->"e3392d78-4f32-4854-8203-0975e4971d39"] }, 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->"2f523c15-9664-42d9-9d1f-\ d9ee2006a2af"], 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[175]:=",ExpressionUUID->"ab994d1b-9a38-442a-8754-fcaeb79b0287"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (evnt) 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.817439343565061*^9, 3.8174393448082724`*^9}, {3.817439544553817*^9, 3.8174395452236648`*^9}, 3.8431828716661205`*^9},ExpressionUUID->"b06d30e1-73d7-43fd-8133-\ 9a656aaeb7e6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", "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.817439386305109*^9, 3.8174394287787733`*^9}, {3.8174395552770724`*^9, 3.8174395603447847`*^9}, 3.817521302738725*^9, 3.8431828676201057`*^9}, CellLabel-> "In[176]:=",ExpressionUUID->"498b653d-ee68-4930-af7a-20bd98c89be7"] }, 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->"fd6cfcee-8216-457a-8aa9-\ f45c6cae3515"], 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[177]:=",ExpressionUUID->"af669451-d953-4f2a-b170-e1bf047e2d0f"], 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}}, CellLabel-> "In[625]:=",ExpressionUUID->"b597a00c-b6ce-4091-b5da-384527538911"] }, 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->"7e4c8b24-5499-48f1-b15d-\ c17c7b190a3e"], 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[182]:=",ExpressionUUID->"83d27d6d-3dc1-45fa-82e9-de6ee72f532c"] }, 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->"d0b8a28a-e920-4c28-92d5-\ e87278dd4c5b"], 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[628]:=",ExpressionUUID->"7503eb19-bc3a-4199-93e1-d5156f0fc2ef"] }, 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->"df90d526-69a4-4181-b993-\ b64cd48fa837"], Cell[CellGroupData[{ Cell["PLANE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.7661404367673664`*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}},ExpressionUUID->"0907a584-dfb0-4dac-aa9a-\ af1a9b273f8a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "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[{"{", 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[{"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[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "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]", "\[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]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions", " ", "etc"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"node", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", " ", RowBox[{"en", ".", " ", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"REC9", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"TWODIM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"TWODIM", ",", 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[{"MODE_", ",", RowBox[{"{", RowBox[{"TWODIM", ",", 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[{"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]", "]"}]}], ";"}]}]}]], "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}}, CellLabel-> "In[184]:=",ExpressionUUID->"43c7da69-bab0-4755-adce-ee86a2ca1ea6"], 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}, CellLabel-> "In[636]:=",ExpressionUUID->"5e31f508-4d4d-4bae-b598-b2fcc2492c02"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (evnt) 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.817439343565061*^9, 3.8174393448082724`*^9}, {3.817439544553817*^9, 3.8174395452236648`*^9}, { 3.817439659219601*^9, 3.8174396600345135`*^9}, 3.843182883058161*^9},ExpressionUUID->"5f940ff9-7c52-4837-8f77-\ 37f742937f89"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", "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.817439386305109*^9, 3.8174394287787733`*^9}, {3.8174395552770724`*^9, 3.8174395603447847`*^9}, {3.8174396709099665`*^9, 3.817439676294123*^9}, 3.8175213211484346`*^9, 3.8431828885395837`*^9}, CellLabel-> "In[190]:=",ExpressionUUID->"35726cea-a94d-40ac-b13d-cce4329656ea"] }, Closed]], 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}},ExpressionUUID->"31ba3ae6-be9a-4570-ae92-\ 19eea9aa0b9e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", "anya_", ",", "anyb_"}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", " ", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "tensor"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Sigma]XX", ",", "\[Sigma]XY", ",", "\[Sigma]XZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]YX", ",", "\[Sigma]YY", ",", "\[Sigma]YZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]ZX", ",", "\[Sigma]ZY", ",", "\[Sigma]ZZ"}], "}"}]}], "}"}], "]"}], "\[Rule]", " ", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"TWODIM", ",", 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}}, CellLabel-> "In[191]:=",ExpressionUUID->"efddd8a6-7bc7-4634-bde3-c21c0f4f9118"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.7574178626155615`*^9, 3.757417866610338*^9}, { 3.7882369565320654`*^9, 3.788236957825534*^9}},ExpressionUUID->"314eb125-6a0d-4b43-a2af-\ fc2a406d8512"], 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[193]:=",ExpressionUUID->"ab29cd5f-a9d0-43f7-952c-6e3d6d9e005f"] }, 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->"6d462465-199a-479b-8f8b-\ 5db104e7a91b"], 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[195]:=",ExpressionUUID->"59b2e855-646a-4e71-a544-f77b1cb8f8e2"] }, 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->"516595cf-ab2e-48ae-85ee-\ 37cd26bcb458"], 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[198]:=",ExpressionUUID->"311ec2d4-d636-4b8a-99c8-54b84999b499"], 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}, CellLabel-> "In[653]:=",ExpressionUUID->"9f632045-6053-469c-a1c9-c0dc000abafb"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.7577458100953183`*^9, 3.757745817919499*^9}, { 3.7901297746587725`*^9, 3.79012978895208*^9}},ExpressionUUID->"e98f2f79-ec9e-49a0-abd1-\ fe33421b2f52"], 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[200]:=",ExpressionUUID->"adb6186e-3231-4718-a611-826e2f354769"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE 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}},ExpressionUUID->"bfd5ce8c-c8b8-47dc-b504-\ 599b964a4838"], 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[202]:=",ExpressionUUID->"23a9b407-00f2-4731-b0b3-491f643392e7"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE BENDING ELEMENT (evnt) 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.817439343565061*^9, 3.8174393448082724`*^9}, {3.817439544553817*^9, 3.8174395452236648`*^9}, { 3.817439659219601*^9, 3.8174396600345135`*^9}, 3.817439764967313*^9, 3.843182905672008*^9, {3.871449999101363*^9, 3.8714500013182335`*^9}, { 3.8714500403038015`*^9, 3.8714500415126295`*^9}, {3.8765469221021805`*^9, 3.8765469230555267`*^9}},ExpressionUUID->"4e959ac7-8e4d-4ed2-a86b-\ ed8e6c3534d1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", "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.817439386305109*^9, 3.8174394287787733`*^9}, {3.8174395552770724`*^9, 3.8174395603447847`*^9}, {3.8174396709099665`*^9, 3.817439676294123*^9}, { 3.8174397747716293`*^9, 3.8174397780717535`*^9}, 3.817521343573311*^9, 3.843182901255577*^9}, CellLabel-> "In[204]:=",ExpressionUUID->"64299c03-635c-4e89-a324-5fa062ad01a9"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE 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}},ExpressionUUID->"fa59cd78-f6c4-48b7-bcb9-\ 57606a57b985"], 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]", "\[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"}], "+", 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]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w0", "]"}]}], "*", "tt", "*", "\[Rho]\[Rho]", "*", "w2"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]0", "]"}], "*", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", "\[Phi]2"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Theta]0", "]"}], "*", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", "\[Theta]2"}]}]}], ";", "\[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", "+", "\[Delta]wine"}], ",", 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.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}}, CellLabel-> "In[205]:=",ExpressionUUID->"643536ce-df2a-445e-863c-b9157bdef515"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE 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}},ExpressionUUID->"0dc18503-b23e-4a09-983b-\ 239deb516698"], 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[207]:=",ExpressionUUID->"4bb2c9b5-3522-4e51-8688-1532d6d5df34"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE 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}},ExpressionUUID->"95f7a8e1-3075-45f9-9431-\ 474799a3f33f"], 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[209]:=",ExpressionUUID->"6ed0a7d5-7ec2-4f27-a678-88e740a27d40"], 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}, CellLabel-> "In[665]:=",ExpressionUUID->"7dd7c8a2-90fc-49df-9843-f6062e9e798a"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9},ExpressionUUID->"e8a3ccb7-856e-4635-9fc1-\ 4e5e27a56901"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "MITC7"}], "-", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "uL", ",", "vL", ",", "wL", ",", "\[Phi]L", ",", "\[Theta]L", ",", "\[Psi]L", ",", "AA", ",", "edg", ",", "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"}], "}"}], ",", "\[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[{ "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[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NM"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC7", " ", "projection"}], "*)"}], "\[IndentingNewLine]", 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]", "]"}]}], ";"}]}]}]], "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}}, CellLabel-> "In[211]:=",ExpressionUUID->"965e9a56-d622-4766-b54f-887b05f254f3"], Cell[BoxData[ RowBox[{"\[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", ",", "edg", ",", "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"}], "}"}], ",", "\[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[{ "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[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NM"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC7", " ", "projection"}], "*)"}], "\[IndentingNewLine]", 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]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.881629594328554*^9, 3.8816295955781484`*^9}}, CellLabel-> "In[668]:=",ExpressionUUID->"bffbc682-34f8-4498-a1c0-e27afb43b2d6"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}},ExpressionUUID->"ef16b8c1-5349-4cd2-92a1-\ 760b5f603e78"], 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[213]:=",ExpressionUUID->"d965bb58-ea4d-43e6-a004-5f4b3239b508"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL 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}},ExpressionUUID->"9d7ce9b6-357e-40a0-a532-\ 829696016046"], 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[215]:=",ExpressionUUID->"f75b864c-6c01-405c-8b93-1c81592516a2"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6303896070263977`*^9, 3.6303896080872*^9}, 3.8435394517660627`*^9, {3.8533873958221235`*^9, 3.853387408038947*^9}, 3.8618404867698007`*^9},ExpressionUUID->"8a5e626f-56f9-44fd-8ee4-\ 27f3380898b6"], 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]", "\n", "\[IndentingNewLine]", 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[217]:=",ExpressionUUID->"fe3e3130-e30a-498b-ba00-c2e2ebd09c86"] }, 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->"b62db4fb-f562-4823-a863-\ e041a645ec0a"], 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->"b74a886a-882d-4071-bfba-\ 2ff84fa496f1"], 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[{ 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]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", "-", RowBox[{"symmetric", " ", "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]"}]}]], "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}}, CellLabel-> "In[221]:=",ExpressionUUID->"4a82e305-8c43-4bab-a82a-2aa4ad39cdaf"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (evnt) 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.817439343565061*^9, 3.8174393448082724`*^9}, {3.817439544553817*^9, 3.8174395452236648`*^9}, { 3.817439659219601*^9, 3.8174396600345135`*^9}, 3.817439764967313*^9, { 3.8174398145177484`*^9, 3.8174398153738604`*^9}, 3.8431829457768335`*^9},ExpressionUUID->"55b22909-21c9-4fe7-9ab3-\ a0bff0caa9ec"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SOLID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", "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.817439386305109*^9, 3.8174394287787733`*^9}, {3.8174395552770724`*^9, 3.8174395603447847`*^9}, {3.8174396709099665`*^9, 3.817439676294123*^9}, { 3.8174397747716293`*^9, 3.8174397780717535`*^9}, {3.8174398318697805`*^9, 3.817439837879761*^9}, 3.8175213595144067`*^9, 3.8431829500234118`*^9}, CellLabel-> "In[226]:=",ExpressionUUID->"5e7ef787-2871-4a2a-936d-418dde1f97a2"] }, 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->"3cab374e-d1fc-4451-ad8c-\ 78a9bb94dd86"], 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[227]:=",ExpressionUUID->"1bded083-6b91-4781-8c99-28d9df43261a"] }, 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->"b8f348f4-3f2f-40e6-b7dd-\ 7b58f8b32fae"], 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[231]:=",ExpressionUUID->"346c8743-4ae6-4689-a4a6-e3a2dfed5eb0"] }, 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->"7b2fb435-e86f-4e65-9bcf-\ ce39d6c7264f"], 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[233]:=",ExpressionUUID->"4141aa8c-7a92-4ef1-90b4-46daca6d8695"], 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}}, CellLabel-> "In[691]:=",ExpressionUUID->"7988c3ac-c3c6-4caf-9b6c-bc4a3cda4645"] }, Closed]], Cell[CellGroupData[{ Cell["Element needs 1005", "Subsection", CellChangeTimes->{{3.6337757022685537`*^9, 3.6337757351784363`*^9}, { 3.734064727558645*^9, 3.7340647333030305`*^9}, {3.746150005514146*^9, 3.7461500076701665`*^9}},ExpressionUUID->"0d7a05d3-20fd-4120-b585-\ b2d5ec3ab390"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"force", " ", "element"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", 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[{"{", "I1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "J", ",", "ux", ",", "uy", ",", "uz", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"\[Rho]", "*", "lx", "*", "ly", "*", "lz"}]}], ";", "\[IndentingNewLine]", RowBox[{"J", "=", RowBox[{"m", "*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"lx", "^", "2"}], "+", RowBox[{"lz", "^", "2"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"ly", "^", "2"}], "+", RowBox[{"lz", "^", "2"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"lx", "^", "2"}], "+", RowBox[{"ly", "^", "2"}]}]}], "}"}]}], "}"}], "/", "12"}]}]}], ";", "\[IndentingNewLine]", StyleBox[ RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", "\[Cross]", "iy"}]}], "}"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "-", RowBox[{"m", " ", "*", " ", RowBox[{"T", ".", " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}]}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", " ", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"T", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], "-", RowBox[{"J", ".", " ", "T", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"T", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}]}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], ")"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}]}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], "+", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "3"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MX", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"MY", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"MZ", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}]}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], ")"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "3"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], ")"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MX", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"MY", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}], ",", RowBox[{"MZ", "[", RowBox[{"{", RowBox[{"I2", ",", "I1"}], "}"}], "]"}]}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "I1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "-", RowBox[{"m", " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", " ", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], "-", RowBox[{"J", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "t_"}], "}"}], ",", "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]\[Kappa]"}], "}"}], ",", RowBox[{"{", " ", RowBox[{ RowBox[{"d", " ", "\[Pi]", " ", "t"}], ",", " ", RowBox[{"d", " ", "\[Pi]", " ", "t", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "+", SuperscriptBox["t", "2"]}], ")"}], "/", "8"}]}], ",", " ", RowBox[{"d", " ", "\[Pi]", " ", "t", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "+", SuperscriptBox["t", "2"]}], ")"}], "/", "8"}]}], ",", "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_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"d_", ",", "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]\[Kappa]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "2"}], "/", "4"}]}], ",", RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "4"}], "/", "64"}]}], ",", RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "4"}], "/", "64"}]}], ",", "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_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"hy_", ",", "hz_", ",", "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]\[Kappa]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"hy", "*", "hz"}], ",", RowBox[{ RowBox[{"hz", "^", "3"}], "*", RowBox[{"hy", "/", "12"}]}], ",", RowBox[{ RowBox[{"hy", "^", "3"}], "*", RowBox[{"hz", "/", "12"}]}], ",", "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_", ",", "\[Kappa]\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", 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", ",", "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]", 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[{"\[Delta]ux", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]ux", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]uy", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]uz", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "4"], " ", SuperscriptBox["\[Kappa]\[Kappa]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fx", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"6", " ", "fz", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"6", " ", "fz", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"fz", " ", SuperscriptBox["h", "3"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"fz", " ", SuperscriptBox["h", "3"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"fy", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "GG", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "-", RowBox[{"12", " ", "GG", " ", "Izz", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"12", " ", "GG", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"12", " ", "GG", " ", "Izz", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"12", " ", "GG", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"12", " ", "GG", " ", "Izz", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", RowBox[{"12", " ", "GG", " ", "Iyy", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", RowBox[{"12", " ", "GG", " ", "Izz", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"1728", " ", SuperscriptBox["EE", "3"], " ", "Iyy", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "-", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "-", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["AA", "2"]}], " ", "GG", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "-", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"6", " ", "fx", " ", SuperscriptBox["h", "2"], " ", "Iyy", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"fz", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"fy", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "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[{"AA", " ", "GG", " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", SuperscriptBox["Izz", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", SuperscriptBox["Iyy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "-", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "Iyy", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"3", " ", "h", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AA", "2"], " ", "GG", " ", SuperscriptBox["h", "2"], " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "-", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"6", " ", "fx", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fz", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"fy", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"h", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "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", " ", "AA", " ", "GG", " ", "\[Kappa]\[Kappa]", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"(", 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[{"3", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"(", 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[{ RowBox[{"-", "3"}], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "\[Kappa]\[Kappa]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "\[Kappa]\[Kappa]"}]}], ")"}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"d_", ",", "iy0_"}], "}"}], ",", 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[{ RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "2"}], "/", "4"}]}], ",", RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "4"}], "/", "64"}]}], ",", RowBox[{"Pi", "*", RowBox[{ RowBox[{"d", "^", "4"}], "/", "64"}]}], ",", "iy0"}], "}"}], ",", 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[{"hy_", ",", "hz_", ",", "iy0_"}], "}"}], ",", 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[{ RowBox[{"hy", "*", "hz"}], ",", RowBox[{ RowBox[{"hz", "^", "3"}], "*", RowBox[{"hy", "/", "12"}]}], ",", RowBox[{ RowBox[{"hy", "^", "3"}], "*", RowBox[{"hz", "/", "12"}]}], ",", "iy0"}], "}"}], ",", 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_", ",", "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[{ 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]", "\[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[{"ELEMENT", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 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]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "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", ",", "\[Delta]wine"}], "}"}], ",", "\[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]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[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]", 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]"], "u0"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v0"}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v0"}], "/", "h\[Alpha]"}], "-", "\[Psi]0"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u0"}], "/", "h\[Beta]"}], "+", "\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Beta]\[Beta]", ",", "\[Kappa]\[Alpha]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]0"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]0"}]}], "/", "h\[Beta]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]0"}], "/", "h\[Beta]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]0"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Beta]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w0"}], "/", "h\[Alpha]"}], "+", "\[Theta]0"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w0"}], "/", "h\[Beta]"}], "-", "\[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]\[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[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Beta]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", "*", "tt", "*", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}], ")"}]}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", "\[Alpha]"}], "]"}], ",", "\[Beta]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", 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.734065101190684*^9, 3.734065109945911*^9}, 3.734071634767725*^9, {3.734219464256485*^9, 3.734219489352889*^9}, { 3.734219525211231*^9, 3.7342195715720572`*^9}, 3.73421973141712*^9, { 3.7348415845456142`*^9, 3.7348415857332087`*^9}, {3.7440202929533424`*^9, 3.7440202932363644`*^9}, {3.746150119112222*^9, 3.7461501205962443`*^9}, { 3.7650873052252254`*^9, 3.765087311647415*^9}}, CellLabel-> "In[700]:=",ExpressionUUID->"4a33db0b-5145-477c-8b38-c2c321bd1384"] }, 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->"cf65ce44-6266-46ac-a80a-\ f21119eab9a1"], Cell[CellGroupData[{ Cell["DISP defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.7878928340449758`*^9}, 3.8223696918276553`*^9},ExpressionUUID->"f361346f-fa14-464b-8eb9-\ 98491f752fb4"], 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[{"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}}, CellLabel-> "In[235]:=",ExpressionUUID->"234d9865-6a70-49ab-8638-d7aafb9e8737"] }, Closed]], Cell[CellGroupData[{ Cell["EVNT defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.7878928340449758`*^9}, {3.8175215825088205`*^9, 3.8175215865117702`*^9}, {3.8223696966597366`*^9, 3.822369704047408*^9}},ExpressionUUID->"be152fc1-823c-4b8b-8229-\ e9023dfc8184"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT", ",", "\[CapitalDelta]s"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNT", ",", RowBox[{"{", RowBox[{"s0", ",", "sol0"}], "}"}]}], "}"}], ",", "#", " ", ",", "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[{"First", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "sol", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "find", " ", "\[CapitalDelta]s", " ", "for", " ", "the", " ", "next", " ", "event"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]s", "=", RowBox[{"Min", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"EVNTPOST", ",", RowBox[{"{", RowBox[{"s0", ",", "sol"}], "}"}]}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", RowBox[{"Select", "[", RowBox[{"ele", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "CONTACT"}], "&"}]}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "solution", " ", "at", " ", "the", " ", "next", " ", "event", " ", "U"}], "=", RowBox[{ RowBox[{"0", " ", "or", " ", "F"}], "=", RowBox[{"0", " ", "or", " ", "both"}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{"s0", "+", "\[CapitalDelta]s"}], ",", RowBox[{"sol", " ", "/.", RowBox[{"s", "\[Rule]", RowBox[{"s0", "+", "\[CapitalDelta]s"}]}]}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], " "}]], "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.8175216334258814`*^9, 3.8175216554867306`*^9}, { 3.817608992647215*^9, 3.8176090081319494`*^9}, 3.817609084026562*^9, { 3.8176091236756463`*^9, 3.817609192978817*^9}, {3.8176102671403065`*^9, 3.817610319221841*^9}, {3.817610354806981*^9, 3.8176103596390924`*^9}, { 3.817791293771158*^9, 3.817791414961601*^9}, {3.8177914936598372`*^9, 3.817791499828621*^9}, {3.8177915743263783`*^9, 3.817791574905566*^9}, { 3.8178746728163805`*^9, 3.8178746918171453`*^9}, {3.8178747220729046`*^9, 3.8178747512740507`*^9}, {3.8178747818821955`*^9, 3.817874800317868*^9}, { 3.817874856079772*^9, 3.81787487676381*^9}, {3.843182965086443*^9, 3.8431829731823196`*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"e17fe598-cce8-46a0-83bb-ec896af62eda"] }, Closed]], Cell[CellGroupData[{ Cell["VIBR defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.7878928096029596`*^9, 3.787892817639742*^9}, 3.822369708831148*^9},ExpressionUUID->"27272efd-b32e-4822-9bf6-\ 65be0dc1b98e"], Cell[BoxData[{ 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[{"Simplify", "[", 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]"}], "\[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[{"Simplify", "[", 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[{ 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[{ 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[{ 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[{"Simplify", "[", 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}}, CellLabel-> "In[242]:=",ExpressionUUID->"fe8acbb2-8e06-4876-b078-bb41f79ca1e7"] }, Open ]], Cell[CellGroupData[{ Cell["STAB defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.758253144538479*^9}, 3.7878928381949763`*^9, 3.822369712103414*^9},ExpressionUUID->"3ba3004b-6ca7-4e88-a32a-\ f8b57685844e"], 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[248]:=",ExpressionUUID->"5118d8ce-83aa-4ee0-8f95-f3ded28bffcb"] }, 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->"88bb0015-215c-46d0-8601-\ e9f682ffa054"], 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", ",", "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}}, CellLabel-> "In[250]:=",ExpressionUUID->"03350ae6-98bb-4c6f-a75f-bf4107f1bfaf"], 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", CellLabel-> "In[735]:=",ExpressionUUID->"b4848725-7f79-4a13-ad12-dfa6db59c0b9"] }, 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->"1a9fc4d2-6037-4037-870f-\ 5a97de76e049"], 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[259]:=",ExpressionUUID->"4f8f0683-60c6-4b3b-8e0c-8310fe31e750"] }, 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->"060ad0b7-8386-4b40-b7a4-\ d197b8bb6268"], 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->"ea748fb1-e7c3-4e74-82fa-\ 50380a26fd5e"], 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[260]:=",ExpressionUUID->"03a9a60c-fabe-4b0e-82bd-f71ca0feb7a8"] }, Closed]], Cell[CellGroupData[{ Cell["TOOL defs", "Subsection",ExpressionUUID->"938190f0-bad9-4502-acaf-cc5f1d10828e"], 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[263]:=",ExpressionUUID->"c07be15a-6e50-4cb1-b916-6c3fa88117fe"] }, Closed]], Cell[CellGroupData[{ Cell["REFINE defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}},ExpressionUUID->"cc3df15e-99c8-43f4-a199-\ 63c0188a64b1"], Cell[BoxData[ RowBox[{"\[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[{"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[{"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[{"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[{"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.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}}, CellLabel-> "In[267]:=",ExpressionUUID->"b005e7d8-ea01-4f07-a8cc-4aa34eb19ad3"] }, Closed]], Cell[CellGroupData[{ Cell["ENRICH defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}},ExpressionUUID->"d3e7b377-5532-4d5b-a3c9-\ 511292ef60e9"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"enrich", " ", "triangle"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ii", ",", "FN", ",", "rule", ",", "crdnew", ",", "nodnew"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crdnew", " ", "=", "crd"}], ";", " ", "\[IndentingNewLine]", RowBox[{"ii", "=", RowBox[{ RowBox[{"Length", "[", "crdnew", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FN", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"FN", "[", RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], "]"}], "=", RowBox[{ RowBox[{"FN", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"crdnew", "=", RowBox[{"Append", "[", RowBox[{"crdnew", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdnew", "[", RowBox[{"[", "a", "]"}], "]"}], "+", RowBox[{"crdnew", "[", RowBox[{"[", "b", "]"}], "]"}]}], ")"}], "/", "2"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"FN", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"FN", "[", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "]"}], ",", RowBox[{"FN", "[", RowBox[{"{", RowBox[{"c", ",", "a"}], "}"}], "]"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nodnew", "=", RowBox[{"nod", " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdnew", ",", "nodnew"}], " ", "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"nod_", ",", "crd_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"FN", ",", "ii", ",", "rule", ",", "nodout", ",", "crdout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crdout", " ", "=", "crd"}], ";", RowBox[{"nodout", "=", "nod"}], ";", "\[IndentingNewLine]", RowBox[{"ii", "=", RowBox[{ RowBox[{"Length", "[", "crdout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FN", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"FN", "[", RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Join", "[", RowBox[{"crdout", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"crdout", "[", RowBox[{"[", "a", "]"}], "]"}]}], "+", RowBox[{"crdout", "[", RowBox[{"[", "b", "]"}], "]"}]}], ")"}], "/", "3"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdout", "[", RowBox[{"[", "a", "]"}], "]"}], "+", RowBox[{"2", RowBox[{"crdout", "[", RowBox[{"[", "b", "]"}], "]"}]}]}], ")"}], "/", "3"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{ RowBox[{"ii", "++"}], ",", RowBox[{"ii", "++"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{"Line", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"a", ",", RowBox[{"FN", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", "b"}], "}"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"(", RowBox[{"nodout", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"nodout", ",", "crdout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 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", 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}}, CellLabel-> "In[302]:=",ExpressionUUID->"306b555f-ad27-42aa-8782-351d04306399"] }, 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->"f1c9152e-6f5e-46a5-99b3-\ 98cdf488c2fc"], 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[304]:=",ExpressionUUID->"7af0ec92-d377-49f5-9dc2-235a9bf72885"] }, 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->"b774ff7d-90da-4e1d-9301-\ 17a05880d123"], 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[309]:=",ExpressionUUID->"4c3e804f-47d9-43f3-9a69-0e6e6cdc8051"] }, Closed]], Cell[CellGroupData[{ Cell["TRIANGULATE defs", "Subsection", CellChangeTimes->{{3.7555369693812027`*^9, 3.7555369706487265`*^9}, { 3.784699941516708*^9, 3.7846999469147763`*^9}},ExpressionUUID->"433d5597-e59a-4159-ad9c-\ 92576b31f267"], 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"}], "]"}], 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[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[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[{"Return", "[", RowBox[{"{", RowBox[{ "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[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}}, CellLabel-> "In[311]:=",ExpressionUUID->"f91fc24a-8183-44b6-b5bd-3dba00322308"] }, Open ]], 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->"8441eba2-3b3e-45b2-8763-\ d1ca1f0dfb81"], 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[325]:=",ExpressionUUID->"ff4f811d-1d4b-425e-987c-2a3a2b33e189"] }, Closed]], Cell[CellGroupData[{ Cell["MESH etc. defs", "Subsection", CellChangeTimes->{{3.8737667025244293`*^9, 3.8737667082118225`*^9}, { 3.873766815230051*^9, 3.873766820478841*^9}},ExpressionUUID->"7f82a256-7060-4f74-9115-\ bc2c281be465"], 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", "]"}], "]"}], "===", "PLANE"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "TWODIM"}], ")"}]}], ",", 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}}, CellLabel-> "In[343]:=",ExpressionUUID->"c1bdf631-d0e6-451d-95da-7c0eb492b4c7"] }, Closed]], Cell[CellGroupData[{ Cell["POST defs", "Subsection",ExpressionUUID->"20b65afb-4453-45a6-b220-e5bd2e20e2d2"], 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}}, CellLabel-> "In[827]:=",ExpressionUUID->"7ced6750-6f40-4a11-a9a6-a36840bc57b8"] }, 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->"3751363e-9005-4aa9-aa60-\ 9e68063f4c10"], 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[349]:=",ExpressionUUID->"2a4e08c8-dd4d-41b0-b73b-f52f28850969"] }, 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->"4d892cbc-1209-4a45-9197-\ e0781fc3c1c5"], 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[{ 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"}], "]"}], "]"}]}]}], "]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[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[{ 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}}, CellLabel-> "In[359]:=",ExpressionUUID->"0df03aaf-6ade-4ce3-8f9a-31dad125df83"], 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", "[", "Medium", "]"}]}], "}"}]}], ";"}], "\[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}}, CellLabel-> "In[370]:=",ExpressionUUID->"5ab9eb10-8d1b-4fcc-a00c-5289841c629c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"plate", " ", "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", "[", "Medium", "]"}], ",", 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", "[", "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, { 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}}, CellLabel-> "In[388]:=",ExpressionUUID->"9623371d-56ab-41dd-8ed3-e63b783506ed"], 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[400]:=",ExpressionUUID->"2fef2def-18ab-4394-b358-8ec7eab05e03"] }, Closed]] }, 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.8196005424148855`*^9, 3.8196005483154497`*^9}, {3.819950294085473*^9, 3.8199503065825105`*^9}},ExpressionUUID->"6a385782-eb61-456f-9f91-\ 380d4036a0d8"], Cell[CellGroupData[{ Cell["APPROXIMATIONS", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.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}, { 3.8199410957155104`*^9, 3.8199410988195906`*^9}},ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-\ 42a83bd3e7cd"], Cell[CellGroupData[{ Cell[TextData[{ "LINEAR ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "c8b3e187-d6d4-4a10-9d91-60e9247e2e5a"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}, {3.819854195004692*^9, 3.819854197490559*^9}, 3.819941078108614*^9, {3.8199476858408775`*^9, 3.8199477222022824`*^9}, { 3.8199479521208344`*^9, 3.8199479622931814`*^9}},ExpressionUUID->"162ac754-d74f-4ca6-80c8-\ d8d961edea19"], Cell[BoxData[{ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1"}, {"x1", "x2"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, {"y1", "y2", "y3"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"}, {"u4"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1"}, {"x1", "x2", "x3", "x4"}, {"y1", "y2", "y3", "y4"}, {"z1", "z2", "z3", "z4"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"}, {"z"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8196002881768866`*^9, 3.819600290595418*^9}, { 3.819793832823107*^9, 3.8197939441926823`*^9}, {3.8198542169513407`*^9, 3.819854304992836*^9}, {3.8199401440223775`*^9, 3.8199401451752453`*^9}, { 3.819940216079404*^9, 3.8199402350359707`*^9}, {3.8199402668370905`*^9, 3.819940270118642*^9}, {3.819941117148842*^9, 3.819941292564108*^9}, { 3.819941392926919*^9, 3.819941410180554*^9}, {3.819947320586339*^9, 3.8199473306436195`*^9}, {3.819947369119611*^9, 3.8199476276395407`*^9}}, CellLabel-> "In[461]:=",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUADRATIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "9f431e87-135f-41fb-85e4-ea581823e804"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}, { 3.8199496400756197`*^9, 3.8199496508441324`*^9}},ExpressionUUID->"8b303821-a3bc-4d02-b626-\ 00ac8af3f93c"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, { SuperscriptBox["x1", "2"], SuperscriptBox["x2", "2"], SuperscriptBox["x3", "2"]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8199483664156747`*^9, 3.8199485493881135`*^9}, { 3.8199485913144693`*^9, 3.8199488450890017`*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707317`*^9}, { 3.819949721403361*^9, 3.819949748157431*^9}, 3.8199499668780727`*^9, { 3.8199500738101087`*^9, 3.8199500897824917`*^9}, {3.8199501689926205`*^9, 3.819950173688433*^9}, {3.8199502200208445`*^9, 3.819950224828543*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUBIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "1"], TraditionalForm]],ExpressionUUID-> "c01813c7-0c55-4a5c-a2e6-8d68d976fd14"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8153778585373697`*^9, 3.8153778611644793`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}},ExpressionUUID->"efb27dda-7a73-487d-b443-\ 3bf17635a222"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"du1"}, {"u2"}, {"du2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "1", "0"}, {"x1", "1", "x2", "1"}, { SuperscriptBox["x1", "2"], RowBox[{"2", "x1"}], SuperscriptBox["x2", "2"], RowBox[{"2", "x2"}]}, { SuperscriptBox["x1", "3"], RowBox[{"3", SuperscriptBox["x1", "2"]}], SuperscriptBox["x2", "3"], RowBox[{"3", SuperscriptBox["x2", "2"]}]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]}, { SuperscriptBox["x", "3"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8199483664156747`*^9, 3.8199485493881135`*^9}, { 3.8199485913144693`*^9, 3.8199488450890017`*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707317`*^9}}, CellLabel-> "In[465]:=",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"] }, 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->"afb80a20-e5d9-4db8-bc99-\ 2e402a0d6607"], Cell[CellGroupData[{ Cell["BEAM MODEL", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278812`*^9, 3.815555097192521*^9}, {3.81597039148044*^9, 3.815970392981469*^9}, {3.8197932900575743`*^9, 3.8197932910084567`*^9}},ExpressionUUID->"b1de8e05-e4e5-4906-a827-\ 733bd6c4e2d5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bar", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Exx", ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}]}], ";", " ", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Delta]", "[", "Exx", "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", "Exx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], " ", "fx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "u", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "u"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], "\[CapitalEpsilon]", " ", "A", " ", "\[Alpha]", " ", "\[CapitalDelta]\[CurlyTheta]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}], "]"}]}], " ", "k", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.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}, { 3.8197933045292535`*^9, 3.819793376237859*^9}, {3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708927`*^9, 3.819853318519034*^9}, { 3.8198534731601114`*^9, 3.8198535001782303`*^9}, {3.8220141941955996`*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014371257183*^9}, { 3.822014420871383*^9, 3.82201455714007*^9}, {3.8220147683440943`*^9, 3.822014852498207*^9}, 3.822014890162271*^9, {3.8220186983475323`*^9, 3.8220188522089043`*^9}, {3.8226254483668633`*^9, 3.8226254538325567`*^9}, {3.8226254977692766`*^9, 3.8226255989801593`*^9}, {3.822625660413871*^9, 3.8226257244889565`*^9}, { 3.822625784898554*^9, 3.8226257884059076`*^9}, {3.822625841405484*^9, 3.82262595974108*^9}, {3.822626497029248*^9, 3.8226265279080334`*^9}, { 3.8226265745781474`*^9, 3.822626587819417*^9}, {3.8226266337869635`*^9, 3.8226266353557696`*^9}, {3.822626757328236*^9, 3.8226267614127035`*^9}, { 3.8227937934053507`*^9, 3.822793877446885*^9}, {3.822793932631747*^9, 3.8227939905807443`*^9}, {3.82279402359865*^9, 3.8227940749755487`*^9}}, CellLabel-> "In[469]:=",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"torsion", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "]"}]}], " ", "G", " ", "Ip", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]", "]"}], " ", "mx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Phi]", "]"}]}], " ", "\[Rho]", " ", "Irr", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.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}, { 3.8197933045292535`*^9, 3.819793376237859*^9}, {3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708927`*^9, 3.819853318519034*^9}, { 3.8198534731601114`*^9, 3.8198535001782303`*^9}, {3.8220141941955996`*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014346401341*^9}, { 3.822014904572884*^9, 3.8220149367236567`*^9}, {3.822794250933531*^9, 3.8227942568646584`*^9}}, CellLabel-> "In[476]:=",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xz", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "w"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.8227941479930334`*^9}, { 3.822794180887678*^9, 3.8227942482556624`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.8227945285611787`*^9}, {3.822794611759951*^9, 3.8227947216944475`*^9}}, CellLabel-> "In[479]:=",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xy", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "v", "]"}], " ", "fy"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "v", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "v"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "v"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.8227941479930334`*^9}, { 3.822794180887678*^9, 3.8227942482556624`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.8227945285611787`*^9}, {3.822794611759951*^9, 3.8227947216944475`*^9}, {3.822800306589834*^9, 3.8228003860590916`*^9}}, CellLabel-> "In[483]:=",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.8153761757169156`*^9}, { 3.8155550612856245`*^9, 3.8155550857667856`*^9}, {3.8159703836711783`*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.8220138550915227`*^9, 3.8220138550928526`*^9}},ExpressionUUID->"d7109425-1791-4931-ad0b-\ bad3a9ba7ad1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"thin", " ", "slab", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{"h\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], " ", FractionBox[ RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]", " "}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}]}], " ", "t", " ", "k"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.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}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635773`*^9, 3.8198534003721933`*^9}, {3.8209954403224945`*^9, 3.820995464460252*^9}, { 3.8214116021139812`*^9, 3.821411613520486*^9}, {3.8220134664378595`*^9, 3.8220134942125635`*^9}, {3.822013636172348*^9, 3.822013660653085*^9}, { 3.8220136940643253`*^9, 3.8220137095733585`*^9}, {3.8220137400342855`*^9, 3.8220138276621084`*^9}, {3.822013865712245*^9, 3.8220141198601255`*^9}, { 3.8220145897943444`*^9, 3.822014632748041*^9}, {3.8220185536686554`*^9, 3.8220186366280794`*^9}, 3.8222202914316864`*^9, {3.822284129118959*^9, 3.822284130436101*^9}, {3.822285758917274*^9, 3.8222858392220035`*^9}, { 3.8226263917600307`*^9, 3.822626400054607*^9}, {3.8226264713781877`*^9, 3.822626472382482*^9}, {3.8226266959522676`*^9, 3.8226267477762117`*^9}, { 3.822626796327529*^9, 3.8226269739859304`*^9}, {3.8226270696375046`*^9, 3.822627097464016*^9}, {3.82262738419366*^9, 3.8226273848687844`*^9}, { 3.8226275012187433`*^9, 3.8226275136853914`*^9}, {3.8227023828653297`*^9, 3.822702630787526*^9}, {3.8227027245174074`*^9, 3.82270283265123*^9}, { 3.822702868916325*^9, 3.822702874231553*^9}, {3.8227029311094465`*^9, 3.822702940209586*^9}, {3.8227032901656156`*^9, 3.8227033201586447`*^9}, { 3.8228004802034817`*^9, 3.822800485425867*^9}, {3.8228005211618586`*^9, 3.8228005919369607`*^9}, {3.823135482928742*^9, 3.8231354842107*^9}, { 3.851847556164915*^9, 3.8518475972035427`*^9}}, CellLabel-> "In[491]:=",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[Rho]"}], "12"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.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}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635773`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942408`*^9}, { 3.82099550430188*^9, 3.8209956033995657`*^9}, {3.8214115972048492`*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.8220122285487475`*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.8220124589303164`*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.8220135845895243`*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.8226274700755506`*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}}, CellLabel-> "In[499]:=",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"shallow", " ", "nonlinear", " ", "plate"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.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}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635773`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942408`*^9}, { 3.82099550430188*^9, 3.8209956033995657`*^9}, {3.8214115972048492`*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.8220122285487475`*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.8220124589303164`*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.8220135845895243`*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.8226274700755506`*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}, {3.853218494706453*^9, 3.853218677855839*^9}, {3.853218715456251*^9, 3.8532187197553587`*^9}, 3.8532187862418203`*^9, {3.8532228638308563`*^9, 3.85322287562099*^9}},ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-\ 55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.8153761757169156`*^9}, { 3.8155550612856245`*^9, 3.8155550857667856`*^9}, {3.8159703836711783`*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.819853555422123*^9, 3.8198535571357107`*^9}},ExpressionUUID->"fb5115cb-5c46-462d-b545-\ 09d24c3dbd84"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], "2"]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", " ", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Nu]"}]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1", "-", "\[Nu]"}], "\[Nu]", "\[Nu]"}, {"\[Nu]", RowBox[{"1", "-", "\[Nu]"}], "\[Nu]"}, {"\[Nu]", "\[Nu]", RowBox[{"1", "-", "\[Nu]"}]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{"2", "+", RowBox[{"2", "\[Nu]"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"}, {"w"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"}, {"fz"} }], "\[NoBreak]", ")"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.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}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635773`*^9, 3.8198534003721933`*^9}, {3.819853568522805*^9, 3.8198535748574696`*^9}, { 3.8198536434093494`*^9, 3.819853647541463*^9}, {3.8198536777405787`*^9, 3.819853767687767*^9}, {3.8198538156796074`*^9, 3.8198540710650525`*^9}, { 3.8220149705414286`*^9, 3.822014991080544*^9}, {3.822015024732211*^9, 3.822015493649189*^9}, {3.8220155277480507`*^9, 3.8220156511791196`*^9}, 3.8220156900351777`*^9, {3.8220157282408*^9, 3.822015819731036*^9}, { 3.8220184496192317`*^9, 3.8220185243444557`*^9}, {3.822220449505496*^9, 3.822220581738879*^9}}, CellLabel-> "In[504]:=",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\ \\\"x\\\"}]], \\\"u\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\ \[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \\\"}\\\"}]}], \ \\\"}\\\"}], \\\"+\\\", RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", \ RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{SuperscriptBox[RowBox[{\ \\\"(\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\ \"u\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\ \", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \ \\\"v\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\ \\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\"w\\\ \"}], \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}]}], \\\"}\\\"}]}]}]\\) are not the same \ shape.\"", 2, 505, 5, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925407507*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zz\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{FractionBox[RowBox[{\ \\\"\[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"1\\\", \\\"-\\\", \ \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\", \\\",\\\", \\\"\[Nu]\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\"}], \\\ \"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \\\ \"\[Nu]\\\", \\\",\\\", RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}]}], \ \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \ \\\"+\\\", \\\"\[Nu]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ \")\\\"}]}]], \\\".\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]}]\\) are not the same shape.\"", 2, 507, 6, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925423025*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yz\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zx\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*FractionBox[RowBox[{\\\"\ \[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", \\\"\[Gamma]xy\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]yz\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]zx\\\", \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{\ \\\"2\\\", \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Nu]\\\"}]}]]\\) are \ not the same shape.\"", 2, 507, 7, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925562045*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Problems and solutions", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.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->"c094e867-eedb-49ea-81fe-\ 4ac178148a9f"], Cell[CellGroupData[{ Cell["INTRODUCTION (week 2)", "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.69079328920778*^9, 3.7530712354565744`*^9, 3.7866746400333786`*^9, { 3.816933130133701*^9, 3.8169331461988688`*^9}, {3.8187683453801126`*^9, 3.8187683495925474`*^9}},ExpressionUUID->"4b032a41-028b-4092-b65a-\ 9e634ae03405"], Cell[CellGroupData[{ Cell["Lecture example 1.1 (structure analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037716385527`*^9, 3.818903776541187*^9}},ExpressionUUID->"9aac42a8-292f-4229-ba7a-\ ff683fbe5b47"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.818903903343067*^9, 3.818904167227741*^9}, { 3.818904329868784*^9, 3.818904360696265*^9}, 3.818904432229208*^9, { 3.818932203173953*^9, 3.818932219421686*^9}, 3.8189390550786867`*^9, { 3.8190773835545607`*^9, 3.8190773971877785`*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.2 (displacement analysis)", "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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}},ExpressionUUID->"61bce4a2-2758-460e-9011-\ 10d261d3455b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.8189322784076967`*^9, 3.818932279384528*^9}, 3.8189390383862524`*^9}, CellLabel->"In[8]:=",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.3 (vibration analysis)", "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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, 3.818905799942091*^9},ExpressionUUID->"5f18722c-d360-4af9-9f52-\ 1aaae1c2afe0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ini", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", RowBox[{"a", "/", "2"}]}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "a"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "ini"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "]"}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.8189049251199293`*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.8189050897634983`*^9}, {3.8189051305999546`*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.8189053495870695`*^9, 3.8189053888000546`*^9}, {3.8189054670968304`*^9, 3.8189054921455994`*^9}, {3.8189055827614374`*^9, 3.818905626899233*^9}, { 3.8189056807097125`*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.8189324188198233`*^9, 3.818932419716118*^9}, {3.818933917456164*^9, 3.818933953146742*^9}, {3.8189342859506845`*^9, 3.8189343355884323`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.4 (stability analysis)", "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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.8189058136179996`*^9}},ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-\ 7e504f9c030c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.8189049251199293`*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.8189050897634983`*^9}, {3.8189051305999546`*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.8189053495870695`*^9, 3.8189053888000546`*^9}, {3.8189054670968304`*^9, 3.8189054921455994`*^9}, {3.8189055827614374`*^9, 3.818905626899233*^9}, { 3.8189056807097125`*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.8189062714631653`*^9}, { 3.8189063511758795`*^9, 3.8189063568376904`*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.818932589763369*^9, 3.8189325919837103`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.5 (large displacement analysis)", "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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.8189058136179996`*^9}, {3.8189066805326967`*^9, 3.8189067103046494`*^9}, {3.818907219119192*^9, 3.818907222320526*^9}, { 3.8191046090636425`*^9, 3.8191046134938107`*^9}},ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-\ 11727f8765cd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"a", "\[Rule]", RowBox[{ RowBox[{"-", "L"}], "/", "10"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}]}], "]"}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.8189049251199293`*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.8189050897634983`*^9}, {3.8189051305999546`*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.8189053495870695`*^9, 3.8189053888000546`*^9}, {3.8189054670968304`*^9, 3.8189054921455994`*^9}, {3.8189055827614374`*^9, 3.818905626899233*^9}, { 3.8189056807097125`*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.8189062714631653`*^9}, { 3.8189063511758795`*^9, 3.8189063568376904`*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.8189069265140657`*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, 3.818939166730035*^9, { 3.8189392811217995`*^9, 3.818939308027191*^9}, {3.818939612512598*^9, 3.8189396255546746`*^9}, {3.8189396888230515`*^9, 3.818939690546791*^9}, { 3.818941306347761*^9, 3.8189413069023876`*^9}, {3.8189413536741495`*^9, 3.8189413668673153`*^9}, 3.819104686652321*^9, {3.8506153020981913`*^9, 3.850615307831856*^9}, {3.8506153509571085`*^9, 3.850615422642296*^9}, { 3.8506154564202614`*^9, 3.8506155467512794`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.6 (thermo-mechanical analysis)", "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.7876248316360073`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.8189058136179996`*^9}, {3.8189066805326967`*^9, 3.8189067103046494`*^9}, {3.8189071749677935`*^9, 3.8189071840031424`*^9}, {3.818907228710081*^9, 3.818907236014058*^9}, { 3.819104708530879*^9, 3.8191047133780074`*^9}},ExpressionUUID->"5de18652-2348-4485-9982-\ 16fe2124dc17"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.8189049251199293`*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.8189050897634983`*^9}, {3.8189051305999546`*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.8189053495870695`*^9, 3.8189053888000546`*^9}, {3.8189054670968304`*^9, 3.8189054921455994`*^9}, {3.8189055827614374`*^9, 3.818905626899233*^9}, { 3.8189056807097125`*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.8189062714631653`*^9}, { 3.8189063511758795`*^9, 3.8189063568376904`*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.8189069265140657`*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, {3.8190112348088083`*^9, 3.819011267096024*^9}, {3.81901130156429*^9, 3.819011303017789*^9}, { 3.850614543193836*^9, 3.850614549498017*^9}, {3.8506150595049334`*^9, 3.85061507150959*^9}, {3.850615129445158*^9, 3.8506151582241964`*^9}, { 3.8506156789915085`*^9, 3.850615685597824*^9}, 3.88206293458878*^9},ExpressionUUID->"35452574-3b83-4220-8780-\ 2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.7 (eigenvalue decomposition)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726366745177*^9}, { 3.7866797020276375`*^9, 3.7866797091155815`*^9}, {3.8169349645564723`*^9, 3.816934967437971*^9}, {3.8185871085929155`*^9, 3.8185871120790567`*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.8812102486960864`*^9}, { 3.8820630716442575`*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}, 3.8820648728970056`*^9, {3.8824980127653894`*^9, 3.882498035775823*^9}},ExpressionUUID->"383cddbb-4de9-44d2-b165-\ db2ad34a0b83"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "X"}], "}"}], "=", RowBox[{"Eigensystem", "[", "A", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "X", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "\[Lambda]", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "X", "]"}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.7668228231264915`*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.7683570207621355`*^9}, {3.7683570674174614`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.7866844122688456`*^9, 3.7866844872632594`*^9}, {3.7866845404915056`*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.7866848827458925`*^9}, {3.786685178950626*^9, 3.786685233195717*^9}, { 3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, {3.7875834162983584`*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088843`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, {3.881210410289939*^9, 3.881210614736026*^9}, { 3.8812106559558315`*^9, 3.881210678114351*^9}, {3.8812125019887094`*^9, 3.8812126903939743`*^9}, {3.8812127643558936`*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, {3.8818020152424674`*^9, 3.8818020181373763`*^9}, { 3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632298`*^9}, {3.881903990326119*^9, 3.8819040077762003`*^9}, { 3.8819044987732973`*^9, 3.8819045868166127`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, {3.8820561318038764`*^9, 3.882056134717905*^9}, { 3.8820645695351005`*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, {3.8820647577553053`*^9, 3.882064854460331*^9}, { 3.8820649167673025`*^9, 3.88206496989681*^9}, {3.882498040886921*^9, 3.8824980488949127`*^9}, {3.882498080138829*^9, 3.8824983129272137`*^9}}, CellLabel-> "In[617]:=",ExpressionUUID->"6618f3df-ec4c-4656-a5f6-57d989120d0b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726366745177*^9}, { 3.7866797020276375`*^9, 3.7866797091155815`*^9}, {3.8169349645564723`*^9, 3.816934967437971*^9}, {3.8185871085929155`*^9, 3.8185871120790567`*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.8812102486960864`*^9}, { 3.8820630716442575`*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}},ExpressionUUID->"1d96790f-49fb-4e00-ab56-\ a3da92924588"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"K", "=", RowBox[{"k", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", " ", "=", RowBox[{"P", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"K", ".", "a"}]}], "+", "F"}], "==", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.7668228231264915`*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.7683570207621355`*^9}, {3.7683570674174614`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.7866844122688456`*^9, 3.7866844872632594`*^9}, {3.7866845404915056`*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.7866848827458925`*^9}, {3.786685178950626*^9, 3.786685233195717*^9}, { 3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, {3.7875834162983584`*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088843`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, {3.881210410289939*^9, 3.881210614736026*^9}, { 3.8812106559558315`*^9, 3.881210678114351*^9}, {3.8812125019887094`*^9, 3.8812126903939743`*^9}, {3.8812127643558936`*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, {3.8818020152424674`*^9, 3.8818020181373763`*^9}, { 3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632298`*^9}, {3.881903990326119*^9, 3.8819040077762003`*^9}, { 3.8819044987732973`*^9, 3.8819045868166127`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, {3.8820561318038764`*^9, 3.882056134717905*^9}, { 3.8820645695351005`*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, {3.8820647577553053`*^9, 3.882064854460331*^9}},ExpressionUUID->"3a56a45f-1b1f-497b-ab28-\ e7afa331a80b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726366745177*^9}, { 3.7866797020276375`*^9, 3.7866797091155815`*^9}, {3.8169349645564723`*^9, 3.816934967437971*^9}, {3.8185871085929155`*^9, 3.8185871120790567`*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.8812102486960864`*^9}, { 3.8820630716442575`*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}, 3.8820648728970056`*^9},ExpressionUUID->"7b5eb442-ec67-4f72-9a01-\ bde21270b68f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Eigensystem", "[", "A", "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.7668228231264915`*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.7683570207621355`*^9}, {3.7683570674174614`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.7866844122688456`*^9, 3.7866844872632594`*^9}, {3.7866845404915056`*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.7866848827458925`*^9}, {3.786685178950626*^9, 3.786685233195717*^9}, { 3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, {3.7875834162983584`*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088843`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, {3.881210410289939*^9, 3.881210614736026*^9}, { 3.8812106559558315`*^9, 3.881210678114351*^9}, {3.8812125019887094`*^9, 3.8812126903939743`*^9}, {3.8812127643558936`*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, {3.8818020152424674`*^9, 3.8818020181373763`*^9}, { 3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632298`*^9}, {3.881903990326119*^9, 3.8819040077762003`*^9}, { 3.8819044987732973`*^9, 3.8819045868166127`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, {3.8820561318038764`*^9, 3.882056134717905*^9}, { 3.8820645695351005`*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, {3.8820647577553053`*^9, 3.882064854460331*^9}, { 3.8820649167673025`*^9, 3.88206496989681*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"287fffa5-19c6-4076-8be0-eb0069f4eda1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.882064972159958*^9}, CellLabel->"Out[33]=",ExpressionUUID->"436188cf-b153-458a-9bfb-6b57b8695d6b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (analytical solution)", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726366745177*^9}, { 3.7866797020276375`*^9, 3.7866797091155815`*^9}, {3.8169349645564723`*^9, 3.816934967437971*^9}, {3.8185871085929155`*^9, 3.8185871120790567`*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.8812102486960864`*^9}, { 3.8820630716442575`*^9, 3.882063080875761*^9}, {3.882064878837919*^9, 3.8820648810216274`*^9}, {3.8821505174563293`*^9, 3.8821505582112355`*^9}},ExpressionUUID->"dd1069d3-171e-41c1-b554-\ f1a75dbbbe54"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ FractionBox["3", RowBox[{"4", " ", "\[Pi]"}]], RowBox[{"(", RowBox[{"3", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}]}], ")"}]}], " ", "//.", "val"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"a1", " ", "u"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \(2\)]\), \(\ \[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.7668228231264915`*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.7683570207621355`*^9}, {3.7683570674174614`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.7866844122688456`*^9, 3.7866844872632594`*^9}, {3.7866845404915056`*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.7866848827458925`*^9}, {3.786685178950626*^9, 3.786685233195717*^9}, { 3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, {3.7875834162983584`*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088843`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, {3.881210410289939*^9, 3.881210614736026*^9}, { 3.8812106559558315`*^9, 3.881210678114351*^9}, {3.8812125019887094`*^9, 3.8812126903939743`*^9}, {3.8812127643558936`*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, {3.8818020152424674`*^9, 3.8818020181373763`*^9}, { 3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632298`*^9}, {3.881903990326119*^9, 3.8819040077762003`*^9}, { 3.8819044987732973`*^9, 3.8819045868166127`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, {3.8820561318038764`*^9, 3.882056134717905*^9}, 3.882065037491746*^9, {3.882065080910858*^9, 3.8820653377583485`*^9}, { 3.8821619174930587`*^9, 3.882162003074859*^9}, {3.882162037624195*^9, 3.8821620393929677`*^9}, {3.8824958220602474`*^9, 3.882495824203086*^9}}, CellLabel-> "In[536]:=",ExpressionUUID->"4f360d6e-d091-4856-9ab9-d907f2d730b2"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (simulation experiment)", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726397862908*^9}, { 3.8185869766098504`*^9, 3.8185869795645185`*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.8812175896189537`*^9, 3.881217594377773*^9}, {3.8820630124669256`*^9, 3.882063022902251*^9}, 3.882065502228348*^9, {3.8820661755074587`*^9, 3.88206617566441*^9}, {3.882150408430088*^9, 3.88215041408447*^9}, { 3.8821504968526525`*^9, 3.882150531282355*^9}, {3.882161870949678*^9, 3.882161880329682*^9}},ExpressionUUID->"9c2e6990-d836-4ccd-b21b-\ 052d4ee15ac5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"data", " ", "by", " ", "simulation", " ", "with", " ", "\[Nu]"}], "=", RowBox[{ RowBox[{"0.1", " ", "and", " ", "\[Nu]"}], "=", "0.4"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.26"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2.34"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3.21"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3.94"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.56"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5.10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5.58"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.94"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1.81"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2.59"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3.28"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3.89"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4.44"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4.93"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "polynomial", " ", "fits", " ", "to", " ", "dimensionless", " ", "data"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat2"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat3"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a3", ",", "b3"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a2", " ", "u"}], "+", RowBox[{"b2", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{ RowBox[{"a3", " ", "u"}], "+", RowBox[{"b3", " ", SuperscriptBox["u", "3"]}]}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \(2\)]\), \ \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.7667264099225736`*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.7667268230448494`*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.7667376461757183`*^9}, {3.7667535576278677`*^9, 3.766753567823385*^9}, { 3.7667536001320033`*^9, 3.7667536651452446`*^9}, {3.7667537160938406`*^9, 3.7667537659916053`*^9}, {3.766753804364827*^9, 3.7667538080234776`*^9}, { 3.7667538880492616`*^9, 3.7667538883438697`*^9}, 3.7683546699256487`*^9, { 3.768354953226757*^9, 3.7683549706983614`*^9}, {3.7683550070952144`*^9, 3.768355024734041*^9}, {3.7866772118625803`*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973134`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.7866776052090716`*^9}, { 3.7866777170345635`*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.7875829483079205`*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.8175223667257123`*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.8508826737634134`*^9, 3.8508826804033833`*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.8812107866703434`*^9}, {3.8812111078954043`*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.8812114208517485`*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.8812115937050805`*^9}, { 3.8812116245501275`*^9, 3.8812116752395573`*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.8812122723475466`*^9, 3.881212326655923*^9}, 3.8812129327845154`*^9, 3.8812874826077147`*^9, {3.881808149177123*^9, 3.8818083220768414`*^9}, {3.88180839183644*^9, 3.8818084249574995`*^9}, { 3.881808492494951*^9, 3.8818085148568087`*^9}, {3.8818085469132066`*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.8818218155800543`*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.8818237602140827`*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.8819005940086203`*^9, 3.8819005963055925`*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.8819036517656307`*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.8820629749536033`*^9, 3.8820629789802155`*^9}, {3.8820654240119734`*^9, 3.8820654735248604`*^9}, {3.8820656556559987`*^9, 3.8820659962014065`*^9}, {3.882066051819203*^9, 3.8820660925936456`*^9}, { 3.882066168840043*^9, 3.8820661710955057`*^9}, {3.882066246607629*^9, 3.8820668803161163`*^9}, {3.882161669830431*^9, 3.8821617992370844`*^9}, { 3.8821618449228597`*^9, 3.8821618520006866`*^9}, {3.882162060892294*^9, 3.882162062483858*^9}, {3.882162217037974*^9, 3.8821622428876033`*^9}, { 3.8821622826294003`*^9, 3.882162324501197*^9}, {3.8821659349211807`*^9, 3.8821659808423386`*^9}, {3.8821663477525897`*^9, 3.8821664030495615`*^9}, {3.8821666450662093`*^9, 3.8821667233401103`*^9}, {3.8821670014879646`*^9, 3.8821670079162683`*^9}, {3.8821671748629956`*^9, 3.8821671753190937`*^9}, {3.882169168335758*^9, 3.882169255461441*^9}, 3.882493159181163*^9, {3.882495764925558*^9, 3.8824957933381886`*^9}, { 3.882495850094112*^9, 3.8824959976970925`*^9}, {3.882496029401913*^9, 3.8824960618444552`*^9}, {3.882496094482272*^9, 3.88249617964052*^9}, { 3.882496220504897*^9, 3.88249622450869*^9}, {3.8824962673625994`*^9, 3.882496273155483*^9}}, CellLabel-> "In[555]:=",ExpressionUUID->"d6fcdadd-20ab-4f69-b0c9-d74096902c98"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (physical experiment)", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726397862908*^9}, { 3.8185869766098504`*^9, 3.8185869795645185`*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.8812175896189537`*^9, 3.881217594377773*^9}, {3.8820630124669256`*^9, 3.882063022902251*^9}, 3.882065502228348*^9, 3.882150416650697*^9, { 3.8821504881044927`*^9, 3.88215051059935*^9}},ExpressionUUID->"9cc77e32-cdd0-4bee-9203-\ b12742da6a83"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "strongly", " ", "rounded", " ", "data", " ", "to", " ", "be", " ", "replaced", " ", "by", " ", "the", " ", "precise", " ", "measured", " ", "values"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.0", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0", ",", "3.0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "5.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5.0", ",", "4.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "polynomial", " ", "fit", " ", "to", " ", "dimensionless", " ", "data"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat4"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a4", ",", "b4"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"a4", " ", "u"}], "+", RowBox[{"b4", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \(2\)]\), \ \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.7329641106095915`*^9, 3.7329641238605337`*^9}, {3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.7329642131292753`*^9, 3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.7329652993251047`*^9}, {3.7329653860024896`*^9, 3.7329653897065096`*^9}, {3.7329654581300693`*^9, 3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, { 3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895327`*^9}, {3.7330643919191055`*^9, 3.7330644303402214`*^9}, {3.7331050956954727`*^9, 3.7331051189053106`*^9}, {3.7331111086485624`*^9, 3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, { 3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, { 3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.7667264099225736`*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.7667268230448494`*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.7667376461757183`*^9}, {3.7667535576278677`*^9, 3.766753567823385*^9}, { 3.7667536001320033`*^9, 3.7667536651452446`*^9}, {3.7667537160938406`*^9, 3.7667537659916053`*^9}, {3.766753804364827*^9, 3.7667538080234776`*^9}, { 3.7667538880492616`*^9, 3.7667538883438697`*^9}, 3.7683546699256487`*^9, { 3.768354953226757*^9, 3.7683549706983614`*^9}, {3.7683550070952144`*^9, 3.768355024734041*^9}, {3.7866772118625803`*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973134`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.7866776052090716`*^9}, { 3.7866777170345635`*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.7875829483079205`*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.8175223667257123`*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.8508826737634134`*^9, 3.8508826804033833`*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.8812107866703434`*^9}, {3.8812111078954043`*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.8812114208517485`*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.8812115937050805`*^9}, { 3.8812116245501275`*^9, 3.8812116752395573`*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.8812122723475466`*^9, 3.881212326655923*^9}, 3.8812129327845154`*^9, 3.8812874826077147`*^9, {3.881808149177123*^9, 3.8818083220768414`*^9}, {3.88180839183644*^9, 3.8818084249574995`*^9}, { 3.881808492494951*^9, 3.8818085148568087`*^9}, {3.8818085469132066`*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.8818218155800543`*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.8818237602140827`*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.8819005940086203`*^9, 3.8819005963055925`*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.8819036517656307`*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.8820629749536033`*^9, 3.8820629789802155`*^9}, {3.8820654240119734`*^9, 3.8820654735248604`*^9}, {3.8820656556559987`*^9, 3.8820659962014065`*^9}, {3.882066051819203*^9, 3.8820660925936456`*^9}, { 3.8821564670575304`*^9, 3.88215654759122*^9}, {3.8821570101230307`*^9, 3.8821570311220093`*^9}, {3.882157511892976*^9, 3.8821575185807147`*^9}, { 3.882161476233898*^9, 3.8821615726944876`*^9}, {3.8821616368588495`*^9, 3.8821616564410095`*^9}, {3.8821621770275884`*^9, 3.8821621824012785`*^9}, {3.8824931800616117`*^9, 3.8824932071490965`*^9}, {3.8824953095919633`*^9, 3.88249545635437*^9}, { 3.8824955449716177`*^9, 3.8824956359666524`*^9}, {3.882495668325274*^9, 3.8824957035676165`*^9}, {3.8824962427626867`*^9, 3.882496251614539*^9}, { 3.882496315371043*^9, 3.8824963232124114`*^9}}, CellLabel-> "In[563]:=",ExpressionUUID->"73f8cfb8-97ea-49a7-acca-be10ec775006"] }, Closed]], Cell[CellGroupData[{ Cell["Small displacement FEM simulation", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.7331849245982533`*^9, 3.7331849405062175`*^9}, { 3.733186311322669*^9, 3.7331863141198373`*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.7657068329763837`*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.7665555906854963`*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.8169348911973934`*^9}, { 3.8185891808580103`*^9, 3.8185891894990625`*^9}, {3.8187685645906105`*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.8816294114836493`*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.882056162050333*^9, 3.8820561739440165`*^9}, { 3.8820630891591077`*^9, 3.882063104456729*^9}, {3.8820654005930133`*^9, 3.8820654011268697`*^9}, {3.882065555305724*^9, 3.8820655885644617`*^9}},ExpressionUUID->"5ad1acca-50cc-4ca3-a866-\ da762d59a872"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", " ", RowBox[{"4.22", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uX", ",", "uY", ",", "uZ", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "1"}], ":", " ", "mesh"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "//.", "val"}]}], "]"}], ",", RowBox[{ RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}]}], " ", "//.", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"org", "=", RowBox[{"First", "[", RowBox[{"Ordering", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "#", "]"}], "&"}], ",", "crd"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"crd", "[", RowBox[{"[", "org", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fix", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}], ",", "0"}], "]"}], "/.", RowBox[{ RowBox[{"Point", "[", "a_", "]"}], "->", "a"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.8812818358624473`*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.8812820272948456`*^9}, {3.8812820692056546`*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.8812876689400983`*^9}, { 3.8812882242435603`*^9, 3.8812882247804565`*^9}, {3.8812886373112917`*^9, 3.881288639340893*^9}, {3.8812903965432596`*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.8813759841069946`*^9}, {3.8813763291343327`*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.8813767436892967`*^9, 3.8813767465183673`*^9}, {3.881455584849612*^9, 3.8814555868257437`*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.8816314655389023`*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.8816315804554963`*^9, 3.8816315805340047`*^9}, {3.8816316470886974`*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.8816336894399295`*^9}, {3.8816361795998716`*^9, 3.8816361801216497`*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, {3.881637581637206*^9, 3.881637582386245*^9}, { 3.8816376816129208`*^9, 3.881637682656345*^9}, {3.8816379135998387`*^9, 3.88163791499751*^9}, {3.881638411573781*^9, 3.8816384140875444`*^9}, { 3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, {3.8816402341253767`*^9, 3.881640247025017*^9}, { 3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, {3.881808811712034*^9, 3.8818088123069353`*^9}, { 3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.8818998277409267`*^9}, {3.881900438068577*^9, 3.8819004397683725`*^9}, { 3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.8819041491475163`*^9, 3.8819041500937653`*^9}, {3.8824935894917665`*^9, 3.882493590886983*^9}, { 3.8824936554734716`*^9, 3.8824936682370987`*^9}, 3.8824939947152576`*^9, { 3.882494096086979*^9, 3.8824941670781403`*^9}, {3.882494298980874*^9, 3.8824943207219553`*^9}, 3.882494428021493*^9, {3.882495119256623*^9, 3.8824951380137587`*^9}}, CellLabel-> "In[568]:=",ExpressionUUID->"8a1b5cc7-4abc-4c24-ae20-d0588623975a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "2"}], ":", " ", RowBox[{"problem", " ", "deskription", " ", "tables"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "pol"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele2", "=", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "m"}], " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "org", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", RowBox[{"ele1", ",", "ele2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"ii", "++"}], "]"}], ",", "0"}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", "fix"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812815768226557`*^9}, {3.8812816147756352`*^9, 3.8812816259191203`*^9}, {3.8812822646926866`*^9, 3.881282318784873*^9}, { 3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004107`*^9, 3.8812847448927746`*^9}, {3.8812849777633705`*^9, 3.8812849830196824`*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, { 3.881285247584407*^9, 3.8812852604487505`*^9}, {3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, { 3.881285599355725*^9, 3.8812856261134963`*^9}, {3.8812858823368273`*^9, 3.8812859283957043`*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, { 3.881375110939423*^9, 3.8813751119786024`*^9}, {3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432594`*^9}, { 3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, {3.881452436507377*^9, 3.8814524837125354`*^9}, { 3.8814525617765055`*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735855`*^9}, {3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, {3.8816330537963676`*^9, 3.8816330679560757`*^9}, 3.881633140133834*^9, {3.881633186781321*^9, 3.8816332033915443`*^9}, { 3.8816332943931184`*^9, 3.8816333692794676`*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, {3.881633538972787*^9, 3.881633543921743*^9}, { 3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, {3.8816339777864056`*^9, 3.881634020051221*^9}, { 3.8816340742154865`*^9, 3.8816340744323235`*^9}, {3.8816341153382645`*^9, 3.8816341715619974`*^9}, {3.881634270012111*^9, 3.8816342734928217`*^9}, { 3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, {3.8816344710935106`*^9, 3.881634476418906*^9}, { 3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, {3.881635962740074*^9, 3.8816359768515625`*^9}, { 3.8816362572923164`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.8816363148530097`*^9}, {3.881636474231148*^9, 3.8816365359952602`*^9}, { 3.8816365671991444`*^9, 3.88163657453016*^9}, {3.8816368296118116`*^9, 3.8816368317366805`*^9}, {3.881636890920104*^9, 3.8816368925119815`*^9}, { 3.8816372363995748`*^9, 3.8816372986436844`*^9}, {3.8816374003746996`*^9, 3.8816374031807766`*^9}, 3.8816376952798805`*^9, {3.8816384254305573`*^9, 3.8816384270400834`*^9}, {3.881640391226668*^9, 3.8816403966136136`*^9}, { 3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, {3.8816422412459326`*^9, 3.8816422540635214`*^9}, { 3.8816486541857843`*^9, 3.881648677610757*^9}, {3.8816491964036336`*^9, 3.8816492277071657`*^9}, {3.8818075749484377`*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.8818076637412834`*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, { 3.8818080195847845`*^9, 3.881808042492062*^9}, {3.881808899612398*^9, 3.881808926498794*^9}, {3.8818089660348806`*^9, 3.8818090197455997`*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.8818096630903826`*^9}, { 3.881809730679174*^9, 3.8818097318605804`*^9}, {3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, {3.8819041880070677`*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, { 3.881904271128318*^9, 3.8819042893015842`*^9}, {3.881981371655233*^9, 3.881981375081414*^9}, {3.882493570265463*^9, 3.8824935721346984`*^9}, 3.882493700279276*^9, {3.882494267347906*^9, 3.8824943050165815`*^9}, 3.882494431750765*^9}, CellLabel-> "In[577]:=",ExpressionUUID->"f432d014-8b06-4fcb-95f0-7456c47df0ef"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "3"}], ":", " ", RowBox[{"data", " ", "by", " ", "FEM", " ", "simulation"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"dat3", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "m", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uZ", "[", "org", "]"}]}], "*", "1000"}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "0", ",", "7", ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812815768226557`*^9}, {3.8812816147756352`*^9, 3.8812816259191203`*^9}, {3.8812822646926866`*^9, 3.881282318784873*^9}, { 3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004107`*^9, 3.8812847448927746`*^9}, {3.8812849777633705`*^9, 3.8812849830196824`*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, { 3.881285247584407*^9, 3.8812852604487505`*^9}, {3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, { 3.881285599355725*^9, 3.8812856261134963`*^9}, {3.8812858823368273`*^9, 3.8812859283957043`*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, { 3.881375110939423*^9, 3.8813751119786024`*^9}, {3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432594`*^9}, { 3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, {3.881452436507377*^9, 3.8814524837125354`*^9}, { 3.8814525617765055`*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735855`*^9}, {3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, {3.8816330537963676`*^9, 3.8816330679560757`*^9}, 3.881633140133834*^9, {3.881633186781321*^9, 3.8816332033915443`*^9}, { 3.8816332943931184`*^9, 3.8816333692794676`*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, {3.881633538972787*^9, 3.881633543921743*^9}, { 3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, {3.8816339777864056`*^9, 3.881634020051221*^9}, { 3.8816340742154865`*^9, 3.8816340744323235`*^9}, {3.8816341153382645`*^9, 3.8816341715619974`*^9}, {3.881634270012111*^9, 3.8816342734928217`*^9}, { 3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, {3.8816344710935106`*^9, 3.881634476418906*^9}, { 3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, {3.881635962740074*^9, 3.8816359768515625`*^9}, { 3.8816362572923164`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.8816363148530097`*^9}, {3.881636474231148*^9, 3.8816365359952602`*^9}, { 3.8816365671991444`*^9, 3.88163657453016*^9}, {3.8816368296118116`*^9, 3.8816368317366805`*^9}, {3.881636890920104*^9, 3.8816368925119815`*^9}, { 3.8816372363995748`*^9, 3.8816372986436844`*^9}, {3.8816374003746996`*^9, 3.8816374031807766`*^9}, 3.8816376952798805`*^9, {3.8816384254305573`*^9, 3.8816384270400834`*^9}, {3.881640391226668*^9, 3.8816403966136136`*^9}, { 3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, {3.8816422412459326`*^9, 3.8816422540635214`*^9}, { 3.8816486541857843`*^9, 3.881648677610757*^9}, {3.8816491964036336`*^9, 3.8816492277071657`*^9}, {3.8818075749484377`*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.8818076637412834`*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, { 3.8818080195847845`*^9, 3.881808042492062*^9}, {3.881808899612398*^9, 3.881808926498794*^9}, {3.8818089660348806`*^9, 3.8818090197455997`*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.8818096630903826`*^9}, { 3.881809730679174*^9, 3.8818097318605804`*^9}, {3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, {3.8819041880070677`*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, { 3.881904271128318*^9, 3.8819042893015842`*^9}, {3.881981371655233*^9, 3.881981375081414*^9}, {3.882493570265463*^9, 3.8824935721346984`*^9}, 3.882493700279276*^9, {3.882494216031043*^9, 3.882494253230341*^9}, { 3.8824943371633673`*^9, 3.8824943423065147`*^9}, 3.882494445854312*^9, 3.8824949506061516`*^9}, CellLabel-> "In[583]:=",ExpressionUUID->"0bc09805-d817-4b40-898b-5ebbc9d77f1e"] }, Closed]], Cell[CellGroupData[{ Cell["Large displacement FEM simulation", "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.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.7331849245982533`*^9, 3.7331849405062175`*^9}, { 3.733186311322669*^9, 3.7331863141198373`*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.7657068329763837`*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.7665555906854963`*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.8169348911973934`*^9}, { 3.8185891808580103`*^9, 3.8185891894990625`*^9}, {3.8187685645906105`*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.8816294114836493`*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.8820561799213266`*^9, 3.8820561850999374`*^9}, {3.882063106937883*^9, 3.882063116665798*^9}, { 3.882065564228017*^9, 3.882065594411677*^9}},ExpressionUUID->"303ece05-32ad-4e88-960a-\ 6bb799cf3661"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", " ", RowBox[{"4.22", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uX", ",", "uY", ",", "uZ", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "1"}], ":", " ", "mesh"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "//.", "val"}]}], "]"}], ",", RowBox[{ RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}]}], " ", "//.", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"org", "=", RowBox[{"First", "[", RowBox[{"Ordering", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "#", "]"}], "&"}], ",", "crd"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"crd", "[", RowBox[{"[", "org", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fix", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}], ",", "0"}], "]"}], "/.", RowBox[{ RowBox[{"Point", "[", "a_", "]"}], "->", "a"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.8812818358624473`*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.8812820272948456`*^9}, {3.8812820692056546`*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.8812876689400983`*^9}, { 3.8812882242435603`*^9, 3.8812882247804565`*^9}, {3.8812886373112917`*^9, 3.881288639340893*^9}, {3.8812903965432596`*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.8813759841069946`*^9}, {3.8813763291343327`*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.8813767436892967`*^9, 3.8813767465183673`*^9}, {3.881455584849612*^9, 3.8814555868257437`*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.8816314655389023`*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.8816315804554963`*^9, 3.8816315805340047`*^9}, {3.8816316470886974`*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.8816336894399295`*^9}, {3.8816361795998716`*^9, 3.8816361801216497`*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, {3.881637581637206*^9, 3.881637582386245*^9}, { 3.8816376816129208`*^9, 3.881637682656345*^9}, {3.8816379135998387`*^9, 3.88163791499751*^9}, {3.881638411573781*^9, 3.8816384140875444`*^9}, { 3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, {3.8816402341253767`*^9, 3.881640247025017*^9}, { 3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881900844720973*^9, 3.881900846361178*^9}, {3.8819018628733835`*^9, 3.881901865409485*^9}, { 3.881902067721775*^9, 3.881902079105772*^9}, {3.8819025253629894`*^9, 3.881902527702314*^9}, {3.8819814908678937`*^9, 3.881981492810197*^9}, { 3.8819822644102564`*^9, 3.881982269154549*^9}, {3.881983405466066*^9, 3.881983405647296*^9}, {3.882169824575003*^9, 3.882169825984502*^9}, { 3.8824944888142986`*^9, 3.88249450543427*^9}}, CellLabel-> "In[584]:=",ExpressionUUID->"e40d0474-ba96-40e0-b4dc-74990b6df7fa"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "2"}], ":", " ", RowBox[{"problem", " ", "desciption", " ", "tables"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "pol"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele2", "=", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "m"}], " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "org", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", RowBox[{"ele1", ",", "ele2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "ii", "]"}], ",", RowBox[{"uY", "[", "ii", "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{"ii", "++"}], "]"}]}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", "fix"}], " ", "]"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "org", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uY", "[", "org", "]"}], "->", "0"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812815768226557`*^9}, {3.8812816147756352`*^9, 3.8812816259191203`*^9}, {3.8812822646926866`*^9, 3.881282318784873*^9}, { 3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004107`*^9, 3.8812847448927746`*^9}, {3.8812849777633705`*^9, 3.8812849830196824`*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, { 3.881285247584407*^9, 3.8812852604487505`*^9}, {3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, { 3.881285599355725*^9, 3.8812856261134963`*^9}, {3.8812858823368273`*^9, 3.8812859283957043`*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, { 3.881375110939423*^9, 3.8813751119786024`*^9}, {3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432594`*^9}, { 3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, {3.881452436507377*^9, 3.8814524837125354`*^9}, { 3.8814525617765055`*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735855`*^9}, {3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, {3.8816330537963676`*^9, 3.8816330679560757`*^9}, 3.881633140133834*^9, {3.881633186781321*^9, 3.8816332033915443`*^9}, { 3.8816332943931184`*^9, 3.8816333692794676`*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, {3.881633538972787*^9, 3.881633543921743*^9}, { 3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, {3.8816339777864056`*^9, 3.881634020051221*^9}, { 3.8816340742154865`*^9, 3.8816340744323235`*^9}, {3.8816341153382645`*^9, 3.8816341715619974`*^9}, {3.881634270012111*^9, 3.8816342734928217`*^9}, { 3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, {3.8816344710935106`*^9, 3.881634476418906*^9}, { 3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, {3.881635962740074*^9, 3.8816359768515625`*^9}, { 3.8816362572923164`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.8816363148530097`*^9}, {3.881636474231148*^9, 3.8816365359952602`*^9}, { 3.8816365671991444`*^9, 3.88163657453016*^9}, {3.8816368296118116`*^9, 3.8816368317366805`*^9}, {3.881636890920104*^9, 3.8816368925119815`*^9}, { 3.8816372363995748`*^9, 3.8816372986436844`*^9}, {3.8816374003746996`*^9, 3.8816374031807766`*^9}, 3.8816376952798805`*^9, {3.8816384254305573`*^9, 3.8816384270400834`*^9}, {3.881640391226668*^9, 3.8816403966136136`*^9}, { 3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, {3.8816422412459326`*^9, 3.8816422540635214`*^9}, { 3.8816486541857843`*^9, 3.881648677610757*^9}, {3.8816491964036336`*^9, 3.8816492277071657`*^9}, {3.8819008542756414`*^9, 3.881900859754232*^9}, { 3.8819011967583857`*^9, 3.8819012381130433`*^9}, 3.881901296454344*^9, { 3.8819013467179327`*^9, 3.881901411188458*^9}, {3.881901517929899*^9, 3.881901530687578*^9}, 3.881901737846433*^9, {3.881901829623014*^9, 3.881901838246963*^9}, {3.8819022176481943`*^9, 3.881902227869177*^9}, { 3.881902338594118*^9, 3.881902342490307*^9}, {3.881902388706169*^9, 3.881902398087553*^9}, {3.8819028145630455`*^9, 3.8819028233021493`*^9}, 3.881903377341365*^9, {3.88190421594077*^9, 3.8819042173732324`*^9}, { 3.881905700868268*^9, 3.881905703835044*^9}, {3.8819057462286863`*^9, 3.881905756765298*^9}, 3.881905846664426*^9, 3.8819064645585656`*^9, { 3.8819065457449875`*^9, 3.881906558207797*^9}, {3.881979717755958*^9, 3.881979722111252*^9}, {3.8819829286033936`*^9, 3.8819829302107735`*^9}, { 3.8824945281197968`*^9, 3.8824945805403767`*^9}, 3.8824946361787663`*^9}, CellLabel-> "In[593]:=",ExpressionUUID->"2fb73d1a-c795-4589-bf9e-50830b7d8bb6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "3"}], ":", " ", RowBox[{"data", " ", "by", " ", "FEM", " ", "simulation"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uY", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "_", "]"}], "->", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"dat4", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "sol"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "m", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uZ", "[", "org", "]"}]}], "*", "1000"}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "0", ",", "7", ",", "1"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.8812229861312513`*^9, 3.881223059173297*^9}, {3.8812791899548693`*^9, 3.881279194220287*^9}, { 3.8812792848367696`*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.8812800516808333`*^9, 3.8812800730743313`*^9}, {3.8812801031587176`*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.8812802273221827`*^9, { 3.881280307613277*^9, 3.8812803255281954`*^9}, {3.8812805082863073`*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.8812806591718225`*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.8812808671399593`*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.8812815542094917`*^9, 3.8812815768226557`*^9}, {3.8812816147756352`*^9, 3.8812816259191203`*^9}, {3.8812822646926866`*^9, 3.881282318784873*^9}, { 3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004107`*^9, 3.8812847448927746`*^9}, {3.8812849777633705`*^9, 3.8812849830196824`*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, { 3.881285247584407*^9, 3.8812852604487505`*^9}, {3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, { 3.881285599355725*^9, 3.8812856261134963`*^9}, {3.8812858823368273`*^9, 3.8812859283957043`*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, { 3.881375110939423*^9, 3.8813751119786024`*^9}, {3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432594`*^9}, { 3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, {3.881452436507377*^9, 3.8814524837125354`*^9}, { 3.8814525617765055`*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735855`*^9}, {3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, {3.8816330537963676`*^9, 3.8816330679560757`*^9}, 3.881633140133834*^9, {3.881633186781321*^9, 3.8816332033915443`*^9}, { 3.8816332943931184`*^9, 3.8816333692794676`*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, {3.881633538972787*^9, 3.881633543921743*^9}, { 3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, {3.8816339777864056`*^9, 3.881634020051221*^9}, { 3.8816340742154865`*^9, 3.8816340744323235`*^9}, {3.8816341153382645`*^9, 3.8816341715619974`*^9}, {3.881634270012111*^9, 3.8816342734928217`*^9}, { 3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, {3.8816344710935106`*^9, 3.881634476418906*^9}, { 3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, {3.881635962740074*^9, 3.8816359768515625`*^9}, { 3.8816362572923164`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.8816363148530097`*^9}, {3.881636474231148*^9, 3.8816365359952602`*^9}, { 3.8816365671991444`*^9, 3.88163657453016*^9}, {3.8816368296118116`*^9, 3.8816368317366805`*^9}, {3.881636890920104*^9, 3.8816368925119815`*^9}, { 3.8816372363995748`*^9, 3.8816372986436844`*^9}, {3.8816374003746996`*^9, 3.8816374031807766`*^9}, 3.8816376952798805`*^9, {3.8816384254305573`*^9, 3.8816384270400834`*^9}, {3.881640391226668*^9, 3.8816403966136136`*^9}, { 3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, {3.8816422412459326`*^9, 3.8816422540635214`*^9}, { 3.8816486541857843`*^9, 3.881648677610757*^9}, {3.8816491964036336`*^9, 3.8816492277071657`*^9}, {3.8819008542756414`*^9, 3.881900859754232*^9}, { 3.8819011967583857`*^9, 3.8819012381130433`*^9}, 3.881901296454344*^9, { 3.8819013467179327`*^9, 3.881901411188458*^9}, {3.881901517929899*^9, 3.881901530687578*^9}, 3.881901737846433*^9, {3.881901829623014*^9, 3.881901838246963*^9}, {3.8819022176481943`*^9, 3.881902227869177*^9}, { 3.881902338594118*^9, 3.881902342490307*^9}, {3.881902388706169*^9, 3.881902398087553*^9}, {3.8819028145630455`*^9, 3.8819028233021493`*^9}, 3.881903377341365*^9, {3.88190421594077*^9, 3.8819042173732324`*^9}, { 3.881905700868268*^9, 3.881905703835044*^9}, {3.8819057462286863`*^9, 3.881905756765298*^9}, 3.881905846664426*^9, 3.8819064645585656`*^9, { 3.8819065457449875`*^9, 3.881906558207797*^9}, {3.881979717755958*^9, 3.881979722111252*^9}, {3.8819829286033936`*^9, 3.8819829302107735`*^9}, { 3.8824945281197968`*^9, 3.8824945337020006`*^9}, {3.882494577166047*^9, 3.8824946160337353`*^9}, {3.8824949179853616`*^9, 3.8824949306371617`*^9}}, CellLabel-> "In[599]:=",ExpressionUUID->"056ddfe2-f01b-44ca-880b-4a4721dd4725"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["DISPLACEMENT ANALYSIS (week 3)", "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.69079328920778*^9, 3.7530712354565744`*^9, 3.7866746400333786`*^9},ExpressionUUID->"663b145c-b762-40e7-a548-\ b9cb3d38d4a7"], Cell[CellGroupData[{ Cell["Lecture example 2.1 (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.7876248316360073`*^9, 3.787624839161375*^9}, 3.8195159060846395`*^9},ExpressionUUID->"199254a7-f02b-4fce-b113-\ e0a801386748"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.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.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126234`*^9}, { 3.690793581973494*^9, 3.6907936094451427`*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.7541276553706284`*^9}, 3.7553517003717556`*^9, {3.81951574949915*^9, 3.819515754203024*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"28f3e3df-d3fd-4ee4-97c8-e7f0efd28441"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.2 (beam truss)", "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.6920214694650416`*^9, 3.692021471095044*^9}, 3.787624846976976*^9, 3.819515911959202*^9},ExpressionUUID->"c6662a2d-3637-4730-b361-\ 62ecb3eb2303"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "f"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.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.692021466075037*^9, { 3.6920215028250885`*^9, 3.6920215243751183`*^9}, {3.6920215584451666`*^9, 3.6920216476452913`*^9}, 3.692021691165352*^9, {3.7529756562277727`*^9, 3.7529756737168665`*^9}, {3.819523472816743*^9, 3.8195234759131594`*^9}, { 3.8197802724004292`*^9, 3.8197802763499517`*^9}}, CellLabel-> "In[412]:=",ExpressionUUID->"74a619ed-9fb8-47c7-9aeb-db4fc09d9e51"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.3 (solid)", "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.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.7876248508872952`*^9, 3.8195159139209347`*^9},ExpressionUUID->"3f1920a7-6b93-4bd7-a823-\ 48af0a2bbe4e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.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.6920258039789453`*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.6920259277091184`*^9, 3.6920259839391975`*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.6920264987399178`*^9}, {3.7530062221144147`*^9, 3.753006264963928*^9}, { 3.787625003286798*^9, 3.78762500483702*^9}, 3.8197804389387846`*^9}, CellLabel-> "In[417]:=",ExpressionUUID->"90df719f-5762-4308-913e-28070e479662"] }, 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.6920273329210854`*^9, 3.692027334031087*^9}, {3.787624857073228*^9, 3.787624858265213*^9}, 3.819515917947086*^9},ExpressionUUID->"408e574a-cb6f-494e-9b71-\ 4e684437e94b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ "A", ",", "\[CapitalIota]yy", ",", "\[CapitalIota]zz", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.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.692059670428982*^9, 3.6920597048990297`*^9}, { 3.723798411849661*^9, 3.723798434904174*^9}, {3.7237987918993216`*^9, 3.7237987936592455`*^9}, {3.723799349340538*^9, 3.723799350506401*^9}, 3.7530064855925837`*^9, {3.7530074090324397`*^9, 3.7530074156090126`*^9}, { 3.8197805328576946`*^9, 3.8197805360133047`*^9}}, CellLabel-> "In[422]:=",ExpressionUUID->"98e31536-d967-4274-a198-5f96b9e085af"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.5 (thin slab)", "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.6920597199190507`*^9, 3.692059720879052*^9}, { 3.692059925419338*^9, 3.6920599277293415`*^9}, {3.787624862002798*^9, 3.7876248627952986`*^9}, 3.8195159211419706`*^9},ExpressionUUID->"7d7c591b-6e6d-43d8-90cd-\ 43a5920e75b1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.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.692059987549425*^9, 3.6920600009994445`*^9}, 3.692060112739601*^9, {3.692060203029727*^9, 3.692060219839751*^9}, { 3.723943463177676*^9, 3.723943469317417*^9}, {3.723943597251667*^9, 3.7239436127040477`*^9}, {3.7240547317555065`*^9, 3.724054735286746*^9}, { 3.753007457114498*^9, 3.7530075727121468`*^9}, {3.8197805851870413`*^9, 3.8197806010912604`*^9}, {3.8197811716809254`*^9, 3.8197811892458363`*^9}, {3.8197812993773036`*^9, 3.8197813449589143`*^9}, {3.849338627434058*^9, 3.849338634162207*^9}}, CellLabel-> "In[427]:=",ExpressionUUID->"27f86bb9-83fd-4594-bb22-7ca8b9cd7a50"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6a (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.75376294503279*^9, 3.7537629487977667`*^9}, 3.755435763828392*^9, { 3.7876248662926145`*^9, 3.7876248671217136`*^9}, 3.8195159229298143`*^9},ExpressionUUID->"4c979726-88b6-4947-9e4d-\ 27afb8ee1296"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "block", " ", "to", " ", "localize", " ", "some", " ", "variables"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "val", ",", "w", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol", ",", "w0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox["x", "L"], " ", ")"}], "2"], RowBox[{"a", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], "*", RowBox[{"\[CapitalEpsilon]", "/", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["t", "3"], "12"], "E\[Sigma]"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}]}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wext", "[", "w_", "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "p"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], "+", RowBox[{"\[Delta]wext", "[", "w", "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{ StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], ",", RowBox[{"H", ">", "0"}]}], "}"}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", "=", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}]}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", " ", "//.", "val"}], " ", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4467277951594*^9, 3.4467279649186*^9}, 3.446728037053*^9, {3.4467281489206*^9, 3.4467281816806*^9}, { 3.4467282630708*^9, 3.4467282697788*^9}, 3.4467284401292*^9, { 3.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.7519702560712104`*^9, {3.7537629790875463`*^9, 3.7537629902408724`*^9}, {3.753764460655489*^9, 3.753764491257679*^9}, { 3.7553522538315935`*^9, 3.755352276164716*^9}, {3.7874855436907077`*^9, 3.7874855491613884`*^9}, 3.787485623549152*^9, {3.787486067951891*^9, 3.787486076053173*^9}, {3.7874946027778063`*^9, 3.7874946422828536`*^9}, { 3.78749467607176*^9, 3.7874946864647493`*^9}, {3.787535715793891*^9, 3.787535739520609*^9}, {3.787583561143423*^9, 3.78758356240777*^9}, { 3.8195157237635217`*^9, 3.819515731584694*^9}, {3.8506382610411806`*^9, 3.8506382622126656`*^9}, {3.85069882110884*^9, 3.8506990207088575`*^9}, { 3.8507907120205226`*^9, 3.850790722706362*^9}, {3.850790761779279*^9, 3.8507907986164536`*^9}, {3.8507908639904423`*^9, 3.8507908871774497`*^9}, {3.8511327011029663`*^9, 3.851132856682681*^9}}, CellLabel-> "In[432]:=",ExpressionUUID->"a980a172-239e-4842-a37a-cc8aca53aae5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6b (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.75376294503279*^9, 3.7537629487977667`*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403285`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322443`*^9}, 3.8195159245188613`*^9},ExpressionUUID->"218e630a-09bc-4729-a6e8-\ 2047574d85e0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "7", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "3", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "7", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"H", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "7", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "7", "]"}], ",", RowBox[{"\[Theta]Y", "[", "7", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "7", "]"}], "/.", "sol"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.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.753763435083539*^9, {3.7537636176034584`*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.7537638728401537`*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.7537640140260305`*^9, 3.7537640276633615`*^9}, {3.753764070700218*^9, 3.7537641560081577`*^9}, { 3.7537641950926304`*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, { 3.753764533778655*^9, 3.753764547869378*^9}, {3.7553527505176506`*^9, 3.7553528603017626`*^9}, {3.75538351472929*^9, 3.7553835693549905`*^9}, { 3.755383607438428*^9, 3.7553838360146847`*^9}, {3.7553838766263666`*^9, 3.755383951476962*^9}, {3.755383992736063*^9, 3.7553840478403873`*^9}, { 3.755384124898378*^9, 3.7553842646406417`*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, {3.755389381201706*^9, 3.7553894668944387`*^9}, { 3.7553895199108267`*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.7554339398817015`*^9, 3.755434068869628*^9, { 3.7554341297848616`*^9, 3.755434216890894*^9}, {3.7554343528417006`*^9, 3.7554343704056864`*^9}, {3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, {3.7554346233872647`*^9, 3.7554347263294*^9}, { 3.7554347853286095`*^9, 3.7554348093580456`*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, {3.7554349600500207`*^9, 3.7554349983466597`*^9}, { 3.755435110803147*^9, 3.7554351426284623`*^9}, {3.755435324398292*^9, 3.7554353302892075`*^9}, {3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, {3.7554358134766097`*^9, 3.755435918833391*^9}, { 3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, {3.755436277778627*^9, 3.755436282441655*^9}, { 3.755436433004975*^9, 3.7554365810900373`*^9}, {3.755436713592167*^9, 3.7554367150263915`*^9}, {3.755436752569789*^9, 3.755436782945344*^9}, { 3.75543855564263*^9, 3.755438573014342*^9}, {3.7554386030808535`*^9, 3.75543862876925*^9}, {3.755438665543474*^9, 3.755438666460845*^9}, { 3.755438707655904*^9, 3.7554387115945473`*^9}, {3.7554387585075216`*^9, 3.7554388500917773`*^9}, {3.755523374186784*^9, 3.755523407200748*^9}, { 3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.7555237667615433`*^9, 3.7555238472382975`*^9, 3.7555241586552105`*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, {3.7555258075426073`*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726152`*^9}, {3.7555370249561615`*^9, 3.755537051432358*^9}, 3.7555372853307257`*^9, {3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618104`*^9, {3.7555379391125593`*^9, 3.755537970148187*^9}, { 3.7555674525545197`*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, {3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.7555677797901087`*^9}, { 3.755567822059022*^9, 3.755567822195668*^9}, {3.7555678597444773`*^9, 3.7555678604365673`*^9}, 3.7556071757478895`*^9, {3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, { 3.7556077296748147`*^9, 3.755607849742259*^9}, {3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, {3.755608958207328*^9, 3.755608980843011*^9}, {3.7559615593543744`*^9, 3.7559615796720657`*^9}, { 3.755961636991267*^9, 3.755961639837885*^9}, {3.755961688066485*^9, 3.7559617050406666`*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, { 3.7560033780948515`*^9, 3.756003424416658*^9}, {3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, { 3.75600408826851*^9, 3.7560041132438145`*^9}, {3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, { 3.7560045878703117`*^9, 3.756004610316883*^9}, {3.756090875492567*^9, 3.756090970250229*^9}, {3.7560910153257923`*^9, 3.756091253656394*^9}, { 3.7560913065394864`*^9, 3.7560913073489447`*^9}, {3.7560913497661376`*^9, 3.7560913829572887`*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, { 3.756091512338003*^9, 3.7560916181734085`*^9}, {3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, {3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.7560925295886126`*^9}, { 3.7564428371402044`*^9, 3.7564428827548018`*^9}, {3.756443118409811*^9, 3.7564432825122414`*^9}, {3.7564433139577427`*^9, 3.7564434048585415`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.7564441526092615`*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.7866931119911423`*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.7866934610423436`*^9}, {3.786693498963604*^9, 3.7866936745285892`*^9}, {3.7866937881495705`*^9, 3.7866937950939436`*^9}, 3.7873246428692293`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.7874854543849907`*^9, 3.787485502716935*^9}, {3.7874856358164625`*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.7874947579329753`*^9, 3.7874947673643074`*^9}, 3.787494920667267*^9, {3.7874950655196714`*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.7874952321914797`*^9}, {3.7874953099595947`*^9, 3.7874953434716663`*^9}, {3.7874953776322303`*^9, 3.7874953779837875`*^9}, {3.7875363421179075`*^9, 3.787536342508462*^9}, { 3.7875368085158997`*^9, 3.787536878302806*^9}, {3.7875369599529157`*^9, 3.7875370055885963`*^9}, {3.7875835060582986`*^9, 3.787583520821555*^9}, { 3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, { 3.7876552122737617`*^9, 3.787655270155204*^9}, {3.7877076273240643`*^9, 3.7877076330663157`*^9}, {3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.8493388690505223`*^9, 3.8493389607525234`*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.8507909361264725`*^9, { 3.850790968622494*^9, 3.8507909814813538`*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851132967713168*^9, 3.851132969332811*^9}}, CellLabel-> "In[433]:=",ExpressionUUID->"4411edcc-34cd-4e4c-9d88-54e876f93f53"], Cell[BoxData[ Graphics3DBox[ {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0., -0.005}, { 0.06026449667111024, -0.00033447135939298567`, -0.018547689779830286`}, { 0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, { 0., 0., 0.005}, {0.06473550332888976, 0.00033447135939298567`, -0.008547689779830288}, {0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0., 0, 0.}, {0.0625, 0, -0.013547689779830287`}, { 0.0625, Rational[3, 160], -0.014374891847405603`}}, {{0., 0, 0.}, { 0.0625, 0, -0.013547689779830287`}, {0.0625, 0.01875, -0.014374891847405603`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.06026449667111024, -0.00033447135939298567`, -0.018547689779830286`}, \ {0.12113439714813652`, -0.0003016749534203655, -0.056806389165271025`}, { 0.12116612038612669`, 0.01855485928267944, -0.0576897477104825}, { 0.06473550332888976, 0.00033447135939298567`, -0.008547689779830288}, { 0.1288656028518635, 0.0003016749534203655, -0.04680638916527103}, { 0.12883387961387333`, 0.01894514071732056, -0.047689747710482504`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.0625, 0, -0.013547689779830287`}, { 0.125, 0, -0.05180638916527103}, { 0.125, Rational[3, 160], -0.0526897477104825}}, {{ 0.0625, 0, -0.013547689779830287`}, { 0.125, 0, -0.05180638916527103}, {0.125, 0.01875, -0.0526897477104825}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, {0.12116612038612669`, 0.01855485928267944, -0.0576897477104825}, {0.12119137512864936`, 0.037380687317949995`, -0.058229921548735894`}, {0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}, {0.12883387961387333`, 0.01894514071732056, -0.047689747710482504`}, {0.12880862487135064`, 0.03761931268205, -0.0482299215487359}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.0625, Rational[3, 160], -0.014374891847405603`}, { 0.125, Rational[3, 160], -0.0526897477104825}, { 0.125, Rational[3, 80], -0.053229921548735896`}}, {{0.0625, 0.01875, -0.014374891847405603`}, {0.125, 0.01875, -0.0526897477104825}, {0.125, 0.0375, -0.053229921548735896`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.06026449667111024, -0.00033447135939298567`, \ -0.018547689779830286`}, {0.12116612038612669`, 0.01855485928267944, -0.0576897477104825}, {0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, { 0.06473550332888976, 0.00033447135939298567`, -0.008547689779830288}, { 0.12883387961387333`, 0.01894514071732056, -0.047689747710482504`}, {0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.0625, 0, -0.013547689779830287`}, { 0.125, Rational[3, 160], -0.0526897477104825}, { 0.0625, Rational[3, 160], -0.014374891847405603`}}, {{ 0.0625, 0, -0.013547689779830287`}, {0.125, 0.01875, -0.0526897477104825}, {0.0625, 0.01875, -0.014374891847405603`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.12113439714813652`, -0.0003016749534203655, \ -0.056806389165271025`}, { 0.1828833894493238, -0.00005268724451757431, \ -0.11006547319804348`}, {0.18294847990032417`, 0.01873134298139228, -0.1102027895256651}, {0.12886560285186346`, 0.0003016749534203655, -0.04680638916527103}, {0.1921166105506762, 0.00005268724451757431, -0.10006547319804347`}, { 0.19205152009967583`, 0.018768657018607717`, -0.1002027895256651}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.125, 0, -0.05180638916527103}, { 0.1875, 0, -0.10506547319804348`}, { 0.1875, Rational[3, 160], -0.1052027895256651}}, {{ 0.125, 0, -0.05180638916527103}, { 0.1875, 0, -0.10506547319804348`}, {0.1875, 0.01875, -0.1052027895256651}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18288338944932378`, -0.00005268724451757433, \ -0.11006547319804348`}, {0.24540197322895727`, 0.000248100233822173, -0.1679121949140747}, {0.2454716550839888, 0.018967982728788732`, -0.16706170179552238`}, { 0.19211661055067622`, 0.00005268724451757433, -0.10006547319804347`}, { 0.25459802677104276`, -0.000248100233822173, \ -0.15791219491407468`}, {0.2545283449160112, 0.018532017271211267`, -0.15706170179552237`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.1875, 0, -0.10506547319804348`}, { 0.25, 0, -0.1629121949140747}, { 0.25, Rational[3, 160], -0.16206170179552237`}}, {{ 0.1875, 0, -0.10506547319804348`}, { 0.25, 0, -0.1629121949140747}, {0.25, 0.01875, -0.16206170179552237`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18294847990032417`, 0.01873134298139228, -0.1102027895256651}, { 0.24547165508398885`, 0.018967982728788736`, -0.16706170179552238`}, { 0.24553440616482328`, 0.0376887892216544, -0.1663163990758976}, { 0.19205152009967583`, 0.018768657018607717`, -0.1002027895256651}, { 0.2545283449160112, 0.018532017271211263`, -0.15706170179552237`}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.1875, Rational[3, 160], -0.1052027895256651}, { 0.25, Rational[3, 160], -0.16206170179552237`}, { 0.25, Rational[3, 80], -0.1613163990758976}}, {{0.1875, 0.01875, -0.1052027895256651}, {0.25, 0.01875, -0.16206170179552237`}, {0.25, 0.0375, -0.1613163990758976}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18288338944932378`, -0.00005268724451757433, \ -0.11006547319804348`}, {0.2454716550839888, 0.018967982728788732`, -0.16706170179552238`}, { 0.18294847990032415`, 0.01873134298139228, -0.1102027895256651}, { 0.19211661055067622`, 0.00005268724451757433, -0.10006547319804347`}, { 0.2545283449160112, 0.018532017271211267`, -0.15706170179552237`}, { 0.19205152009967585`, 0.018768657018607717`, -0.1002027895256651}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.1875, 0, -0.10506547319804348`}, { 0.25, Rational[3, 160], -0.16206170179552237`}, { 0.1875, Rational[3, 160], -0.1052027895256651}}, {{ 0.1875, 0, -0.10506547319804348`}, {0.25, 0.01875, -0.16206170179552237`}, {0.1875, 0.01875, -0.1052027895256651}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12119137512864936`, 0.037380687317949995`, -0.058229921548735894`}, { 0.18300474606907693`, 0.03750532604322549, -0.11022554000139206`}, { 0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.12880862487135064`, 0.03761931268205, -0.0482299215487359}, { 0.19199525393092307`, 0.037494673956774506`, -0.10022554000139205`}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{ 0.125, Rational[3, 80], -0.053229921548735896`}, { 0.1875, Rational[3, 80], -0.10522554000139206`}, { 0.1875, Rational[9, 160], -0.1051739907015968}}, {{0.125, 0.0375, -0.053229921548735896`}, {0.1875, 0.0375, -0.10522554000139206`}, {0.1875, 0.05625, -0.1051739907015968}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18300474606907693`, 0.03750532604322549, -0.11022554000139206`}, { 0.24553440616482328`, 0.0376887892216544, -0.1663163990758976}, { 0.24558482099834503`, 0.0564095280627964, -0.16567623342672996`}, { 0.19199525393092307`, 0.037494673956774506`, -0.10022554000139205`}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}, { 0.25441517900165495`, 0.0560904719372036, -0.15567623342672995`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{ 0.1875, Rational[3, 80], -0.10522554000139206`}, { 0.25, Rational[3, 80], -0.1613163990758976}, { 0.25, Rational[9, 160], -0.16067623342672996`}}, {{0.1875, 0.0375, -0.10522554000139206`}, {0.25, 0.0375, -0.1613163990758976}, {0.25, 0.05625, -0.16067623342672996`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.24558482099834503`, 0.0564095280627964, -0.16567623342672996`}, { 0.24562471971890285`, 0.07512992884550723, -0.16514434140528597`}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}, { 0.254415179001655, 0.0560904719372036, -0.15567623342672995`}, { 0.2543752802810971, 0.07487007115449276, -0.15514434140528596`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.1875, Rational[9, 160], -0.1051739907015968}, { 0.25, Rational[9, 160], -0.16067623342672996`}, { 0.25, Rational[3, 40], -0.16014434140528597`}}, {{0.1875, 0.05625, -0.1051739907015968}, {0.25, 0.05625, -0.16067623342672996`}, {0.25, 0.075, -0.16014434140528597`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18300474606907693`, 0.03750532604322549, -0.11022554000139206`}, { 0.24558482099834503`, 0.0564095280627964, -0.16567623342672996`}, { 0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.19199525393092307`, 0.037494673956774506`, -0.10022554000139205`}, { 0.25441517900165495`, 0.0560904719372036, -0.15567623342672995`}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{ 0.1875, Rational[3, 80], -0.10522554000139206`}, { 0.25, Rational[9, 160], -0.16067623342672996`}, { 0.1875, Rational[9, 160], -0.1051739907015968}}, {{0.1875, 0.0375, -0.10522554000139206`}, {0.25, 0.05625, -0.16067623342672996`}, {0.1875, 0.05625, -0.1051739907015968}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.12113439714813652`, -0.0003016749534203655, \ -0.056806389165271025`}, {0.18294847990032417`, 0.01873134298139228, -0.1102027895256651}, { 0.12116612038612669`, 0.01855485928267944, -0.0576897477104825}, { 0.12886560285186346`, 0.0003016749534203655, -0.04680638916527103}, { 0.19205152009967583`, 0.018768657018607717`, -0.1002027895256651}, { 0.1288338796138733, 0.01894514071732056, -0.047689747710482504`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.125, 0, -0.05180638916527103}, { 0.1875, Rational[3, 160], -0.1052027895256651}, { 0.125, Rational[3, 160], -0.0526897477104825}}, {{ 0.125, 0, -0.05180638916527103}, {0.1875, 0.01875, -0.1052027895256651}, {0.125, 0.01875, -0.0526897477104825}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18294847990032417`, 0.01873134298139228, -0.1102027895256651}, { 0.24553440616482328`, 0.0376887892216544, -0.1663163990758976}, { 0.18300474606907693`, 0.03750532604322549, -0.11022554000139206`}, { 0.19205152009967583`, 0.018768657018607717`, -0.1002027895256651}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}, { 0.19199525393092307`, 0.037494673956774506`, -0.10022554000139205`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.1875, Rational[3, 160], -0.1052027895256651}, { 0.25, Rational[3, 80], -0.1613163990758976}, { 0.1875, Rational[3, 80], -0.10522554000139206`}}, {{ 0.1875, 0.01875, -0.1052027895256651}, {0.25, 0.0375, -0.1613163990758976}, {0.1875, 0.0375, -0.10522554000139206`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12116612038612669`, 0.01855485928267944, -0.0576897477104825}, { 0.18300474606907696`, 0.03750532604322549, -0.11022554000139206`}, { 0.12119137512864935`, 0.037380687317949995`, -0.058229921548735894`}, { 0.1288338796138733, 0.01894514071732056, -0.047689747710482504`}, { 0.19199525393092304`, 0.037494673956774506`, -0.10022554000139205`}, { 0.12880862487135064`, 0.03761931268205, -0.0482299215487359}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{ 0.125, Rational[3, 160], -0.0526897477104825}, { 0.1875, Rational[3, 80], -0.10522554000139206`}, { 0.125, Rational[3, 80], -0.053229921548735896`}}, {{0.125, 0.01875, -0.0526897477104825}, {0.1875, 0.0375, -0.10522554000139206`}, {0.125, 0.0375, -0.053229921548735896`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18294847990032417`, 0.01873134298139228, -0.1102027895256651}, { 0.18300474606907693`, 0.03750532604322549, -0.11022554000139206`}, { 0.1211661203861267, 0.01855485928267944, -0.0576897477104825}, { 0.19205152009967583`, 0.018768657018607717`, -0.1002027895256651}, { 0.19199525393092307`, 0.037494673956774506`, -0.10022554000139205`}, { 0.1288338796138733, 0.01894514071732056, -0.047689747710482504`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{ 0.1875, Rational[3, 160], -0.1052027895256651}, { 0.1875, Rational[3, 80], -0.10522554000139206`}, { 0.125, Rational[3, 160], -0.0526897477104825}}, {{0.1875, 0.01875, -0.1052027895256651}, {0.1875, 0.0375, -0.10522554000139206`}, {0.125, 0.01875, -0.0526897477104825}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24540197322895727`, 0.000248100233822173, -0.1679121949140747}, { 0.30852700761024726`, 0.0005259299057205366, -0.221710484387493}, { 0.30858710676541823`, 0.019195529365532066`, -0.2199203710758589}, { 0.25459802677104276`, -0.000248100233822173, \ -0.15791219491407468`}, { 0.31647299238975274`, -0.0005259299057205366, \ -0.211710484387493}, {0.31641289323458177`, 0.018304470634467933`, -0.2099203710758589}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, 0, -0.1629121949140747}, { 0.3125, 0, -0.216710484387493}, { 0.3125, Rational[3, 160], -0.2149203710758589}}, {{ 0.25, 0, -0.1629121949140747}, { 0.3125, 0, -0.216710484387493}, {0.3125, 0.01875, -0.2149203710758589}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3085270076102473, 0.0005259299057205366, -0.221710484387493}, { 0.3721033733341838, 0.0007428757334365932, -0.2648283891977515}, { 0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.3164729923897527, -0.0005259299057205366, \ -0.211710484387493}, { 0.3778966266658162, -0.0007428757334365932, \ -0.25482838919775147`}, {0.3778536772002491, 0.01812350088594156, -0.2522944362511094}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, 0, -0.216710484387493}, { 0.375, 0, -0.2598283891977515}, { 0.375, Rational[3, 160], -0.2572944362511094}}, {{ 0.3125, 0, -0.216710484387493}, { 0.375, 0, -0.2598283891977515}, {0.375, 0.01875, -0.2572944362511094}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30858710676541823`, 0.019195529365532062`, -0.2199203710758589}, { 0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.3721864036761843, 0.03802002784039428, -0.260173851027622}, { 0.31641289323458177`, 0.018304470634467936`, -0.2099203710758589}, { 0.3778536772002491, 0.01812350088594156, -0.2522944362511094}, { 0.3778135963238157, 0.03697997215960572, -0.250173851027622}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[ 3, 160], -0.2149203710758589}, { 0.375, Rational[3, 160], -0.2572944362511094}, { 0.375, Rational[3, 80], -0.255173851027622}}, {{0.3125, 0.01875, -0.2149203710758589}, {0.375, 0.01875, -0.2572944362511094}, {0.375, 0.0375, -0.255173851027622}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3085270076102473, 0.0005259299057205366, -0.221710484387493}, { 0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.3085871067654183, 0.019195529365532066`, -0.2199203710758589}, { 0.3164729923897527, -0.0005259299057205366, \ -0.211710484387493}, {0.3778536772002491, 0.01812350088594156, -0.2522944362511094}, { 0.3164128932345817, 0.018304470634467933`, -0.2099203710758589}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, 0, -0.216710484387493}, { 0.375, Rational[3, 160], -0.2572944362511094}, { 0.3125, Rational[3, 160], -0.2149203710758589}}, {{ 0.3125, 0, -0.216710484387493}, {0.375, 0.01875, -0.2572944362511094}, {0.3125, 0.01875, -0.2149203710758589}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37210337333418375`, 0.0007428757334365932, -0.2648283891977515}, { 0.4359774119798527, 0.0008784051546067254, -0.29256963053231155`}, { 0.43599993186528596`, 0.0194906747405843, -0.2895649177554781}, { 0.37789662666581625`, -0.0007428757334365932, \ -0.25482838919775147`}, { 0.4390225880201473, -0.0008784051546067254, \ -0.28256963053231154`}, {0.43900006813471404`, 0.018009325259415697`, -0.2795649177554781}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, 0, -0.2598283891977515}, { 0.4375, 0, -0.28756963053231155`}, { 0.4375, Rational[3, 160], -0.2845649177554781}}, {{ 0.375, 0, -0.2598283891977515}, { 0.4375, 0, -0.28756963053231155`}, {0.4375, 0.01875, -0.2845649177554781}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43597741197985274`, 0.0008784051546067254, -0.29256963053231155`}, { 0.5000000000000169, 0.0009300925808958502, -0.30214942114175164`}, { 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.43902258802014726`, -0.0008784051546067254, \ -0.28256963053231154`}, { 0.4999999999999831, -0.0009300925808958502, \ -0.29214942114175163`}, {0.4999999999999837, 0.017968546783047788`, -0.2889748021482697}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, 0, -0.28756963053231155`}, { 0.5, 0, -0.29714942114175164`}, { 0.5, Rational[3, 160], -0.2939748021482697}}, {{ 0.4375, 0, -0.28756963053231155`}, { 0.5, 0, -0.29714942114175164`}, {0.5, 0.01875, -0.2939748021482697}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.435999931865286, 0.0194906747405843, -0.2895649177554781}, { 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.5000000000000157, 0.03814686870360521, -0.2963246101724172}, { 0.439000068134714, 0.018009325259415697`, -0.2795649177554781}, { 0.4999999999999837, 0.017968546783047788`, -0.2889748021482697}, { 0.4999999999999843, 0.03685313129639479, -0.28632461017241717`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[ 3, 160], -0.2845649177554781}, { 0.5, Rational[3, 160], -0.2939748021482697}, { 0.5, Rational[3, 80], -0.2913246101724172}}, {{0.4375, 0.01875, -0.2845649177554781}, {0.5, 0.01875, -0.2939748021482697}, {0.5, 0.0375, -0.2913246101724172}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43597741197985274`, 0.0008784051546067254, -0.29256963053231155`}, { 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.435999931865286, 0.0194906747405843, -0.2895649177554781}, { 0.43902258802014726`, -0.0008784051546067254, \ -0.28256963053231154`}, {0.4999999999999837, 0.017968546783047788`, -0.2889748021482697}, { 0.439000068134714, 0.018009325259415697`, -0.2795649177554781}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, 0, -0.28756963053231155`}, { 0.5, Rational[3, 160], -0.2939748021482697}, { 0.4375, Rational[3, 160], -0.2845649177554781}}, {{ 0.4375, 0, -0.28756963053231155`}, {0.5, 0.01875, -0.2939748021482697}, {0.4375, 0.01875, -0.2845649177554781}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37218640367618433`, 0.03802002784039428, -0.260173851027622}, { 0.43602090944360933`, 0.03811417593033077, -0.2870520204660371}, { 0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.37781359632381567`, 0.03697997215960572, -0.250173851027622}, { 0.43897909055639067`, 0.036885824069669226`, -0.2770520204660371}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[ 3, 80], -0.255173851027622}, {0.4375, Rational[ 3, 80], -0.2820520204660371}, {0.4375, Rational[ 9, 160], -0.2799911524977791}}, {{0.375, 0.0375, -0.255173851027622}, {0.4375, 0.0375, -0.2820520204660371}, {0.4375, 0.05625, -0.2799911524977791}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43602090944360933`, 0.03811417593033078, -0.2870520204660371}, { 0.5000000000000157, 0.038146868703605216`, -0.2963246101724172}, { 0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.43897909055639067`, 0.03688582406966922, -0.2770520204660371}, { 0.4999999999999843, 0.03685313129639478, -0.28632461017241717`}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 80], -0.2820520204660371}, {0.5, Rational[ 3, 80], -0.2913246101724172}, {0.5, Rational[ 9, 160], -0.28915273072256226`}}, {{0.4375, 0.0375, -0.2820520204660371}, {0.5, 0.0375, -0.2913246101724172}, {0.5, 0.05625, -0.28915273072256226`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.5000000000000133, 0.07540848378370749, -0.29242311991946546`}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}, { 0.4999999999999867, 0.07459151621629251, -0.28242311991946545`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 160], -0.2799911524977791}, {0.5, Rational[ 9, 160], -0.28915273072256226`}, {0.5, Rational[ 3, 40], -0.28742311991946545`}}, {{0.4375, 0.05625, -0.2799911524977791}, {0.5, 0.05625, -0.28915273072256226`}, {0.5, 0.075, -0.28742311991946545`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43602090944360933`, 0.03811417593033078, -0.2870520204660371}, { 0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.43897909055639067`, 0.03688582406966922, -0.2770520204660371}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 80], -0.2820520204660371}, {0.5, Rational[ 9, 160], -0.28915273072256226`}, {0.4375, Rational[ 9, 160], -0.2799911524977791}}, {{0.4375, 0.0375, -0.2820520204660371}, {0.5, 0.05625, -0.28915273072256226`}, {0.4375, 0.05625, -0.2799911524977791}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37210337333418375`, 0.0007428757334365932, -0.2648283891977515}, { 0.43599993186528596`, 0.0194906747405843, -0.2895649177554781}, { 0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.37789662666581625`, -0.0007428757334365932, \ -0.25482838919775147`}, {0.43900006813471404`, 0.018009325259415697`, -0.2795649177554781}, { 0.3778536772002491, 0.01812350088594156, -0.2522944362511094}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, 0, -0.2598283891977515}, { 0.4375, Rational[3, 160], -0.2845649177554781}, { 0.375, Rational[3, 160], -0.2572944362511094}}, {{ 0.375, 0, -0.2598283891977515}, {0.4375, 0.01875, -0.2845649177554781}, {0.375, 0.01875, -0.2572944362511094}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.435999931865286, 0.0194906747405843, -0.2895649177554781}, { 0.5000000000000157, 0.03814686870360521, -0.2963246101724172}, { 0.43602090944360933`, 0.03811417593033077, -0.2870520204660371}, { 0.439000068134714, 0.018009325259415697`, -0.2795649177554781}, { 0.4999999999999843, 0.03685313129639479, -0.28632461017241717`}, { 0.43897909055639067`, 0.036885824069669226`, -0.2770520204660371}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 160], -0.2845649177554781}, {0.5, Rational[3, 80], -0.2913246101724172}, {0.4375, Rational[3, 80], -0.2820520204660371}}, {{0.4375, 0.01875, -0.2845649177554781}, {0.5, 0.0375, -0.2913246101724172}, {0.4375, 0.0375, -0.2820520204660371}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.43602090944360933`, 0.03811417593033078, -0.2870520204660371}, { 0.37218640367618433`, 0.03802002784039428, -0.260173851027622}, { 0.3778536772002491, 0.01812350088594156, -0.2522944362511094}, { 0.43897909055639067`, 0.03688582406966922, -0.2770520204660371}, { 0.37781359632381567`, 0.03697997215960572, -0.250173851027622}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 160], -0.2572944362511094}, {0.4375, Rational[3, 80], -0.2820520204660371}, {0.375, Rational[3, 80], -0.255173851027622}}, {{0.375, 0.01875, -0.2572944362511094}, {0.4375, 0.0375, -0.2820520204660371}, {0.375, 0.0375, -0.255173851027622}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.435999931865286, 0.0194906747405843, -0.2895649177554781}, { 0.43602090944360933`, 0.03811417593033077, -0.2870520204660371}, { 0.3721463227997509, 0.019376499114058438`, -0.26229443625110943`}, { 0.439000068134714, 0.018009325259415697`, -0.2795649177554781}, { 0.43897909055639067`, 0.036885824069669226`, -0.2770520204660371}, { 0.3778536772002491, 0.01812350088594156, -0.2522944362511094}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 160], -0.2845649177554781}, {0.4375, Rational[3, 80], -0.2820520204660371}, {0.375, Rational[3, 160], -0.2572944362511094}}, {{0.4375, 0.01875, -0.2845649177554781}, {0.4375, 0.0375, -0.2820520204660371}, {0.375, 0.01875, -0.2572944362511094}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24562471971890285`, 0.07512992884550725, -0.16514434140528597`}, { 0.30872367347497626`, 0.07523912950235251, -0.21616946927084751`}, { 0.30875107767161847`, 0.09392782474231384, -0.21540271106257244`}, { 0.2543752802810972, 0.07487007115449275, -0.15514434140528596`}, { 0.31627632652502374`, 0.07476087049764749, -0.2061694692708475}, { 0.31624892232838153`, 0.09357217525768616, -0.20540271106257244`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 40], -0.16014434140528597`}, {0.3125, Rational[3, 40], -0.2111694692708475}, {0.3125, Rational[3, 32], -0.21040271106257244`}}, {{0.25, 0.075, -0.16014434140528597`}, {0.3125, 0.075, -0.2111694692708475}, {0.3125, 0.09375, -0.21040271106257244`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087236734749763, 0.0752391295023525, -0.21616946927084751`}, { 0.37224576601495496`, 0.07533022978133778, -0.25704257059955177`}, { 0.37226551888692827`, 0.0939937375870576, -0.2559828799762671}, { 0.3162763265250237, 0.0747608704976475, -0.2061694692708475}, { 0.37775423398504504`, 0.07466977021866221, -0.24704257059955176`}, { 0.37773448111307173`, 0.0935062624129424, -0.2459828799762671}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 40], -0.2111694692708475}, {0.375, Rational[3, 40], -0.25204257059955176`}, {0.375, Rational[3, 32], -0.2509828799762671}}, {{0.3125, 0.075, -0.2111694692708475}, {0.375, 0.075, -0.25204257059955176`}, {0.375, 0.09375, -0.2509828799762671}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087510776716185, 0.09392782474231383, -0.21540271106257244`}, { 0.37226551888692827`, 0.09399373758705759, -0.2559828799762671}, { 0.37227966033425813`, 0.1126610784576454, -0.2552372850584218}, { 0.3162489223283815, 0.09357217525768617, -0.20540271106257244`}, { 0.37773448111307173`, 0.09350626241294241, -0.2459828799762671}, { 0.37772033966574187`, 0.1123389215423546, -0.2452372850584218}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 32], -0.21040271106257244`}, {0.375, Rational[3, 32], -0.2509828799762671}, {0.375, Rational[9, 80], -0.2502372850584218}}, {{0.3125, 0.09375, -0.21040271106257244`}, {0.375, 0.09375, -0.2509828799762671}, {0.375, 0.1125, -0.2502372850584218}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087236734749763, 0.0752391295023525, -0.21616946927084751`}, { 0.37226551888692827`, 0.0939937375870576, -0.2559828799762671}, { 0.3087510776716185, 0.09392782474231383, -0.21540271106257244`}, { 0.3162763265250237, 0.0747608704976475, -0.2061694692708475}, { 0.37773448111307173`, 0.0935062624129424, -0.2459828799762671}, { 0.3162489223283815, 0.09357217525768617, -0.20540271106257244`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 40], -0.2111694692708475}, {0.375, Rational[3, 32], -0.2509828799762671}, {0.3125, Rational[3, 32], -0.21040271106257244`}}, {{0.3125, 0.075, -0.2111694692708475}, {0.375, 0.09375, -0.2509828799762671}, {0.3125, 0.09375, -0.21040271106257244`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37224576601495496`, 0.07533022978133778, -0.25704257059955177`}, { 0.4360516690369848, 0.07538842473686394, -0.2833493407495935}, { 0.43606178343679985`, 0.09403587036056345, -0.2821000098861615}, { 0.37775423398504504`, 0.07466977021866221, -0.24704257059955176`}, { 0.4389483309630152, 0.07461157526313605, -0.2733493407495935}, { 0.43893821656320015`, 0.09346412963943655, -0.2721000098861615}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 40], -0.25204257059955176`}, {0.4375, Rational[3, 40], -0.2783493407495935}, {0.4375, Rational[3, 32], -0.2771000098861615}}, {{0.375, 0.075, -0.25204257059955176`}, {0.4375, 0.075, -0.2783493407495935}, {0.4375, 0.09375, -0.2771000098861615}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360516690369848, 0.07538842473686394, -0.2833493407495935}, { 0.5000000000000133, 0.07540848378370749, -0.29242311991946546`}, { 0.5000000000000134, 0.09405037398651088, -0.29110741229591147`}, { 0.4389483309630152, 0.07461157526313605, -0.2733493407495935}, { 0.4999999999999867, 0.07459151621629251, -0.28242311991946545`}, { 0.49999999999998657`, 0.09344962601348912, -0.28110741229591146`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 40], -0.2783493407495935}, {0.5, Rational[3, 40], -0.28742311991946545`}, {0.5, Rational[3, 32], -0.28610741229591147`}}, {{0.4375, 0.075, -0.2783493407495935}, {0.5, 0.075, -0.28742311991946545`}, {0.5, 0.09375, -0.28610741229591147`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43606178343679985`, 0.09403587036056345, -0.2821000098861615}, { 0.5000000000000135, 0.09405037398651088, -0.29110741229591147`}, { 0.5000000000000128, 0.11269725073361374`, -0.290183957134191}, { 0.43893821656320015`, 0.09346412963943655, -0.2721000098861615}, { 0.49999999999998657`, 0.09344962601348912, -0.28110741229591146`}, { 0.4999999999999873, 0.11230274926638627`, -0.280183957134191}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 32], -0.2771000098861615}, {0.5, Rational[3, 32], -0.28610741229591147`}, {0.5, Rational[9, 80], -0.285183957134191}}, {{0.4375, 0.09375, -0.2771000098861615}, {0.5, 0.09375, -0.28610741229591147`}, {0.5, 0.1125, -0.285183957134191}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360516690369848, 0.07538842473686394, -0.2833493407495935}, { 0.5000000000000134, 0.09405037398651088, -0.29110741229591147`}, { 0.43606178343679985`, 0.09403587036056343, -0.2821000098861615}, { 0.4389483309630152, 0.07461157526313605, -0.2733493407495935}, { 0.49999999999998657`, 0.09344962601348912, -0.28110741229591146`}, { 0.43893821656320015`, 0.09346412963943657, -0.2721000098861615}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 40], -0.2783493407495935}, {0.5, Rational[3, 32], -0.28610741229591147`}, {0.4375, Rational[3, 32], -0.2771000098861615}}, {{0.4375, 0.075, -0.2783493407495935}, {0.5, 0.09375, -0.28610741229591147`}, {0.4375, 0.09375, -0.2771000098861615}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37227966033425813`, 0.11266107845764542`, -0.2552372850584218}, { 0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.43607290558011963`, 0.13134363148297415`, -0.28070259534275266`}, { 0.37772033966574187`, 0.11233892154235459`, -0.2452372850584218}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}, { 0.43892709441988037`, 0.13115636851702586`, -0.27070259534275265`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 80], -0.2502372850584218}, {0.4375, Rational[9, 80], -0.2762226642719865}, {0.4375, Rational[21, 160], -0.27570259534275265`}}, {{0.375, 0.1125, -0.2502372850584218}, {0.4375, 0.1125, -0.2762226642719865}, {0.4375, 0.13125, -0.27570259534275265`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.5000000000000128, 0.11269725073361374`, -0.290183957134191}, { 0.5000000000000117, 0.13134754343722946`, -0.2896372317342192}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}, { 0.4999999999999873, 0.11230274926638627`, -0.280183957134191}, { 0.4999999999999884, 0.13115245656277055`, -0.27963723173421917`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 80], -0.2762226642719865}, {0.5, Rational[9, 80], -0.285183957134191}, {0.5, Rational[21, 160], -0.2846372317342192}}, {{0.4375, 0.1125, -0.2762226642719865}, {0.5, 0.1125, -0.285183957134191}, {0.5, 0.13125, -0.2846372317342192}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43607290558011963`, 0.13134363148297418`, -0.28070259534275266`}, { 0.5000000000000117, 0.13134754343722949`, -0.2896372317342192}, { 0.5000000000000105, 0.15000000000018365`, -0.2894572543497438}, { 0.43892709441988037`, 0.13115636851702583`, -0.27070259534275265`}, { 0.4999999999999884, 0.13115245656277053`, -0.27963723173421917`}, { 0.49999999999998945`, 0.14999999999981634`, -0.2794572543497438}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 160], -0.27570259534275265`}, {0.5, Rational[21, 160], -0.2846372317342192}, {0.5, Rational[3, 20], -0.2844572543497438}}, {{0.4375, 0.13125, -0.27570259534275265`}, {0.5, 0.13125, -0.2846372317342192}, {0.5, 0.15, -0.2844572543497438}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.5000000000000117, 0.13134754343722946`, -0.2896372317342192}, { 0.43607290558011963`, 0.13134363148297415`, -0.28070259534275266`}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}, { 0.4999999999999884, 0.13115245656277055`, -0.27963723173421917`}, { 0.43892709441988037`, 0.13115636851702586`, -0.27070259534275265`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 80], -0.2762226642719865}, {0.5, Rational[21, 160], -0.2846372317342192}, {0.4375, Rational[21, 160], -0.27570259534275265`}}, {{0.4375, 0.1125, -0.2762226642719865}, {0.5, 0.13125, -0.2846372317342192}, {0.4375, 0.13125, -0.27570259534275265`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37224576601495496`, 0.07533022978133778, -0.25704257059955177`}, { 0.43606178343679985`, 0.09403587036056345, -0.2821000098861615}, { 0.37226551888692827`, 0.0939937375870576, -0.2559828799762671}, { 0.37775423398504504`, 0.07466977021866221, -0.24704257059955176`}, { 0.43893821656320015`, 0.09346412963943655, -0.2721000098861615}, { 0.37773448111307173`, 0.0935062624129424, -0.2459828799762671}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 40], -0.25204257059955176`}, {0.4375, Rational[3, 32], -0.2771000098861615}, {0.375, Rational[3, 32], -0.2509828799762671}}, {{0.375, 0.075, -0.25204257059955176`}, {0.4375, 0.09375, -0.2771000098861615}, {0.375, 0.09375, -0.2509828799762671}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43606178343679985`, 0.09403587036056345, -0.2821000098861615}, { 0.5000000000000128, 0.11269725073361374`, -0.290183957134191}, { 0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.43893821656320015`, 0.09346412963943655, -0.2721000098861615}, { 0.4999999999999873, 0.11230274926638627`, -0.280183957134191}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 32], -0.2771000098861615}, {0.5, Rational[9, 80], -0.285183957134191}, {0.4375, Rational[9, 80], -0.2762226642719865}}, {{0.4375, 0.09375, -0.2771000098861615}, {0.5, 0.1125, -0.285183957134191}, {0.4375, 0.1125, -0.2762226642719865}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37226551888692827`, 0.0939937375870576, -0.2559828799762671}, { 0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.37227966033425813`, 0.11266107845764542`, -0.2552372850584218}, { 0.37773448111307173`, 0.0935062624129424, -0.2459828799762671}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}, { 0.37772033966574187`, 0.11233892154235459`, -0.2452372850584218}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 32], -0.2509828799762671}, {0.4375, Rational[9, 80], -0.2762226642719865}, {0.375, Rational[9, 80], -0.2502372850584218}}, {{0.375, 0.09375, -0.2509828799762671}, {0.4375, 0.1125, -0.2762226642719865}, {0.375, 0.1125, -0.2502372850584218}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43606178343679985`, 0.09403587036056345, -0.2821000098861615}, { 0.4360687146346612, 0.11268808291330226`, -0.2812226642719865}, { 0.37226551888692827`, 0.0939937375870576, -0.2559828799762671}, { 0.43893821656320015`, 0.09346412963943655, -0.2721000098861615}, { 0.4389312853653388, 0.11231191708669774`, -0.2712226642719865}, { 0.37773448111307173`, 0.0935062624129424, -0.2459828799762671}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 32], -0.2771000098861615}, {0.4375, Rational[9, 80], -0.2762226642719865}, {0.375, Rational[3, 32], -0.2509828799762671}}, {{0.4375, 0.09375, -0.2771000098861615}, {0.4375, 0.1125, -0.2762226642719865}, {0.375, 0.09375, -0.2509828799762671}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24540197322895727`, 0.000248100233822173, -0.1679121949140747}, { 0.30858710676541823`, 0.019195529365532066`, -0.2199203710758589}, { 0.24547165508398885`, 0.018967982728788736`, -0.16706170179552238`}, { 0.25459802677104276`, -0.000248100233822173, \ -0.15791219491407468`}, {0.31641289323458177`, 0.018304470634467933`, -0.2099203710758589}, { 0.2545283449160112, 0.018532017271211263`, -0.15706170179552237`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, 0, -0.1629121949140747}, {0.3125, Rational[3, 160], -0.2149203710758589}, {0.25, Rational[3, 160], -0.16206170179552237`}}, {{0.25, 0, -0.1629121949140747}, {0.3125, 0.01875, -0.2149203710758589}, {0.25, 0.01875, -0.16206170179552237`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30858710676541823`, 0.019195529365532062`, -0.2199203710758589}, { 0.3721864036761843, 0.03802002784039428, -0.260173851027622}, { 0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.31641289323458177`, 0.018304470634467936`, -0.2099203710758589}, { 0.3778135963238157, 0.03697997215960572, -0.250173851027622}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 160], -0.2149203710758589}, {0.375, Rational[3, 80], -0.255173851027622}, {0.3125, Rational[3, 80], -0.21341403647364846`}}, {{0.3125, 0.01875, -0.2149203710758589}, {0.375, 0.0375, -0.255173851027622}, {0.3125, 0.0375, -0.21341403647364846`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24547165508398883`, 0.018967982728788736`, -0.16706170179552238`}, { 0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.24553440616482325`, 0.0376887892216544, -0.1663163990758976}, { 0.2545283449160112, 0.018532017271211263`, -0.15706170179552237`}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 160], -0.16206170179552237`}, {0.3125, Rational[3, 80], -0.21341403647364846`}, {0.25, Rational[3, 80], -0.1613163990758976}}, {{0.25, 0.01875, -0.16206170179552237`}, {0.3125, 0.0375, -0.21341403647364846`}, {0.25, 0.0375, -0.1613163990758976}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30858710676541823`, 0.019195529365532062`, -0.2199203710758589}, { 0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.24547165508398885`, 0.018967982728788736`, -0.16706170179552238`}, { 0.31641289323458177`, 0.018304470634467936`, -0.2099203710758589}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}, { 0.2545283449160112, 0.018532017271211263`, -0.15706170179552237`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 160], -0.2149203710758589}, {0.3125, Rational[3, 80], -0.21341403647364846`}, {0.25, Rational[3, 160], -0.16206170179552237`}}, {{0.3125, 0.01875, -0.2149203710758589}, {0.3125, 0.0375, -0.21341403647364846`}, {0.25, 0.01875, -0.16206170179552237`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37218640367618433`, 0.03802002784039428, -0.260173851027622}, { 0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.37781359632381567`, 0.03697997215960572, -0.250173851027622}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 80], -0.255173851027622}, {0.4375, Rational[9, 160], -0.2799911524977791}, {0.375, Rational[9, 160], -0.25343239278520563`}}, {{0.375, 0.0375, -0.255173851027622}, {0.4375, 0.05625, -0.2799911524977791}, {0.375, 0.05625, -0.25343239278520563`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.5000000000000133, 0.07540848378370749, -0.29242311991946546`}, { 0.4360516690369848, 0.07538842473686395, -0.2833493407495935}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}, { 0.4999999999999867, 0.07459151621629251, -0.28242311991946545`}, { 0.4389483309630152, 0.07461157526313604, -0.2733493407495935}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 160], -0.2799911524977791}, {0.5, Rational[3, 40], -0.28742311991946545`}, {0.4375, Rational[3, 40], -0.2783493407495935}}, {{0.4375, 0.05625, -0.2799911524977791}, {0.5, 0.075, -0.28742311991946545`}, {0.4375, 0.075, -0.2783493407495935}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.4360516690369848, 0.07538842473686395, -0.2833493407495935}, { 0.37224576601495496`, 0.07533022978133778, -0.25704257059955177`}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}, { 0.4389483309630152, 0.07461157526313604, -0.2733493407495935}, { 0.37775423398504504`, 0.07466977021866221, -0.24704257059955176`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 160], -0.25343239278520563`}, {0.4375, Rational[3, 40], -0.2783493407495935}, {0.375, Rational[3, 40], -0.25204257059955176`}}, {{0.375, 0.05625, -0.25343239278520563`}, {0.4375, 0.075, -0.2783493407495935}, {0.375, 0.075, -0.25204257059955176`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43603813095321986`, 0.056747313697787884`, -0.2849911524977791}, { 0.4360516690369848, 0.07538842473686395, -0.2833493407495935}, { 0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.43896186904678014`, 0.05575268630221212, -0.2749911524977791}, { 0.4389483309630152, 0.07461157526313604, -0.2733493407495935}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 160], -0.2799911524977791}, {0.4375, Rational[3, 40], -0.2783493407495935}, {0.375, Rational[9, 160], -0.25343239278520563`}}, {{0.4375, 0.05625, -0.2799911524977791}, {0.4375, 0.075, -0.2783493407495935}, {0.375, 0.05625, -0.25343239278520563`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24553440616482325`, 0.0376887892216544, -0.1663163990758976}, { 0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.24558482099834505`, 0.0564095280627964, -0.16567623342672996`}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}, { 0.25441517900165495`, 0.0560904719372036, -0.15567623342672995`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 80], -0.1613163990758976}, {0.3125, Rational[9, 160], -0.21216926841778416`}, {0.25, Rational[9, 160], -0.16067623342672996`}}, {{0.25, 0.0375, -0.1613163990758976}, {0.3125, 0.05625, -0.21216926841778416`}, {0.25, 0.05625, -0.16067623342672996`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.3722457660149549, 0.07533022978133778, -0.25704257059955177`}, { 0.30872367347497626`, 0.0752391295023525, -0.21616946927084751`}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}, { 0.3777542339850451, 0.07466977021866221, -0.24704257059955176`}, { 0.31627632652502374`, 0.0747608704976475, -0.2061694692708475}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 160], -0.21216926841778416`}, {0.375, Rational[3, 40], -0.25204257059955176`}, {0.3125, Rational[3, 40], -0.2111694692708475}}, {{0.3125, 0.05625, -0.21216926841778416`}, {0.375, 0.075, -0.25204257059955176`}, {0.3125, 0.075, -0.2111694692708475}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24558482099834503`, 0.0564095280627964, -0.16567623342672996`}, { 0.3087236734749763, 0.0752391295023525, -0.21616946927084751`}, { 0.24562471971890285`, 0.07512992884550725, -0.16514434140528597`}, { 0.25441517900165495`, 0.0560904719372036, -0.15567623342672995`}, { 0.3162763265250237, 0.0747608704976475, -0.2061694692708475}, { 0.2543752802810972, 0.07487007115449275, -0.15514434140528596`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 160], -0.16067623342672996`}, {0.3125, Rational[3, 40], -0.2111694692708475}, {0.25, Rational[3, 40], -0.16014434140528597`}}, {{0.25, 0.05625, -0.16067623342672996`}, {0.3125, 0.075, -0.2111694692708475}, {0.25, 0.075, -0.16014434140528597`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.30872367347497626`, 0.0752391295023525, -0.21616946927084751`}, { 0.24558482099834505`, 0.0564095280627964, -0.16567623342672996`}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}, { 0.31627632652502374`, 0.0747608704976475, -0.2061694692708475}, { 0.254415179001655, 0.0560904719372036, -0.15567623342672995`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 160], -0.21216926841778416`}, {0.3125, Rational[3, 40], -0.2111694692708475}, {0.25, Rational[9, 160], -0.16067623342672996`}}, {{0.3125, 0.05625, -0.21216926841778416`}, {0.3125, 0.075, -0.2111694692708475}, {0.25, 0.05625, -0.16067623342672996`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37218640367618433`, 0.03802002784039428, -0.260173851027622}, { 0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.37781359632381567`, 0.03697997215960572, -0.250173851027622}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 80], -0.255173851027622}, {0.375, Rational[9, 160], -0.25343239278520563`}, {0.3125, Rational[3, 80], -0.21341403647364846`}}, {{0.375, 0.0375, -0.255173851027622}, {0.375, 0.05625, -0.25343239278520563`}, {0.3125, 0.0375, -0.21341403647364846`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.37224576601495496`, 0.07533022978133778, -0.25704257059955177`}, { 0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}, { 0.37775423398504504`, 0.07466977021866221, -0.24704257059955176`}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 160], -0.25343239278520563`}, {0.375, Rational[3, 40], -0.25204257059955176`}, {0.3125, Rational[9, 160], -0.21216926841778416`}}, {{0.375, 0.05625, -0.25343239278520563`}, {0.375, 0.075, -0.25204257059955176`}, {0.3125, 0.05625, -0.21216926841778416`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.24553440616482325`, 0.0376887892216544, -0.1663163990758976}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}, { 0.25446559383517675`, 0.0373112107783456, -0.1563163990758976}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 80], -0.21341403647364846`}, {0.3125, Rational[9, 160], -0.21216926841778416`}, {0.25, Rational[3, 80], -0.1613163990758976}}, {{0.3125, 0.0375, -0.21341403647364846`}, {0.3125, 0.05625, -0.21216926841778416`}, {0.25, 0.0375, -0.1613163990758976}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574934379, 0.0566718238129916, -0.25843239278520563`}, { 0.30868797394364456`, 0.0565535044909853, -0.21716926841778417`}, { 0.30864252598843095`, 0.03787186842469809, -0.21841403647364846`}, { 0.3777804425065621, 0.0558281761870084, -0.24843239278520562`}, { 0.31631202605635544`, 0.055946495509014704`, -0.20716926841778416`}, { 0.31635747401156905`, 0.037128131575301905`, -0.20841403647364845`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 160], -0.25343239278520563`}, {0.3125, Rational[9, 160], -0.21216926841778416`}, {0.3125, Rational[3, 80], -0.21341403647364846`}}, {{0.375, 0.05625, -0.25343239278520563`}, {0.3125, 0.05625, -0.21216926841778416`}, {0.3125, 0.0375, -0.21341403647364846`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000169, 0.0009300925808958502, -0.30214942114175164`}, { 0.5640225880201823, 0.0008784051546030582, -0.2925696305318798}, { 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.4999999999999832, -0.0009300925808958502, \ -0.29214942114175163`}, { 0.5609774119798177, -0.0008784051546030582, \ -0.2825696305318798}, {0.49999999999998374`, 0.017968546783047788`, -0.2889748021482697}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, 0, -0.29714942114175164`}, {0.5625, 0, -0.2875696305318798}, {0.5, Rational[3, 160], -0.2939748021482697}}, {{0.5, 0, -0.29714942114175164`}, {0.5625, 0, -0.2875696305318798}, {0.5, 0.01875, -0.2939748021482697}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5640225880201823, 0.0008784051546030582, -0.2925696305318798}, { 0.6278966266658419, 0.000742875733428043, -0.2648283891969305}, { 0.5640000681347482, 0.01949067474058141, -0.2895649177550596}, { 0.5609774119798177, -0.0008784051546030582, \ -0.2825696305318798}, { 0.6221033733341581, -0.000742875733428043, \ -0.2548283891969305}, {0.5609999318652518, 0.018009325259418587`, -0.2795649177550596}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, 0, -0.2875696305318798}, {0.625, 0, -0.2598283891969305}, {0.5625, Rational[3, 160], -0.2845649177550596}}, {{0.5625, 0, -0.2875696305318798}, {0.625, 0, -0.2598283891969305}, {0.5625, 0.01875, -0.2845649177550596}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.5640000681347482, 0.01949067474058141, -0.2895649177550596}, { 0.5000000000000158, 0.038146868703605216`, -0.2963246101724172}, { 0.4999999999999837, 0.017968546783047788`, -0.2889748021482697}, { 0.5609999318652518, 0.018009325259418587`, -0.2795649177550596}, { 0.49999999999998423`, 0.03685313129639478, -0.28632461017241717`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 160], -0.2939748021482697}, {0.5625, Rational[3, 160], -0.2845649177550596}, {0.5, Rational[3, 80], -0.2913246101724172}}, {{0.5, 0.01875, -0.2939748021482697}, {0.5625, 0.01875, -0.2845649177550596}, {0.5, 0.0375, -0.2913246101724172}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5640225880201823, 0.0008784051546030582, -0.2925696305318798}, { 0.5640000681347482, 0.01949067474058141, -0.2895649177550596}, { 0.5000000000000163, 0.01953145321695221, -0.2989748021482697}, { 0.5609774119798177, -0.0008784051546030582, \ -0.2825696305318798}, {0.5609999318652518, 0.018009325259418587`, -0.2795649177550596}, { 0.4999999999999837, 0.017968546783047788`, -0.2889748021482697}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, 0, -0.2875696305318798}, {0.5625, Rational[3, 160], -0.2845649177550596}, {0.5, Rational[3, 160], -0.2939748021482697}}, {{0.5625, 0, -0.2875696305318798}, {0.5625, 0.01875, -0.2845649177550596}, {0.5, 0.01875, -0.2939748021482697}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278966266658419, 0.000742875733428043, -0.2648283891969305}, { 0.6914729923897491, 0.0005259299057040898, -0.22171048438652918`}, { 0.627853677200273, 0.01937649911405178, -0.262294436250318}, { 0.6221033733341581, -0.000742875733428043, \ -0.2548283891969305}, { 0.6835270076102509, -0.0005259299057040898, \ -0.21171048438652917`}, {0.622146322799727, 0.01812350088594822, -0.252294436250318}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, 0, -0.2598283891969305}, {0.6875, 0, -0.21671048438652918`}, {0.625, Rational[3, 160], -0.257294436250318}}, {{0.625, 0, -0.2598283891969305}, {0.6875, 0, -0.21671048438652918`}, {0.625, 0.01875, -0.257294436250318}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6914729923897491, 0.0005259299057040898, -0.22171048438652918`}, { 0.7545980267710237, 0.0002481002338099362, -0.16791219491326287`}, { 0.691412893234577, 0.019195529365517255`, -0.21992037107494955`}, { 0.6835270076102509, -0.0005259299057040898, \ -0.21171048438652917`}, { 0.7454019732289763, -0.0002481002338099362, \ -0.15791219491326286`}, {0.683587106765423, 0.018304470634482744`, -0.20992037107494954`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, 0, -0.21671048438652918`}, {0.75, 0, -0.16291219491326286`}, {0.6875, Rational[3, 160], -0.21492037107494955`}}, {{0.6875, 0, -0.21671048438652918`}, {0.75, 0, -0.16291219491326286`}, {0.6875, 0.01875, -0.21492037107494955`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.627853677200273, 0.019376499114051777`, -0.262294436250318}, { 0.691412893234577, 0.019195529365517255`, -0.21992037107494955`}, { 0.6278135963238365, 0.03802002784038707, -0.2601738510268566}, { 0.622146322799727, 0.018123500885948222`, -0.252294436250318}, { 0.683587106765423, 0.018304470634482744`, -0.20992037107494954`}, { 0.6221864036761635, 0.03697997215961293, -0.2501738510268566}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 160], -0.257294436250318}, {0.6875, Rational[3, 160], -0.21492037107494955`}, {0.625, Rational[3, 80], -0.2551738510268566}}, {{0.625, 0.01875, -0.257294436250318}, {0.6875, 0.01875, -0.21492037107494955`}, {0.625, 0.0375, -0.2551738510268566}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6914729923897491, 0.0005259299057040898, -0.22171048438652918`}, { 0.691412893234577, 0.019195529365517255`, -0.21992037107494955`}, { 0.627853677200273, 0.019376499114051777`, -0.262294436250318}, { 0.6835270076102509, -0.0005259299057040898, \ -0.21171048438652917`}, {0.683587106765423, 0.018304470634482744`, -0.20992037107494954`}, { 0.622146322799727, 0.018123500885948222`, -0.252294436250318}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, 0, -0.21671048438652918`}, {0.6875, Rational[3, 160], -0.21492037107494955`}, {0.625, Rational[3, 160], -0.257294436250318}}, {{0.6875, 0, -0.21671048438652918`}, {0.6875, 0.01875, -0.21492037107494955`}, {0.625, 0.01875, -0.257294436250318}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000158, 0.038146868703605216`, -0.2963246101724172}, { 0.5639790905564246, 0.03811417593032866, -0.28705202046562833`}, { 0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.4999999999999843, 0.03685313129639478, -0.28632461017241717`}, { 0.5610209094435754, 0.036885824069671336`, -0.2770520204656283}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 80], -0.2913246101724172}, {0.5625, Rational[3, 80], -0.28205202046562833`}, {0.5, Rational[9, 160], -0.28915273072256226`}}, {{0.5, 0.0375, -0.2913246101724172}, {0.5625, 0.0375, -0.28205202046562833`}, {0.5, 0.05625, -0.28915273072256226`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639790905564245, 0.03811417593032866, -0.28705202046562833`}, { 0.6278135963238365, 0.03802002784038707, -0.2601738510268566}, { 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.5610209094435755, 0.036885824069671336`, -0.2770520204656283}, { 0.6221864036761635, 0.03697997215961293, -0.2501738510268566}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 80], -0.28205202046562833`}, {0.625, Rational[3, 80], -0.2551738510268566}, {0.5625, Rational[9, 160], -0.27999115249737894`}}, {{0.5625, 0.0375, -0.28205202046562833`}, {0.625, 0.0375, -0.2551738510268566}, {0.5625, 0.05625, -0.27999115249737894`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.5000000000000133, 0.0754084837837075, -0.29242311991946546`}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}, { 0.4999999999999866, 0.0745915162162925, -0.28242311991946545`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[9, 160], -0.28915273072256226`}, {0.5625, Rational[9, 160], -0.27999115249737894`}, {0.5, Rational[3, 40], -0.28742311991946545`}}, {{0.5, 0.05625, -0.28915273072256226`}, {0.5625, 0.05625, -0.27999115249737894`}, {0.5, 0.075, -0.28742311991946545`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639790905564245, 0.03811417593032866, -0.28705202046562833`}, { 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.5000000000000149, 0.05677332530528361, -0.29415273072256226`}, { 0.5610209094435755, 0.036885824069671336`, -0.2770520204656283}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}, { 0.49999999999998507`, 0.05572667469471639, -0.28415273072256225`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 80], -0.28205202046562833`}, {0.5625, Rational[9, 160], -0.27999115249737894`}, {0.5, Rational[9, 160], -0.28915273072256226`}}, {{0.5625, 0.0375, -0.28205202046562833`}, {0.5625, 0.05625, -0.27999115249737894`}, {0.5, 0.05625, -0.28915273072256226`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278966266658419, 0.000742875733428043, -0.2648283891969305}, { 0.627853677200273, 0.01937649911405178, -0.262294436250318}, { 0.5640000681347483, 0.01949067474058141, -0.2895649177550596}, { 0.6221033733341581, -0.000742875733428043, \ -0.2548283891969305}, {0.622146322799727, 0.01812350088594822, -0.252294436250318}, { 0.5609999318652517, 0.018009325259418587`, -0.2795649177550596}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, 0, -0.2598283891969305}, {0.625, Rational[3, 160], -0.257294436250318}, {0.5625, Rational[3, 160], -0.2845649177550596}}, {{0.625, 0, -0.2598283891969305}, {0.625, 0.01875, -0.257294436250318}, {0.5625, 0.01875, -0.2845649177550596}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.627853677200273, 0.019376499114051777`, -0.262294436250318}, { 0.6278135963238365, 0.03802002784038707, -0.2601738510268566}, { 0.5639790905564245, 0.038114175930328655`, -0.28705202046562833`}, { 0.622146322799727, 0.018123500885948222`, -0.252294436250318}, { 0.6221864036761635, 0.03697997215961293, -0.2501738510268566}, { 0.5610209094435755, 0.03688582406967134, -0.2770520204656283}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 160], -0.257294436250318}, {0.625, Rational[3, 80], -0.2551738510268566}, {0.5625, Rational[3, 80], -0.28205202046562833`}}, {{0.625, 0.01875, -0.257294436250318}, {0.625, 0.0375, -0.2551738510268566}, {0.5625, 0.0375, -0.28205202046562833`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5640000681347482, 0.01949067474058141, -0.2895649177550596}, { 0.5639790905564245, 0.03811417593032866, -0.28705202046562833`}, { 0.5000000000000157, 0.038146868703605216`, -0.2963246101724172}, { 0.5609999318652518, 0.018009325259418587`, -0.2795649177550596}, { 0.5610209094435755, 0.036885824069671336`, -0.2770520204656283}, { 0.4999999999999843, 0.03685313129639478, -0.28632461017241717`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 160], -0.2845649177550596}, {0.5625, Rational[3, 80], -0.28205202046562833`}, {0.5, Rational[3, 80], -0.2913246101724172}}, {{0.5625, 0.01875, -0.2845649177550596}, {0.5625, 0.0375, -0.28205202046562833`}, {0.5, 0.0375, -0.2913246101724172}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.627853677200273, 0.019376499114051777`, -0.262294436250318}, { 0.5639790905564245, 0.038114175930328655`, -0.28705202046562833`}, { 0.5640000681347482, 0.01949067474058141, -0.2895649177550596}, { 0.622146322799727, 0.018123500885948222`, -0.252294436250318}, { 0.5610209094435755, 0.03688582406967134, -0.2770520204656283}, { 0.5609999318652518, 0.018009325259418587`, -0.2795649177550596}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 160], -0.257294436250318}, {0.5625, Rational[3, 80], -0.28205202046562833`}, {0.5625, Rational[3, 160], -0.2845649177550596}}, {{0.625, 0.01875, -0.257294436250318}, {0.5625, 0.0375, -0.28205202046562833`}, {0.5625, 0.01875, -0.2845649177550596}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545980267710237, 0.00024810023380993627`, -0.16791219491326287`}, { 0.8171166105506528, -0.00005268724452336433, \ -0.11006547319750218`}, {0.7545283449159937, 0.018967982728777408`, -0.16706170179475394`}, { 0.7454019732289763, -0.00024810023380993627`, \ -0.15791219491326286`}, {0.8078833894493472, 0.00005268724452336433, -0.10006547319750217`}, { 0.7454716550840063, 0.01853201727122259, -0.15706170179475393`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, 0, -0.16291219491326286`}, {0.8125, 0, -0.10506547319750217`}, {0.75, Rational[3, 160], -0.16206170179475393`}}, {{0.75, 0, -0.16291219491326286`}, {0.8125, 0, -0.10506547319750217`}, {0.75, 0.01875, -0.16206170179475393`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.8171166105506528, -0.000052687244523364365`, \ -0.11006547319750218`}, { 0.878865602851843, -0.00030167495342101714`, \ -0.05680638916500539}, {0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.8078833894493472, 0.000052687244523364365`, -0.10006547319750217`}, { 0.871134397148157, 0.00030167495342101714`, -0.046806389165005395`}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, 0, -0.10506547319750217`}, {0.875, 0, -0.05180638916500539}, {0.8125, Rational[3, 160], -0.10520278952514557`}}, {{0.8125, 0, -0.10506547319750217`}, {0.875, 0, -0.05180638916500539}, {0.8125, 0.01875, -0.10520278952514557`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545283449159936, 0.018967982728777404`, -0.16706170179475394`}, { 0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.7454716550840064, 0.018532017271222594`, -0.15706170179475393`}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 160], -0.16206170179475393`}, {0.8125, Rational[3, 160], -0.10520278952514557`}, {0.75, Rational[3, 80], -0.1613163990751694}}, {{0.75, 0.01875, -0.16206170179475393`}, {0.8125, 0.01875, -0.10520278952514557`}, {0.75, 0.0375, -0.1613163990751694}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.8171166105506528, -0.000052687244523364365`, \ -0.11006547319750218`}, {0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.7545283449159936, 0.018967982728777404`, -0.16706170179475394`}, { 0.8078833894493472, 0.000052687244523364365`, -0.10006547319750217`}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}, { 0.7454716550840064, 0.018532017271222594`, -0.15706170179475393`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, 0, -0.10506547319750217`}, {0.8125, Rational[3, 160], -0.10520278952514557`}, {0.75, Rational[3, 160], -0.16206170179475393`}}, {{0.8125, 0, -0.10506547319750217`}, {0.8125, 0.01875, -0.10520278952514557`}, {0.75, 0.01875, -0.16206170179475393`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.878865602851843, -0.00030167495342101714`, \ -0.05680638916500539}, { 0.9397355033288786, -0.0003344713593918867, \ -0.018547689779761622`}, {0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.871134397148157, 0.00030167495342101714`, -0.046806389165005395`}, { 0.9352644966711214, 0.0003344713593918867, -0.008547689779761624}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, 0, -0.05180638916500539}, {0.9375, 0, -0.013547689779761623`}, {0.875, Rational[3, 160], -0.05268974771022102}}, {{0.875, 0, -0.05180638916500539}, {0.9375, 0, -0.013547689779761623`}, {0.875, 0.01875, -0.05268974771022102}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.9397355033288786, -0.0003344713593918867, \ -0.018547689779761622`}, {1., 0., -0.005}, {0.9397840011259049, 0.01857944966382229, -0.019374891847335266`}, { 0.9352644966711214, 0.0003344713593918867, -0.008547689779761624}, {1., 0., 0.005}, {0.9352159988740951, 0.01892055033617771, -0.009374891847335268}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, 0, -0.013547689779761623`}, {1., 0, 0.}, {0.9375, Rational[3, 160], -0.014374891847335267`}}, {{0.9375, 0, -0.013547689779761623`}, {1., 0, 0.}, {0.9375, 0.01875, -0.014374891847335267`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.9397840011259049, 0.018579449663822287`, -0.019374891847335266`}, { 0.878808624871332, 0.03738068731794896, -0.05822992154847933}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}, { 0.9352159988740951, 0.018920550336177712`, -0.009374891847335268}, { 0.871191375128668, 0.037619312682051036`, -0.04822992154847933}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 160], -0.05268974771022102}, {0.9375, Rational[3, 160], -0.014374891847335267`}, {0.875, Rational[3, 80], -0.05322992154847933}}, {{0.875, 0.01875, -0.05268974771022102}, {0.9375, 0.01875, -0.014374891847335267`}, {0.875, 0.0375, -0.05322992154847933}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.9397355033288786, -0.0003344713593918867, \ -0.018547689779761622`}, {0.9397840011259049, 0.01857944966382229, -0.019374891847335266`}, { 0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.9352644966711214, 0.0003344713593918867, -0.008547689779761624}, { 0.9352159988740951, 0.01892055033617771, -0.009374891847335268}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, 0, -0.013547689779761623`}, {0.9375, Rational[3, 160], -0.014374891847335267`}, {0.875, Rational[3, 160], -0.05268974771022102}}, {{0.9375, 0, -0.013547689779761623`}, {0.9375, 0.01875, -0.014374891847335267`}, {0.875, 0.01875, -0.05268974771022102}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.7544151790016406, 0.05640952806278749, -0.16567623342603857`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}, { 0.7455848209983594, 0.05609047193721251, -0.15567623342603856`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 80], -0.1613163990751694}, {0.8125, Rational[3, 80], -0.10522554000089367`}, {0.75, Rational[9, 160], -0.16067623342603857`}}, {{0.75, 0.0375, -0.1613163990751694}, {0.8125, 0.0375, -0.10522554000089367`}, {0.75, 0.05625, -0.16067623342603857`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.878808624871332, 0.037380687317948955`, -0.05822992154847933}, { 0.8169502239708222, 0.05627060300245393, -0.11017399070111651`}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}, { 0.871191375128668, 0.03761931268205104, -0.04822992154847933}, { 0.8080497760291778, 0.056229396997546074`, -0.1001739907011165}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 80], -0.10522554000089367`}, {0.875, Rational[3, 80], -0.05322992154847933}, {0.8125, Rational[9, 160], -0.10517399070111651`}}, {{0.8125, 0.0375, -0.10522554000089367`}, {0.875, 0.0375, -0.05322992154847933}, {0.8125, 0.05625, -0.10517399070111651`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790016407, 0.05640952806278749, -0.16567623342603857`}, { 0.8169502239708222, 0.05627060300245392, -0.11017399070111651`}, { 0.7543752802810847, 0.07512992884549909, -0.1651443414046265}, { 0.7455848209983593, 0.05609047193721251, -0.15567623342603856`}, { 0.8080497760291778, 0.05622939699754608, -0.1001739907011165}, { 0.7456247197189153, 0.07487007115450091, -0.1551443414046265}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 160], -0.16067623342603857`}, {0.8125, Rational[9, 160], -0.10517399070111651`}, {0.75, Rational[3, 40], -0.1601443414046265}}, {{0.75, 0.05625, -0.16067623342603857`}, {0.8125, 0.05625, -0.10517399070111651`}, {0.75, 0.075, -0.1601443414046265}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.8169502239708222, 0.05627060300245393, -0.11017399070111651`}, { 0.7544151790016407, 0.05640952806278749, -0.16567623342603857`}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}, { 0.8080497760291778, 0.056229396997546074`, -0.1001739907011165}, { 0.7455848209983593, 0.05609047193721251, -0.15567623342603856`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 80], -0.10522554000089367`}, {0.8125, Rational[9, 160], -0.10517399070111651`}, {0.75, Rational[9, 160], -0.16067623342603857`}}, {{0.8125, 0.0375, -0.10522554000089367`}, {0.8125, 0.05625, -0.10517399070111651`}, {0.75, 0.05625, -0.16067623342603857`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.878865602851843, -0.00030167495342101714`, \ -0.05680638916500539}, {0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.871134397148157, 0.00030167495342101714`, -0.046806389165005395`}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, 0, -0.05180638916500539}, {0.875, Rational[3, 160], -0.05268974771022102}, {0.8125, Rational[3, 160], -0.10520278952514557`}}, {{0.875, 0, -0.05180638916500539}, {0.875, 0.01875, -0.05268974771022102}, {0.8125, 0.01875, -0.10520278952514557`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.878808624871332, 0.03738068731794896, -0.05822992154847933}, { 0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}, { 0.871191375128668, 0.037619312682051036`, -0.04822992154847933}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 160], -0.05268974771022102}, {0.875, Rational[3, 80], -0.05322992154847933}, {0.8125, Rational[3, 80], -0.10522554000089367`}}, {{0.875, 0.01875, -0.05268974771022102}, {0.875, 0.0375, -0.05322992154847933}, {0.8125, 0.0375, -0.10522554000089367`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 160], -0.10520278952514557`}, {0.8125, Rational[3, 80], -0.10522554000089367`}, {0.75, Rational[3, 80], -0.1613163990751694}}, {{0.8125, 0.01875, -0.10520278952514557`}, {0.8125, 0.0375, -0.10522554000089367`}, {0.75, 0.0375, -0.1613163990751694}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.878833879613854, 0.018554859282678388`, -0.05768974771022102}, { 0.8169952539309027, 0.03750532604322019, -0.11022554000089367`}, { 0.8170515200996539, 0.01873134298138655, -0.11020278952514558`}, { 0.871166120386146, 0.01894514071732161, -0.047689747710221025`}, { 0.8080047460690973, 0.03749467395677981, -0.10022554000089366`}, { 0.8079484799003461, 0.01876865701861345, -0.10020278952514557`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 160], -0.05268974771022102}, {0.8125, Rational[3, 80], -0.10522554000089367`}, {0.8125, Rational[3, 160], -0.10520278952514557`}}, {{0.875, 0.01875, -0.05268974771022102}, {0.8125, 0.0375, -0.10522554000089367`}, {0.8125, 0.01875, -0.10520278952514557`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000133, 0.07540848378370749, -0.29242311991946546`}, { 0.5639483309630485, 0.0753884247368591, -0.2833493407492083}, { 0.5000000000000134, 0.09405037398651088, -0.29110741229591147`}, { 0.4999999999999867, 0.07459151621629251, -0.28242311991946545`}, { 0.5610516690369515, 0.0746115752631409, -0.2733493407492083}, { 0.49999999999998657`, 0.09344962601348912, -0.28110741229591146`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 40], -0.28742311991946545`}, {0.5625, Rational[3, 40], -0.2783493407492083}, {0.5, Rational[3, 32], -0.28610741229591147`}}, {{0.5, 0.075, -0.28742311991946545`}, {0.5625, 0.075, -0.2783493407492083}, {0.5, 0.09375, -0.28610741229591147`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639483309630485, 0.07538842473685911, -0.2833493407492083}, { 0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.5639382165632301, 0.09403587036055562, -0.28210000988579986`}, { 0.5610516690369515, 0.07461157526314088, -0.2733493407492083}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}, { 0.5610617834367699, 0.09346412963944438, -0.27210000988579985`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 40], -0.2783493407492083}, {0.625, Rational[3, 40], -0.25204257059886226`}, {0.5625, Rational[3, 32], -0.27710000988579986`}}, {{0.5625, 0.075, -0.2783493407492083}, {0.625, 0.075, -0.25204257059886226`}, {0.5625, 0.09375, -0.27710000988579986`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000134, 0.09405037398651088, -0.29110741229591147`}, { 0.5639382165632301, 0.0940358703605556, -0.28210000988579986`}, { 0.5000000000000127, 0.11269725073361374`, -0.290183957134191}, { 0.49999999999998657`, 0.09344962601348912, -0.28110741229591146`}, { 0.5610617834367699, 0.0934641296394444, -0.27210000988579985`}, { 0.49999999999998734`, 0.11230274926638627`, -0.280183957134191}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 32], -0.28610741229591147`}, {0.5625, Rational[3, 32], -0.27710000988579986`}, {0.5, Rational[9, 80], -0.285183957134191}}, {{0.5, 0.09375, -0.28610741229591147`}, {0.5625, 0.09375, -0.27710000988579986`}, {0.5, 0.1125, -0.285183957134191}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639483309630485, 0.07538842473685911, -0.2833493407492083}, { 0.5639382165632301, 0.09403587036055562, -0.28210000988579986`}, { 0.5000000000000134, 0.09405037398651088, -0.29110741229591147`}, { 0.5610516690369515, 0.07461157526314088, -0.2733493407492083}, { 0.5610617834367699, 0.09346412963944438, -0.27210000988579985`}, { 0.4999999999999865, 0.09344962601348912, -0.28110741229591146`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 40], -0.2783493407492083}, {0.5625, Rational[3, 32], -0.27710000988579986`}, {0.5, Rational[3, 32], -0.28610741229591147`}}, {{0.5625, 0.075, -0.2783493407492083}, {0.5625, 0.09375, -0.27710000988579986`}, {0.5, 0.09375, -0.28610741229591147`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.6912763265250205, 0.07523912950233883, -0.21616946927008848`}, { 0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}, { 0.6837236734749795, 0.07476087049766117, -0.20616946927008847`}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 40], -0.25204257059886226`}, {0.6875, Rational[3, 40], -0.21116946927008848`}, {0.625, Rational[3, 32], -0.2509828799756292}}, {{0.625, 0.075, -0.25204257059886226`}, {0.6875, 0.075, -0.21116946927008848`}, {0.625, 0.09375, -0.2509828799756292}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912763265250205, 0.07523912950233883, -0.21616946927008848`}, { 0.7543752802810846, 0.07512992884549909, -0.1651443414046265}, { 0.6912489223283798, 0.09392782474230069, -0.215402711061863}, { 0.6837236734749795, 0.07476087049766117, -0.20616946927008847`}, { 0.7456247197189154, 0.07487007115450091, -0.1551443414046265}, { 0.6837510776716202, 0.09357217525769931, -0.205402711061863}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 40], -0.21116946927008848`}, {0.75, Rational[3, 40], -0.1601443414046265}, {0.6875, Rational[3, 32], -0.210402711061863}}, {{0.6875, 0.075, -0.21116946927008848`}, {0.75, 0.075, -0.1601443414046265}, {0.6875, 0.09375, -0.210402711061863}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.6912489223283798, 0.09392782474230069, -0.215402711061863}, { 0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}, { 0.6837510776716202, 0.09357217525769931, -0.205402711061863}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 32], -0.2509828799756292}, {0.6875, Rational[3, 32], -0.210402711061863}, {0.625, Rational[9, 80], -0.25023728505783693`}}, {{0.625, 0.09375, -0.2509828799756292}, {0.6875, 0.09375, -0.210402711061863}, {0.625, 0.1125, -0.25023728505783693`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912763265250205, 0.07523912950233883, -0.21616946927008848`}, { 0.6912489223283798, 0.09392782474230069, -0.215402711061863}, { 0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.6837236734749795, 0.07476087049766117, -0.20616946927008847`}, { 0.6837510776716202, 0.09357217525769931, -0.205402711061863}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 40], -0.21116946927008848`}, {0.6875, Rational[3, 32], -0.210402711061863}, {0.625, Rational[3, 32], -0.2509828799756292}}, {{0.6875, 0.075, -0.21116946927008848`}, {0.6875, 0.09375, -0.210402711061863}, {0.625, 0.09375, -0.2509828799756292}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000127, 0.11269725073361374`, -0.290183957134191}, { 0.5639312853653654, 0.11268808291329352`, -0.2812226642716551}, { 0.5000000000000117, 0.13134754343722949`, -0.2896372317342192}, { 0.4999999999999873, 0.11230274926638627`, -0.280183957134191}, { 0.5610687146346346, 0.11231191708670649`, -0.2712226642716551}, { 0.4999999999999884, 0.13115245656277053`, -0.27963723173421917`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[9, 80], -0.285183957134191}, {0.5625, Rational[9, 80], -0.2762226642716551}, {0.5, Rational[21, 160], -0.2846372317342192}}, {{0.5, 0.1125, -0.285183957134191}, {0.5625, 0.1125, -0.2762226642716551}, {0.5, 0.13125, -0.2846372317342192}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639312853653655, 0.11268808291329352`, -0.2812226642716551}, { 0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.5610687146346345, 0.11231191708670649`, -0.2712226642716551}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 80], -0.2762226642716551}, {0.625, Rational[9, 80], -0.25023728505783693`}, {0.5625, Rational[21, 160], -0.2757025953424544}}, {{0.5625, 0.1125, -0.2762226642716551}, {0.625, 0.1125, -0.25023728505783693`}, {0.5625, 0.13125, -0.2757025953424544}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000117, 0.13134754343722946`, -0.2896372317342192}, { 0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.5000000000000105, 0.15000000000018363`, -0.2894572543497438}, { 0.49999999999998834`, 0.13115245656277055`, -0.27963723173421917`}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}, { 0.49999999999998945`, 0.14999999999981636`, -0.2794572543497438}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[21, 160], -0.2846372317342192}, {0.5625, Rational[21, 160], -0.2757025953424544}, {0.5, Rational[3, 20], -0.2844572543497438}}, {{0.5, 0.13125, -0.2846372317342192}, {0.5625, 0.13125, -0.2757025953424544}, {0.5, 0.15, -0.2844572543497438}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5639312853653655, 0.11268808291329352`, -0.2812226642716551}, { 0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.5000000000000117, 0.13134754343722946`, -0.2896372317342192}, { 0.5610687146346345, 0.11231191708670649`, -0.2712226642716551}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}, { 0.49999999999998834`, 0.13115245656277055`, -0.27963723173421917`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 80], -0.2762226642716551}, {0.5625, Rational[21, 160], -0.2757025953424544}, {0.5, Rational[21, 160], -0.2846372317342192}}, {{0.5625, 0.1125, -0.2762226642716551}, {0.5625, 0.13125, -0.2757025953424544}, {0.5, 0.13125, -0.2846372317342192}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.5639382165632301, 0.0940358703605556, -0.28210000988579986`}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}, { 0.5610617834367699, 0.0934641296394444, -0.27210000988579985`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 40], -0.25204257059886226`}, {0.625, Rational[3, 32], -0.2509828799756292}, {0.5625, Rational[3, 32], -0.27710000988579986`}}, {{0.625, 0.075, -0.25204257059886226`}, {0.625, 0.09375, -0.2509828799756292}, {0.5625, 0.09375, -0.27710000988579986`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.5639312853653655, 0.11268808291329352`, -0.2812226642716551}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}, { 0.5610687146346345, 0.11231191708670649`, -0.2712226642716551}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 32], -0.2509828799756292}, {0.625, Rational[9, 80], -0.25023728505783693`}, {0.5625, Rational[9, 80], -0.2762226642716551}}, {{0.625, 0.09375, -0.2509828799756292}, {0.625, 0.1125, -0.25023728505783693`}, {0.5625, 0.1125, -0.2762226642716551}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639382165632301, 0.0940358703605556, -0.28210000988579986`}, { 0.5639312853653654, 0.11268808291329352`, -0.2812226642716551}, { 0.5000000000000127, 0.11269725073361372`, -0.290183957134191}, { 0.5610617834367699, 0.0934641296394444, -0.27210000988579985`}, { 0.5610687146346346, 0.11231191708670649`, -0.2712226642716551}, { 0.4999999999999873, 0.11230274926638628`, -0.280183957134191}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 32], -0.27710000988579986`}, {0.5625, Rational[9, 80], -0.2762226642716551}, {0.5, Rational[9, 80], -0.285183957134191}}, {{0.5625, 0.09375, -0.27710000988579986`}, {0.5625, 0.1125, -0.2762226642716551}, {0.5, 0.1125, -0.285183957134191}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.6277344811130855, 0.09399373758704314, -0.2559828799756292}, { 0.5639312853653655, 0.11268808291329352`, -0.2812226642716551}, { 0.5639382165632301, 0.0940358703605556, -0.28210000988579986`}, { 0.6222655188869145, 0.09350626241295686, -0.24598287997562918`}, { 0.5610687146346345, 0.11231191708670649`, -0.2712226642716551}, { 0.5610617834367699, 0.0934641296394444, -0.27210000988579985`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 32], -0.2509828799756292}, {0.5625, Rational[9, 80], -0.2762226642716551}, {0.5625, Rational[3, 32], -0.27710000988579986`}}, {{0.625, 0.09375, -0.2509828799756292}, {0.5625, 0.1125, -0.2762226642716551}, {0.5625, 0.09375, -0.27710000988579986`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545980267710237, 0.00024810023380993627`, -0.16791219491326287`}, { 0.7545283449159937, 0.018967982728777408`, -0.16706170179475394`}, { 0.691412893234577, 0.019195529365517258`, -0.21992037107494955`}, { 0.7454019732289763, -0.00024810023380993627`, \ -0.15791219491326286`}, {0.7454716550840063, 0.01853201727122259, -0.15706170179475393`}, { 0.683587106765423, 0.01830447063448274, -0.20992037107494954`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, 0, -0.16291219491326286`}, {0.75, Rational[3, 160], -0.16206170179475393`}, {0.6875, Rational[3, 160], -0.21492037107494955`}}, {{0.75, 0, -0.16291219491326286`}, {0.75, 0.01875, -0.16206170179475393`}, {0.6875, 0.01875, -0.21492037107494955`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545283449159936, 0.018967982728777404`, -0.16706170179475394`}, { 0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.6913574740115644, 0.03787186842468421, -0.21841403647278962`}, { 0.7454716550840064, 0.018532017271222594`, -0.15706170179475393`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}, { 0.6836425259884356, 0.03712813157531579, -0.2084140364727896}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 160], -0.16206170179475393`}, {0.75, Rational[3, 80], -0.1613163990751694}, {0.6875, Rational[3, 80], -0.21341403647278961`}}, {{0.75, 0.01875, -0.16206170179475393`}, {0.75, 0.0375, -0.1613163990751694}, {0.6875, 0.0375, -0.21341403647278961`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.691412893234577, 0.019195529365517258`, -0.21992037107494955`}, { 0.6913574740115644, 0.0378718684246842, -0.21841403647278962`}, { 0.6278135963238365, 0.03802002784038706, -0.2601738510268566}, { 0.683587106765423, 0.01830447063448274, -0.20992037107494954`}, { 0.6836425259884356, 0.0371281315753158, -0.2084140364727896}, { 0.6221864036761635, 0.036979972159612934`, -0.2501738510268566}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 160], -0.21492037107494955`}, {0.6875, Rational[3, 80], -0.21341403647278961`}, {0.625, Rational[3, 80], -0.2551738510268566}}, {{0.6875, 0.01875, -0.21492037107494955`}, {0.6875, 0.0375, -0.21341403647278961`}, {0.625, 0.0375, -0.2551738510268566}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545283449159936, 0.018967982728777404`, -0.16706170179475394`}, { 0.6913574740115644, 0.03787186842468421, -0.21841403647278962`}, { 0.691412893234577, 0.019195529365517255`, -0.21992037107494955`}, { 0.7454716550840064, 0.018532017271222594`, -0.15706170179475393`}, { 0.6836425259884356, 0.03712813157531579, -0.2084140364727896}, { 0.683587106765423, 0.018304470634482744`, -0.20992037107494954`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 160], -0.16206170179475393`}, {0.6875, Rational[3, 80], -0.21341403647278961`}, {0.6875, Rational[3, 160], -0.21492037107494955`}}, {{0.75, 0.01875, -0.16206170179475393`}, {0.6875, 0.0375, -0.21341403647278961`}, {0.6875, 0.01875, -0.21492037107494955`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.7544151790016406, 0.05640952806278749, -0.16567623342603857`}, { 0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}, { 0.7455848209983594, 0.05609047193721251, -0.15567623342603856`}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 80], -0.1613163990751694}, {0.75, Rational[9, 160], -0.16067623342603857`}, {0.6875, Rational[9, 160], -0.21216926841697525`}}, {{0.75, 0.0375, -0.1613163990751694}, {0.75, 0.05625, -0.16067623342603857`}, {0.6875, 0.05625, -0.21216926841697525`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790016407, 0.05640952806278749, -0.16567623342603857`}, { 0.7543752802810847, 0.07512992884549909, -0.1651443414046265}, { 0.6912763265250206, 0.07523912950233883, -0.21616946927008848`}, { 0.7455848209983593, 0.05609047193721251, -0.15567623342603856`}, { 0.7456247197189153, 0.07487007115450091, -0.1551443414046265}, { 0.6837236734749794, 0.07476087049766117, -0.20616946927008847`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 160], -0.16067623342603857`}, {0.75, Rational[3, 40], -0.1601443414046265}, {0.6875, Rational[3, 40], -0.21116946927008848`}}, {{0.75, 0.05625, -0.16067623342603857`}, {0.75, 0.075, -0.1601443414046265}, {0.6875, 0.075, -0.21116946927008848`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.6912763265250205, 0.07523912950233883, -0.21616946927008848`}, { 0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}, { 0.6837236734749795, 0.07476087049766117, -0.20616946927008847`}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 160], -0.21216926841697525`}, {0.6875, Rational[3, 40], -0.21116946927008848`}, {0.625, Rational[3, 40], -0.25204257059886226`}}, {{0.6875, 0.05625, -0.21216926841697525`}, {0.6875, 0.075, -0.21116946927008848`}, {0.625, 0.075, -0.25204257059886226`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790016407, 0.05640952806278749, -0.16567623342603857`}, { 0.6912763265250206, 0.07523912950233883, -0.21616946927008848`}, { 0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.7455848209983593, 0.05609047193721251, -0.15567623342603856`}, { 0.6837236734749794, 0.07476087049766117, -0.20616946927008847`}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 160], -0.16067623342603857`}, {0.6875, Rational[3, 40], -0.21116946927008848`}, {0.6875, Rational[9, 160], -0.21216926841697525`}}, {{0.75, 0.05625, -0.16067623342603857`}, {0.6875, 0.075, -0.21116946927008848`}, {0.6875, 0.05625, -0.21216926841697525`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278135963238365, 0.03802002784038707, -0.2601738510268566}, { 0.6277804425065789, 0.0566718238129808, -0.2584323927844713}, { 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.6221864036761635, 0.03697997215961293, -0.2501738510268566}, { 0.6222195574934211, 0.055828176187019206`, -0.24843239278447127`}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 80], -0.2551738510268566}, {0.625, Rational[9, 160], -0.25343239278447127`}, {0.5625, Rational[9, 160], -0.27999115249737894`}}, {{0.625, 0.0375, -0.2551738510268566}, {0.625, 0.05625, -0.25343239278447127`}, {0.5625, 0.05625, -0.27999115249737894`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277804425065789, 0.0566718238129808, -0.2584323927844713}, { 0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.5639483309630486, 0.07538842473685911, -0.2833493407492083}, { 0.6222195574934211, 0.055828176187019206`, -0.24843239278447127`}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}, { 0.5610516690369514, 0.07461157526314088, -0.2733493407492083}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 160], -0.25343239278447127`}, {0.625, Rational[3, 40], -0.25204257059886226`}, {0.5625, Rational[3, 40], -0.2783493407492083}}, {{0.625, 0.05625, -0.25343239278447127`}, {0.625, 0.075, -0.25204257059886226`}, {0.5625, 0.075, -0.2783493407492083}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.5639483309630485, 0.0753884247368591, -0.2833493407492083}, { 0.5000000000000133, 0.07540848378370749, -0.29242311991946546`}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}, { 0.5610516690369515, 0.0746115752631409, -0.2733493407492083}, { 0.4999999999999866, 0.07459151621629251, -0.28242311991946545`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 160], -0.27999115249737894`}, {0.5625, Rational[3, 40], -0.2783493407492083}, {0.5, Rational[3, 40], -0.28742311991946545`}}, {{0.5625, 0.05625, -0.27999115249737894`}, {0.5625, 0.075, -0.2783493407492083}, {0.5, 0.075, -0.28742311991946545`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277804425065789, 0.0566718238129808, -0.2584323927844713}, { 0.5639483309630486, 0.07538842473685911, -0.2833493407492083}, { 0.5639618690468139, 0.0567473136977852, -0.28499115249737894`}, { 0.6222195574934211, 0.055828176187019206`, -0.24843239278447127`}, { 0.5610516690369514, 0.07461157526314088, -0.2733493407492083}, { 0.5610381309531861, 0.055752686302214804`, -0.27499115249737893`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 160], -0.25343239278447127`}, {0.5625, Rational[3, 40], -0.2783493407492083}, {0.5625, Rational[9, 160], -0.27999115249737894`}}, {{0.625, 0.05625, -0.25343239278447127`}, {0.5625, 0.075, -0.2783493407492083}, {0.5625, 0.05625, -0.27999115249737894`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544655938351609, 0.037688789221644, -0.1663163990751694}, { 0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.6913574740115644, 0.0378718684246842, -0.21841403647278962`}, { 0.7455344061648391, 0.037311210778355995`, -0.1563163990751694}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}, { 0.6836425259884356, 0.0371281315753158, -0.2084140364727896}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 80], -0.1613163990751694}, {0.6875, Rational[9, 160], -0.21216926841697525`}, {0.6875, Rational[3, 80], -0.21341403647278961`}}, {{0.75, 0.0375, -0.1613163990751694}, {0.6875, 0.05625, -0.21216926841697525`}, {0.6875, 0.0375, -0.21341403647278961`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.6277542339850601, 0.07533022978132432, -0.25704257059886226`}, { 0.6277804425065789, 0.05667182381298079, -0.2584323927844713}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}, { 0.6222457660149399, 0.07466977021867567, -0.24704257059886225`}, { 0.6222195574934211, 0.05582817618701921, -0.24843239278447127`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 160], -0.21216926841697525`}, {0.625, Rational[3, 40], -0.25204257059886226`}, {0.625, Rational[9, 160], -0.25343239278447127`}}, {{0.6875, 0.05625, -0.21216926841697525`}, {0.625, 0.075, -0.25204257059886226`}, {0.625, 0.05625, -0.25343239278447127`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913574740115644, 0.03787186842468421, -0.21841403647278962`}, { 0.6277804425065789, 0.0566718238129808, -0.2584323927844713}, { 0.6278135963238365, 0.03802002784038707, -0.2601738510268566}, { 0.6836425259884356, 0.03712813157531579, -0.2084140364727896}, { 0.6222195574934211, 0.055828176187019206`, -0.24843239278447127`}, { 0.6221864036761635, 0.03697997215961293, -0.2501738510268566}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 80], -0.21341403647278961`}, {0.625, Rational[9, 160], -0.25343239278447127`}, {0.625, Rational[3, 80], -0.2551738510268566}}, {{0.6875, 0.0375, -0.21341403647278961`}, {0.625, 0.05625, -0.25343239278447127`}, {0.625, 0.0375, -0.2551738510268566}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913120260563509, 0.05655350449097154, -0.21716926841697526`}, { 0.6277804425065789, 0.05667182381298079, -0.2584323927844713}, { 0.6913574740115644, 0.0378718684246842, -0.21841403647278962`}, { 0.6836879739436491, 0.055946495509028464`, -0.20716926841697525`}, { 0.6222195574934211, 0.05582817618701921, -0.24843239278447127`}, { 0.6836425259884356, 0.0371281315753158, -0.2084140364727896}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 160], -0.21216926841697525`}, {0.625, Rational[9, 160], -0.25343239278447127`}, {0.6875, Rational[3, 80], -0.21341403647278961`}}, {{0.6875, 0.05625, -0.21216926841697525`}, {0.625, 0.05625, -0.25343239278447127`}, {0.6875, 0.0375, -0.21341403647278961`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0., -0.005}, {0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, {0., 0.0375, -0.005}, {0., 0., 0.005}, {0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}, {0., 0.0375, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., 0, 0.}, {0.0625, Rational[3, 160], -0.014374891847405603`}, {0., Rational[3, 80], 0.}}, {{0., 0, 0.}, {0.0625, 0.01875, -0.014374891847405603`}, {0., 0.0375, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, { 0.12119137512864936`, 0.037380687317949995`, -0.058229921548735894`}, { 0.060148003729797936`, 0.05622157870874813, -0.020000499407534452`}, { 0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}, { 0.12880862487135064`, 0.03761931268205, -0.0482299215487359}, { 0.06485199627020206, 0.05627842129125187, -0.010000499407534454`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[3, 160], -0.014374891847405603`}, {0.125, Rational[3, 80], -0.053229921548735896`}, {0.0625, Rational[9, 160], -0.015000499407534453`}}, {{0.0625, 0.01875, -0.014374891847405603`}, {0.125, 0.0375, -0.053229921548735896`}, {0.0625, 0.05625, -0.015000499407534453`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.0375, -0.005}, {0.060148003729797936`, 0.05622157870874813, -0.020000499407534452`}, {0., 0.075, -0.005}, {0., 0.0375, 0.005}, {0.06485199627020206, 0.05627842129125187, -0.010000499407534454`}, {0., 0.075, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[3, 80], 0.}, {0.0625, Rational[9, 160], -0.015000499407534453`}, {0., Rational[3, 40], 0.}}, {{0., 0.0375, 0.}, {0.0625, 0.05625, -0.015000499407534453`}, {0., 0.075, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060215998874083895`, 0.018579449663822082`, -0.019374891847405602`}, { 0.060148003729797936`, 0.05622157870874813, -0.020000499407534452`}, {0., 0.0375, -0.005}, {0.0647840011259161, 0.018920550336177917`, -0.009374891847405604}, { 0.06485199627020206, 0.05627842129125187, -0.010000499407534454`}, {0., 0.0375, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[3, 160], -0.014374891847405603`}, {0.0625, Rational[9, 160], -0.015000499407534453`}, {0., Rational[3, 80], 0.}}, {{0.0625, 0.01875, -0.014374891847405603`}, {0.0625, 0.05625, -0.015000499407534453`}, {0., 0.0375, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12119137512864936`, 0.037380687317949995`, -0.058229921548735894`}, { 0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.12880862487135064`, 0.03761931268205, -0.0482299215487359}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 80], -0.053229921548735896`}, {0.1875, Rational[9, 160], -0.1051739907015968}, {0.125, Rational[3, 40], -0.0536777504372295}}, {{0.125, 0.0375, -0.053229921548735896`}, {0.1875, 0.05625, -0.1051739907015968}, {0.125, 0.075, -0.0536777504372295}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.24562471971890285`, 0.07512992884550723, -0.16514434140528597`}, { 0.1831057863535875, 0.093776003417759, -0.10996112416149173`}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}, { 0.2543752802810971, 0.07487007115449276, -0.15514434140528596`}, { 0.1918942136464125, 0.093723996582241, -0.09996112416149172}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[9, 160], -0.1051739907015968}, {0.25, Rational[3, 40], -0.16014434140528597`}, {0.1875, Rational[3, 32], -0.10496112416149173`}}, {{0.1875, 0.05625, -0.1051739907015968}, {0.25, 0.075, -0.16014434140528597`}, {0.1875, 0.09375, -0.10496112416149173`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.1831057863535875, 0.09377600341775902, -0.10996112416149173`}, { 0.12122408422660422`, 0.11249918824281277`, -0.058743212930618946`}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}, { 0.1918942136464125, 0.09372399658224098, -0.09996112416149172}, { 0.12877591577339578`, 0.11250081175718724`, -0.04874321293061895}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 40], -0.0536777504372295}, {0.1875, Rational[3, 32], -0.10496112416149173`}, {0.125, Rational[9, 80], -0.05374321293061895}}, {{0.125, 0.075, -0.0536777504372295}, {0.1875, 0.09375, -0.10496112416149173`}, {0.125, 0.1125, -0.05374321293061895}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18304977602915914`, 0.0562706030024578, -0.11017399070159681`}, { 0.1831057863535875, 0.093776003417759, -0.10996112416149173`}, { 0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.19195022397084086`, 0.0562293969975422, -0.1001739907015968}, { 0.1918942136464125, 0.093723996582241, -0.09996112416149172}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[9, 160], -0.1051739907015968}, {0.1875, Rational[3, 32], -0.10496112416149173`}, {0.125, Rational[3, 40], -0.0536777504372295}}, {{0.1875, 0.05625, -0.1051739907015968}, {0.1875, 0.09375, -0.10496112416149173`}, {0.125, 0.075, -0.0536777504372295}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0., 0.075, -0.005}, {0.06012422891914721, 0.09374909288178598, -0.02009213276436217}, {0., 0.1125, -0.005}, {0., 0.075, 0.005}, {0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}, {0., 0.1125, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[3, 40], 0.}, {0.0625, Rational[3, 32], -0.01509213276436217}, {0., Rational[9, 80], 0.}}, {{0., 0.075, 0.}, {0.0625, 0.09375, -0.01509213276436217}, {0., 0.1125, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06012422891914721, 0.09374909288178598, -0.02009213276436217}, { 0.12122408422660423`, 0.11249918824281277`, -0.058743212930618946`}, { 0.0601211162854488, 0.1312509784082045, -0.020089750055056706`}, { 0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}, { 0.12877591577339578`, 0.11250081175718724`, -0.04874321293061895}, { 0.0648788837145512, 0.13124902159179552`, -0.010089750055056704`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[3, 32], -0.01509213276436217}, {0.125, Rational[9, 80], -0.05374321293061895}, {0.0625, Rational[21, 160], -0.015089750055056705`}}, {{0.0625, 0.09375, -0.01509213276436217}, {0.125, 0.1125, -0.05374321293061895}, {0.0625, 0.13125, -0.015089750055056705`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.1125, -0.005}, {0.060121116285448806`, 0.1312509784082045, -0.020089750055056706`}, {0., 0.15, -0.005}, {0., 0.1125, 0.005}, {0.0648788837145512, 0.13124902159179552`, -0.010089750055056704`}, {0., 0.15, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[9, 80], 0.}, {0.0625, Rational[21, 160], -0.015089750055056705`}, {0., Rational[3, 20], 0.}}, {{0., 0.1125, 0.}, {0.0625, 0.13125, -0.015089750055056705`}, {0., 0.15, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06012422891914721, 0.09374909288178598, -0.02009213276436217}, { 0.0601211162854488, 0.1312509784082045, -0.020089750055056706`}, {0., 0.1125, -0.005}, {0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}, { 0.0648788837145512, 0.13124902159179552`, -0.010089750055056704`}, {0., 0.1125, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[3, 32], -0.01509213276436217}, {0.0625, Rational[21, 160], -0.015089750055056705`}, {0., Rational[9, 80], 0.}}, {{0.0625, 0.09375, -0.01509213276436217}, {0.0625, 0.13125, -0.015089750055056705`}, {0., 0.1125, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12119137512864936`, 0.037380687317949995`, -0.058229921548735894`}, { 0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.060148003729797936`, 0.05622157870874813, -0.020000499407534452`}, { 0.12880862487135064`, 0.03761931268205, -0.0482299215487359}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}, { 0.06485199627020206, 0.05627842129125187, -0.010000499407534454`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 80], -0.053229921548735896`}, {0.125, Rational[3, 40], -0.0536777504372295}, {0.0625, Rational[9, 160], -0.015000499407534453`}}, {{0.125, 0.0375, -0.053229921548735896`}, {0.125, 0.075, -0.0536777504372295}, {0.0625, 0.05625, -0.015000499407534453`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.12122408422660422`, 0.11249918824281277`, -0.058743212930618946`}, { 0.060124228919147205`, 0.09374909288178598, -0.02009213276436217}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}, { 0.12877591577339578`, 0.11250081175718724`, -0.04874321293061895}, { 0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 40], -0.0536777504372295}, {0.125, Rational[9, 80], -0.05374321293061895}, {0.0625, Rational[3, 32], -0.01509213276436217}}, {{0.125, 0.075, -0.0536777504372295}, {0.125, 0.1125, -0.05374321293061895}, {0.0625, 0.09375, -0.01509213276436217}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060148003729797936`, 0.05622157870874813, -0.020000499407534452`}, { 0.06012422891914722, 0.09374909288178598, -0.02009213276436217}, {0., 0.075, -0.005}, {0.06485199627020206, 0.05627842129125187, -0.010000499407534454`}, { 0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}, {0., 0.075, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[9, 160], -0.015000499407534453`}, {0.0625, Rational[3, 32], -0.01509213276436217}, {0., Rational[3, 40], 0.}}, {{0.0625, 0.05625, -0.015000499407534453`}, {0.0625, 0.09375, -0.01509213276436217}, {0., 0.075, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1212176184129147, 0.07497079206085827, -0.058677750437229496`}, { 0.060124228919147205`, 0.09374909288178598, -0.02009213276436217}, { 0.060148003729797936`, 0.05622157870874814, -0.020000499407534452`}, { 0.1287823815870853, 0.07502920793914172, -0.0486777504372295}, { 0.06487577108085278, 0.09375090711821402, -0.010092132764362171`}, { 0.06485199627020206, 0.056278421291251865`, -0.010000499407534454`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 40], -0.0536777504372295}, {0.0625, Rational[3, 32], -0.01509213276436217}, {0.0625, Rational[9, 160], -0.015000499407534453`}}, {{0.125, 0.075, -0.0536777504372295}, {0.0625, 0.09375, -0.01509213276436217}, {0.0625, 0.05625, -0.015000499407534453`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24562471971890285`, 0.07512992884550725, -0.16514434140528597`}, { 0.30875107767161847`, 0.09392782474231384, -0.21540271106257244`}, { 0.24567467246203048`, 0.11256614498117633`, -0.1644038089445843}, { 0.2543752802810972, 0.07487007115449275, -0.15514434140528596`}, { 0.31624892232838153`, 0.09357217525768616, -0.20540271106257244`}, { 0.25432532753796955`, 0.11243385501882368`, -0.1544038089445843}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 40], -0.16014434140528597`}, {0.3125, Rational[3, 32], -0.21040271106257244`}, {0.25, Rational[9, 80], -0.1594038089445843}}, {{0.25, 0.075, -0.16014434140528597`}, {0.3125, 0.09375, -0.21040271106257244`}, {0.25, 0.1125, -0.1594038089445843}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087510776716185, 0.09392782474231383, -0.21540271106257244`}, { 0.37227966033425813`, 0.1126610784576454, -0.2552372850584218}, { 0.30878152093807876`, 0.13130849028380792`, -0.21452285288897482`}, { 0.3162489223283815, 0.09357217525768617, -0.20540271106257244`}, { 0.37772033966574187`, 0.1123389215423546, -0.2452372850584218}, { 0.31621847906192124`, 0.1311915097161921, -0.20452285288897482`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 32], -0.21040271106257244`}, {0.375, Rational[9, 80], -0.2502372850584218}, {0.3125, Rational[21, 160], -0.20952285288897482`}}, {{0.3125, 0.09375, -0.21040271106257244`}, {0.375, 0.1125, -0.2502372850584218}, {0.3125, 0.13125, -0.20952285288897482`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246203045`, 0.11256614498117631`, -0.1644038089445843}, { 0.30878152093807876`, 0.13130849028380792`, -0.21452285288897482`}, { 0.245689856781027, 0.1500000000001031, -0.1641539276248253}, { 0.25432532753796955`, 0.11243385501882369`, -0.1544038089445843}, { 0.31621847906192124`, 0.1311915097161921, -0.20452285288897482`}, { 0.25431014321897305`, 0.14999999999989688`, -0.1541539276248253}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 80], -0.1594038089445843}, {0.3125, Rational[21, 160], -0.20952285288897482`}, {0.25, Rational[3, 20], -0.1591539276248253}}, {{0.25, 0.1125, -0.1594038089445843}, {0.3125, 0.13125, -0.20952285288897482`}, {0.25, 0.15, -0.1591539276248253}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.3087510776716185, 0.09392782474231383, -0.21540271106257244`}, { 0.30878152093807876`, 0.13130849028380792`, -0.21452285288897482`}, { 0.24567467246203045`, 0.11256614498117631`, -0.1644038089445843}, { 0.3162489223283815, 0.09357217525768617, -0.20540271106257244`}, { 0.31621847906192124`, 0.1311915097161921, -0.20452285288897482`}, { 0.25432532753796955`, 0.11243385501882369`, -0.1544038089445843}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 32], -0.21040271106257244`}, {0.3125, Rational[21, 160], -0.20952285288897482`}, {0.25, Rational[9, 80], -0.1594038089445843}}, {{0.3125, 0.09375, -0.21040271106257244`}, {0.3125, 0.13125, -0.20952285288897482`}, {0.25, 0.1125, -0.1594038089445843}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37227966033425813`, 0.11266107845764542`, -0.2552372850584218}, { 0.43607290558011963`, 0.13134363148297415`, -0.28070259534275266`}, { 0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.37772033966574187`, 0.11233892154235459`, -0.2452372850584218}, { 0.43892709441988037`, 0.13115636851702586`, -0.27070259534275265`}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 80], -0.2502372850584218}, {0.4375, Rational[21, 160], -0.27570259534275265`}, {0.375, Rational[3, 20], -0.24963957280765842`}}, {{0.375, 0.1125, -0.2502372850584218}, {0.4375, 0.13125, -0.27570259534275265`}, {0.375, 0.15, -0.24963957280765842`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43607290558011963`, 0.13134363148297418`, -0.28070259534275266`}, { 0.5000000000000105, 0.15000000000018365`, -0.2894572543497438}, { 0.4360729055801243, 0.16865636851738783`, -0.28070259534140185`}, { 0.43892709441988037`, 0.13115636851702583`, -0.27070259534275265`}, { 0.49999999999998945`, 0.14999999999981634`, -0.2794572543497438}, { 0.4389270944198757, 0.1688436314826122, -0.27070259534140184`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 160], -0.27570259534275265`}, {0.5, Rational[3, 20], -0.2844572543497438}, {0.4375, Rational[27, 160], -0.27570259534140185`}}, {{0.4375, 0.13125, -0.27570259534275265`}, {0.5, 0.15, -0.2844572543497438}, {0.4375, 0.16875, -0.27570259534140185`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.4360729055801243, 0.1686563685173878, -0.28070259534140185`}, { 0.37227966033428694`, 0.18733892154268234`, -0.25523728505597043`}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}, { 0.4389270944198757, 0.16884363148261222`, -0.27070259534140184`}, { 0.37772033966571306`, 0.18766107845731766`, -0.24523728505597042`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 20], -0.24963957280765842`}, {0.4375, Rational[27, 160], -0.27570259534140185`}, {0.375, Rational[3, 16], -0.2502372850559704}}, {{0.375, 0.15, -0.24963957280765842`}, {0.4375, 0.16875, -0.27570259534140185`}, {0.375, 0.1875, -0.2502372850559704}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43607290558011963`, 0.13134363148297418`, -0.28070259534275266`}, { 0.4360729055801243, 0.16865636851738783`, -0.28070259534140185`}, { 0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.43892709441988037`, 0.13115636851702583`, -0.27070259534275265`}, { 0.4389270944198757, 0.1688436314826122, -0.27070259534140184`}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 160], -0.27570259534275265`}, {0.4375, Rational[27, 160], -0.27570259534140185`}, {0.375, Rational[3, 20], -0.24963957280765842`}}, {{0.4375, 0.13125, -0.27570259534275265`}, {0.4375, 0.16875, -0.27570259534140185`}, {0.375, 0.15, -0.24963957280765842`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24568985678102698`, 0.1500000000001031, -0.1641539276248253}, { 0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.24567467246207134`, 0.1874338550190298, -0.16440380894303921`}, { 0.254310143218973, 0.14999999999989688`, -0.1541539276248253}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}, { 0.25432532753792864`, 0.1875661449809702, -0.1544038089430392}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 20], -0.1591539276248253}, {0.3125, Rational[27, 160], -0.20952285288795702`}, {0.25, Rational[3, 16], -0.1594038089430392}}, {{0.25, 0.15, -0.1591539276248253}, {0.3125, 0.16875, -0.20952285288795702`}, {0.25, 0.1875, -0.1594038089430392}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.372279660334287, 0.18733892154268234`, -0.25523728505597043`}, { 0.30875107767167403`, 0.20607217525795668`, -0.21540271105952366`}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}, { 0.377720339665713, 0.18766107845731766`, -0.24523728505597042`}, { 0.31624892232832597`, 0.2064278247420433, -0.20540271105952365`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[27, 160], -0.20952285288795702`}, {0.375, Rational[3, 16], -0.2502372850559704}, {0.3125, Rational[33, 160], -0.21040271105952366`}}, {{0.3125, 0.16875, -0.20952285288795702`}, {0.375, 0.1875, -0.2502372850559704}, {0.3125, 0.20625, -0.21040271105952366`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246207134`, 0.1874338550190298, -0.16440380894303921`}, { 0.308751077671674, 0.20607217525795668`, -0.21540271105952366`}, { 0.24562471971898409`, 0.22487007115469781`, -0.16514434140219977`}, { 0.2543253275379287, 0.1875661449809702, -0.1544038089430392}, { 0.316248922328326, 0.2064278247420433, -0.20540271105952365`}, { 0.25437528028101597`, 0.2251299288453022, -0.15514434140219976`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 16], -0.1594038089430392}, {0.3125, Rational[33, 160], -0.21040271105952366`}, {0.25, Rational[9, 40], -0.16014434140219977`}}, {{0.25, 0.1875, -0.1594038089430392}, {0.3125, 0.20625, -0.21040271105952366`}, {0.25, 0.225, -0.16014434140219977`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.30875107767167403`, 0.20607217525795668`, -0.21540271105952366`}, { 0.2456746724620713, 0.1874338550190298, -0.16440380894303921`}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}, { 0.31624892232832597`, 0.2064278247420433, -0.20540271105952365`}, { 0.25432532753792864`, 0.1875661449809702, -0.1544038089430392}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[27, 160], -0.20952285288795702`}, {0.3125, Rational[33, 160], -0.21040271105952366`}, {0.25, Rational[3, 16], -0.1594038089430392}}, {{0.3125, 0.16875, -0.20952285288795702`}, {0.3125, 0.20625, -0.21040271105952366`}, {0.25, 0.1875, -0.1594038089430392}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37227966033425813`, 0.11266107845764542`, -0.2552372850584218}, { 0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.3087815209380787, 0.13130849028380792`, -0.21452285288897482`}, { 0.37772033966574187`, 0.11233892154235459`, -0.2452372850584218}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}, { 0.3162184790619213, 0.1311915097161921, -0.20452285288897482`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 80], -0.2502372850584218}, {0.375, Rational[3, 20], -0.24963957280765842`}, {0.3125, Rational[21, 160], -0.20952285288897482`}}, {{0.375, 0.1125, -0.2502372850584218}, {0.375, 0.15, -0.24963957280765842`}, {0.3125, 0.13125, -0.20952285288897482`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.37227966033428694`, 0.18733892154268234`, -0.25523728505597043`}, { 0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}, { 0.37772033966571306`, 0.18766107845731766`, -0.24523728505597042`}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 20], -0.24963957280765842`}, {0.375, Rational[3, 16], -0.2502372850559704}, {0.3125, Rational[27, 160], -0.20952285288795702`}}, {{0.375, 0.15, -0.24963957280765842`}, {0.375, 0.1875, -0.2502372850559704}, {0.3125, 0.16875, -0.20952285288795702`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30878152093807876`, 0.13130849028380792`, -0.21452285288897482`}, { 0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.24568985678102698`, 0.15000000000010308`, -0.1641539276248253}, { 0.31621847906192124`, 0.1311915097161921, -0.20452285288897482`}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}, { 0.254310143218973, 0.1499999999998969, -0.1541539276248253}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[21, 160], -0.20952285288897482`}, {0.3125, Rational[27, 160], -0.20952285288795702`}, {0.25, Rational[3, 20], -0.1591539276248253}}, {{0.3125, 0.13125, -0.20952285288897482`}, {0.3125, 0.16875, -0.20952285288795702`}, {0.25, 0.15, -0.1591539276248253}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.37229088850012537`, 0.15000000000016459`, -0.2546395728076584}, { 0.3087815209380976, 0.16869150971646402`, -0.21452285288795703`}, { 0.30878152093807876`, 0.13130849028380792`, -0.21452285288897482`}, { 0.37770911149987463`, 0.1499999999998354, -0.2446395728076584}, { 0.3162184790619024, 0.168808490283536, -0.20452285288795702`}, { 0.31621847906192124`, 0.1311915097161921, -0.20452285288897482`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 20], -0.24963957280765842`}, {0.3125, Rational[27, 160], -0.20952285288795702`}, {0.3125, Rational[21, 160], -0.20952285288897482`}}, {{0.375, 0.15, -0.24963957280765842`}, {0.3125, 0.16875, -0.20952285288795702`}, {0.3125, 0.13125, -0.20952285288897482`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.15, -0.005}, {0.060121116285461296`, 0.1687490215918141, -0.020089750054977176`}, {0., 0.1875, -0.005}, {0., 0.15, 0.005}, {0.0648788837145387, 0.16875097840818593`, -0.010089750054977177`}, {0., 0.1875, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[3, 20], 0.}, {0.0625, Rational[27, 160], -0.015089750054977176`}, {0., Rational[3, 16], 0.}}, {{0., 0.15, 0.}, {0.0625, 0.16875, -0.015089750054977176`}, {0., 0.1875, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060121116285461296`, 0.1687490215918141, -0.020089750054977176`}, { 0.12122408422664106`, 0.1875008117572598, -0.058743212930070794`}, { 0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, { 0.0648788837145387, 0.16875097840818593`, -0.010089750054977177`}, { 0.12877591577335892`, 0.1874991882427402, -0.0487432129300708}, { 0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[27, 160], -0.015089750054977176`}, {0.125, Rational[3, 16], -0.0537432129300708}, {0.0625, Rational[33, 160], -0.01509213276412212}}, {{0.0625, 0.16875, -0.015089750054977176`}, {0.125, 0.1875, -0.0537432129300708}, {0.0625, 0.20625, -0.01509213276412212}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.1875, -0.005}, {0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, {0., 0.225, -0.005}, {0., 0.1875, 0.005}, {0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}, {0., 0.225, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[3, 16], 0.}, {0.0625, Rational[33, 160], -0.01509213276412212}, {0., Rational[9, 40], 0.}}, {{0., 0.1875, 0.}, {0.0625, 0.20625, -0.01509213276412212}, {0., 0.225, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060121116285461296`, 0.1687490215918141, -0.020089750054977176`}, { 0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, {0., 0.1875, -0.005}, {0.0648788837145387, 0.16875097840818593`, -0.010089750054977177`}, { 0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}, {0., 0.1875, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[27, 160], -0.015089750054977176`}, {0.0625, Rational[33, 160], -0.01509213276412212}, {0., Rational[3, 16], 0.}}, {{0.0625, 0.16875, -0.015089750054977176`}, {0.0625, 0.20625, -0.01509213276412212}, {0., 0.1875, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12122408422664106`, 0.1875008117572598, -0.058743212930070794`}, { 0.18310578635364863`, 0.20622399658237878`, -0.10996112415993993`}, { 0.12121761841298824`, 0.22502920793921485`, -0.05867775043613009}, { 0.12877591577335892`, 0.1874991882427402, -0.0487432129300708}, { 0.19189421364635137`, 0.2062760034176212, -0.09996112415993992}, { 0.12878238158701175`, 0.22497079206078516`, -0.048677750436130096`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 16], -0.0537432129300708}, {0.1875, Rational[33, 160], -0.10496112415993993`}, {0.125, Rational[9, 40], -0.053677750436130094`}}, {{0.125, 0.1875, -0.0537432129300708}, {0.1875, 0.20625, -0.10496112415993993`}, {0.125, 0.225, -0.053677750436130094`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18310578635364863`, 0.20622399658237878`, -0.10996112415993993`}, { 0.24562471971898406`, 0.22487007115469781`, -0.16514434140219977`}, { 0.18304977602926034`, 0.24372939699768012`, -0.11017399069901002`}, { 0.19189421364635137`, 0.2062760034176212, -0.09996112415993992}, { 0.2543752802810159, 0.2251299288453022, -0.15514434140219976`}, { 0.19195022397073966`, 0.24377060300231987`, -0.10017399069901001`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[33, 160], -0.10496112415993993`}, {0.25, Rational[9, 40], -0.16014434140219977`}, {0.1875, Rational[39, 160], -0.10517399069901001`}}, {{0.1875, 0.20625, -0.10496112415993993`}, {0.25, 0.225, -0.16014434140219977`}, {0.1875, 0.24375, -0.10517399069901001`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12121761841298824`, 0.22502920793921485`, -0.05867775043613009}, { 0.18304977602926034`, 0.2437293969976801, -0.11017399069901002`}, { 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.12878238158701175`, 0.22497079206078516`, -0.048677750436130096`}, { 0.19195022397073966`, 0.2437706030023199, -0.10017399069901001`}, { 0.12880862487124015`, 0.26238068731787734`, -0.048229921547083957`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[9, 40], -0.053677750436130094`}, {0.1875, Rational[39, 160], -0.10517399069901001`}, {0.125, Rational[21, 80], -0.053229921547083954`}}, {{0.125, 0.225, -0.053677750436130094`}, {0.1875, 0.24375, -0.10517399069901001`}, {0.125, 0.2625, -0.053229921547083954`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18310578635364863`, 0.20622399658237878`, -0.10996112415993993`}, { 0.18304977602926034`, 0.24372939699768012`, -0.11017399069901002`}, { 0.12121761841298824`, 0.22502920793921488`, -0.05867775043613009}, { 0.19189421364635137`, 0.2062760034176212, -0.09996112415993992}, { 0.19195022397073966`, 0.24377060300231987`, -0.10017399069901001`}, { 0.12878238158701175`, 0.22497079206078513`, -0.048677750436130096`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[33, 160], -0.10496112415993993`}, {0.1875, Rational[39, 160], -0.10517399069901001`}, {0.125, Rational[9, 40], -0.053677750436130094`}}, {{0.1875, 0.20625, -0.10496112415993993`}, {0.1875, 0.24375, -0.10517399069901001`}, {0.125, 0.225, -0.053677750436130094`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.225, -0.005}, {0.06014800372986087, 0.24377842129127134`, -0.02000049940712992}, {0., 0.2625, -0.005}, {0., 0.225, 0.005}, {0.06485199627013913, 0.24372157870872865`, -0.010000499407129923`}, {0., 0.2625, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[9, 40], 0.}, {0.0625, Rational[39, 160], -0.015000499407129922`}, {0., Rational[21, 80], 0.}}, {{0., 0.225, 0.}, {0.0625, 0.24375, -0.015000499407129922`}, {0., 0.2625, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06014800372986087, 0.24377842129127134`, -0.02000049940712992}, { 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.0602159988741718, 0.28142055033619406`, -0.01937489184684323}, { 0.06485199627013913, 0.24372157870872865`, -0.010000499407129923`}, { 0.12880862487124017`, 0.26238068731787734`, -0.048229921547083957`}, { 0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[39, 160], -0.015000499407129922`}, {0.125, Rational[21, 80], -0.053229921547083954`}, {0.0625, Rational[9, 32], -0.01437489184684323}}, {{0.0625, 0.24375, -0.015000499407129922`}, {0.125, 0.2625, -0.053229921547083954`}, {0.0625, 0.28125, -0.01437489184684323}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.2625, -0.005}, {0.0602159988741718, 0.28142055033619406`, -0.01937489184684323}, {0., 0.3, -0.005}, {0., 0.2625, 0.005}, {0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}, {0., 0.3, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[21, 80], 0.}, {0.0625, Rational[9, 32], -0.01437489184684323}, {0., Rational[3, 10], 0.}}, {{0., 0.2625, 0.}, {0.0625, 0.28125, -0.01437489184684323}, {0., 0.3, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06014800372986087, 0.24377842129127134`, -0.02000049940712992}, { 0.06021599887417179, 0.28142055033619406`, -0.01937489184684323}, {0., 0.2625, -0.005}, {0.06485199627013913, 0.24372157870872865`, -0.010000499407129923`}, { 0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}, {0., 0.2625, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[39, 160], -0.015000499407129922`}, {0.0625, Rational[9, 32], -0.01437489184684323}, {0., Rational[21, 80], 0.}}, {{0.0625, 0.24375, -0.015000499407129922`}, {0.0625, 0.28125, -0.01437489184684323}, {0., 0.2625, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12122408422664106`, 0.1875008117572598, -0.058743212930070794`}, { 0.12121761841298824`, 0.22502920793921485`, -0.05867775043613009}, { 0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, { 0.12877591577335892`, 0.1874991882427402, -0.0487432129300708}, { 0.12878238158701175`, 0.22497079206078516`, -0.048677750436130096`}, { 0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 16], -0.0537432129300708}, {0.125, Rational[9, 40], -0.053677750436130094`}, {0.0625, Rational[33, 160], -0.01509213276412212}}, {{0.125, 0.1875, -0.0537432129300708}, {0.125, 0.225, -0.053677750436130094`}, {0.0625, 0.20625, -0.01509213276412212}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12121761841298824`, 0.22502920793921485`, -0.05867775043613009}, { 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.06014800372986087, 0.2437784212912713, -0.02000049940712992}, { 0.12878238158701175`, 0.22497079206078516`, -0.048677750436130096`}, { 0.12880862487124015`, 0.26238068731787734`, -0.048229921547083957`}, { 0.06485199627013913, 0.24372157870872868`, -0.010000499407129923`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[9, 40], -0.053677750436130094`}, {0.125, Rational[21, 80], -0.053229921547083954`}, {0.0625, Rational[39, 160], -0.015000499407129922`}}, {{0.125, 0.225, -0.053677750436130094`}, {0.125, 0.2625, -0.053229921547083954`}, {0.0625, 0.24375, -0.015000499407129922`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, { 0.06014800372986087, 0.2437784212912713, -0.02000049940712992}, {0., 0.225, -0.005}, {0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}, { 0.06485199627013913, 0.24372157870872868`, -0.010000499407129923`}, {0., 0.225, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[33, 160], -0.01509213276412212}, {0.0625, Rational[39, 160], -0.015000499407129922`}, {0., Rational[9, 40], 0.}}, {{0.0625, 0.20625, -0.01509213276412212}, {0.0625, 0.24375, -0.015000499407129922`}, {0., 0.225, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12121761841298824`, 0.22502920793921485`, -0.05867775043613009}, { 0.06014800372986087, 0.2437784212912713, -0.02000049940712992}, { 0.06012422891918483, 0.20625090711823302`, -0.02009213276412212}, { 0.12878238158701175`, 0.22497079206078516`, -0.048677750436130096`}, { 0.06485199627013913, 0.24372157870872868`, -0.010000499407129923`}, { 0.06487577108081517, 0.20624909288176696`, -0.01009213276412212}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[9, 40], -0.053677750436130094`}, {0.0625, Rational[39, 160], -0.015000499407129922`}, {0.0625, Rational[33, 160], -0.01509213276412212}}, {{0.125, 0.225, -0.053677750436130094`}, {0.0625, 0.24375, -0.015000499407129922`}, {0.0625, 0.20625, -0.01509213276412212}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24562471971890285`, 0.07512992884550725, -0.16514434140528597`}, { 0.24567467246203048`, 0.11256614498117633`, -0.1644038089445843}, { 0.18310578635358754`, 0.09377600341775902, -0.10996112416149173`}, { 0.2543752802810972, 0.07487007115449275, -0.15514434140528596`}, { 0.25432532753796955`, 0.11243385501882368`, -0.1544038089445843}, { 0.19189421364641246`, 0.09372399658224098, -0.09996112416149172}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 40], -0.16014434140528597`}, {0.25, Rational[9, 80], -0.1594038089445843}, {0.1875, Rational[3, 32], -0.10496112416149173`}}, {{0.25, 0.075, -0.16014434140528597`}, {0.25, 0.1125, -0.1594038089445843}, {0.1875, 0.09375, -0.10496112416149173`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246203045`, 0.11256614498117631`, -0.1644038089445843}, { 0.245689856781027, 0.1500000000001031, -0.1641539276248253}, { 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.25432532753796955`, 0.11243385501882369`, -0.1544038089445843}, { 0.25431014321897305`, 0.14999999999989688`, -0.1541539276248253}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 80], -0.1594038089445843}, {0.25, Rational[3, 20], -0.1591539276248253}, {0.1875, Rational[21, 160], -0.10480265425314465`}}, {{0.25, 0.1125, -0.1594038089445843}, {0.25, 0.15, -0.1591539276248253}, {0.1875, 0.13125, -0.10480265425314465`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1831057863535875, 0.09377600341775902, -0.10996112416149173`}, { 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.12122408422660423`, 0.11249918824281278`, -0.058743212930618946`}, { 0.1918942136464125, 0.09372399658224098, -0.09996112416149172}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}, { 0.12877591577339578`, 0.11250081175718722`, -0.04874321293061895}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[3, 32], -0.10496112416149173`}, {0.1875, Rational[21, 160], -0.10480265425314465`}, {0.125, Rational[9, 80], -0.05374321293061895}}, {{0.1875, 0.09375, -0.10496112416149173`}, {0.1875, 0.13125, -0.10480265425314465`}, {0.125, 0.1125, -0.05374321293061895}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246203045`, 0.11256614498117631`, -0.1644038089445843}, { 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.18310578635358754`, 0.093776003417759, -0.10996112416149173`}, { 0.25432532753796955`, 0.11243385501882369`, -0.1544038089445843}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}, { 0.19189421364641246`, 0.093723996582241, -0.09996112416149172}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 80], -0.1594038089445843}, {0.1875, Rational[21, 160], -0.10480265425314465`}, {0.1875, Rational[3, 32], -0.10496112416149173`}}, {{0.25, 0.1125, -0.1594038089445843}, {0.1875, 0.13125, -0.10480265425314465`}, {0.1875, 0.09375, -0.10496112416149173`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24568985678102698`, 0.1500000000001031, -0.1641539276248253}, { 0.24567467246207134`, 0.1874338550190298, -0.16440380894303921`}, { 0.18312798558346696`, 0.16873903514497, -0.10980265425262754`}, { 0.254310143218973, 0.14999999999989688`, -0.1541539276248253}, { 0.25432532753792864`, 0.1875661449809702, -0.1544038089430392}, { 0.19187201441653304`, 0.16876096485503003`, -0.09980265425262753}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 20], -0.1591539276248253}, {0.25, Rational[3, 16], -0.1594038089430392}, {0.1875, Rational[27, 160], -0.10480265425262754`}}, {{0.25, 0.15, -0.1591539276248253}, {0.25, 0.1875, -0.1594038089430392}, {0.1875, 0.16875, -0.10480265425262754`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246207134`, 0.1874338550190298, -0.16440380894303921`}, { 0.24562471971898409`, 0.22487007115469781`, -0.16514434140219977`}, { 0.18310578635364863`, 0.20622399658237878`, -0.10996112415993993`}, { 0.2543253275379287, 0.1875661449809702, -0.1544038089430392}, { 0.25437528028101597`, 0.2251299288453022, -0.15514434140219976`}, { 0.19189421364635137`, 0.2062760034176212, -0.09996112415993992}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 16], -0.1594038089430392}, {0.25, Rational[9, 40], -0.16014434140219977`}, {0.1875, Rational[33, 160], -0.10496112415993993`}}, {{0.25, 0.1875, -0.1594038089430392}, {0.25, 0.225, -0.16014434140219977`}, {0.1875, 0.20625, -0.10496112415993993`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18312798558346696`, 0.16873903514496996`, -0.10980265425262754`}, { 0.18310578635364863`, 0.20622399658237875`, -0.10996112415993993`}, { 0.12122408422664108`, 0.18750081175725977`, -0.058743212930070794`}, { 0.19187201441653304`, 0.16876096485503006`, -0.09980265425262753}, { 0.19189421364635137`, 0.20627600341762123`, -0.09996112415993992}, { 0.12877591577335895`, 0.18749918824274023`, -0.0487432129300708}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[27, 160], -0.10480265425262754`}, {0.1875, Rational[33, 160], -0.10496112415993993`}, {0.125, Rational[3, 16], -0.0537432129300708}}, {{0.1875, 0.16875, -0.10480265425262754`}, {0.1875, 0.20625, -0.10496112415993993`}, {0.125, 0.1875, -0.0537432129300708}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24567467246207134`, 0.1874338550190298, -0.16440380894303921`}, { 0.18310578635364863`, 0.20622399658237878`, -0.10996112415993993`}, { 0.18312798558346696`, 0.16873903514497, -0.10980265425262754`}, { 0.2543253275379287, 0.1875661449809702, -0.1544038089430392}, { 0.19189421364635137`, 0.2062760034176212, -0.09996112415993992}, { 0.19187201441653304`, 0.16876096485503003`, -0.09980265425262753}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 16], -0.1594038089430392}, {0.1875, Rational[33, 160], -0.10496112415993993`}, {0.1875, Rational[27, 160], -0.10480265425262754`}}, {{0.25, 0.1875, -0.1594038089430392}, {0.1875, 0.20625, -0.10496112415993993`}, {0.1875, 0.16875, -0.10480265425262754`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12122408422660422`, 0.11249918824281278`, -0.058743212930618946`}, { 0.12122598556222214`, 0.1500000000000362, -0.058734235272672256`}, { 0.0601211162854488, 0.1312509784082045, -0.020089750055056706`}, { 0.12877591577339578`, 0.11250081175718722`, -0.04874321293061895}, { 0.12877401443777786`, 0.1499999999999638, -0.04873423527267226}, { 0.0648788837145512, 0.13124902159179552`, -0.010089750055056704`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[9, 80], -0.05374321293061895}, {0.125, Rational[3, 20], -0.05373423527267226}, {0.0625, Rational[21, 160], -0.015089750055056705`}}, {{0.125, 0.1125, -0.05374321293061895}, {0.125, 0.15, -0.05373423527267226}, {0.0625, 0.13125, -0.015089750055056705`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12122598556222215`, 0.15000000000003616`, -0.058734235272672256`}, { 0.12122408422664106`, 0.1875008117572598, -0.058743212930070794`}, { 0.06012111628546129, 0.16874902159181407`, -0.020089750054977176`}, { 0.12877401443777786`, 0.14999999999996383`, -0.04873423527267226}, { 0.12877591577335895`, 0.1874991882427402, -0.0487432129300708}, { 0.0648788837145387, 0.16875097840818595`, -0.010089750054977177`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 20], -0.05373423527267226}, {0.125, Rational[3, 16], -0.0537432129300708}, {0.0625, Rational[27, 160], -0.015089750054977176`}}, {{0.125, 0.15, -0.05373423527267226}, {0.125, 0.1875, -0.0537432129300708}, {0.0625, 0.16875, -0.015089750054977176`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.060121116285448806`, 0.1312509784082045, -0.020089750055056706`}, { 0.060121116285461296`, 0.1687490215918141, -0.020089750054977176`}, {0., 0.15, -0.005}, {0.0648788837145512, 0.13124902159179552`, -0.010089750055056704`}, { 0.0648788837145387, 0.16875097840818593`, -0.010089750054977177`}, {0., 0.15, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[21, 160], -0.015089750055056705`}, {0.0625, Rational[27, 160], -0.015089750054977176`}, {0., Rational[3, 20], 0.}}, {{0.0625, 0.13125, -0.015089750055056705`}, {0.0625, 0.16875, -0.015089750054977176`}, {0., 0.15, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12122598556222215`, 0.15000000000003616`, -0.058734235272672256`}, { 0.06012111628546129, 0.16874902159181407`, -0.020089750054977176`}, { 0.0601211162854488, 0.13125097840820446`, -0.020089750055056706`}, { 0.12877401443777786`, 0.14999999999996383`, -0.04873423527267226}, { 0.0648788837145387, 0.16875097840818595`, -0.010089750054977177`}, { 0.0648788837145512, 0.13124902159179555`, -0.010089750055056704`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 20], -0.05373423527267226}, {0.0625, Rational[27, 160], -0.015089750054977176`}, {0.0625, Rational[21, 160], -0.015089750055056705`}}, {{0.125, 0.15, -0.05373423527267226}, {0.0625, 0.16875, -0.015089750054977176`}, {0.0625, 0.13125, -0.015089750055056705`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24568985678102698`, 0.1500000000001031, -0.1641539276248253}, { 0.18312798558346696`, 0.16873903514497, -0.10980265425262754`}, { 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.254310143218973, 0.14999999999989688`, -0.1541539276248253}, { 0.19187201441653304`, 0.16876096485503003`, -0.09980265425262753}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 20], -0.1591539276248253}, {0.1875, Rational[27, 160], -0.10480265425262754`}, {0.1875, Rational[21, 160], -0.10480265425314465`}}, {{0.25, 0.15, -0.1591539276248253}, {0.1875, 0.16875, -0.10480265425262754`}, {0.1875, 0.13125, -0.10480265425314465`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18312798558346696`, 0.16873903514496996`, -0.10980265425262754`}, { 0.12122408422664108`, 0.18750081175725977`, -0.058743212930070794`}, { 0.12122598556222214`, 0.15000000000003616`, -0.058734235272672256`}, { 0.19187201441653304`, 0.16876096485503006`, -0.09980265425262753}, { 0.12877591577335895`, 0.18749918824274023`, -0.0487432129300708}, { 0.12877401443777786`, 0.14999999999996383`, -0.04873423527267226}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[27, 160], -0.10480265425262754`}, {0.125, Rational[3, 16], -0.0537432129300708}, {0.125, Rational[3, 20], -0.05373423527267226}}, {{0.1875, 0.16875, -0.10480265425262754`}, {0.125, 0.1875, -0.0537432129300708}, {0.125, 0.15, -0.05373423527267226}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.12122598556222214`, 0.15000000000003616`, -0.058734235272672256`}, { 0.12122408422660422`, 0.11249918824281277`, -0.058743212930618946`}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}, { 0.12877401443777783`, 0.14999999999996383`, -0.04873423527267226}, { 0.12877591577339578`, 0.11250081175718724`, -0.04874321293061895}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[21, 160], -0.10480265425314465`}, {0.125, Rational[3, 20], -0.05373423527267226}, {0.125, Rational[9, 80], -0.05374321293061895}}, {{0.1875, 0.13125, -0.10480265425314465`}, {0.125, 0.15, -0.05373423527267226}, {0.125, 0.1125, -0.05374321293061895}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18312798558346696`, 0.16873903514496996`, -0.10980265425262754`}, { 0.12122598556222214`, 0.15000000000003616`, -0.058734235272672256`}, { 0.1831279855834466, 0.13126096485516775`, -0.10980265425314466`}, { 0.19187201441653304`, 0.16876096485503006`, -0.09980265425262753}, { 0.12877401443777786`, 0.14999999999996383`, -0.04873423527267226}, { 0.1918720144165534, 0.13123903514483226`, -0.09980265425314465}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[27, 160], -0.10480265425262754`}, {0.125, Rational[3, 20], -0.05373423527267226}, {0.1875, Rational[21, 160], -0.10480265425314465`}}, {{0.1875, 0.16875, -0.10480265425262754`}, {0.125, 0.15, -0.05373423527267226}, {0.1875, 0.13125, -0.10480265425314465`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000105, 0.15000000000018363`, -0.2894572543497438}, { 0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.49999999999998945`, 0.14999999999981636`, -0.2794572543497438}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 20], -0.2844572543497438}, {0.5625, Rational[21, 160], -0.2757025953424544}, {0.5625, Rational[27, 160], -0.27570259534116326`}}, {{0.5, 0.15, -0.2844572543497438}, {0.5625, 0.13125, -0.2757025953424544}, {0.5625, 0.16875, -0.27570259534116326`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.6277091114998893, 0.1500000000001524, -0.2546395728071704}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}, { 0.6222908885001107, 0.1499999999998476, -0.2446395728071704}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[21, 160], -0.2757025953424544}, {0.625, Rational[9, 80], -0.25023728505783693`}, {0.625, Rational[3, 20], -0.24963957280717042`}}, {{0.5625, 0.13125, -0.2757025953424544}, {0.625, 0.1125, -0.25023728505783693`}, {0.625, 0.15, -0.24963957280717042`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.6277091114998893, 0.15000000000015237`, -0.2546395728071704}, { 0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}, { 0.6222908885001107, 0.14999999999984762`, -0.2446395728071704}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[27, 160], -0.27570259534116326`}, {0.625, Rational[3, 20], -0.24963957280717042`}, {0.625, Rational[3, 16], -0.2502372850555543}}, {{0.5625, 0.16875, -0.27570259534116326`}, {0.625, 0.15, -0.24963957280717042`}, {0.625, 0.1875, -0.2502372850555543}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639270944199044, 0.13134363148296518`, -0.2807025953424544}, { 0.6277091114998893, 0.1500000000001524, -0.2546395728071704}, { 0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.5610729055800956, 0.13115636851703483`, -0.2707025953424544}, { 0.6222908885001107, 0.1499999999998476, -0.2446395728071704}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[21, 160], -0.2757025953424544}, {0.625, Rational[3, 20], -0.24963957280717042`}, {0.5625, Rational[27, 160], -0.27570259534116326`}}, {{0.5625, 0.13125, -0.2757025953424544}, {0.625, 0.15, -0.24963957280717042`}, {0.5625, 0.16875, -0.27570259534116326`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.6912489223283798, 0.0939278247423007, -0.215402711061863}, { 0.6912184790619217, 0.1313084902837973, -0.21452285288835307`}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}, { 0.6837510776716202, 0.0935721752576993, -0.205402711061863}, { 0.6837815209380783, 0.13119150971620272`, -0.20452285288835306`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 80], -0.25023728505783693`}, {0.6875, Rational[3, 32], -0.210402711061863}, {0.6875, Rational[21, 160], -0.20952285288835307`}}, {{0.625, 0.1125, -0.25023728505783693`}, {0.6875, 0.09375, -0.210402711061863}, {0.6875, 0.13125, -0.20952285288835307`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912489223283798, 0.09392782474230069, -0.215402711061863}, { 0.7543752802810846, 0.07512992884549909, -0.1651443414046265}, { 0.7543253275379612, 0.11256614498117087`, -0.16440380894397724`}, { 0.6837510776716202, 0.09357217525769931, -0.205402711061863}, { 0.7456247197189154, 0.07487007115450091, -0.1551443414046265}, { 0.7456746724620388, 0.11243385501882913`, -0.15440380894397723`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 32], -0.210402711061863}, {0.75, Rational[3, 40], -0.1601443414046265}, {0.75, Rational[9, 80], -0.15940380894397724`}}, {{0.6875, 0.09375, -0.210402711061863}, {0.75, 0.075, -0.1601443414046265}, {0.75, 0.1125, -0.15940380894397724`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912184790619218, 0.1313084902837973, -0.21452285288835307`}, { 0.7543253275379613, 0.11256614498117087`, -0.16440380894397724`}, { 0.75431014321897, 0.15000000000010222`, -0.16415392762424408`}, { 0.6837815209380782, 0.13119150971620272`, -0.20452285288835306`}, { 0.7456746724620387, 0.11243385501882913`, -0.15440380894397723`}, { 0.74568985678103, 0.14999999999989777`, -0.15415392762424407`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 160], -0.20952285288835307`}, {0.75, Rational[9, 80], -0.15940380894397724`}, {0.75, Rational[3, 20], -0.15915392762424407`}}, {{0.6875, 0.13125, -0.20952285288835307`}, {0.75, 0.1125, -0.15940380894397724`}, {0.75, 0.15, -0.15915392762424407`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912489223283798, 0.09392782474230069, -0.215402711061863}, { 0.7543253275379612, 0.11256614498117087`, -0.16440380894397724`}, { 0.6912184790619217, 0.1313084902837973, -0.21452285288835307`}, { 0.6837510776716202, 0.09357217525769931, -0.205402711061863}, { 0.7456746724620388, 0.11243385501882913`, -0.15440380894397723`}, { 0.6837815209380783, 0.13119150971620272`, -0.20452285288835306`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[3, 32], -0.210402711061863}, {0.75, Rational[9, 80], -0.15940380894397724`}, {0.6875, Rational[21, 160], -0.20952285288835307`}}, {{0.6875, 0.09375, -0.210402711061863}, {0.75, 0.1125, -0.15940380894397724`}, {0.6875, 0.13125, -0.20952285288835307`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.6912184790619061, 0.16869150971645705`, -0.21452285288739995`}, { 0.6912489223283318, 0.20607217525795654`, -0.21540271105898767`}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}, { 0.6837815209380939, 0.16880849028354297`, -0.20452285288739994`}, { 0.6837510776716682, 0.20642782474204344`, -0.20540271105898766`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 16], -0.2502372850555543}, {0.6875, Rational[27, 160], -0.20952285288739994`}, {0.6875, Rational[33, 160], -0.21040271105898767`}}, {{0.625, 0.1875, -0.2502372850555543}, {0.6875, 0.16875, -0.20952285288739994`}, {0.6875, 0.20625, -0.21040271105898767`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912184790619061, 0.16869150971645705`, -0.21452285288739995`}, { 0.7543101432189699, 0.15000000000010222`, -0.16415392762424408`}, { 0.7543253275379318, 0.18743385501903442`, -0.16440380894244624`}, { 0.6837815209380939, 0.16880849028354297`, -0.20452285288739994`}, { 0.7456898567810301, 0.14999999999989777`, -0.15415392762424407`}, { 0.7456746724620682, 0.18756614498096558`, -0.15440380894244624`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[27, 160], -0.20952285288739994`}, {0.75, Rational[3, 20], -0.15915392762424407`}, {0.75, Rational[3, 16], -0.15940380894244624`}}, {{0.6875, 0.16875, -0.20952285288739994`}, {0.75, 0.15, -0.15915392762424407`}, {0.75, 0.1875, -0.15940380894244624`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912489223283318, 0.20607217525795654`, -0.21540271105898767`}, { 0.7543253275379318, 0.18743385501903442`, -0.16440380894244624`}, { 0.7543752802810281, 0.22487007115470672`, -0.1651443414015572}, { 0.6837510776716682, 0.20642782474204344`, -0.20540271105898766`}, { 0.7456746724620682, 0.18756614498096558`, -0.15440380894244624`}, { 0.7456247197189719, 0.2251299288452933, -0.1551443414015572}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[33, 160], -0.21040271105898767`}, {0.75, Rational[3, 16], -0.15940380894244624`}, {0.75, Rational[9, 40], -0.1601443414015572}}, {{0.6875, 0.20625, -0.21040271105898767`}, {0.75, 0.1875, -0.15940380894244624`}, {0.75, 0.225, -0.1601443414015572}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.6912184790619061, 0.16869150971645705`, -0.21452285288739995`}, { 0.7543253275379318, 0.18743385501903442`, -0.16440380894244624`}, { 0.6912489223283317, 0.20607217525795654`, -0.21540271105898767`}, { 0.6837815209380939, 0.16880849028354297`, -0.20452285288739994`}, { 0.7456746724620682, 0.18756614498096558`, -0.15440380894244624`}, { 0.6837510776716683, 0.20642782474204344`, -0.20540271105898766`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[27, 160], -0.20952285288739994`}, {0.75, Rational[3, 16], -0.15940380894244624`}, {0.6875, Rational[33, 160], -0.21040271105898767`}}, {{0.6875, 0.16875, -0.20952285288739994`}, {0.75, 0.1875, -0.15940380894244624`}, {0.6875, 0.20625, -0.21040271105898767`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277203396657555, 0.11266107845763078`, -0.25523728505783694`}, { 0.6912184790619217, 0.1313084902837973, -0.21452285288835307`}, { 0.6277091114998893, 0.1500000000001524, -0.2546395728071704}, { 0.6222796603342445, 0.11233892154236923`, -0.24523728505783693`}, { 0.6837815209380783, 0.13119150971620272`, -0.20452285288835306`}, { 0.6222908885001107, 0.1499999999998476, -0.2446395728071704}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 80], -0.25023728505783693`}, {0.6875, Rational[21, 160], -0.20952285288835307`}, {0.625, Rational[3, 20], -0.24963957280717042`}}, {{0.625, 0.1125, -0.25023728505783693`}, {0.6875, 0.13125, -0.20952285288835307`}, {0.625, 0.15, -0.24963957280717042`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912184790619218, 0.1313084902837973, -0.21452285288835307`}, { 0.75431014321897, 0.15000000000010222`, -0.16415392762424408`}, { 0.6912184790619063, 0.16869150971645705`, -0.21452285288739995`}, { 0.6837815209380782, 0.13119150971620272`, -0.20452285288835306`}, { 0.74568985678103, 0.14999999999989777`, -0.15415392762424407`}, { 0.6837815209380937, 0.16880849028354297`, -0.20452285288739994`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 160], -0.20952285288835307`}, {0.75, Rational[3, 20], -0.15915392762424407`}, {0.6875, Rational[27, 160], -0.20952285288739994`}}, {{0.6875, 0.13125, -0.20952285288835307`}, {0.75, 0.15, -0.15915392762424407`}, {0.6875, 0.16875, -0.20952285288739994`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277091114998893, 0.1500000000001524, -0.2546395728071704}, { 0.6912184790619061, 0.16869150971645705`, -0.21452285288739995`}, { 0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.6222908885001107, 0.1499999999998476, -0.2446395728071704}, { 0.6837815209380939, 0.16880849028354297`, -0.20452285288739994`}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 20], -0.24963957280717042`}, {0.6875, Rational[27, 160], -0.20952285288739994`}, {0.625, Rational[3, 16], -0.2502372850555543}}, {{0.625, 0.15, -0.24963957280717042`}, {0.6875, 0.16875, -0.20952285288739994`}, {0.625, 0.1875, -0.2502372850555543}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912184790619218, 0.1313084902837973, -0.21452285288835307`}, { 0.6912184790619063, 0.16869150971645705`, -0.21452285288739995`}, { 0.6277091114998894, 0.1500000000001524, -0.2546395728071704}, { 0.6837815209380782, 0.13119150971620272`, -0.20452285288835306`}, { 0.6837815209380937, 0.16880849028354297`, -0.20452285288739994`}, { 0.6222908885001106, 0.1499999999998476, -0.2446395728071704}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 160], -0.20952285288835307`}, {0.6875, Rational[27, 160], -0.20952285288739994`}, {0.625, Rational[3, 20], -0.24963957280717042`}}, {{0.6875, 0.13125, -0.20952285288835307`}, {0.6875, 0.16875, -0.20952285288739994`}, {0.625, 0.15, -0.24963957280717042`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7543752802810846, 0.0751299288454991, -0.1651443414046265}, { 0.8169502239708221, 0.05627060300245392, -0.11017399070111651`}, { 0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.7456247197189154, 0.0748700711545009, -0.1551443414046265}, { 0.8080497760291779, 0.05622939699754608, -0.1001739907011165}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 40], -0.1601443414046265}, {0.8125, Rational[9, 160], -0.10517399070111651`}, {0.8125, Rational[3, 32], -0.10496112416102882`}}, {{0.75, 0.075, -0.1601443414046265}, {0.8125, 0.05625, -0.10517399070111651`}, {0.8125, 0.09375, -0.10496112416102882`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169502239708222, 0.05627060300245393, -0.11017399070111651`}, { 0.8788086248713322, 0.03738068731794896, -0.05822992154847933}, { 0.8787823815870669, 0.07497079206085773, -0.058677750436979606`}, { 0.8080497760291778, 0.056229396997546074`, -0.1001739907011165}, { 0.8711913751286678, 0.037619312682051036`, -0.04822992154847933}, { 0.8712176184129331, 0.07502920793914226, -0.04867775043697961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[9, 160], -0.10517399070111651`}, {0.875, Rational[3, 80], -0.05322992154847933}, {0.875, Rational[3, 40], -0.05367775043697961}}, {{0.8125, 0.05625, -0.10517399070111651`}, {0.875, 0.0375, -0.05322992154847933}, {0.875, 0.075, -0.05367775043697961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.8787823815870669, 0.07497079206085773, -0.058677750436979606`}, { 0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}, { 0.8712176184129331, 0.07502920793914226, -0.04867775043697961}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 32], -0.10496112416102882`}, {0.875, Rational[3, 40], -0.05367775043697961}, {0.875, Rational[9, 80], -0.0537432129303673}}, {{0.8125, 0.09375, -0.10496112416102882`}, {0.875, 0.075, -0.05367775043697961}, {0.875, 0.1125, -0.0537432129303673}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169502239708222, 0.05627060300245393, -0.11017399070111651`}, { 0.8787823815870669, 0.07497079206085773, -0.058677750436979606`}, { 0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.8080497760291778, 0.056229396997546074`, -0.1001739907011165}, { 0.8712176184129331, 0.07502920793914226, -0.04867775043697961}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[9, 160], -0.10517399070111651`}, {0.875, Rational[3, 40], -0.05367775043697961}, {0.8125, Rational[3, 32], -0.10496112416102882`}}, {{0.8125, 0.05625, -0.10517399070111651`}, {0.875, 0.075, -0.05367775043697961}, {0.8125, 0.09375, -0.10496112416102882`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.878808624871332, 0.037380687317948955`, -0.05822992154847933}, { 0.9397840011259049, 0.01857944966382229, -0.019374891847335266`}, { 0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, { 0.871191375128668, 0.03761931268205104, -0.04822992154847933}, { 0.9352159988740951, 0.01892055033617771, -0.009374891847335268}, { 0.9351480037298088, 0.05627842129125217, -0.01000049940746563}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 80], -0.05322992154847933}, {0.9375, Rational[3, 160], -0.014374891847335267`}, {0.9375, Rational[9, 160], -0.015000499407465631`}}, {{0.875, 0.0375, -0.05322992154847933}, {0.9375, 0.01875, -0.014374891847335267`}, {0.9375, 0.05625, -0.015000499407465631`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9397840011259049, 0.01857944966382229, -0.019374891847335266`}, {1., 0., -0.005}, {1., 0.0375, -0.005}, {0.9352159988740951, 0.01892055033617771, -0.009374891847335268}, {1., 0., 0.005}, {1., 0.0375, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[3, 160], -0.014374891847335267`}, {1., 0, 0.}, {1., Rational[3, 80], 0.}}, {{0.9375, 0.01875, -0.014374891847335267`}, {1., 0, 0.}, {1., 0.0375, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, {1., 0.0375, -0.005}, {1., 0.075, -0.005}, {0.9351480037298088, 0.05627842129125217, -0.01000049940746563}, {1., 0.0375, 0.005}, {1., 0.075, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[9, 160], -0.015000499407465631`}, {1., Rational[3, 80], 0.}, {1., Rational[3, 40], 0.}}, {{0.9375, 0.05625, -0.015000499407465631`}, {1., 0.0375, 0.}, {1., 0.075, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9397840011259049, 0.01857944966382229, -0.019374891847335266`}, {1., 0.0375, -0.005}, {0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, { 0.9352159988740951, 0.01892055033617771, -0.009374891847335268}, {1., 0.0375, 0.005}, {0.9351480037298088, 0.05627842129125217, -0.01000049940746563}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[3, 160], -0.014374891847335267`}, {1., Rational[3, 80], 0.}, {0.9375, Rational[9, 160], -0.015000499407465631`}}, {{0.9375, 0.01875, -0.014374891847335267`}, {1., 0.0375, 0.}, {0.9375, 0.05625, -0.015000499407465631`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.939875771080842, 0.09374909288178636, -0.02009213276429348}, { 0.9398788837145395, 0.13125097840820532`, -0.020089750054983174`}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}, { 0.935124228919158, 0.09375090711821364, -0.010092132764293483`}, { 0.9351211162854605, 0.1312490215917947, -0.010089750054983172`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 80], -0.0537432129303673}, {0.9375, Rational[3, 32], -0.015092132764293482`}, {0.9375, Rational[21, 160], -0.015089750054983173`}}, {{0.875, 0.1125, -0.0537432129303673}, {0.9375, 0.09375, -0.015092132764293482`}, {0.9375, 0.13125, -0.015089750054983173`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.939875771080842, 0.09374909288178636, -0.02009213276429348}, {1., 0.075, -0.005}, {1., 0.1125, -0.005}, {0.935124228919158, 0.09375090711821364, -0.010092132764293483`}, { 0.9999999999999999, 0.075, 0.005}, {0.9999999999999999, 0.1125, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[3, 32], -0.015092132764293482`}, {1., Rational[3, 40], 0.}, {1., Rational[9, 80], 0.}}, {{0.9375, 0.09375, -0.015092132764293482`}, {1., 0.075, 0.}, {1., 0.1125, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398788837145395, 0.13125097840820532`, -0.020089750054983174`}, {1., 0.1125, -0.005}, {1., 0.15, -0.005}, {0.9351211162854605, 0.1312490215917947, -0.010089750054983172`}, {1., 0.1125, 0.005}, {1., 0.15, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[21, 160], -0.015089750054983173`}, {1., Rational[9, 80], 0.}, {1., Rational[3, 20], 0.}}, {{0.9375, 0.13125, -0.015089750054983173`}, {1., 0.1125, 0.}, {1., 0.15, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.939875771080842, 0.09374909288178636, -0.02009213276429348}, {1., 0.1125, -0.005}, {0.9398788837145396, 0.13125097840820532`, -0.020089750054983174`}, { 0.935124228919158, 0.09375090711821364, -0.010092132764293483`}, { 0.9999999999999999, 0.1125, 0.005}, {0.9351211162854604, 0.1312490215917947, -0.010089750054983172`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[3, 32], -0.015092132764293482`}, {1., Rational[9, 80], 0.}, {0.9375, Rational[21, 160], -0.015089750054983173`}}, {{0.9375, 0.09375, -0.015092132764293482`}, {1., 0.1125, 0.}, {0.9375, 0.13125, -0.015089750054983173`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.878808624871332, 0.037380687317948955`, -0.05822992154847933}, { 0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, { 0.8787823815870668, 0.07497079206085773, -0.058677750436979606`}, { 0.871191375128668, 0.03761931268205104, -0.04822992154847933}, { 0.9351480037298088, 0.05627842129125217, -0.01000049940746563}, { 0.8712176184129332, 0.07502920793914226, -0.04867775043697961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 80], -0.05322992154847933}, {0.9375, Rational[9, 160], -0.015000499407465631`}, {0.875, Rational[3, 40], -0.05367775043697961}}, {{0.875, 0.0375, -0.05322992154847933}, {0.9375, 0.05625, -0.015000499407465631`}, {0.875, 0.075, -0.05367775043697961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, {1., 0.075, -0.005}, {0.939875771080842, 0.09374909288178636, -0.02009213276429348}, { 0.9351480037298088, 0.05627842129125217, -0.01000049940746563}, {1., 0.075, 0.005}, {0.935124228919158, 0.09375090711821364, -0.010092132764293483`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[9, 160], -0.015000499407465631`}, {1., Rational[3, 40], 0.}, {0.9375, Rational[3, 32], -0.015092132764293482`}}, {{0.9375, 0.05625, -0.015000499407465631`}, {1., 0.075, 0.}, {0.9375, 0.09375, -0.015092132764293482`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787823815870668, 0.07497079206085773, -0.058677750436979606`}, { 0.9398757710808419, 0.09374909288178636, -0.02009213276429348}, { 0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.8712176184129332, 0.07502920793914226, -0.04867775043697961}, { 0.9351242289191581, 0.09375090711821364, -0.010092132764293483`}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 40], -0.05367775043697961}, {0.9375, Rational[3, 32], -0.015092132764293482`}, {0.875, Rational[9, 80], -0.0537432129303673}}, {{0.875, 0.075, -0.05367775043697961}, {0.9375, 0.09375, -0.015092132764293482`}, {0.875, 0.1125, -0.0537432129303673}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398519962701912, 0.05622157870874783, -0.020000499407465632`}, { 0.939875771080842, 0.09374909288178636, -0.02009213276429348}, { 0.8787823815870669, 0.07497079206085773, -0.058677750436979606`}, { 0.9351480037298088, 0.05627842129125217, -0.01000049940746563}, { 0.935124228919158, 0.09375090711821364, -0.010092132764293483`}, { 0.8712176184129331, 0.07502920793914226, -0.04867775043697961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[9, 160], -0.015000499407465631`}, {0.9375, Rational[3, 32], -0.015092132764293482`}, {0.875, Rational[3, 40], -0.05367775043697961}}, {{0.9375, 0.05625, -0.015000499407465631`}, {0.9375, 0.09375, -0.015092132764293482`}, {0.875, 0.075, -0.05367775043697961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.754375280281028, 0.22487007115470675`, -0.1651443414015572}, { 0.8168942136463341, 0.20622399658238985`, -0.10996112415938926`}, { 0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.745624719718972, 0.22512992884529326`, -0.1551443414015572}, { 0.8081057863536659, 0.20627600341761013`, -0.09996112415938925}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 40], -0.1601443414015572}, {0.8125, Rational[33, 160], -0.10496112415938925`}, {0.8125, Rational[39, 160], -0.10517399069837176`}}, {{0.75, 0.225, -0.1601443414015572}, {0.8125, 0.20625, -0.10496112415938925`}, {0.8125, 0.24375, -0.10517399069837176`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168942136463341, 0.20622399658238985`, -0.10996112415938926`}, { 0.8787759157733395, 0.18750081175726355`, -0.05874321292977574}, { 0.8787823815869897, 0.225029207939218, -0.05867775043580541}, { 0.8081057863536659, 0.20627600341761013`, -0.09996112415938925}, { 0.8712240842266605, 0.18749918824273645`, -0.048743212929775744`}, { 0.8712176184130103, 0.22497079206078202`, -0.04867775043580542}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[33, 160], -0.10496112415938925`}, {0.875, Rational[3, 16], -0.05374321292977574}, {0.875, Rational[9, 40], -0.053677750435805416`}}, {{0.8125, 0.20625, -0.10496112415938925`}, {0.875, 0.1875, -0.05374321292977574}, {0.875, 0.225, -0.053677750435805416`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.8787823815869897, 0.225029207939218, -0.05867775043580541}, { 0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}, { 0.8712176184130103, 0.22497079206078202`, -0.04867775043580542}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[39, 160], -0.10517399069837176`}, {0.875, Rational[9, 40], -0.053677750435805416`}, {0.875, Rational[21, 80], -0.053229921546737405`}}, {{0.8125, 0.24375, -0.10517399069837176`}, {0.875, 0.225, -0.053677750435805416`}, {0.875, 0.2625, -0.053229921546737405`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168942136463341, 0.20622399658238985`, -0.10996112415938926`}, { 0.8787823815869897, 0.225029207939218, -0.05867775043580541}, { 0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.8081057863536659, 0.20627600341761013`, -0.09996112415938925}, { 0.8712176184130103, 0.22497079206078202`, -0.04867775043580542}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[33, 160], -0.10496112415938925`}, {0.875, Rational[9, 40], -0.053677750435805416`}, {0.8125, Rational[39, 160], -0.10517399069837176`}}, {{0.8125, 0.20625, -0.10496112415938925`}, {0.875, 0.225, -0.053677750435805416`}, {0.8125, 0.24375, -0.10517399069837176`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787759157733396, 0.18750081175726355`, -0.05874321292977574}, { 0.9398788837145258, 0.16874902159181532`, -0.02008975005489528}, { 0.939875771080801, 0.20625090711823382`, -0.02009213276403166}, { 0.8712240842266604, 0.18749918824273645`, -0.048743212929775744`}, { 0.9351211162854742, 0.1687509784081847, -0.010089750054895277`}, { 0.935124228919199, 0.20624909288176616`, -0.010092132764031658`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 16], -0.05374321292977574}, {0.9375, Rational[27, 160], -0.015089750054895278`}, {0.9375, Rational[33, 160], -0.015092132764031659`}}, {{0.875, 0.1875, -0.05374321292977574}, {0.9375, 0.16875, -0.015089750054895278`}, {0.9375, 0.20625, -0.015092132764031659`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398788837145257, 0.16874902159181532`, -0.02008975005489528}, {1., 0.15, -0.005}, {1., 0.1875, -0.005}, {0.9351211162854743, 0.1687509784081847, -0.010089750054895277`}, {1., 0.15, 0.005}, {1., 0.1875, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[27, 160], -0.015089750054895278`}, {1., Rational[3, 20], 0.}, {1., Rational[3, 16], 0.}}, {{0.9375, 0.16875, -0.015089750054895278`}, {1., 0.15, 0.}, {1., 0.1875, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.939875771080801, 0.20625090711823382`, -0.02009213276403166}, {1., 0.1875, -0.005}, {1., 0.225, -0.005}, {0.935124228919199, 0.20624909288176616`, -0.010092132764031658`}, {1., 0.1875, 0.005}, {1., 0.225, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.9375, Rational[33, 160], -0.015092132764031659`}, {1., Rational[3, 16], 0.}, {1., Rational[9, 40], 0.}}, {{0.9375, 0.20625, -0.015092132764031659`}, {1., 0.1875, 0.}, {1., 0.225, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398788837145257, 0.16874902159181532`, -0.02008975005489528}, {1., 0.1875, -0.005}, {0.9398757710808009, 0.20625090711823382`, -0.02009213276403166}, { 0.9351211162854743, 0.1687509784081847, -0.010089750054895277`}, {1., 0.1875, 0.005}, {0.9351242289191991, 0.20624909288176616`, -0.010092132764031658`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[27, 160], -0.015089750054895278`}, {1., Rational[3, 16], 0.}, {0.9375, Rational[33, 160], -0.015092132764031659`}}, {{0.9375, 0.16875, -0.015089750054895278`}, {1., 0.1875, 0.}, {0.9375, 0.20625, -0.015092132764031659`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.9398519962701242, 0.24377842129127145`, -0.020000499407034973`}, { 0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}, { 0.9351480037298758, 0.24372157870872854`, -0.010000499407034975`}, { 0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[21, 80], -0.053229921546737405`}, {0.9375, Rational[39, 160], -0.015000499407034974`}, {0.9375, Rational[9, 32], -0.014374891846751362`}}, {{0.875, 0.2625, -0.053229921546737405`}, {0.9375, 0.24375, -0.015000499407034974`}, {0.9375, 0.28125, -0.014374891846751362`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398519962701242, 0.24377842129127147`, -0.020000499407034973`}, {1., 0.225, -0.005}, {1., 0.2625, -0.005}, {0.9351480037298758, 0.24372157870872851`, -0.010000499407034975`}, {1., 0.225, 0.005}, {1., 0.2625, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.9375, Rational[39, 160], -0.015000499407034974`}, {1., Rational[9, 40], 0.}, {1., Rational[21, 80], 0.}}, {{0.9375, 0.24375, -0.015000499407034974`}, {1., 0.225, 0.}, {1., 0.2625, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, {1., 0.2625, -0.005}, {1., 0.3, -0.005}, {0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}, {1., 0.2625, 0.005}, {1., 0.3, 0.005}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[ NCache[{{0.9375, Rational[9, 32], -0.014374891846751362`}, {1., Rational[21, 80], 0.}, {1., Rational[3, 10], 0.}}, {{0.9375, 0.28125, -0.014374891846751362`}, {1., 0.2625, 0.}, {1., 0.3, 0.}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398519962701242, 0.24377842129127147`, -0.020000499407034973`}, {1., 0.2625, -0.005}, {0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, { 0.9351480037298758, 0.24372157870872851`, -0.010000499407034975`}, {1., 0.2625, 0.005}, {0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[39, 160], -0.015000499407034974`}, {1., Rational[21, 80], 0.}, {0.9375, Rational[9, 32], -0.014374891846751362`}}, {{0.9375, 0.24375, -0.015000499407034974`}, {1., 0.2625, 0.}, {0.9375, 0.28125, -0.014374891846751362`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787759157733396, 0.18750081175726355`, -0.05874321292977574}, { 0.939875771080801, 0.20625090711823382`, -0.02009213276403166}, { 0.8787823815869898, 0.22502920793921796`, -0.05867775043580541}, { 0.8712240842266604, 0.18749918824273645`, -0.048743212929775744`}, { 0.935124228919199, 0.20624909288176616`, -0.010092132764031658`}, { 0.8712176184130102, 0.22497079206078205`, -0.04867775043580542}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 16], -0.05374321292977574}, {0.9375, Rational[33, 160], -0.015092132764031659`}, {0.875, Rational[9, 40], -0.053677750435805416`}}, {{0.875, 0.1875, -0.05374321292977574}, {0.9375, 0.20625, -0.015092132764031659`}, {0.875, 0.225, -0.053677750435805416`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.939875771080801, 0.20625090711823382`, -0.02009213276403166}, {1., 0.225, -0.005}, {0.9398519962701243, 0.24377842129127147`, -0.020000499407034973`}, { 0.935124228919199, 0.20624909288176616`, -0.010092132764031658`}, {1., 0.225, 0.005}, {0.9351480037298757, 0.24372157870872851`, -0.010000499407034975`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[33, 160], -0.015092132764031659`}, {1., Rational[9, 40], 0.}, {0.9375, Rational[39, 160], -0.015000499407034974`}}, {{0.9375, 0.20625, -0.015092132764031659`}, {1., 0.225, 0.}, {0.9375, 0.24375, -0.015000499407034974`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787823815869897, 0.225029207939218, -0.05867775043580541}, { 0.9398519962701242, 0.24377842129127147`, -0.020000499407034973`}, { 0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.8712176184130103, 0.22497079206078202`, -0.04867775043580542}, { 0.9351480037298758, 0.24372157870872851`, -0.010000499407034975`}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 40], -0.053677750435805416`}, {0.9375, Rational[39, 160], -0.015000499407034974`}, {0.875, Rational[21, 80], -0.053229921546737405`}}, {{0.875, 0.225, -0.053677750435805416`}, {0.9375, 0.24375, -0.015000499407034974`}, {0.875, 0.2625, -0.053229921546737405`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.939875771080801, 0.20625090711823382`, -0.02009213276403166}, { 0.9398519962701243, 0.24377842129127147`, -0.020000499407034973`}, { 0.8787823815869898, 0.22502920793921796`, -0.05867775043580541}, { 0.935124228919199, 0.20624909288176616`, -0.010092132764031658`}, { 0.9351480037298757, 0.24372157870872851`, -0.010000499407034975`}, { 0.8712176184130102, 0.22497079206078205`, -0.04867775043580542}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[33, 160], -0.015092132764031659`}, {0.9375, Rational[39, 160], -0.015000499407034974`}, {0.875, Rational[9, 40], -0.053677750435805416`}}, {{0.9375, 0.20625, -0.015092132764031659`}, {0.9375, 0.24375, -0.015000499407034974`}, {0.875, 0.225, -0.053677750435805416`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7543752802810846, 0.0751299288454991, -0.1651443414046265}, { 0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.7543253275379612, 0.11256614498117087`, -0.16440380894397724`}, { 0.7456247197189154, 0.0748700711545009, -0.1551443414046265}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}, { 0.7456746724620388, 0.11243385501882913`, -0.15440380894397723`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 40], -0.1601443414046265}, {0.8125, Rational[3, 32], -0.10496112416102882`}, {0.75, Rational[9, 80], -0.15940380894397724`}}, {{0.75, 0.075, -0.1601443414046265}, {0.8125, 0.09375, -0.10496112416102882`}, {0.75, 0.1125, -0.15940380894397724`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.8168720144165387, 0.1312609648551698, -0.1098026542526826}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}, { 0.8081279855834613, 0.1312390351448302, -0.09980265425268259}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 32], -0.10496112416102882`}, {0.875, Rational[9, 80], -0.0537432129303673}, {0.8125, Rational[21, 160], -0.10480265425268259`}}, {{0.8125, 0.09375, -0.10496112416102882`}, {0.875, 0.1125, -0.0537432129303673}, {0.8125, 0.13125, -0.10480265425268259`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7543253275379612, 0.11256614498117087`, -0.16440380894397724`}, { 0.8168720144165387, 0.1312609648551698, -0.1098026542526826}, { 0.7543101432189699, 0.1500000000001022, -0.16415392762424408`}, { 0.7456746724620388, 0.11243385501882913`, -0.15440380894397723`}, { 0.8081279855834613, 0.1312390351448302, -0.09980265425268259}, { 0.7456898567810301, 0.1499999999998978, -0.15415392762424407`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 80], -0.15940380894397724`}, {0.8125, Rational[21, 160], -0.10480265425268259`}, {0.75, Rational[3, 20], -0.15915392762424407`}}, {{0.75, 0.1125, -0.15940380894397724`}, {0.8125, 0.13125, -0.10480265425268259`}, {0.75, 0.15, -0.15915392762424407`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168942136463963, 0.09377600341775753, -0.10996112416102882`}, { 0.8168720144165387, 0.1312609648551698, -0.1098026542526826}, { 0.7543253275379612, 0.11256614498117087`, -0.16440380894397724`}, { 0.8081057863536037, 0.09372399658224247, -0.09996112416102881}, { 0.8081279855834613, 0.1312390351448302, -0.09980265425268259}, { 0.7456746724620388, 0.11243385501882913`, -0.15440380894397723`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[3, 32], -0.10496112416102882`}, {0.8125, Rational[21, 160], -0.10480265425268259`}, {0.75, Rational[9, 80], -0.15940380894397724`}}, {{0.8125, 0.09375, -0.10496112416102882`}, {0.8125, 0.13125, -0.10480265425268259`}, {0.75, 0.1125, -0.15940380894397724`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.9398788837145395, 0.13125097840820532`, -0.020089750054983174`}, { 0.8787740144377598, 0.15000000000003938`, -0.05873423527240438}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}, { 0.9351211162854605, 0.1312490215917947, -0.010089750054983172`}, { 0.8712259855622402, 0.1499999999999606, -0.048734235272404385`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 80], -0.0537432129303673}, {0.9375, Rational[21, 160], -0.015089750054983173`}, {0.875, Rational[3, 20], -0.05373423527240438}}, {{0.875, 0.1125, -0.0537432129303673}, {0.9375, 0.13125, -0.015089750054983173`}, {0.875, 0.15, -0.05373423527240438}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398788837145395, 0.13125097840820532`, -0.020089750054983174`}, {1., 0.15, -0.005}, {0.9398788837145257, 0.16874902159181532`, -0.02008975005489528}, { 0.9351211162854605, 0.1312490215917947, -0.010089750054983172`}, {1., 0.15, 0.005}, {0.9351211162854743, 0.1687509784081847, -0.010089750054895277`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[21, 160], -0.015089750054983173`}, {1., Rational[3, 20], 0.}, {0.9375, Rational[27, 160], -0.015089750054895278`}}, {{0.9375, 0.13125, -0.015089750054983173`}, {1., 0.15, 0.}, {0.9375, 0.16875, -0.015089750054895278`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787740144377598, 0.1500000000000394, -0.05873423527240438}, { 0.9398788837145257, 0.16874902159181535`, -0.02008975005489528}, { 0.8787759157733395, 0.18750081175726355`, -0.05874321292977574}, { 0.8712259855622402, 0.14999999999996058`, -0.048734235272404385`}, { 0.9351211162854743, 0.16875097840818468`, -0.010089750054895277`}, { 0.8712240842266605, 0.18749918824273645`, -0.048743212929775744`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 20], -0.05373423527240438}, {0.9375, Rational[27, 160], -0.015089750054895278`}, {0.875, Rational[3, 16], -0.05374321292977574}}, {{0.875, 0.15, -0.05373423527240438}, {0.9375, 0.16875, -0.015089750054895278`}, {0.875, 0.1875, -0.05374321292977574}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9398788837145395, 0.13125097840820532`, -0.020089750054983174`}, { 0.9398788837145257, 0.16874902159181532`, -0.02008975005489528}, { 0.8787740144377598, 0.1500000000000394, -0.05873423527240438}, { 0.9351211162854605, 0.1312490215917947, -0.010089750054983172`}, { 0.9351211162854743, 0.1687509784081847, -0.010089750054895277`}, { 0.8712259855622402, 0.14999999999996058`, -0.048734235272404385`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[21, 160], -0.015089750054983173`}, {0.9375, Rational[27, 160], -0.015089750054895278`}, {0.875, Rational[3, 20], -0.05373423527240438}}, {{0.9375, 0.13125, -0.015089750054983173`}, {0.9375, 0.16875, -0.015089750054895278`}, {0.875, 0.15, -0.05373423527240438}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.7543101432189699, 0.15000000000010222`, -0.16415392762424408`}, { 0.8168720144165185, 0.16873903514497635`, -0.10980265425213746`}, { 0.7543253275379318, 0.18743385501903442`, -0.16440380894244624`}, { 0.7456898567810301, 0.14999999999989777`, -0.15415392762424407`}, { 0.8081279855834815, 0.16876096485502368`, -0.09980265425213745}, { 0.7456746724620682, 0.18756614498096558`, -0.15440380894244624`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 20], -0.15915392762424407`}, {0.8125, Rational[27, 160], -0.10480265425213746`}, {0.75, Rational[3, 16], -0.15940380894244624`}}, {{0.75, 0.15, -0.15915392762424407`}, {0.8125, 0.16875, -0.10480265425213746`}, {0.75, 0.1875, -0.15940380894244624`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168720144165186, 0.16873903514497632`, -0.10980265425213746`}, { 0.8787759157733396, 0.18750081175726355`, -0.05874321292977574}, { 0.8168942136463341, 0.20622399658238982`, -0.10996112415938926`}, { 0.8081279855834814, 0.1687609648550237, -0.09980265425213745}, { 0.8712240842266604, 0.18749918824273645`, -0.048743212929775744`}, { 0.8081057863536659, 0.20627600341761015`, -0.09996112415938925}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[27, 160], -0.10480265425213746`}, {0.875, Rational[3, 16], -0.05374321292977574}, {0.8125, Rational[33, 160], -0.10496112415938925`}}, {{0.8125, 0.16875, -0.10480265425213746`}, {0.875, 0.1875, -0.05374321292977574}, {0.8125, 0.20625, -0.10496112415938925`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7543253275379318, 0.18743385501903442`, -0.16440380894244624`}, { 0.8168942136463341, 0.20622399658238985`, -0.10996112415938926`}, { 0.754375280281028, 0.22487007115470675`, -0.1651443414015572}, { 0.7456746724620682, 0.18756614498096558`, -0.15440380894244624`}, { 0.8081057863536659, 0.20627600341761013`, -0.09996112415938925}, { 0.745624719718972, 0.22512992884529326`, -0.1551443414015572}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[3, 16], -0.15940380894244624`}, {0.8125, Rational[33, 160], -0.10496112415938925`}, {0.75, Rational[9, 40], -0.1601443414015572}}, {{0.75, 0.1875, -0.15940380894244624`}, {0.8125, 0.20625, -0.10496112415938925`}, {0.75, 0.225, -0.1601443414015572}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.8168720144165186, 0.16873903514497632`, -0.10980265425213746`}, { 0.8168942136463341, 0.20622399658238982`, -0.10996112415938926`}, { 0.7543253275379319, 0.18743385501903442`, -0.16440380894244624`}, { 0.8081279855834814, 0.1687609648550237, -0.09980265425213745}, { 0.8081057863536659, 0.20627600341761015`, -0.09996112415938925}, { 0.7456746724620681, 0.18756614498096558`, -0.15440380894244624`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[27, 160], -0.10480265425213746`}, {0.8125, Rational[33, 160], -0.10496112415938925`}, {0.75, Rational[3, 16], -0.15940380894244624`}}, {{0.8125, 0.16875, -0.10480265425213746`}, {0.8125, 0.20625, -0.10496112415938925`}, {0.75, 0.1875, -0.15940380894244624`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787759157733782, 0.11249918824281407`, -0.0587432129303673}, { 0.8787740144377598, 0.15000000000003938`, -0.05873423527240438}, { 0.8168720144165387, 0.1312609648551698, -0.1098026542526826}, { 0.8712240842266218, 0.11250081175718593`, -0.048743212930367305`}, { 0.8712259855622402, 0.1499999999999606, -0.048734235272404385`}, { 0.8081279855834613, 0.1312390351448302, -0.09980265425268259}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 80], -0.0537432129303673}, {0.875, Rational[3, 20], -0.05373423527240438}, {0.8125, Rational[21, 160], -0.10480265425268259`}}, {{0.875, 0.1125, -0.0537432129303673}, {0.875, 0.15, -0.05373423527240438}, {0.8125, 0.13125, -0.10480265425268259`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787740144377598, 0.1500000000000394, -0.05873423527240438}, { 0.8787759157733395, 0.18750081175726355`, -0.05874321292977574}, { 0.8168720144165185, 0.16873903514497635`, -0.10980265425213746`}, { 0.8712259855622402, 0.14999999999996058`, -0.048734235272404385`}, { 0.8712240842266605, 0.18749918824273645`, -0.048743212929775744`}, { 0.8081279855834815, 0.16876096485502368`, -0.09980265425213745}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 20], -0.05373423527240438}, {0.875, Rational[3, 16], -0.05374321292977574}, {0.8125, Rational[27, 160], -0.10480265425213746`}}, {{0.875, 0.15, -0.05373423527240438}, {0.875, 0.1875, -0.05374321292977574}, {0.8125, 0.16875, -0.10480265425213746`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8168720144165387, 0.1312609648551698, -0.1098026542526826}, { 0.8168720144165186, 0.16873903514497632`, -0.10980265425213746`}, { 0.7543101432189699, 0.1500000000001022, -0.16415392762424408`}, { 0.8081279855834613, 0.1312390351448302, -0.09980265425268259}, { 0.8081279855834814, 0.1687609648550237, -0.09980265425213745}, { 0.7456898567810301, 0.1499999999998978, -0.15415392762424407`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[21, 160], -0.10480265425268259`}, {0.8125, Rational[27, 160], -0.10480265425213746`}, {0.75, Rational[3, 20], -0.15915392762424407`}}, {{0.8125, 0.13125, -0.10480265425268259`}, {0.8125, 0.16875, -0.10480265425213746`}, {0.75, 0.15, -0.15915392762424407`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8787740144377598, 0.1500000000000394, -0.05873423527240438}, { 0.8168720144165185, 0.16873903514497635`, -0.10980265425213746`}, { 0.8168720144165387, 0.13126096485516983`, -0.1098026542526826}, { 0.8712259855622402, 0.14999999999996058`, -0.048734235272404385`}, { 0.8081279855834815, 0.16876096485502368`, -0.09980265425213745}, { 0.8081279855834613, 0.13123903514483018`, -0.09980265425268259}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[3, 20], -0.05373423527240438}, {0.8125, Rational[27, 160], -0.10480265425213746`}, {0.8125, Rational[21, 160], -0.10480265425268259`}}, {{0.875, 0.15, -0.05373423527240438}, {0.8125, 0.16875, -0.10480265425213746`}, {0.8125, 0.13125, -0.10480265425268259`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0., 0.3, -0.005}, {0.0602159988741718, 0.28142055033619406`, -0.01937489184684323}, { 0.06026449667120821, 0.30033447135940394`, -0.01854768977920296}, {0., 0.3, 0.005}, {0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}, { 0.06473550332879179, 0.29966552864059604`, -0.00854768977920296}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0., Rational[3, 10], 0.}, {0.0625, Rational[9, 32], -0.01437489184684323}, {0.0625, Rational[3, 10], -0.01354768977920296}}, {{0., 0.3, 0.}, {0.0625, 0.28125, -0.01437489184684323}, {0.0625, 0.3, -0.01354768977920296}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.0602159988741718, 0.28142055033619406`, -0.01937489184684323}, { 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.12116612038625574`, 0.28144514071739185`, -0.05768974770855819}, { 0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}, { 0.12880862487124017`, 0.26238068731787734`, -0.048229921547083957`}, { 0.12883387961374426`, 0.28105485928260815`, -0.047689747708558196`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[9, 32], -0.01437489184684323}, {0.125, Rational[21, 80], -0.053229921547083954`}, {0.125, Rational[9, 32], -0.05268974770855819}}, {{0.0625, 0.28125, -0.01437489184684323}, {0.125, 0.2625, -0.053229921547083954`}, {0.125, 0.28125, -0.05268974770855819}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.06026449667120821, 0.30033447135940394`, -0.01854768977920296}, { 0.12116612038625575`, 0.2814451407173918, -0.05768974770855819}, { 0.1211343971482826, 0.3003016749534889, -0.056806389163082026`}, { 0.06473550332879179, 0.29966552864059604`, -0.00854768977920296}, { 0.12883387961374426`, 0.2810548592826082, -0.047689747708558196`}, { 0.12886560285171741`, 0.29969832504651106`, -0.04680638916308203}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[3, 10], -0.01354768977920296}, {0.125, Rational[9, 32], -0.05268974770855819}, {0.125, Rational[3, 10], -0.05180638916308203}}, {{0.0625, 0.3, -0.01354768977920296}, {0.125, 0.28125, -0.05268974770855819}, {0.125, 0.3, -0.05180638916308203}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.0602159988741718, 0.28142055033619406`, -0.01937489184684323}, { 0.12116612038625574`, 0.28144514071739185`, -0.05768974770855819}, { 0.060264496671208215`, 0.300334471359404, -0.01854768977920296}, { 0.0647840011258282, 0.28107944966380594`, -0.00937489184684323}, { 0.12883387961374426`, 0.28105485928260815`, -0.047689747708558196`}, { 0.0647355033287918, 0.299665528640596, -0.00854768977920296}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.0625, Rational[9, 32], -0.01437489184684323}, {0.125, Rational[9, 32], -0.05268974770855819}, {0.0625, Rational[3, 10], -0.01354768977920296}}, {{0.0625, 0.28125, -0.01437489184684323}, {0.125, 0.28125, -0.05268974770855819}, {0.0625, 0.3, -0.01354768977920296}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.18304977602926034`, 0.24372939699768012`, -0.11017399069901002`}, { 0.18300474606919837`, 0.2624946739569123, -0.11022553999828781`}, { 0.12880862487124015`, 0.26238068731787734`, -0.048229921547083957`}, { 0.19195022397073966`, 0.24377060300231987`, -0.10017399069901001`}, { 0.19199525393080163`, 0.26250532604308774`, -0.1002255399982878}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[21, 80], -0.053229921547083954`}, {0.1875, Rational[39, 160], -0.10517399069901001`}, {0.1875, Rational[21, 80], -0.1052255399982878}}, {{0.125, 0.2625, -0.053229921547083954`}, {0.1875, 0.24375, -0.10517399069901001`}, {0.1875, 0.2625, -0.1052255399982878}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18304977602926034`, 0.24372939699768012`, -0.11017399069901002`}, { 0.24562471971898406`, 0.22487007115469781`, -0.16514434140219977`}, { 0.24558482099844617`, 0.243590471937408, -0.1656762334228765}, { 0.19195022397073966`, 0.24377060300231987`, -0.10017399069901001`}, { 0.2543752802810159, 0.2251299288453022, -0.15514434140219976`}, { 0.25441517900155386`, 0.243909528062592, -0.15567623342287648`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[39, 160], -0.10517399069901001`}, {0.25, Rational[9, 40], -0.16014434140219977`}, {0.25, Rational[39, 160], -0.16067623342287649`}}, {{0.1875, 0.24375, -0.10517399069901001`}, {0.25, 0.225, -0.16014434140219977`}, {0.25, 0.24375, -0.16067623342287649`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18300474606919834`, 0.2624946739569123, -0.11022553999828781`}, { 0.24558482099844617`, 0.243590471937408, -0.1656762334228765}, { 0.2455344061649439, 0.26231121077855013`, -0.16631639907127774`}, { 0.19199525393080166`, 0.26250532604308774`, -0.1002255399982878}, { 0.2544151790015538, 0.243909528062592, -0.15567623342287648`}, { 0.25446559383505607`, 0.2626887892214499, -0.15631639907127773`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[21, 80], -0.1052255399982878}, {0.25, Rational[39, 160], -0.16067623342287649`}, {0.25, Rational[21, 80], -0.16131639907127773`}}, {{0.1875, 0.2625, -0.1052255399982878}, {0.25, 0.24375, -0.16067623342287649`}, {0.25, 0.2625, -0.16131639907127773`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18304977602926034`, 0.24372939699768012`, -0.11017399069901002`}, { 0.24558482099844617`, 0.243590471937408, -0.1656762334228765}, { 0.18300474606919834`, 0.2624946739569123, -0.11022553999828781`}, { 0.19195022397073966`, 0.24377060300231987`, -0.10017399069901001`}, { 0.25441517900155386`, 0.243909528062592, -0.15567623342287648`}, { 0.19199525393080166`, 0.26250532604308774`, -0.1002255399982878}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[39, 160], -0.10517399069901001`}, {0.25, Rational[39, 160], -0.16067623342287649`}, {0.1875, Rational[21, 80], -0.1052255399982878}}, {{0.1875, 0.24375, -0.10517399069901001`}, {0.25, 0.24375, -0.16067623342287649`}, {0.1875, 0.2625, -0.1052255399982878}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1211343971482826, 0.3003016749534889, -0.056806389163082026`}, { 0.18294847990046542`, 0.28126865701874504`, -0.11020278952204485`}, { 0.18288338944948318`, 0.3000526872446543, -0.1100654731939096}, { 0.12886560285171741`, 0.29969832504651106`, -0.04680638916308203}, { 0.19205152009953458`, 0.28123134298125496`, -0.10020278952204484`}, { 0.19211661055051682`, 0.2999473127553457, -0.10006547319390958`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[3, 10], -0.05180638916308203}, {0.1875, Rational[9, 32], -0.10520278952204484`}, {0.1875, Rational[3, 10], -0.10506547319390959`}}, {{0.125, 0.3, -0.05180638916308203}, {0.1875, 0.28125, -0.10520278952204484`}, {0.1875, 0.3, -0.10506547319390959`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18294847990046542`, 0.2812686570187451, -0.11020278952204485`}, { 0.24553440616494393`, 0.2623112107785502, -0.16631639907127774`}, { 0.24547165508412883`, 0.2810320172714161, -0.1670617017901366}, { 0.19205152009953458`, 0.2812313429812549, -0.10020278952204484`}, { 0.25446559383505607`, 0.26268878922144984`, -0.15631639907127773`}, { 0.2545283449158712, 0.2814679827285839, -0.1570617017901366}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[9, 32], -0.10520278952204484`}, {0.25, Rational[21, 80], -0.16131639907127773`}, {0.25, Rational[9, 32], -0.1620617017901366}}, {{0.1875, 0.28125, -0.10520278952204484`}, {0.25, 0.2625, -0.16131639907127773`}, {0.25, 0.28125, -0.1620617017901366}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.1828833894494832, 0.3000526872446543, -0.1100654731939096}, { 0.24547165508412885`, 0.281032017271416, -0.1670617017901366}, { 0.24540197322911514`, 0.2997518997663832, -0.1679121949079212}, { 0.1921166105505168, 0.2999473127553457, -0.10006547319390958`}, { 0.2545283449158712, 0.281467982728584, -0.1570617017901366}, { 0.25459802677088483`, 0.30024810023361675`, -0.1579121949079212}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[3, 10], -0.10506547319390959`}, {0.25, Rational[9, 32], -0.1620617017901366}, {0.25, Rational[3, 10], -0.1629121949079212}}, {{0.1875, 0.3, -0.10506547319390959`}, {0.25, 0.28125, -0.1620617017901366}, {0.25, 0.3, -0.1629121949079212}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18294847990046542`, 0.2812686570187451, -0.11020278952204485`}, { 0.24547165508412883`, 0.2810320172714161, -0.1670617017901366}, { 0.18288338944948318`, 0.30005268724465434`, -0.1100654731939096}, { 0.19205152009953458`, 0.2812313429812549, -0.10020278952204484`}, { 0.2545283449158712, 0.2814679827285839, -0.1570617017901366}, { 0.19211661055051682`, 0.29994731275534564`, -0.10006547319390958`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[9, 32], -0.10520278952204484`}, {0.25, Rational[9, 32], -0.1620617017901366}, {0.1875, Rational[3, 10], -0.10506547319390959`}}, {{0.1875, 0.28125, -0.10520278952204484`}, {0.25, 0.28125, -0.1620617017901366}, {0.1875, 0.3, -0.10506547319390959`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.12119137512875984`, 0.2626193126821227, -0.05822992154708395}, { 0.18300474606919837`, 0.2624946739569123, -0.11022553999828781`}, { 0.12116612038625574`, 0.28144514071739185`, -0.05768974770855819}, { 0.12880862487124015`, 0.26238068731787734`, -0.048229921547083957`}, { 0.19199525393080163`, 0.26250532604308774`, -0.1002255399982878}, { 0.12883387961374423`, 0.28105485928260815`, -0.047689747708558196`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[21, 80], -0.053229921547083954`}, {0.1875, Rational[21, 80], -0.1052255399982878}, {0.125, Rational[9, 32], -0.05268974770855819}}, {{0.125, 0.2625, -0.053229921547083954`}, {0.1875, 0.2625, -0.1052255399982878}, {0.125, 0.28125, -0.05268974770855819}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.18300474606919834`, 0.2624946739569123, -0.11022553999828781`}, { 0.2455344061649439, 0.26231121077855013`, -0.16631639907127774`}, { 0.18294847990046542`, 0.28126865701874504`, -0.11020278952204485`}, { 0.19199525393080166`, 0.26250532604308774`, -0.1002255399982878}, { 0.25446559383505607`, 0.2626887892214499, -0.15631639907127773`}, { 0.19205152009953458`, 0.28123134298125496`, -0.10020278952204484`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[21, 80], -0.1052255399982878}, {0.25, Rational[21, 80], -0.16131639907127773`}, {0.1875, Rational[9, 32], -0.10520278952204484`}}, {{0.1875, 0.2625, -0.1052255399982878}, {0.25, 0.2625, -0.16131639907127773`}, {0.1875, 0.28125, -0.10520278952204484`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.12116612038625574`, 0.28144514071739185`, -0.05768974770855819}, { 0.18294847990046542`, 0.2812686570187451, -0.11020278952204485`}, { 0.1211343971482826, 0.300301674953489, -0.056806389163082026`}, { 0.12883387961374426`, 0.28105485928260815`, -0.047689747708558196`}, { 0.19205152009953458`, 0.2812313429812549, -0.10020278952204484`}, { 0.12886560285171741`, 0.299698325046511, -0.04680638916308203}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.125, Rational[9, 32], -0.05268974770855819}, {0.1875, Rational[9, 32], -0.10520278952204484`}, {0.125, Rational[3, 10], -0.05180638916308203}}, {{0.125, 0.28125, -0.05268974770855819}, {0.1875, 0.28125, -0.10520278952204484`}, {0.125, 0.3, -0.05180638916308203}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.18300474606919834`, 0.2624946739569123, -0.11022553999828781`}, { 0.18294847990046542`, 0.28126865701874504`, -0.11020278952204485`}, { 0.12116612038625575`, 0.28144514071739185`, -0.05768974770855819}, { 0.19199525393080166`, 0.26250532604308774`, -0.1002255399982878}, { 0.19205152009953458`, 0.28123134298125496`, -0.10020278952204484`}, { 0.12883387961374426`, 0.28105485928260815`, -0.047689747708558196`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.1875, Rational[21, 80], -0.1052255399982878}, {0.1875, Rational[9, 32], -0.10520278952204484`}, {0.125, Rational[9, 32], -0.05268974770855819}}, {{0.1875, 0.2625, -0.1052255399982878}, {0.1875, 0.28125, -0.10520278952204484`}, {0.125, 0.28125, -0.05268974770855819}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24562471971898409`, 0.22487007115469781`, -0.16514434140219977`}, { 0.30875107767167403`, 0.20607217525795665`, -0.21540271105952366`}, { 0.30872367347505036`, 0.22476087049791707`, -0.216169469266788}, { 0.2543752802810159, 0.2251299288453022, -0.15514434140219976`}, { 0.31624892232832597`, 0.20642782474204333`, -0.20540271105952365`}, { 0.31627632652494964`, 0.22523912950208294`, -0.206169469266788}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 40], -0.16014434140219977`}, {0.3125, Rational[33, 160], -0.21040271105952366`}, {0.3125, Rational[9, 40], -0.211169469266788}}, {{0.25, 0.225, -0.16014434140219977`}, {0.3125, 0.20625, -0.21040271105952366`}, {0.3125, 0.225, -0.211169469266788}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.308751077671674, 0.20607217525795668`, -0.21540271105952366`}, { 0.37227966033428694`, 0.18733892154268234`, -0.25523728505597043`}, { 0.3722655188869711, 0.20600626241326814`, -0.2559828799725961}, { 0.316248922328326, 0.2064278247420433, -0.20540271105952365`}, { 0.37772033966571306`, 0.18766107845731766`, -0.24523728505597042`}, { 0.3777344811130289, 0.20649373758673184`, -0.2459828799725961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[33, 160], -0.21040271105952366`}, {0.375, Rational[3, 16], -0.2502372850559704}, {0.375, Rational[33, 160], -0.2509828799725961}}, {{0.3125, 0.20625, -0.21040271105952366`}, {0.375, 0.1875, -0.2502372850559704}, {0.375, 0.20625, -0.2509828799725961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087236734750503, 0.22476087049791707`, -0.216169469266788}, { 0.3722655188869711, 0.20600626241326814`, -0.2559828799725961}, { 0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.3162763265249497, 0.22523912950208294`, -0.206169469266788}, { 0.3777344811130289, 0.20649373758673184`, -0.2459828799725961}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 40], -0.211169469266788}, {0.375, Rational[33, 160], -0.2509828799725961}, {0.375, Rational[9, 40], -0.25204257059466867`}}, {{0.3125, 0.225, -0.211169469266788}, {0.375, 0.20625, -0.2509828799725961}, {0.375, 0.225, -0.25204257059466867`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.308751077671674, 0.20607217525795668`, -0.21540271105952366`}, { 0.3722655188869711, 0.20600626241326814`, -0.2559828799725961}, { 0.3087236734750503, 0.22476087049791707`, -0.216169469266788}, { 0.316248922328326, 0.2064278247420433, -0.20540271105952365`}, { 0.3777344811130289, 0.20649373758673184`, -0.2459828799725961}, { 0.3162763265249497, 0.22523912950208294`, -0.206169469266788}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[33, 160], -0.21040271105952366`}, {0.375, Rational[33, 160], -0.2509828799725961}, {0.3125, Rational[9, 40], -0.211169469266788}}, {{0.3125, 0.20625, -0.21040271105952366`}, {0.375, 0.20625, -0.2509828799725961}, {0.3125, 0.225, -0.211169469266788}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.37227966033428694`, 0.18733892154268234`, -0.25523728505597043`}, { 0.43607290558012424`, 0.1686563685173878, -0.28070259534140185`}, { 0.4360687146346712, 0.18731191708705855`, -0.2812226642692872}, { 0.37772033966571306`, 0.18766107845731766`, -0.24523728505597042`}, { 0.43892709441987576`, 0.16884363148261222`, -0.27070259534140184`}, { 0.4389312853653288, 0.18768808291294145`, -0.2712226642692872}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 16], -0.2502372850559704}, {0.4375, Rational[27, 160], -0.27570259534140185`}, {0.4375, Rational[3, 16], -0.2762226642692872}}, {{0.375, 0.1875, -0.2502372850559704}, {0.4375, 0.16875, -0.27570259534140185`}, {0.4375, 0.1875, -0.2762226642692872}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360729055801243, 0.1686563685173878, -0.28070259534140185`}, { 0.5000000000000105, 0.15000000000018363`, -0.2894572543497438}, { 0.5000000000000094, 0.16865245656313824`, -0.28963723173284844`}, { 0.4389270944198757, 0.16884363148261222`, -0.27070259534140184`}, { 0.49999999999998945`, 0.14999999999981636`, -0.2794572543497438}, { 0.4999999999999905, 0.16884754343686179`, -0.27963723173284843`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[27, 160], -0.27570259534140185`}, {0.5, Rational[3, 20], -0.2844572543497438}, {0.5, Rational[27, 160], -0.28463723173284844`}}, {{0.4375, 0.16875, -0.27570259534140185`}, {0.5, 0.15, -0.2844572543497438}, {0.5, 0.16875, -0.28463723173284844`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360687146346712, 0.18731191708705852`, -0.2812226642692872}, { 0.5000000000000095, 0.16865245656313824`, -0.28963723173284844`}, { 0.5000000000000087, 0.18730274926675397`, -0.29018395713144896`}, { 0.4389312853653288, 0.18768808291294148`, -0.2712226642692872}, { 0.4999999999999905, 0.16884754343686179`, -0.27963723173284843`}, { 0.49999999999999134`, 0.18769725073324603`, -0.28018395713144895`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 16], -0.2762226642692872}, {0.5, Rational[27, 160], -0.28463723173284844`}, {0.5, Rational[3, 16], -0.28518395713144895`}}, {{0.4375, 0.1875, -0.2762226642692872}, {0.5, 0.16875, -0.28463723173284844`}, {0.5, 0.1875, -0.28518395713144895`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360729055801243, 0.1686563685173878, -0.28070259534140185`}, { 0.5000000000000094, 0.16865245656313824`, -0.28963723173284844`}, { 0.4360687146346712, 0.18731191708705852`, -0.2812226642692872}, { 0.4389270944198757, 0.16884363148261222`, -0.27070259534140184`}, { 0.4999999999999905, 0.16884754343686179`, -0.27963723173284843`}, { 0.4389312853653288, 0.18768808291294148`, -0.2712226642692872}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[27, 160], -0.27570259534140185`}, {0.5, Rational[27, 160], -0.28463723173284844`}, {0.4375, Rational[3, 16], -0.2762226642692872}}, {{0.4375, 0.16875, -0.27570259534140185`}, {0.5, 0.16875, -0.28463723173284844`}, {0.4375, 0.1875, -0.2762226642692872}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.4360617834368152, 0.20596412963979452`, -0.2821000098821205}, { 0.43605166903700543`, 0.22461157526349035`, -0.28334934074422247`}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}, { 0.4389382165631848, 0.20653587036020546`, -0.27210000988212046`}, { 0.43894833096299457`, 0.22538842473650966`, -0.27334934074422246`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 40], -0.25204257059466867`}, {0.4375, Rational[33, 160], -0.27710000988212047`}, {0.4375, Rational[9, 40], -0.27834934074422246`}}, {{0.375, 0.225, -0.25204257059466867`}, {0.4375, 0.20625, -0.27710000988212047`}, {0.4375, 0.225, -0.27834934074422246`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360617834368152, 0.20596412963979452`, -0.2821000098821205}, { 0.5000000000000087, 0.18730274926675397`, -0.29018395713144896`}, { 0.500000000000008, 0.20594962601385533`, -0.29110741229180065`}, { 0.4389382165631848, 0.20653587036020546`, -0.27210000988212046`}, { 0.4999999999999914, 0.18769725073324603`, -0.28018395713144895`}, { 0.49999999999999206`, 0.20655037398614465`, -0.28110741229180064`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[33, 160], -0.27710000988212047`}, {0.5, Rational[3, 16], -0.28518395713144895`}, {0.5, Rational[33, 160], -0.28610741229180064`}}, {{0.4375, 0.20625, -0.27710000988212047`}, {0.5, 0.1875, -0.28518395713144895`}, {0.5, 0.20625, -0.28610741229180064`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43605166903700543`, 0.22461157526349035`, -0.28334934074422247`}, { 0.5000000000000079, 0.20594962601385536`, -0.29110741229180065`}, { 0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.43894833096299457`, 0.22538842473650966`, -0.27334934074422246`}, { 0.49999999999999206`, 0.20655037398614462`, -0.28110741229180064`}, { 0.4999999999999927, 0.22540848378334458`, -0.2824231199139928}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 40], -0.27834934074422246`}, {0.5, Rational[33, 160], -0.28610741229180064`}, {0.5, Rational[9, 40], -0.28742311991399283`}}, {{0.4375, 0.225, -0.27834934074422246`}, {0.5, 0.20625, -0.28610741229180064`}, {0.5, 0.225, -0.28742311991399283`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360617834368152, 0.20596412963979452`, -0.2821000098821205}, { 0.500000000000008, 0.20594962601385533`, -0.29110741229180065`}, { 0.43605166903700543`, 0.22461157526349032`, -0.28334934074422247`}, { 0.4389382165631848, 0.20653587036020546`, -0.27210000988212046`}, { 0.49999999999999206`, 0.20655037398614465`, -0.28110741229180064`}, { 0.43894833096299457`, 0.2253884247365097, -0.27334934074422246`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[33, 160], -0.27710000988212047`}, {0.5, Rational[33, 160], -0.28610741229180064`}, {0.4375, Rational[9, 40], -0.27834934074422246`}}, {{0.4375, 0.20625, -0.27710000988212047`}, {0.5, 0.20625, -0.28610741229180064`}, {0.4375, 0.225, -0.27834934074422246`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.37227966033428694`, 0.18733892154268234`, -0.25523728505597043`}, { 0.4360687146346712, 0.18731191708705855`, -0.2812226642692872}, { 0.3722655188869712, 0.20600626241326814`, -0.2559828799725961}, { 0.37772033966571306`, 0.18766107845731766`, -0.24523728505597042`}, { 0.4389312853653288, 0.18768808291294145`, -0.2712226642692872}, { 0.3777344811130288, 0.20649373758673184`, -0.2459828799725961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 16], -0.2502372850559704}, {0.4375, Rational[3, 16], -0.2762226642692872}, {0.375, Rational[33, 160], -0.2509828799725961}}, {{0.375, 0.1875, -0.2502372850559704}, {0.4375, 0.1875, -0.2762226642692872}, {0.375, 0.20625, -0.2509828799725961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360687146346712, 0.18731191708705852`, -0.2812226642692872}, { 0.5000000000000087, 0.18730274926675397`, -0.29018395713144896`}, { 0.4360617834368152, 0.20596412963979452`, -0.2821000098821205}, { 0.4389312853653288, 0.18768808291294148`, -0.2712226642692872}, { 0.49999999999999134`, 0.18769725073324603`, -0.28018395713144895`}, { 0.4389382165631848, 0.20653587036020546`, -0.27210000988212046`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 16], -0.2762226642692872}, {0.5, Rational[3, 16], -0.28518395713144895`}, {0.4375, Rational[33, 160], -0.27710000988212047`}}, {{0.4375, 0.1875, -0.2762226642692872}, {0.5, 0.1875, -0.28518395713144895`}, {0.4375, 0.20625, -0.27710000988212047`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722655188869712, 0.20600626241326814`, -0.2559828799725961}, { 0.43606178343681523`, 0.20596412963979452`, -0.2821000098821205}, { 0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.3777344811130288, 0.20649373758673184`, -0.2459828799725961}, { 0.43893821656318477`, 0.20653587036020546`, -0.27210000988212046`}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[33, 160], -0.2509828799725961}, {0.4375, Rational[33, 160], -0.27710000988212047`}, {0.375, Rational[9, 40], -0.25204257059466867`}}, {{0.375, 0.20625, -0.2509828799725961}, {0.4375, 0.20625, -0.27710000988212047`}, {0.375, 0.225, -0.25204257059466867`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360687146346712, 0.18731191708705852`, -0.2812226642692872}, { 0.4360617834368152, 0.20596412963979452`, -0.2821000098821205}, { 0.3722655188869712, 0.2060062624132681, -0.2559828799725961}, { 0.4389312853653288, 0.18768808291294148`, -0.2712226642692872}, { 0.4389382165631848, 0.20653587036020546`, -0.27210000988212046`}, { 0.3777344811130288, 0.20649373758673187`, -0.2459828799725961}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 16], -0.2762226642692872}, {0.4375, Rational[33, 160], -0.27710000988212047`}, {0.375, Rational[33, 160], -0.2509828799725961}}, {{0.4375, 0.1875, -0.2762226642692872}, {0.4375, 0.20625, -0.27710000988212047`}, {0.375, 0.20625, -0.2509828799725961}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24540197322911514`, 0.2997518997663833, -0.1679121949079212}, { 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.30852700761038954`, 0.2994740700945491, -0.2217104843794247}, { 0.25459802677088483`, 0.3002481002336167, -0.1579121949079212}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}, { 0.31647299238961046`, 0.30052592990545085`, -0.2117104843794247}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[3, 10], -0.1629121949079212}, {0.3125, Rational[9, 32], -0.21492037106879353`}, {0.3125, Rational[3, 10], -0.2167104843794247}}, {{0.25, 0.3, -0.1629121949079212}, {0.3125, 0.28125, -0.21492037106879353`}, {0.3125, 0.3, -0.2167104843794247}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.3721864036762651, 0.2619799721599223, -0.2601738510203506}, { 0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}, { 0.3778135963237349, 0.2630200278400777, -0.2501738510203506}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 32], -0.21492037106879353`}, {0.375, Rational[21, 80], -0.2551738510203506}, {0.375, Rational[9, 32], -0.257294436242657}}, {{0.3125, 0.28125, -0.21492037106879353`}, {0.375, 0.2625, -0.2551738510203506}, {0.375, 0.28125, -0.257294436242657}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3085270076103895, 0.2994740700945491, -0.2217104843794247}, { 0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.37210337333428717`, 0.2992571242668832, -0.2648283891881121}, { 0.3164729923896105, 0.30052592990545085`, -0.2117104843794247}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}, { 0.37789662666571283`, 0.30074287573311675`, -0.25482838918811207`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[3, 10], -0.2167104843794247}, {0.375, Rational[9, 32], -0.257294436242657}, {0.375, Rational[3, 10], -0.2598283891881121}}, {{0.3125, 0.3, -0.2167104843794247}, {0.375, 0.28125, -0.257294436242657}, {0.375, 0.3, -0.2598283891881121}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.30852700761038954`, 0.2994740700945491, -0.2217104843794247}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}, { 0.31647299238961046`, 0.30052592990545085`, -0.2117104843794247}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 32], -0.21492037106879353`}, {0.375, Rational[9, 32], -0.257294436242657}, {0.3125, Rational[3, 10], -0.2167104843794247}}, {{0.3125, 0.28125, -0.21492037106879353`}, {0.375, 0.28125, -0.257294436242657}, {0.3125, 0.3, -0.2167104843794247}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.3721864036762651, 0.2619799721599223, -0.2601738510203506}, { 0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.43602090944364336`, 0.2618858240700176, -0.28705202045804895`}, { 0.3778135963237349, 0.2630200278400777, -0.2501738510203506}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}, { 0.43897909055635664`, 0.26311417592998243`, -0.27705202045804894`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[21, 80], -0.2551738510203506}, {0.4375, Rational[39, 160], -0.279991152491093}, {0.4375, Rational[21, 80], -0.28205202045804895`}}, {{0.375, 0.2625, -0.2551738510203506}, {0.4375, 0.24375, -0.279991152491093}, {0.4375, 0.2625, -0.28205202045804895`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.5000000000000069, 0.2432266746950743, -0.29415273071574644`}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}, { 0.4999999999999927, 0.22540848378334458`, -0.2824231199139928}, { 0.49999999999999317`, 0.24427332530492568`, -0.2841527307157464}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[39, 160], -0.279991152491093}, {0.5, Rational[9, 40], -0.28742311991399283`}, {0.5, Rational[39, 160], -0.28915273071574643`}}, {{0.4375, 0.24375, -0.279991152491093}, {0.5, 0.225, -0.28742311991399283`}, {0.5, 0.24375, -0.28915273071574643`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43602090944364336`, 0.2618858240700176, -0.28705202045804895`}, { 0.5000000000000069, 0.2432266746950743, -0.29415273071574644`}, { 0.5000000000000063, 0.26185313129675125`, -0.29632461016426875`}, { 0.43897909055635664`, 0.26311417592998243`, -0.27705202045804894`}, { 0.49999999999999317`, 0.24427332530492568`, -0.2841527307157464}, { 0.49999999999999367`, 0.26314686870324877`, -0.28632461016426874`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 80], -0.28205202045804895`}, {0.5, Rational[39, 160], -0.28915273071574643`}, {0.5, Rational[21, 80], -0.29132461016426875`}}, {{0.4375, 0.2625, -0.28205202045804895`}, {0.5, 0.24375, -0.28915273071574643`}, {0.5, 0.2625, -0.29132461016426875`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.5000000000000069, 0.2432266746950743, -0.29415273071574644`}, { 0.43602090944364336`, 0.26188582407001754`, -0.28705202045804895`}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}, { 0.49999999999999317`, 0.24427332530492568`, -0.2841527307157464}, { 0.43897909055635664`, 0.2631141759299825, -0.27705202045804894`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[39, 160], -0.279991152491093}, {0.5, Rational[39, 160], -0.28915273071574643`}, {0.4375, Rational[21, 80], -0.28205202045804895`}}, {{0.4375, 0.24375, -0.279991152491093}, {0.5, 0.24375, -0.28915273071574643`}, {0.4375, 0.2625, -0.28205202045804895`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3721033733342872, 0.2992571242668832, -0.2648283891881121}, { 0.4359999318653261, 0.28050932525976474`, -0.2895649177461905}, { 0.4359774119798981, 0.29912159484574635`, -0.2925696305217154}, { 0.3778966266657128, 0.30074287573311675`, -0.25482838918811207`}, { 0.4390000681346739, 0.28199067474023526`, -0.27956491774619047`}, { 0.4390225880201019, 0.3008784051542536, -0.2825696305217154}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[3, 10], -0.2598283891881121}, {0.4375, Rational[9, 32], -0.28456491774619047`}, {0.4375, Rational[3, 10], -0.2875696305217154}}, {{0.375, 0.3, -0.2598283891881121}, {0.4375, 0.28125, -0.28456491774619047`}, {0.4375, 0.3, -0.2875696305217154}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.4359999318653261, 0.28050932525976474`, -0.2895649177461905}, { 0.5000000000000063, 0.2618531312967512, -0.29632461016426875`}, { 0.5000000000000059, 0.28046854678340555`, -0.29897480213878974`}, { 0.4390000681346739, 0.28199067474023526`, -0.27956491774619047`}, { 0.4999999999999936, 0.2631468687032488, -0.28632461016426874`}, { 0.49999999999999406`, 0.28203145321659445`, -0.28897480213878973`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 32], -0.28456491774619047`}, {0.5, Rational[21, 80], -0.29132461016426875`}, {0.5, Rational[9, 32], -0.29397480213878974`}}, {{0.4375, 0.28125, -0.28456491774619047`}, {0.5, 0.2625, -0.29132461016426875`}, {0.5, 0.28125, -0.29397480213878974`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.4359774119798981, 0.2991215948457464, -0.2925696305217154}, { 0.5000000000000059, 0.2804685467834056, -0.29897480213878974`}, { 0.5000000000000056, 0.29906990741946704`, -0.3021494211309291}, { 0.4390225880201019, 0.30087840515425357`, -0.2825696305217154}, { 0.49999999999999406`, 0.2820314532165944, -0.28897480213878973`}, { 0.4999999999999944, 0.30093009258053294`, -0.29214942113092907`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[3, 10], -0.2875696305217154}, {0.5, Rational[9, 32], -0.29397480213878974`}, {0.5, Rational[3, 10], -0.29714942113092907`}}, {{0.4375, 0.3, -0.2875696305217154}, {0.5, 0.28125, -0.29397480213878974`}, {0.5, 0.3, -0.29714942113092907`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.4359999318653261, 0.28050932525976474`, -0.2895649177461905}, { 0.5000000000000059, 0.28046854678340555`, -0.29897480213878974`}, { 0.4359774119798981, 0.29912159484574635`, -0.2925696305217154}, { 0.4390000681346739, 0.28199067474023526`, -0.27956491774619047`}, { 0.49999999999999406`, 0.28203145321659445`, -0.28897480213878973`}, { 0.4390225880201019, 0.3008784051542536, -0.2825696305217154}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 32], -0.28456491774619047`}, {0.5, Rational[9, 32], -0.29397480213878974`}, {0.4375, Rational[3, 10], -0.2875696305217154}}, {{0.4375, 0.28125, -0.28456491774619047`}, {0.5, 0.28125, -0.29397480213878974`}, {0.4375, 0.3, -0.2875696305217154}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.3721864036762651, 0.2619799721599223, -0.2601738510203506}, { 0.43602090944364336`, 0.2618858240700176, -0.28705202045804895`}, { 0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.3778135963237349, 0.2630200278400777, -0.2501738510203506}, { 0.43897909055635664`, 0.26311417592998243`, -0.27705202045804894`}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[21, 80], -0.2551738510203506}, {0.4375, Rational[21, 80], -0.28205202045804895`}, {0.375, Rational[9, 32], -0.257294436242657}}, {{0.375, 0.2625, -0.2551738510203506}, {0.4375, 0.2625, -0.28205202045804895`}, {0.375, 0.28125, -0.257294436242657}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43602090944364336`, 0.2618858240700176, -0.28705202045804895`}, { 0.5000000000000063, 0.26185313129675125`, -0.29632461016426875`}, { 0.4359999318653261, 0.2805093252597648, -0.2895649177461905}, { 0.43897909055635664`, 0.26311417592998243`, -0.27705202045804894`}, { 0.49999999999999367`, 0.26314686870324877`, -0.28632461016426874`}, { 0.4390000681346739, 0.2819906747402352, -0.27956491774619047`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 80], -0.28205202045804895`}, {0.5, Rational[21, 80], -0.29132461016426875`}, {0.4375, Rational[9, 32], -0.28456491774619047`}}, {{0.4375, 0.2625, -0.28205202045804895`}, {0.5, 0.2625, -0.29132461016426875`}, {0.4375, 0.28125, -0.28456491774619047`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.4359999318653261, 0.2805093252597648, -0.2895649177461905}, { 0.3721033733342872, 0.2992571242668833, -0.2648283891881121}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}, { 0.4390000681346739, 0.2819906747402352, -0.27956491774619047`}, { 0.3778966266657128, 0.3007428757331167, -0.25482838918811207`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 32], -0.257294436242657}, {0.4375, Rational[9, 32], -0.28456491774619047`}, {0.375, Rational[3, 10], -0.2598283891881121}}, {{0.375, 0.28125, -0.257294436242657}, {0.4375, 0.28125, -0.28456491774619047`}, {0.375, 0.3, -0.2598283891881121}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.43602090944364336`, 0.2618858240700176, -0.28705202045804895`}, { 0.4359999318653261, 0.2805093252597648, -0.2895649177461905}, { 0.3721463227998435, 0.280623500886258, -0.262294436242657}, { 0.43897909055635664`, 0.26311417592998243`, -0.27705202045804894`}, { 0.4390000681346739, 0.2819906747402352, -0.27956491774619047`}, { 0.3778536772001565, 0.281876499113742, -0.252294436242657}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[21, 80], -0.28205202045804895`}, {0.4375, Rational[9, 32], -0.28456491774619047`}, {0.375, Rational[9, 32], -0.257294436242657}}, {{0.4375, 0.2625, -0.28205202045804895`}, {0.4375, 0.28125, -0.28456491774619047`}, {0.375, 0.28125, -0.257294436242657}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24562471971898409`, 0.22487007115469781`, -0.16514434140219977`}, { 0.30872367347505036`, 0.22476087049791707`, -0.216169469266788}, { 0.2455848209984462, 0.243590471937408, -0.1656762334228765}, { 0.2543752802810159, 0.2251299288453022, -0.15514434140219976`}, { 0.31627632652494964`, 0.22523912950208294`, -0.206169469266788}, { 0.2544151790015538, 0.243909528062592, -0.15567623342287648`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 40], -0.16014434140219977`}, {0.3125, Rational[9, 40], -0.211169469266788}, {0.25, Rational[39, 160], -0.16067623342287649`}}, {{0.25, 0.225, -0.16014434140219977`}, {0.3125, 0.225, -0.211169469266788}, {0.25, 0.24375, -0.16067623342287649`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087236734750503, 0.22476087049791707`, -0.216169469266788}, { 0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.30868797394373665`, 0.24344649550928288`, -0.21716926841271914`}, { 0.3162763265249497, 0.22523912950208294`, -0.206169469266788}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}, { 0.31631202605626335`, 0.2440535044907171, -0.20716926841271913`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 40], -0.211169469266788}, {0.375, Rational[9, 40], -0.25204257059466867`}, {0.3125, Rational[39, 160], -0.21216926841271913`}}, {{0.3125, 0.225, -0.211169469266788}, {0.375, 0.225, -0.25204257059466867`}, {0.3125, 0.24375, -0.21216926841271913`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24558482099844617`, 0.243590471937408, -0.1656762334228765}, { 0.3086879739437367, 0.24344649550928288`, -0.21716926841271914`}, { 0.24553440616494393`, 0.26231121077855013`, -0.16631639907127774`}, { 0.2544151790015538, 0.243909528062592, -0.15567623342287648`}, { 0.3163120260562633, 0.2440535044907171, -0.20716926841271913`}, { 0.25446559383505607`, 0.2626887892214499, -0.15631639907127773`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[39, 160], -0.16067623342287649`}, {0.3125, Rational[39, 160], -0.21216926841271913`}, {0.25, Rational[21, 80], -0.16131639907127773`}}, {{0.25, 0.24375, -0.16067623342287649`}, {0.3125, 0.24375, -0.21216926841271913`}, {0.25, 0.2625, -0.16131639907127773`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3087236734750503, 0.22476087049791707`, -0.216169469266788}, { 0.30868797394373665`, 0.24344649550928288`, -0.21716926841271914`}, { 0.2455848209984462, 0.243590471937408, -0.1656762334228765}, { 0.3162763265249497, 0.22523912950208294`, -0.206169469266788}, { 0.31631202605626335`, 0.2440535044907171, -0.20716926841271913`}, { 0.25441517900155386`, 0.243909528062592, -0.15567623342287648`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[9, 40], -0.211169469266788}, {0.3125, Rational[39, 160], -0.21216926841271913`}, {0.25, Rational[39, 160], -0.16067623342287649`}}, {{0.3125, 0.225, -0.211169469266788}, {0.3125, 0.24375, -0.21216926841271913`}, {0.25, 0.24375, -0.16067623342287649`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.43605166903700543`, 0.22461157526349035`, -0.28334934074422247`}, { 0.3722195574935075, 0.24332817618732874`, -0.25843239277912067`}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}, { 0.43894833096299457`, 0.22538842473650966`, -0.27334934074422246`}, { 0.3777804425064925, 0.24417182381267125`, -0.24843239277912066`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 40], -0.25204257059466867`}, {0.4375, Rational[9, 40], -0.27834934074422246`}, {0.375, Rational[39, 160], -0.25343239277912066`}}, {{0.375, 0.225, -0.25204257059466867`}, {0.4375, 0.225, -0.27834934074422246`}, {0.375, 0.24375, -0.25343239277912066`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43605166903700543`, 0.22461157526349035`, -0.28334934074422247`}, { 0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.43894833096299457`, 0.22538842473650966`, -0.27334934074422246`}, { 0.4999999999999927, 0.22540848378334458`, -0.2824231199139928}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 40], -0.27834934074422246`}, {0.5, Rational[9, 40], -0.28742311991399283`}, {0.4375, Rational[39, 160], -0.279991152491093}}, {{0.4375, 0.225, -0.27834934074422246`}, {0.5, 0.225, -0.28742311991399283`}, {0.4375, 0.24375, -0.279991152491093}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574935075, 0.24332817618732872`, -0.25843239277912067`}, { 0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.3721864036762651, 0.2619799721599223, -0.2601738510203506}, { 0.3777804425064925, 0.24417182381267127`, -0.24843239277912066`}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}, { 0.3778135963237349, 0.2630200278400777, -0.2501738510203506}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[39, 160], -0.25343239277912066`}, {0.4375, Rational[39, 160], -0.279991152491093}, {0.375, Rational[21, 80], -0.2551738510203506}}, {{0.375, 0.24375, -0.25343239277912066`}, {0.4375, 0.24375, -0.279991152491093}, {0.375, 0.2625, -0.2551738510203506}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.43605166903700543`, 0.22461157526349035`, -0.28334934074422247`}, { 0.4360381309532477, 0.24325268630256225`, -0.284991152491093}, { 0.3722195574935075, 0.24332817618732874`, -0.25843239277912067`}, { 0.43894833096299457`, 0.22538842473650966`, -0.27334934074422246`}, { 0.4389618690467523, 0.24424731369743774`, -0.274991152491093}, { 0.3777804425064925, 0.24417182381267125`, -0.24843239277912066`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.4375, Rational[9, 40], -0.27834934074422246`}, {0.4375, Rational[39, 160], -0.279991152491093}, {0.375, Rational[39, 160], -0.25343239277912066`}}, {{0.4375, 0.225, -0.27834934074422246`}, {0.4375, 0.24375, -0.279991152491093}, {0.375, 0.24375, -0.25343239277912066`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24553440616494393`, 0.26231121077855013`, -0.16631639907127774`}, { 0.30864252598854075`, 0.2621281315755693, -0.2184140364675824}, { 0.24547165508412883`, 0.2810320172714161, -0.1670617017901366}, { 0.25446559383505607`, 0.2626887892214499, -0.15631639907127773`}, { 0.31635747401145925`, 0.2628718684244307, -0.2084140364675824}, { 0.2545283449158712, 0.2814679827285839, -0.1570617017901366}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[21, 80], -0.16131639907127773`}, {0.3125, Rational[21, 80], -0.2134140364675824}, {0.25, Rational[9, 32], -0.1620617017901366}}, {{0.25, 0.2625, -0.16131639907127773`}, {0.3125, 0.2625, -0.2134140364675824}, {0.25, 0.28125, -0.1620617017901366}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30864252598854075`, 0.2621281315755693, -0.2184140364675824}, { 0.3721864036762651, 0.26197997215992225`, -0.2601738510203506}, { 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.31635747401145925`, 0.2628718684244307, -0.2084140364675824}, { 0.3778135963237349, 0.2630200278400778, -0.2501738510203506}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[21, 80], -0.2134140364675824}, {0.375, Rational[21, 80], -0.2551738510203506}, {0.3125, Rational[9, 32], -0.21492037106879353`}}, {{0.3125, 0.2625, -0.2134140364675824}, {0.375, 0.2625, -0.2551738510203506}, {0.3125, 0.28125, -0.21492037106879353`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.24547165508412883`, 0.2810320172714161, -0.1670617017901366}, { 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.24540197322911514`, 0.2997518997663833, -0.1679121949079212}, { 0.2545283449158712, 0.2814679827285839, -0.1570617017901366}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}, { 0.2545980267708849, 0.3002481002336167, -0.1579121949079212}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.25, Rational[9, 32], -0.1620617017901366}, {0.3125, Rational[9, 32], -0.21492037106879353`}, {0.25, Rational[3, 10], -0.1629121949079212}}, {{0.25, 0.28125, -0.1620617017901366}, {0.3125, 0.28125, -0.21492037106879353`}, {0.25, 0.3, -0.1629121949079212}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.30864252598854075`, 0.2621281315755693, -0.2184140364675824}, { 0.30858710676554535`, 0.28080447063473585`, -0.21992037106879353`}, { 0.24547165508412883`, 0.2810320172714161, -0.1670617017901366}, { 0.31635747401145925`, 0.2628718684244307, -0.2084140364675824}, { 0.31641289323445465`, 0.28169552936526415`, -0.20992037106879352`}, { 0.2545283449158712, 0.2814679827285839, -0.1570617017901366}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[21, 80], -0.2134140364675824}, {0.3125, Rational[9, 32], -0.21492037106879353`}, {0.25, Rational[9, 32], -0.1620617017901366}}, {{0.3125, 0.2625, -0.2134140364675824}, {0.3125, 0.28125, -0.21492037106879353`}, {0.25, 0.28125, -0.1620617017901366}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722457660150113, 0.22466977021898574`, -0.2570425705946687}, { 0.3722195574935075, 0.24332817618732874`, -0.25843239277912067`}, { 0.30868797394373665`, 0.24344649550928288`, -0.21716926841271914`}, { 0.3777542339849887, 0.22533022978101427`, -0.24704257059466866`}, { 0.3777804425064925, 0.24417182381267125`, -0.24843239277912066`}, { 0.31631202605626335`, 0.2440535044907171, -0.20716926841271913`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[9, 40], -0.25204257059466867`}, {0.375, Rational[39, 160], -0.25343239277912066`}, {0.3125, Rational[39, 160], -0.21216926841271913`}}, {{0.375, 0.225, -0.25204257059466867`}, {0.375, 0.24375, -0.25343239277912066`}, {0.3125, 0.24375, -0.21216926841271913`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574935075, 0.24332817618732872`, -0.25843239277912067`}, { 0.3721864036762651, 0.2619799721599223, -0.2601738510203506}, { 0.30864252598854075`, 0.26212813157556936`, -0.2184140364675824}, { 0.3777804425064925, 0.24417182381267127`, -0.24843239277912066`}, { 0.3778135963237349, 0.2630200278400777, -0.2501738510203506}, { 0.31635747401145925`, 0.26287186842443067`, -0.2084140364675824}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[39, 160], -0.25343239277912066`}, {0.375, Rational[21, 80], -0.2551738510203506}, {0.3125, Rational[21, 80], -0.2134140364675824}}, {{0.375, 0.24375, -0.25343239277912066`}, {0.375, 0.2625, -0.2551738510203506}, {0.3125, 0.2625, -0.2134140364675824}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.30868797394373665`, 0.24344649550928288`, -0.21716926841271914`}, { 0.30864252598854075`, 0.2621281315755693, -0.2184140364675824}, { 0.24553440616494393`, 0.26231121077855013`, -0.16631639907127774`}, { 0.31631202605626335`, 0.2440535044907171, -0.20716926841271913`}, { 0.31635747401145925`, 0.2628718684244307, -0.2084140364675824}, { 0.25446559383505607`, 0.2626887892214499, -0.15631639907127773`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.3125, Rational[39, 160], -0.21216926841271913`}, {0.3125, Rational[21, 80], -0.2134140364675824}, {0.25, Rational[21, 80], -0.16131639907127773`}}, {{0.3125, 0.24375, -0.21216926841271913`}, {0.3125, 0.2625, -0.2134140364675824}, {0.25, 0.2625, -0.16131639907127773`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.3722195574935075, 0.24332817618732872`, -0.25843239277912067`}, { 0.30864252598854075`, 0.26212813157556936`, -0.2184140364675824}, { 0.30868797394373665`, 0.24344649550928285`, -0.21716926841271914`}, { 0.3777804425064925, 0.24417182381267127`, -0.24843239277912066`}, { 0.31635747401145925`, 0.26287186842443067`, -0.2084140364675824}, { 0.31631202605626335`, 0.24405350449071714`, -0.20716926841271913`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.375, Rational[39, 160], -0.25343239277912066`}, {0.3125, Rational[21, 80], -0.2134140364675824}, {0.3125, Rational[39, 160], -0.21216926841271913`}}, {{0.375, 0.24375, -0.25343239277912066`}, {0.3125, 0.2625, -0.2134140364675824}, {0.3125, 0.24375, -0.21216926841271913`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000105, 0.15000000000018363`, -0.2894572543497438}, { 0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.5000000000000094, 0.16865245656313824`, -0.28963723173284844`}, { 0.49999999999998945`, 0.14999999999981636`, -0.2794572543497438}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}, { 0.49999999999999045`, 0.16884754343686179`, -0.27963723173284843`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 20], -0.2844572543497438}, {0.5625, Rational[27, 160], -0.27570259534116326`}, {0.5, Rational[27, 160], -0.28463723173284844`}}, {{0.5, 0.15, -0.2844572543497438}, {0.5625, 0.16875, -0.27570259534116326`}, {0.5, 0.16875, -0.28463723173284844`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.563931285365346, 0.18731191708705291`, -0.28122266426907117`}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}, { 0.561068714634654, 0.18768808291294709`, -0.27122266426907116`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[27, 160], -0.27570259534116326`}, {0.625, Rational[3, 16], -0.2502372850555543}, {0.5625, Rational[3, 16], -0.27622266426907116`}}, {{0.5625, 0.16875, -0.27570259534116326`}, {0.625, 0.1875, -0.2502372850555543}, {0.5625, 0.1875, -0.27622266426907116`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000094, 0.16865245656313824`, -0.28963723173284844`}, { 0.563931285365346, 0.18731191708705291`, -0.28122266426907117`}, { 0.5000000000000087, 0.18730274926675397`, -0.29018395713144896`}, { 0.4999999999999905, 0.16884754343686179`, -0.27963723173284843`}, { 0.561068714634654, 0.18768808291294709`, -0.27122266426907116`}, { 0.4999999999999914, 0.18769725073324603`, -0.28018395713144895`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[27, 160], -0.28463723173284844`}, {0.5625, Rational[3, 16], -0.27622266426907116`}, {0.5, Rational[3, 16], -0.28518395713144895`}}, {{0.5, 0.16875, -0.28463723173284844`}, {0.5625, 0.1875, -0.27622266426907116`}, {0.5, 0.1875, -0.28518395713144895`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639270944198947, 0.16865636851738056`, -0.28070259534116326`}, { 0.563931285365346, 0.18731191708705291`, -0.28122266426907117`}, { 0.5000000000000095, 0.16865245656313824`, -0.28963723173284844`}, { 0.5610729055801053, 0.16884363148261947`, -0.27070259534116325`}, { 0.561068714634654, 0.18768808291294709`, -0.27122266426907116`}, { 0.49999999999999056`, 0.16884754343686179`, -0.27963723173284843`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[27, 160], -0.27570259534116326`}, {0.5625, Rational[3, 16], -0.27622266426907116`}, {0.5, Rational[27, 160], -0.28463723173284844`}}, {{0.5625, 0.16875, -0.27570259534116326`}, {0.5625, 0.1875, -0.27622266426907116`}, {0.5, 0.16875, -0.28463723173284844`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.6912489223283318, 0.20607217525795654`, -0.21540271105898767`}, { 0.6277344811130439, 0.2060062624132623, -0.2559828799722022}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}, { 0.6837510776716682, 0.20642782474204344`, -0.20540271105898766`}, { 0.6222655188869561, 0.20649373758673767`, -0.2459828799722022}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 16], -0.2502372850555543}, {0.6875, Rational[33, 160], -0.21040271105898767`}, {0.625, Rational[33, 160], -0.2509828799722022}}, {{0.625, 0.1875, -0.2502372850555543}, {0.6875, 0.20625, -0.21040271105898767`}, {0.625, 0.20625, -0.2509828799722022}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912489223283318, 0.20607217525795654`, -0.21540271105898767`}, { 0.7543752802810281, 0.22487007115470672`, -0.1651443414015572}, { 0.691276326524956, 0.224760870497916, -0.21616946926625033`}, { 0.6837510776716682, 0.20642782474204344`, -0.20540271105898766`}, { 0.7456247197189719, 0.2251299288452933, -0.1551443414015572}, { 0.683723673475044, 0.22523912950208402`, -0.20616946926625032`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[33, 160], -0.21040271105898767`}, {0.75, Rational[9, 40], -0.1601443414015572}, {0.6875, Rational[9, 40], -0.21116946926625033`}}, {{0.6875, 0.20625, -0.21040271105898767`}, {0.75, 0.225, -0.1601443414015572}, {0.6875, 0.225, -0.21116946926625033`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277344811130439, 0.20600626241326234`, -0.2559828799722022}, { 0.691276326524956, 0.22476087049791602`, -0.21616946926625033`}, { 0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.6222655188869561, 0.20649373758673764`, -0.2459828799722022}, { 0.683723673475044, 0.225239129502084, -0.20616946926625032`}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[33, 160], -0.2509828799722022}, {0.6875, Rational[9, 40], -0.21116946926625033`}, {0.625, Rational[9, 40], -0.25204257059428936`}}, {{0.625, 0.20625, -0.2509828799722022}, {0.6875, 0.225, -0.21116946926625033`}, {0.625, 0.225, -0.25204257059428936`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6912489223283318, 0.20607217525795654`, -0.21540271105898767`}, { 0.691276326524956, 0.224760870497916, -0.21616946926625033`}, { 0.6277344811130439, 0.2060062624132623, -0.2559828799722022}, { 0.6837510776716682, 0.20642782474204344`, -0.20540271105898766`}, { 0.683723673475044, 0.22523912950208402`, -0.20616946926625032`}, { 0.6222655188869561, 0.20649373758673767`, -0.2459828799722022}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[33, 160], -0.21040271105898767`}, {0.6875, Rational[9, 40], -0.21116946926625033`}, {0.625, Rational[33, 160], -0.2509828799722022}}, {{0.6875, 0.20625, -0.21040271105898767`}, {0.6875, 0.225, -0.21116946926625033`}, {0.625, 0.20625, -0.2509828799722022}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000087, 0.187302749266754, -0.29018395713144896`}, { 0.5639382165632008, 0.20596412963979036`, -0.2821000098819215}, { 0.5000000000000079, 0.20594962601385536`, -0.29110741229180065`}, { 0.49999999999999134`, 0.187697250733246, -0.28018395713144895`}, { 0.5610617834367992, 0.20653587036020962`, -0.2721000098819215}, { 0.499999999999992, 0.20655037398614462`, -0.28110741229180064`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[3, 16], -0.28518395713144895`}, {0.5625, Rational[33, 160], -0.2771000098819215}, {0.5, Rational[33, 160], -0.28610741229180064`}}, {{0.5, 0.1875, -0.28518395713144895`}, {0.5625, 0.20625, -0.2771000098819215}, {0.5, 0.20625, -0.28610741229180064`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639382165632008, 0.20596412963979036`, -0.2821000098819215}, { 0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.5639483309630096, 0.22461157526348688`, -0.2833493407440369}, { 0.5610617834367992, 0.20653587036020962`, -0.2721000098819215}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}, { 0.5610516690369904, 0.22538842473651313`, -0.2733493407440369}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[33, 160], -0.2771000098819215}, {0.625, Rational[9, 40], -0.25204257059428936`}, {0.5625, Rational[9, 40], -0.2783493407440369}}, {{0.5625, 0.20625, -0.2771000098819215}, {0.625, 0.225, -0.25204257059428936`}, {0.5625, 0.225, -0.2783493407440369}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5000000000000079, 0.20594962601385536`, -0.29110741229180065`}, { 0.5639483309630094, 0.22461157526348688`, -0.2833493407440369}, { 0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.49999999999999206`, 0.20655037398614462`, -0.28110741229180064`}, { 0.5610516690369906, 0.22538842473651313`, -0.2733493407440369}, { 0.4999999999999926, 0.22540848378334458`, -0.2824231199139928}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[33, 160], -0.28610741229180064`}, {0.5625, Rational[9, 40], -0.2783493407440369}, {0.5, Rational[9, 40], -0.28742311991399283`}}, {{0.5, 0.20625, -0.28610741229180064`}, {0.5625, 0.225, -0.2783493407440369}, {0.5, 0.225, -0.28742311991399283`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639382165632008, 0.20596412963979036`, -0.2821000098819215}, { 0.5639483309630096, 0.22461157526348688`, -0.2833493407440369}, { 0.500000000000008, 0.20594962601385536`, -0.29110741229180065`}, { 0.5610617834367992, 0.20653587036020962`, -0.2721000098819215}, { 0.5610516690369904, 0.22538842473651313`, -0.2733493407440369}, { 0.49999999999999206`, 0.20655037398614462`, -0.28110741229180064`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[33, 160], -0.2771000098819215}, {0.5625, Rational[9, 40], -0.2783493407440369}, {0.5, Rational[33, 160], -0.28610741229180064`}}, {{0.5625, 0.20625, -0.2771000098819215}, {0.5625, 0.225, -0.2783493407440369}, {0.5, 0.20625, -0.28610741229180064`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277203396657276, 0.1873389215426745, -0.2552372850555543}, { 0.6277344811130439, 0.2060062624132623, -0.2559828799722022}, { 0.563931285365346, 0.18731191708705294`, -0.28122266426907117`}, { 0.6222796603342724, 0.1876610784573255, -0.2452372850555543}, { 0.6222655188869561, 0.20649373758673767`, -0.2459828799722022}, { 0.561068714634654, 0.18768808291294706`, -0.27122266426907116`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[3, 16], -0.2502372850555543}, {0.625, Rational[33, 160], -0.2509828799722022}, {0.5625, Rational[3, 16], -0.27622266426907116`}}, {{0.625, 0.1875, -0.2502372850555543}, {0.625, 0.20625, -0.2509828799722022}, {0.5625, 0.1875, -0.27622266426907116`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277344811130439, 0.20600626241326234`, -0.2559828799722022}, { 0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.5639382165632008, 0.20596412963979036`, -0.2821000098819215}, { 0.6222655188869561, 0.20649373758673764`, -0.2459828799722022}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}, { 0.5610617834367992, 0.20653587036020962`, -0.2721000098819215}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[33, 160], -0.2509828799722022}, {0.625, Rational[9, 40], -0.25204257059428936`}, {0.5625, Rational[33, 160], -0.2771000098819215}}, {{0.625, 0.20625, -0.2509828799722022}, {0.625, 0.225, -0.25204257059428936`}, {0.5625, 0.20625, -0.2771000098819215}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.563931285365346, 0.18731191708705294`, -0.28122266426907117`}, { 0.5639382165632006, 0.20596412963979036`, -0.2821000098819215}, { 0.5000000000000087, 0.187302749266754, -0.29018395713144896`}, { 0.561068714634654, 0.18768808291294706`, -0.27122266426907116`}, { 0.5610617834367994, 0.20653587036020962`, -0.2721000098819215}, { 0.4999999999999913, 0.187697250733246, -0.28018395713144895`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[3, 16], -0.27622266426907116`}, {0.5625, Rational[33, 160], -0.2771000098819215}, {0.5, Rational[3, 16], -0.28518395713144895`}}, {{0.5625, 0.1875, -0.27622266426907116`}, {0.5625, 0.20625, -0.2771000098819215}, {0.5, 0.1875, -0.28518395713144895`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277344811130439, 0.20600626241326234`, -0.2559828799722022}, { 0.5639382165632008, 0.20596412963979036`, -0.2821000098819215}, { 0.563931285365346, 0.18731191708705294`, -0.28122266426907117`}, { 0.6222655188869561, 0.20649373758673764`, -0.2459828799722022}, { 0.5610617834367992, 0.20653587036020962`, -0.2721000098819215}, { 0.561068714634654, 0.18768808291294706`, -0.27122266426907116`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[33, 160], -0.2509828799722022}, {0.5625, Rational[33, 160], -0.2771000098819215}, {0.5625, Rational[3, 16], -0.27622266426907116`}}, {{0.625, 0.20625, -0.2509828799722022}, {0.5625, 0.20625, -0.2771000098819215}, {0.5625, 0.1875, -0.27622266426907116`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.754375280281028, 0.22487007115470675`, -0.1651443414015572}, { 0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.7544151790015734, 0.2435904719374186, -0.16567623342220109`}, { 0.745624719718972, 0.22512992884529326`, -0.1551443414015572}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}, { 0.7455848209984266, 0.2439095280625814, -0.15567623342220108`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 40], -0.1601443414015572}, {0.8125, Rational[39, 160], -0.10517399069837176`}, {0.75, Rational[39, 160], -0.16067623342220108`}}, {{0.75, 0.225, -0.1601443414015572}, {0.8125, 0.24375, -0.10517399069837176`}, {0.75, 0.24375, -0.16067623342220108`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.816995253930772, 0.26249467395692727`, -0.11022553999759965`}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}, { 0.808004746069228, 0.26250532604307275`, -0.10022553999759964`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[39, 160], -0.10517399069837176`}, {0.875, Rational[21, 80], -0.053229921546737405`}, {0.8125, Rational[21, 80], -0.10522553999759965`}}, {{0.8125, 0.24375, -0.10517399069837176`}, {0.875, 0.2625, -0.053229921546737405`}, {0.8125, 0.2625, -0.10522553999759965`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790015734, 0.24359047193741856`, -0.16567623342220109`}, { 0.816995253930772, 0.26249467395692727`, -0.11022553999759965`}, { 0.7544655938350894, 0.2623112107785619, -0.16631639907056261`}, { 0.7455848209984266, 0.24390952806258143`, -0.15567623342220108`}, { 0.808004746069228, 0.26250532604307275`, -0.10022553999759964`}, { 0.7455344061649106, 0.2626887892214381, -0.1563163990705626}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[39, 160], -0.16067623342220108`}, {0.8125, Rational[21, 80], -0.10522553999759965`}, {0.75, Rational[21, 80], -0.1613163990705626}}, {{0.75, 0.24375, -0.16067623342220108`}, {0.8125, 0.2625, -0.10522553999759965`}, {0.75, 0.2625, -0.1613163990705626}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8169502239707154, 0.24372939699769425`, -0.11017399069837176`}, { 0.816995253930772, 0.26249467395692727`, -0.11022553999759965`}, { 0.7544151790015734, 0.2435904719374186, -0.16567623342220109`}, { 0.8080497760292846, 0.24377060300230574`, -0.10017399069837175`}, { 0.808004746069228, 0.26250532604307275`, -0.10022553999759964`}, { 0.7455848209984266, 0.2439095280625814, -0.15567623342220108`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[39, 160], -0.10517399069837176`}, {0.8125, Rational[21, 80], -0.10522553999759965`}, {0.75, Rational[39, 160], -0.16067623342220108`}}, {{0.8125, 0.24375, -0.10517399069837176`}, {0.8125, 0.2625, -0.10522553999759965`}, {0.75, 0.24375, -0.16067623342220108`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, { 0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}, { 0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[21, 80], -0.053229921546737405`}, {0.9375, Rational[9, 32], -0.014374891846751362`}, {0.875, Rational[9, 32], -0.052689747708208286`}}, {{0.875, 0.2625, -0.053229921546737405`}, {0.9375, 0.28125, -0.014374891846751362`}, {0.875, 0.28125, -0.052689747708208286`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, {1., 0.3, -0.005}, {0.9397355033287778, 0.3003344713594017, -0.01854768977911702}, { 0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}, {1., 0.3, 0.005}, {0.9352644966712222, 0.29966552864059826`, -0.008547689779117018}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[9, 32], -0.014374891846751362`}, {1., Rational[3, 10], 0.}, {0.9375, Rational[3, 10], -0.013547689779117019`}}, {{0.9375, 0.28125, -0.014374891846751362`}, {1., 0.3, 0.}, {0.9375, 0.3, -0.013547689779117019`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.9397355033287778, 0.3003344713594017, -0.01854768977911702}, { 0.8788656028516888, 0.3003016749534853, -0.05680638916273639}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}, { 0.9352644966712222, 0.29966552864059826`, -0.008547689779117018}, { 0.8711343971483112, 0.29969832504651467`, -0.0468063891627364}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 32], -0.052689747708208286`}, {0.9375, Rational[3, 10], -0.013547689779117019`}, {0.875, Rational[3, 10], -0.051806389162736395`}}, {{0.875, 0.28125, -0.052689747708208286`}, {0.9375, 0.3, -0.013547689779117019`}, {0.875, 0.3, -0.051806389162736395`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.9397840011258136, 0.28142055033619284`, -0.01937489184675136}, { 0.9397355033287778, 0.3003344713594017, -0.01854768977911702}, { 0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.9352159988741864, 0.28107944966380716`, -0.009374891846751363}, { 0.9352644966712222, 0.29966552864059826`, -0.008547689779117018}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.9375, Rational[9, 32], -0.014374891846751362`}, {0.9375, Rational[3, 10], -0.013547689779117019`}, {0.875, Rational[9, 32], -0.052689747708208286`}}, {{0.9375, 0.28125, -0.014374891846751362`}, {0.9375, 0.3, -0.013547689779117019`}, {0.875, 0.28125, -0.052689747708208286`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544655938350894, 0.26231121077856184`, -0.16631639907056261`}, { 0.8170515200994998, 0.2812686570187587, -0.1102027895213099}, { 0.754528344915903, 0.2810320172714315, -0.16706170178937582`}, { 0.7455344061649106, 0.2626887892214382, -0.1563163990705626}, { 0.8079484799005002, 0.2812313429812413, -0.10020278952130988`}, { 0.745471655084097, 0.2814679827285685, -0.1570617017893758}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[21, 80], -0.1613163990705626}, {0.8125, Rational[9, 32], -0.10520278952130989`}, {0.75, Rational[9, 32], -0.16206170178937582`}}, {{0.75, 0.2625, -0.1613163990705626}, {0.8125, 0.28125, -0.10520278952130989`}, {0.75, 0.28125, -0.16206170178937582`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8170515200994998, 0.28126865701875875`, -0.1102027895213099}, { 0.8788656028516888, 0.3003016749534853, -0.05680638916273639}, { 0.8171166105504746, 0.3000526872446706, -0.11006547319312522`}, { 0.8079484799005002, 0.28123134298124125`, -0.10020278952130988`}, { 0.8711343971483112, 0.29969832504651467`, -0.0468063891627364}, { 0.8078833894495254, 0.2999473127553294, -0.10006547319312521`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[9, 32], -0.10520278952130989`}, {0.875, Rational[3, 10], -0.051806389162736395`}, {0.8125, Rational[3, 10], -0.10506547319312522`}}, {{0.8125, 0.28125, -0.10520278952130989`}, {0.875, 0.3, -0.051806389162736395`}, {0.8125, 0.3, -0.10506547319312522`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.7545283449159029, 0.2810320172714315, -0.16706170178937582`}, { 0.8171166105504746, 0.3000526872446706, -0.11006547319312522`}, { 0.7545980267709189, 0.29975189976640126`, -0.16791219490710363`}, { 0.7454716550840971, 0.2814679827285685, -0.1570617017893758}, { 0.8078833894495254, 0.2999473127553294, -0.10006547319312521`}, { 0.7454019732290811, 0.3002481002335987, -0.15791219490710362`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 32], -0.16206170178937582`}, {0.8125, Rational[3, 10], -0.10506547319312522`}, {0.75, Rational[3, 10], -0.16291219490710362`}}, {{0.75, 0.28125, -0.16206170178937582`}, {0.8125, 0.3, -0.10506547319312522`}, {0.75, 0.3, -0.16291219490710362`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.8170515200994998, 0.28126865701875875`, -0.1102027895213099}, { 0.8171166105504746, 0.3000526872446706, -0.11006547319312522`}, { 0.7545283449159029, 0.2810320172714315, -0.16706170178937582`}, { 0.8079484799005002, 0.28123134298124125`, -0.10020278952130988`}, { 0.8078833894495254, 0.2999473127553294, -0.10006547319312521`}, { 0.7454716550840971, 0.2814679827285685, -0.1570617017893758}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[9, 32], -0.10520278952130989`}, {0.8125, Rational[3, 10], -0.10506547319312522`}, {0.75, Rational[9, 32], -0.16206170178937582`}}, {{0.8125, 0.28125, -0.10520278952130989`}, {0.8125, 0.3, -0.10506547319312522`}, {0.75, 0.28125, -0.16206170178937582`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788086248712148, 0.26261931268212335`, -0.0582299215467374}, { 0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.816995253930772, 0.26249467395692727`, -0.11022553999759965`}, { 0.8711913751287852, 0.26238068731787667`, -0.04822992154673741}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}, { 0.808004746069228, 0.26250532604307275`, -0.10022553999759964`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[21, 80], -0.053229921546737405`}, {0.875, Rational[9, 32], -0.052689747708208286`}, {0.8125, Rational[21, 80], -0.10522553999759965`}}, {{0.875, 0.2625, -0.053229921546737405`}, {0.875, 0.28125, -0.052689747708208286`}, {0.8125, 0.2625, -0.10522553999759965`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.8788656028516888, 0.3003016749534853, -0.05680638916273639}, { 0.8170515200994998, 0.28126865701875875`, -0.1102027895213099}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}, { 0.8711343971483112, 0.29969832504651467`, -0.0468063891627364}, { 0.8079484799005002, 0.28123134298124125`, -0.10020278952130988`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 32], -0.052689747708208286`}, {0.875, Rational[3, 10], -0.051806389162736395`}, {0.8125, Rational[9, 32], -0.10520278952130989`}}, {{0.875, 0.28125, -0.052689747708208286`}, {0.875, 0.3, -0.051806389162736395`}, {0.8125, 0.28125, -0.10520278952130989`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.816995253930772, 0.26249467395692727`, -0.11022553999759965`}, { 0.8170515200994998, 0.28126865701875875`, -0.1102027895213099}, { 0.7544655938350894, 0.26231121077856184`, -0.16631639907056261`}, { 0.808004746069228, 0.26250532604307275`, -0.10022553999759964`}, { 0.8079484799005002, 0.28123134298124125`, -0.10020278952130988`}, { 0.7455344061649106, 0.2626887892214382, -0.1563163990705626}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.8125, Rational[21, 80], -0.10522553999759965`}, {0.8125, Rational[9, 32], -0.10520278952130989`}, {0.75, Rational[21, 80], -0.1613163990705626}}, {{0.8125, 0.2625, -0.10522553999759965`}, {0.8125, 0.28125, -0.10520278952130989`}, {0.75, 0.2625, -0.1613163990705626}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.8788338796137172, 0.2814451407173904, -0.05768974770820828}, { 0.8170515200994998, 0.28126865701875875`, -0.1102027895213099}, { 0.8169952539307719, 0.26249467395692727`, -0.11022553999759965`}, { 0.8711661203862828, 0.2810548592826096, -0.04768974770820829}, { 0.8079484799005002, 0.28123134298124125`, -0.10020278952130988`}, { 0.8080047460692281, 0.26250532604307275`, -0.10022553999759964`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.875, Rational[9, 32], -0.052689747708208286`}, {0.8125, Rational[9, 32], -0.10520278952130989`}, {0.8125, Rational[21, 80], -0.10522553999759965`}}, {{0.875, 0.28125, -0.052689747708208286`}, {0.8125, 0.28125, -0.10520278952130989`}, {0.8125, 0.2625, -0.10522553999759965`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.5639618690467665, 0.2432526863025592, -0.284991152490919}, { 0.5000000000000069, 0.24322667469507434`, -0.29415273071574644`}, { 0.4999999999999927, 0.22540848378334458`, -0.2824231199139928}, { 0.5610381309532335, 0.2442473136974408, -0.274991152490919}, { 0.4999999999999932, 0.24427332530492565`, -0.2841527307157464}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[9, 40], -0.28742311991399283`}, {0.5625, Rational[39, 160], -0.279991152490919}, {0.5, Rational[39, 160], -0.28915273071574643`}}, {{0.5, 0.225, -0.28742311991399283`}, {0.5625, 0.24375, -0.279991152490919}, {0.5, 0.24375, -0.28915273071574643`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639618690467665, 0.24325268630255917`, -0.284991152490919}, { 0.6278135963237504, 0.26197997215991714`, -0.26017385102000584`}, { 0.56397909055637, 0.26188582407001465`, -0.2870520204578858}, { 0.5610381309532335, 0.24424731369744082`, -0.274991152490919}, { 0.6221864036762496, 0.2630200278400829, -0.25017385102000583`}, { 0.56102090944363, 0.26311417592998537`, -0.2770520204578858}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[39, 160], -0.279991152490919}, {0.625, Rational[21, 80], -0.25517385102000584`}, {0.5625, Rational[21, 80], -0.2820520204578858}}, {{0.5625, 0.24375, -0.279991152490919}, {0.625, 0.2625, -0.25517385102000584`}, {0.5625, 0.2625, -0.2820520204578858}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000069, 0.2432266746950743, -0.29415273071574644`}, { 0.56397909055637, 0.2618858240700147, -0.2870520204578858}, { 0.5000000000000063, 0.26185313129675125`, -0.29632461016426875`}, { 0.49999999999999317`, 0.24427332530492568`, -0.2841527307157464}, { 0.56102090944363, 0.2631141759299853, -0.2770520204578858}, { 0.4999999999999936, 0.26314686870324877`, -0.28632461016426874`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[39, 160], -0.28915273071574643`}, {0.5625, Rational[21, 80], -0.2820520204578858}, {0.5, Rational[21, 80], -0.29132461016426875`}}, {{0.5, 0.24375, -0.28915273071574643`}, {0.5625, 0.2625, -0.2820520204578858}, {0.5, 0.2625, -0.29132461016426875`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639618690467665, 0.24325268630255917`, -0.284991152490919}, { 0.56397909055637, 0.26188582407001465`, -0.2870520204578858}, { 0.5000000000000069, 0.2432266746950743, -0.29415273071574644`}, { 0.5610381309532335, 0.24424731369744082`, -0.274991152490919}, { 0.56102090944363, 0.26311417592998537`, -0.2770520204578858}, { 0.49999999999999317`, 0.24427332530492568`, -0.2841527307157464}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[39, 160], -0.279991152490919}, {0.5625, Rational[21, 80], -0.2820520204578858}, {0.5, Rational[39, 160], -0.28915273071574643`}}, {{0.5625, 0.24375, -0.279991152490919}, {0.5625, 0.2625, -0.2820520204578858}, {0.5, 0.24375, -0.28915273071574643`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278135963237503, 0.2619799721599172, -0.26017385102000584`}, { 0.6914128932344656, 0.28080447063473324`, -0.21992037106829976`}, { 0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.6221864036762497, 0.2630200278400828, -0.25017385102000583`}, { 0.6835871067655344, 0.28169552936526676`, -0.20992037106829975`}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[21, 80], -0.25517385102000584`}, {0.6875, Rational[9, 32], -0.21492037106829975`}, {0.625, Rational[9, 32], -0.2572944362423304}}, {{0.625, 0.2625, -0.25517385102000584`}, {0.6875, 0.28125, -0.21492037106829975`}, {0.625, 0.28125, -0.2572944362423304}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6914128932344658, 0.28080447063473324`, -0.21992037106829976`}, { 0.754598026770919, 0.29975189976640126`, -0.16791219490710363`}, { 0.691472992389625, 0.2994740700945466, -0.22171048437893384`}, { 0.6835871067655342, 0.28169552936526676`, -0.20992037106829975`}, { 0.745401973229081, 0.3002481002335987, -0.15791219490710362`}, { 0.683527007610375, 0.3005259299054534, -0.21171048437893383`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 32], -0.21492037106829975`}, {0.75, Rational[3, 10], -0.16291219490710362`}, {0.6875, Rational[3, 10], -0.21671048437893384`}}, {{0.6875, 0.28125, -0.21492037106829975`}, {0.75, 0.3, -0.16291219490710362`}, {0.6875, 0.3, -0.21671048437893384`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.6914729923896249, 0.29947407009454663`, -0.22171048437893384`}, { 0.6278966266657275, 0.2992571242668784, -0.26482838918780255`}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}, { 0.6835270076103751, 0.30052592990545335`, -0.21171048437893383`}, { 0.6221033733342725, 0.3007428757331216, -0.25482838918780254`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 32], -0.2572944362423304}, {0.6875, Rational[3, 10], -0.21671048437893384`}, {0.625, Rational[3, 10], -0.25982838918780254`}}, {{0.625, 0.28125, -0.2572944362423304}, {0.6875, 0.3, -0.21671048437893384`}, {0.625, 0.3, -0.25982838918780254`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.6914128932344658, 0.28080447063473324`, -0.21992037106829976`}, { 0.691472992389625, 0.2994740700945466, -0.22171048437893384`}, { 0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.6835871067655342, 0.28169552936526676`, -0.20992037106829975`}, { 0.683527007610375, 0.3005259299054534, -0.21171048437893383`}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 32], -0.21492037106829975`}, {0.6875, Rational[3, 10], -0.21671048437893384`}, {0.625, Rational[9, 32], -0.2572944362423304}}, {{0.6875, 0.28125, -0.21492037106829975`}, {0.6875, 0.3, -0.21671048437893384`}, {0.625, 0.28125, -0.2572944362423304}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5000000000000063, 0.2618531312967512, -0.29632461016426875`}, { 0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.500000000000006, 0.28046854678340555`, -0.29897480213878974`}, { 0.49999999999999367`, 0.2631468687032488, -0.28632461016426874`}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}, { 0.4999999999999941, 0.28203145321659445`, -0.28897480213878973`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[21, 80], -0.29132461016426875`}, {0.5625, Rational[9, 32], -0.2845649177460379}, {0.5, Rational[9, 32], -0.29397480213878974`}}, {{0.5, 0.2625, -0.29132461016426875`}, {0.5625, 0.28125, -0.2845649177460379}, {0.5, 0.28125, -0.29397480213878974`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.6278966266657275, 0.29925712426687834`, -0.26482838918780255`}, { 0.5640225880201135, 0.29912159484574347`, -0.2925696305215732}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}, { 0.6221033733342725, 0.30074287573312164`, -0.25482838918780254`}, { 0.5609774119798865, 0.3008784051542565, -0.2825696305215732}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 32], -0.2845649177460379}, {0.625, Rational[3, 10], -0.25982838918780254`}, {0.5625, Rational[3, 10], -0.2875696305215732}}, {{0.5625, 0.28125, -0.2845649177460379}, {0.625, 0.3, -0.25982838918780254`}, {0.5625, 0.3, -0.2875696305215732}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5000000000000059, 0.2804685467834056, -0.29897480213878974`}, { 0.5640225880201134, 0.2991215948457435, -0.2925696305215732}, { 0.5000000000000056, 0.299069907419467, -0.3021494211309291}, { 0.49999999999999406`, 0.2820314532165944, -0.28897480213878973`}, { 0.5609774119798866, 0.30087840515425646`, -0.2825696305215732}, { 0.4999999999999944, 0.300930092580533, -0.29214942113092907`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5, Rational[9, 32], -0.29397480213878974`}, {0.5625, Rational[3, 10], -0.2875696305215732}, {0.5, Rational[3, 10], -0.29714942113092907`}}, {{0.5, 0.28125, -0.29397480213878974`}, {0.5625, 0.3, -0.2875696305215732}, {0.5, 0.3, -0.29714942113092907`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.5640225880201135, 0.29912159484574347`, -0.2925696305215732}, { 0.500000000000006, 0.2804685467834056, -0.29897480213878974`}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}, { 0.5609774119798865, 0.3008784051542565, -0.2825696305215732}, { 0.4999999999999941, 0.2820314532165944, -0.28897480213878973`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 32], -0.2845649177460379}, {0.5625, Rational[3, 10], -0.2875696305215732}, {0.5, Rational[9, 32], -0.29397480213878974`}}, {{0.5625, 0.28125, -0.2845649177460379}, {0.5625, 0.3, -0.2875696305215732}, {0.5, 0.28125, -0.29397480213878974`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278135963237503, 0.2619799721599172, -0.26017385102000584`}, { 0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.5639790905563699, 0.2618858240700147, -0.2870520204578858}, { 0.6221864036762497, 0.2630200278400828, -0.25017385102000583`}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}, { 0.5610209094436301, 0.2631141759299853, -0.2770520204578858}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[21, 80], -0.25517385102000584`}, {0.625, Rational[9, 32], -0.2572944362423304}, {0.5625, Rational[21, 80], -0.2820520204578858}}, {{0.625, 0.2625, -0.25517385102000584`}, {0.625, 0.28125, -0.2572944362423304}, {0.5625, 0.2625, -0.2820520204578858}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.6278966266657275, 0.2992571242668784, -0.26482838918780255`}, { 0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}, { 0.6221033733342725, 0.3007428757331216, -0.25482838918780254`}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 32], -0.2572944362423304}, {0.625, Rational[3, 10], -0.25982838918780254`}, {0.5625, Rational[9, 32], -0.2845649177460379}}, {{0.625, 0.28125, -0.2572944362423304}, {0.625, 0.3, -0.25982838918780254`}, {0.5625, 0.28125, -0.2845649177460379}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639790905563699, 0.26188582407001465`, -0.2870520204578858}, { 0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.5000000000000063, 0.2618531312967512, -0.29632461016426875`}, { 0.5610209094436301, 0.26311417592998537`, -0.2770520204578858}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}, { 0.49999999999999367`, 0.2631468687032488, -0.28632461016426874`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[21, 80], -0.2820520204578858}, {0.5625, Rational[9, 32], -0.2845649177460379}, {0.5, Rational[21, 80], -0.29132461016426875`}}, {{0.5625, 0.2625, -0.2820520204578858}, {0.5625, 0.28125, -0.2845649177460379}, {0.5, 0.2625, -0.29132461016426875`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6278536772001715, 0.28062350088625304`, -0.2622944362423304}, { 0.5640000681346865, 0.2805093252597619, -0.28956491774603793`}, { 0.5639790905563699, 0.2618858240700147, -0.2870520204578858}, { 0.6221463227998285, 0.28187649911374696`, -0.2522944362423304}, { 0.5609999318653135, 0.2819906747402381, -0.2795649177460379}, { 0.5610209094436301, 0.2631141759299853, -0.2770520204578858}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 32], -0.2572944362423304}, {0.5625, Rational[9, 32], -0.2845649177460379}, {0.5625, Rational[21, 80], -0.2820520204578858}}, {{0.625, 0.28125, -0.2572944362423304}, {0.5625, 0.28125, -0.2845649177460379}, {0.5625, 0.2625, -0.2820520204578858}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.754375280281028, 0.22487007115470675`, -0.1651443414015572}, { 0.7544151790015734, 0.2435904719374186, -0.16567623342220109`}, { 0.691276326524956, 0.22476087049791602`, -0.21616946926625033`}, { 0.745624719718972, 0.22512992884529326`, -0.1551443414015572}, { 0.7455848209984266, 0.2439095280625814, -0.15567623342220108`}, { 0.683723673475044, 0.225239129502084, -0.20616946926625032`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 40], -0.1601443414015572}, {0.75, Rational[39, 160], -0.16067623342220108`}, {0.6875, Rational[9, 40], -0.21116946926625033`}}, {{0.75, 0.225, -0.1601443414015572}, {0.75, 0.24375, -0.16067623342220108`}, {0.6875, 0.225, -0.21116946926625033`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790015734, 0.24359047193741856`, -0.16567623342220109`}, { 0.7544655938350894, 0.2623112107785619, -0.16631639907056261`}, { 0.6913120260562702, 0.24344649550927572`, -0.2171692684121986}, { 0.7455848209984266, 0.24390952806258143`, -0.15567623342220108`}, { 0.7455344061649106, 0.2626887892214381, -0.1563163990705626}, { 0.6836879739437298, 0.24405350449072427`, -0.2071692684121986}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[39, 160], -0.16067623342220108`}, {0.75, Rational[21, 80], -0.1613163990705626}, {0.6875, Rational[39, 160], -0.2121692684121986}}, {{0.75, 0.24375, -0.16067623342220108`}, {0.75, 0.2625, -0.1613163990705626}, {0.6875, 0.24375, -0.2121692684121986}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.691276326524956, 0.22476087049791602`, -0.21616946926625033`}, { 0.6913120260562702, 0.24344649550927575`, -0.2171692684121986}, { 0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.683723673475044, 0.225239129502084, -0.20616946926625032`}, { 0.6836879739437298, 0.24405350449072424`, -0.2071692684121986}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[9, 40], -0.21116946926625033`}, {0.6875, Rational[39, 160], -0.2121692684121986}, {0.625, Rational[9, 40], -0.25204257059428936`}}, {{0.6875, 0.225, -0.21116946926625033`}, {0.6875, 0.24375, -0.2121692684121986}, {0.625, 0.225, -0.25204257059428936`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544151790015734, 0.24359047193741856`, -0.16567623342220109`}, { 0.6913120260562702, 0.24344649550927572`, -0.2171692684121986}, { 0.691276326524956, 0.224760870497916, -0.21616946926625033`}, { 0.7455848209984266, 0.24390952806258143`, -0.15567623342220108`}, { 0.6836879739437298, 0.24405350449072427`, -0.2071692684121986}, { 0.683723673475044, 0.22523912950208402`, -0.20616946926625032`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[39, 160], -0.16067623342220108`}, {0.6875, Rational[39, 160], -0.2121692684121986}, {0.6875, Rational[9, 40], -0.21116946926625033`}}, {{0.75, 0.24375, -0.16067623342220108`}, {0.6875, 0.24375, -0.2121692684121986}, {0.6875, 0.225, -0.21116946926625033`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7544655938350894, 0.26231121077856184`, -0.16631639907056261`}, { 0.754528344915903, 0.2810320172714315, -0.16706170178937582`}, { 0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.7455344061649106, 0.2626887892214382, -0.1563163990705626}, { 0.745471655084097, 0.2814679827285685, -0.1570617017893758}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[21, 80], -0.1613163990705626}, {0.75, Rational[9, 32], -0.16206170178937582`}, {0.6875, Rational[21, 80], -0.21341403646708137`}}, {{0.75, 0.2625, -0.1613163990705626}, {0.75, 0.28125, -0.16206170178937582`}, {0.6875, 0.2625, -0.21341403646708137`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545283449159029, 0.2810320172714315, -0.16706170178937582`}, { 0.7545980267709189, 0.29975189976640126`, -0.16791219490710363`}, { 0.6914128932344656, 0.28080447063473324`, -0.21992037106829976`}, { 0.7454716550840971, 0.2814679827285685, -0.1570617017893758}, { 0.7454019732290811, 0.3002481002335987, -0.15791219490710362`}, { 0.6835871067655344, 0.28169552936526676`, -0.20992037106829975`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 32], -0.16206170178937582`}, {0.75, Rational[3, 10], -0.16291219490710362`}, {0.6875, Rational[9, 32], -0.21492037106829975`}}, {{0.75, 0.28125, -0.16206170178937582`}, {0.75, 0.3, -0.16291219490710362`}, {0.6875, 0.28125, -0.21492037106829975`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.6914128932344658, 0.28080447063473324`, -0.21992037106829976`}, { 0.6278135963237504, 0.26197997215991714`, -0.26017385102000584`}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}, { 0.6835871067655342, 0.28169552936526676`, -0.20992037106829975`}, { 0.6221864036762496, 0.2630200278400829, -0.25017385102000583`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 80], -0.21341403646708137`}, {0.6875, Rational[9, 32], -0.21492037106829975`}, {0.625, Rational[21, 80], -0.25517385102000584`}}, {{0.6875, 0.2625, -0.21341403646708137`}, {0.6875, 0.28125, -0.21492037106829975`}, {0.625, 0.2625, -0.25517385102000584`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.7545283449159029, 0.2810320172714315, -0.16706170178937582`}, { 0.6914128932344656, 0.28080447063473324`, -0.21992037106829976`}, { 0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.7454716550840971, 0.2814679827285685, -0.1570617017893758}, { 0.6835871067655344, 0.28169552936526676`, -0.20992037106829975`}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[9, 32], -0.16206170178937582`}, {0.6875, Rational[9, 32], -0.21492037106829975`}, {0.6875, Rational[21, 80], -0.21341403646708137`}}, {{0.75, 0.28125, -0.16206170178937582`}, {0.6875, 0.28125, -0.21492037106829975`}, {0.6875, 0.2625, -0.21341403646708137`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.5639483309630096, 0.22461157526348688`, -0.2833493407440369}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}, { 0.5610516690369904, 0.22538842473651313`, -0.2733493407440369}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[9, 40], -0.25204257059428936`}, {0.625, Rational[39, 160], -0.25343239277875756`}, {0.5625, Rational[9, 40], -0.2783493407440369}}, {{0.625, 0.225, -0.25204257059428936`}, {0.625, 0.24375, -0.25343239277875756`}, {0.5625, 0.225, -0.2783493407440369}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.6278135963237503, 0.2619799721599172, -0.26017385102000584`}, { 0.5639618690467664, 0.24325268630255917`, -0.284991152490919}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}, { 0.6221864036762497, 0.2630200278400828, -0.25017385102000583`}, { 0.5610381309532336, 0.24424731369744082`, -0.274991152490919}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[39, 160], -0.25343239277875756`}, {0.625, Rational[21, 80], -0.25517385102000584`}, {0.5625, Rational[39, 160], -0.279991152490919}}, {{0.625, 0.24375, -0.25343239277875756`}, {0.625, 0.2625, -0.25517385102000584`}, {0.5625, 0.24375, -0.279991152490919}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.5639483309630096, 0.22461157526348688`, -0.2833493407440369}, { 0.5639618690467665, 0.2432526863025592, -0.284991152490919}, { 0.5000000000000073, 0.22459151621665543`, -0.29242311991399283`}, { 0.5610516690369904, 0.22538842473651313`, -0.2733493407440369}, { 0.5610381309532335, 0.2442473136974408, -0.274991152490919}, { 0.4999999999999927, 0.22540848378334458`, -0.2824231199139928}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.5625, Rational[9, 40], -0.2783493407440369}, {0.5625, Rational[39, 160], -0.279991152490919}, {0.5, Rational[9, 40], -0.28742311991399283`}}, {{0.5625, 0.225, -0.2783493407440369}, {0.5625, 0.24375, -0.279991152490919}, {0.5, 0.225, -0.28742311991399283`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.5639618690467664, 0.24325268630255917`, -0.284991152490919}, { 0.5639483309630096, 0.22461157526348688`, -0.2833493407440369}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}, { 0.5610381309532336, 0.24424731369744082`, -0.274991152490919}, { 0.5610516690369904, 0.22538842473651313`, -0.2733493407440369}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.625, Rational[39, 160], -0.25343239277875756`}, {0.5625, Rational[39, 160], -0.279991152490919}, {0.5625, Rational[9, 40], -0.2783493407440369}}, {{0.625, 0.24375, -0.25343239277875756`}, {0.5625, 0.24375, -0.279991152490919}, {0.5625, 0.225, -0.2783493407440369}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{ 0.7544655938350894, 0.26231121077856184`, -0.16631639907056261`}, { 0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.6913120260562703, 0.24344649550927575`, -0.2171692684121986}, { 0.7455344061649106, 0.2626887892214382, -0.1563163990705626}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}, { 0.6836879739437297, 0.24405350449072424`, -0.2071692684121986}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.75, Rational[21, 80], -0.1613163990705626}, {0.6875, Rational[21, 80], -0.21341403646708137`}, {0.6875, Rational[39, 160], -0.2121692684121986}}, {{0.75, 0.2625, -0.1613163990705626}, {0.6875, 0.2625, -0.21341403646708137`}, {0.6875, 0.24375, -0.2121692684121986}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.6278135963237504, 0.26197997215991714`, -0.26017385102000584`}, { 0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}, { 0.6221864036762496, 0.2630200278400829, -0.25017385102000583`}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 80], -0.21341403646708137`}, {0.625, Rational[21, 80], -0.25517385102000584`}, {0.625, Rational[39, 160], -0.25343239277875756`}}, {{0.6875, 0.2625, -0.21341403646708137`}, {0.625, 0.2625, -0.25517385102000584`}, {0.625, 0.24375, -0.25343239277875756`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913120260562702, 0.24344649550927575`, -0.2171692684121986}, { 0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.6277542339850051, 0.2246697702189817, -0.25704257059428937`}, { 0.6836879739437298, 0.24405350449072424`, -0.2071692684121986}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}, { 0.6222457660149949, 0.2253302297810183, -0.24704257059428936`}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[39, 160], -0.2121692684121986}, {0.625, Rational[39, 160], -0.25343239277875756`}, {0.625, Rational[9, 40], -0.25204257059428936`}}, {{0.6875, 0.24375, -0.2121692684121986}, {0.625, 0.24375, -0.25343239277875756`}, {0.625, 0.225, -0.25204257059428936`}}]], {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], PrismBox[{{0.6913574740114672, 0.2621281315755646, -0.21841403646708138`}, { 0.6277804425065086, 0.24332817618732402`, -0.25843239277875757`}, { 0.6913120260562703, 0.24344649550927575`, -0.2171692684121986}, { 0.6836425259885328, 0.26287186842443544`, -0.20841403646708137`}, { 0.6222195574934914, 0.24417182381267596`, -0.24843239277875756`}, { 0.6836879739437297, 0.24405350449072424`, -0.2071692684121986}}], {RGBColor[0, 0, 1], PointSize[Medium], Point3DBox[NCache[{{0.6875, Rational[21, 80], -0.21341403646708137`}, {0.625, Rational[39, 160], -0.25343239277875756`}, {0.6875, Rational[39, 160], -0.2121692684121986}}, {{0.6875, 0.2625, -0.21341403646708137`}, {0.625, 0.24375, -0.25343239277875756`}, {0.6875, 0.24375, \ -0.2121692684121986}}]]}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\ }}}}}}}}}}}, Axes->True, Lighting->"Neutral", SphericalRegion->True]], "Output", CellChangeTimes->{3.8825858545960493`*^9}, CellLabel->"Out[442]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvQl8FNeVL1yvu7pbC7sBm8UgL+AFY7DBxgQMYkdoF0hoV2tfEdpAYjGI HWMb8G6823ESZ5t4kkwyM5kZe3bexJlhZpJ8vDeTZ42Hx2TySMITWGlZUvd3 zrlL1e2+Vd1+SWbe7/vQ73cL0aquc+uc//+cc2/dcyu7uqepfkd1T3Ntddqm ruqOpuba7rSNO7vgI+9/MYxAkmH4/3uaYcLvEcP4jIeJhnHjzBtn3jjzxpk3 zrxx5o0zb5x548wbZ94488aZN868ceaNM2+ceePMG2feOPPGmTfOvHHmjTNv nHnjzBtn3jjzxpk3zrxx5o0zb5x548wbZ94488aZN868ceaNMz/jmT+kP/vS 4JBua/h/Yzz9zWv/m+FJl5/Jn1TrvCC0N/B/5vv0Wb+4lhSYmliH+vn/RfvI 1qGg7XPDQ0fvG/YOJVsdEtcxkth5H4kbkQKT/wM6lGR16COpiIj8rvyhjwL/ AR0KaDpk4pEU5GffSI/pmv8/oGt+q2vvi/O8GuN5rPOEPHYLuo77fv2Op/MO EbA9FryjO26/hrhB5Tyfdb3o897/jXZ8JhOUFk9QwLnj6TEdMn/tDvmDmr+h oBT21fej/vyGvPavA7+Z+ouTIrgDs/dLKCAtRgHeX6MTMwx50WhBQbsg0oTp 5CB+Az1I1/QgPaYHhu+jqGtYtvh1gDnD5W+Mbb43ov72/m9ScPTFbYI1LPhN SdVCz8Urphm2H/aH/490Qosqm5t1ReZvqxP9//Gd4Azvt1851bkHwf/QHqT9 p/dAp4P031oP3vjP68H/pYz4zXfi+3RSmiFyjv9kV0XdMUxxMRSO9+SL2zcC iyp/vMuX6Kx4EYR1JiY5wrvGO/PG71SsUninojX5WTulXpkl42a/Yf30y48p R5c/Nzt1LMpaDpnf+5+1n+l2QabVoTTeR20nb7GdHLT/wTaMjA/9eEnZh9bF BHjsPRS3LgTE9tA1d/UFo/5mmThe0vy3hryjj8RnAcdOeO2CtNqwDS2jb+p9 +3lMA3E6d4FdTKGbT9M5Bw9GArkZ++N1PKEO/b1GC6Zjh9TzdFrwOXcuVlvx WPAPhryrKLaqneMDQzueuNAAnhe0nZpmMJ/4RtSNpikdi4exf9R0TAd024hV Ysdmbp3G+5WO/DpzJ7dqhKc4CUqKI+hH9GfTrmK8yFwmwy5fzLbgn1HLafIa KYnJEB0W7Tb2cTrv8xv8Yw+Z0Bs0oo0Xb0bOOvzfPZV548z/H5/JTvKmTZ8+ Pf3732fpwGgiXxxnfTH4pS996f3du3eDa2poaAB3JS6EP58mcrFkzcV87GL0 +2e6mF+92BuHDh3iF/N9tGPHDvxNNOrpSCIX9bpfFP8vbpv+5sW/JXTl/2Jd Gb9J1zTZvStXZhHW1//000/bb4H0E08vY5YM/D5eN1oG3pXIQfB3eW2dUX8V R96nqjy6jk4e89SmkCc+J5HDcWT8SrWIHTMog66PPwyoAey/vCf4wX/l/0Nx ZF13l4X3iH/jbPLh7/hX0jP80N90evwkjtz/rcq1oU7KpevdhKeRAI9qQTo3 nrV+4S5FInC6lMLZIHRI3xiKI+WKJcUV5zwDFFRlumM4EXoV1I2nvn+3RErY 8xuTEMSfWRqRXlWR9N148i6r8mywJych1IWNZPPMSaiDPjM1qr0eR+6/qga0 wdO0UwH/zlEob912+5puxGj8WpyeDDj2RCUKXZ73BT+M7ovwcvQ3n/oZmSJe R36idsSROQHV9HTerarp6TO/xiyDcfrw3xPsQ8pn6kOMTf53nG5cZJfCU12J N169RbLdrdZ35WfisZfdHPH68CNLFa4BaBI7T/STzrvV+q78LEljjqtx+vAP ah8cg9JNah/ojDn4EeE1SW+EX8YR/nca4bYMR/JxmqrcKOHJ6l9JFfEkf2hJ dqUkm6cw7ZEDP+faV3xjskb7v4jTjf8avxuEwlmu3RAi6VTWDVOAU3z+8zg9 +Su1J460nKO/vM5pp2jsEq8bf251Q1BTG3VviwUcytR1I1VVEjnPK3G68adW N5yYSd2YJ0FoaKOH4rFT9ar7X3H68idqXxwZeretL7rooXjNcRrbxOvI99w7 Ihm7gJ0X13NHuVbq88/i9OH3rT648nahcx8Utz1eb5N/j9ON34vfDcLHYnae wKM9eiiee4LGHPH68E21D46MXaL2ga5tOc+JGiP8NI7kb1iSXUn6sHpXUW57 ol71/xZH+Nct4a7UXM4un4jnnqj2k6wUrxtfUbvhyMqVrt1QPPckjSkux+nG l9y7ITmZTmrHU+aocLAlGDGm+J9xhL+jIlDHAjqjRiNysvoZfTeevLfiyyN7 1qv2pH5MUe1On12KI+91VZ4jw5rYeYpzm6JX6b/GEfmKJdKVWq0akVEpGqkn nrxzKn4c0+B2dp7iO6dqVPpxHHkvqPIcU95O6zzptKbqVfovcUQ+q4p0pMgu PI080zSNIuNJOatixZELvarSCK/TNIociCPvqfjy6Np7HeXFKPKjOCJPqSId 6fAYO0/xbdPVz6i78eSdsOS5cqFfNRcZ82aNSv9HHHnHVKA4cuGIozxFpXid n8QReVgV6UiH4+w8xaPdolFpPHkHVXmOXHicnae4l6gpKDrvn+PI269CxpEV TzjKi1HpP8URuSe+SCLBaXae4tHEo0y7SuPJ263Kc2TF09Z50qNRZq4bPlyM I7TbupgrNZ6XAmbptfnf4giy+WFXTrykgoM0PEujzXjy2lV5joR4RSNvtk2b yoTyj+MIbVWFOuZyr6s3RDJm6/X6/8QR2aSixnGe/k12nuJronJH+m48efXu 8iQrPu8oL2ZyJ55Wa1SRjsT4IjtP8W18liE6a/5RHJFV7iIlWr/MzlPczVyN VuPJq7DkuU4ifs1RXoxWfxhHZKkl0pUgfIymuLc0tRv0rXjytqvyHLnxLTyN yHebRpH/GEfKNtVw9B0/k0LKEj/fjpISo75/iCMoXyPI9sTSPlQlIH6Hna/4 mds0aownN0eV60gGjyqPztP14XaNkv8+Th8y3fsg0epz7oPi+m7Xm+BCnG5k sEvFnXlPcu6G4p7u0JgjXh82WqpwZVHU3CGpmfdB8Vd3qudRX/8uTh/WqX1w ZNYE9Z6pr99R75nk3ak3x9/G6Ua6phu6OXjdQwhdN+apn9F58frwqNUH1+h0 k6p6OuM7FpykieZrzPGDOH34nNoHR4ZOd+6DktvN15vjwzjdWJZgN3h2HB0h qSfkIO9S+0l9iid8qSXcNa2cHU/43RoDfD+O8Act4a4Te3NjhePnOi95l94G fxOnJ4vUnjgyk3seoV7qna4bd2tMEa8P97n3QVKTYObB077LvqH4xns0dviv cSTfoyLQkYz/4igvZmbhfByR8+OLJOVeUhVJrvdejXLjybtDledIMjYJrPq3 BRqV/nUceWmWPFde/cxRXoxK/yqOyDkqfhzZxB7Iqe7zPo1K48mbpcpz5MxV 6zx57YWqSsmsfxlH3i3u8iQ/aJUI+aSFekX+RRxB01SsONJhSAq6X6O+eFKm xJdC5mLrv1T3cr9GfX8eR95EVZ4jA0Yd5cUo8s/iiLStjXQlQYSdp/iVRRqV xpOXoiLEMc+kk70aoYs1ev3TOEIDqlDHxJJOFjXedne2WK/cD+LINVW5jnSg k/lKBcXNPKD2hS4QT6htkabr7B6dnKoR+qBGw+87Cx2LL48ASifztFlxbA/q lfsnziI/VUU68oROnmydLFEa9fSVuuEiz7Z+Mz5JyDWRy+GJmzLd/cfOUj5R 0eJOjVuipMSo74+cBQ2qgtzpoFtwuFSjPhd5v1TludOAh0hlTPuQRpHfc5Zn W74ZnwFp6r1QRx7Sq/QPnUX+e3yRFgnu0Ih8WL1tuoCLvMuqPHcG8ERO8WjL NCr9A2d5tmWb8RnAc1XFqSzTq/T3nUX+i4oadzrcpxH5iEalLvL+hyrPnRU8 9Cl+bLmqUjr5u87y/kmV584K2zBMOrHlsSqV4z29yIsqahznt+lkIgF5mM9p FOki5UfuUlQuPCKlrJC/Gepjl285i/oHVZQ7DVao9qE+fE6vw287i/w7d5Eq LFepmqM/rNBo00XeDyx5rhNzdPIadrLiWVY66fV3nYX+jSU0PhfWOwmN1es3 nUX+tSrScahCJ29iJyse7VGNXl3k/YVqR3cu8NlRxb2ssulVebD1DWehthWM UmgSKQg/z3KSEjup856zjD9RZdgAato5gf96okUr/my1RqEucr/nKFcFqld/ R3QN22S4dHOsGzHTRS5a/gPrKq6U8bv0JEtaN11/1u84y7dNPLqyJzme/Chn la4xiEs3vqV2w5FR42K7QThw70aMQb7u3JP3ND3RzWaz0UFMkmDvieJKubtT HjK4dMO2SNE1ME2O3w3F2a3V2OVrzt34itoNx6A1NVbPdKfu3Yixy1ede/Kl BHtyc/yeKK54ncYuLt34Ajs97rMnx4UZdJUtqlC6mfUay3zFuSNvW/pwJa61 XDZqUXecjsTY5svOfXlD7Ysje29LpC+KX9+g9o/u0qUjr7p3RBL4Tuuy2Dkr xcuyLiDRsFE1DOnoXec+2BZExk8pd0uNbNRr/UvOgl6IL8jKtviiJsU58htT 5sRc5D2rynNPYPdr5G3SKPKLzvJsCyLjj+MOqtemP2zSq/QLziJPq/hxnPOm k/nSO8Wvbdao1EXeE6o890TymEZehkal7zjLO+kuTx3HnVTvhQiboVfp551F 2tZExqcDXyCquKMtGpW6yDscX55lwqdUeXRypkalbzvLO6jKc2cFh7RwcXQv TF5MBH/LWaRtTWR8YjyHB/IwUdGPhLtI2atixX0w96KUkq1R35vOUnpVKe6j t5fZyYpTydKr7w1nkT2qSHcSvKYRma1RpIs82wrI+FN8b6jqIw3nqJ/RF153 ltceX57FOJ5GKE4lR6/S15xFtqoi3UnwBVV9dDu5GpW6yLMtfozPABarVaeS p1Hpq87yGlTIuHPhq47yYlT6irPIWlWkOzHYyEpNnfJVldJnLvKCqjx3Vvyu dbI0V4FGpS87y7OtfIzPCmvVXoFekeecBZXGF2TR4btS0FaN+lykbFeluDOA TZarTmWr+hnd/0vO8mzrHeMz4I8d5cUo8kVnkQUqQtxJ8AE7WfEr29TPSKUu 8nJVee4M+HONvEKNSl9wlpelynNnwF+p8KBrF+pV+ryzyAwVNe4kYGtSVL9S pFGpi7yN8eVZXPi+Rt52jUqfc5a3TpXnzgqx85/diW3Xq/RZZ5Hp7iJVlP69 dbL0Y8XsM2Uc7iJvlXWJ+HPe9LiB3EuJRpHPOEtZYUmJz4WLUVJi1Pe0s6BH VEHuI5J/Um+CoFOiUZ+LvIdUc9nXbdPv4odO/mdVHum1VP2MOnfWWd6DGnlR y7fFpehv9CX+uE1xLqWxqsWLnnEWvUgV7UgGj0aDjt0o05zs0of73Psg0eqL 0wfF75XjR7q5riedO3Kv1RFX2iSp90zAt3dE8U7leps85dyNu6xuuPIq9bN0 o0KjPJc+3Kn24TMt47b3QXGclTabKE98Tjl35DYVHI6PmXQLue0dUdxppd4m Tzh3Y457N2SQusmpGx/Je6/SWMJF8ixVsiNDp6uS6YwoyUEn/Z90Fn9LguJ5 HaXgYJT4KH/MVBDz4OZx527wu4s7xT07TjeUMWxQYwmXPtxkqcKVl3Pj9EHx lawPMZNXLhaZpHbDkZq3WypT3aWuG9XsM+WJg0sfxmv6oHsgZX0jaicp8tE1 Gv2fcBZqW/oYP1G0f0NxhDV6hR93lhuIL9fKpuzqUeTWajTsItRUhbpnqXZc KPau02j4mLNQ29LH+AO4aE5If1en1/BRrdywdYH4s9t0oIdp5MXqNSrVSxlR pbhnkHSYKaWwrxnip1ZVKenoiFZoyF2oOnajg24bl3q9Ng9rRdqWQCZIkbnq 7ZCuG1S9kk308gbjy4uyHvdKivNp1Kj0kFbeL1V5CbBinqO8GJX2a0XaFkMm yImowhhydU3qZ6RSvbyfqahJgBALVHNRD5s1Kj2olfdvqrwEqHG/o7wYlR7Q irzkLlJDDL6OW/FtLRqV6uWx9Qj+NIPt9v0+bx/xfz34IU9k8Zx03gxPuvxM /sR5kV+6OO816x7jz6LQYYn1DXk/fA5bMeNj2nvkpQ/p/J7oM/4+v357/0UQ 5efQGbpt5sVqes318Dx5zZfi32eUx1nGRMIp7O5iQLNfe4NiMzF7x1OcOx73 Bm3vYBDXNMZZ56WL8z7TE2Y68OWeihfnhlTAqr9P3Tu26AUFHuq++kYC3WsV bC9SdFWA7iWCthcJCIaIF12k279reyadoFN8VKOUNvaZgu59WqXwKpt0h3vq F/0SW3cbthd18Lc7vG/vv834iejoDRe5pBfT6p+Uq3vRYtSzdcdhjHXn6aqO 6K9MbzEzaHu1qrM5LNk12y3I7oldbzW3GoxRHb1nJWDdtKtRAs5KVIwStRDA fT6RDnwqVwnuO9hnCtNcNRNM6I4d3hA0zVlr/fZrJDmfp8g6quoggdC4UaMD /rRVeey1x0UH+tfm8FCRHq/PokBIc55CJrH3ccx5R6ybTjBWRi1poTPYTcew ok973y5hMN3eZxZN9K/9EnX78a4hRqHxznssvhqiQilfFqJkYjtV1RD+3XSg f9ELd7ixnOU3rQNymv1mCFi618bZlnAkGE9zNHfZwbthR3iv211qEc7vMhjv ZsSUi8H8ZZDOQ72xpET/TiXbll0Jxkj+dFzJctmNxqB6t9u9RncHe8ryCt0r vO7QK4hgELUSJoF4Vch0CKfwJSYKEPXddknZlJ6mutweH+fF4jJqZU0CUaVY 3kIXv6gdZbs+6y2kJ3ALb1i3oDdE1I5lCcQF/hBGSbjYVWLA1ON2S+kJ3pKW YG63lMCSoKhuVWhuiZtIWRLhej9Bzf2kae7H7vrk/YjHIpprvG+/RnP8e4ty 5UH2DSXP61Y/I410/zbu7SPbvemu0W+/hm3dUYIOnE+ZKSkKu48YKHb91m6P BS56CSDeDp6DJgta31PN6tVA3bb+KUGX3qDeOpmwR/2MwPHbvm9N1pXAOwl1 QyfbBngJhgROBnE2aW0X75V9qUHnb1sH9r+Je+u3X8Nn6eCjqPPw/1JfQVUH FFMca9/ooNvZmOkghgIdv201KNdgI34/nt/P7wyboIdfoyXbKrmoWCTfjyXs Svdp3cQOVQv0Tb7TqMKG34gKtEFHp4JJmnsss+4xyoEHFAvjdV3vVZnOi9om mVC/0+1e0zX3mp7AvRJjqf7JloLLCyVbkJY3neiKRFO9haibbmf9hD+wW40B d/tnvdug5m7tvky9W/ZyTvvf8Ptp4kYD6o3j52JtUNxwpnt7kO7G2VhLxbP+ rlNs9om9Td1Lv9l+OjHkfoPO5PfB75m+56HLqoiJsyhU+m/dm4qi7jcqFetT PyN073C+c4csWGyoY8TBAtdFv+4aQeseXVcLjP8/vMcYWLe53Wa0ud633Wa6 5jYVc/EtlIIx50V5YcdxzaRE7lGkmPSNPepnhGC3G9R0LsojJ+ttRR6Znqya mi8lukerSHBcb1DJPaN2jyegtrrdYJrmBoOaG4x2w2/IG4wFO32/yLpH19VN UXvp6+9RmQ1j9xizxKlFe5v/h7OA6XYVMP+r901b3W9TBpdbErlNJYdijwtU rLrdozcY7z5sj0U+ijrvI/t501zuN0+9X8eYErU3UAL3G1XCSABp1t4vdzB2 m2rvVyw0MWJzXuW8aU76m4BfXe1+x9LjzknkjpUJMHbHMUBucrvpdHsn2c0E +g3bS50NKykgo+omKqdbipHXmqRRzOesTrsGm6gdpImlMbeupItRr5wgdejv e7zmvm0PM+UPEWyK5iZsG7S6RpN51s3K70bdBGVBB+Rvhrr8tl7bf/5wN2jv v+3hbpr4tnhbg/28iZrbsW35muCihnNq12MB16DtuNhx0GDMZ1CzOt4vOiTe uxmv4w9oOu6+sE73zgB2Cypw9P1nz26S0nhf+w1r6PeGYT3gJNpOSVM7mODM 1uuaDh6U2o7CUq22l72q0ASmnPhLlZSwT0JjDVunFdnzmUW+oxHZrzGEXp5t gjfBqSW++YQS9Zm8mBUVeq3utEQmuNKI77yhRCS2UCtmLW+NVmSbKjIBXn5d I/KwRqt6ec3u8jTT5nyrFSUEHdZrtVorMmp6NAGC2F55J13/EfW26ft6ebXx 5UVZ0drQ+qhGkUGtlKAqJQE6/EGUlBj1VWkF2YY1CfKAbZyo+pejGvXp5dkm ehIkwfuqPPrrMY0iK7XyilV5CTCA7Qir+pVjepVWaEUWuovUkOAvNSKPa1Sq l2eryUyQAXzvMsWVnVBVaquliZaXG19elAn/Rr0XuvYJvUrLtCKzVJEJ0OEH GpEn1c8Ie3p5tprMBFnB3hWh+rHHNSot1crbpELGMae1vvGP1jfkvTyuV2mJ VuR6VWQCz2np7UDkYU6p+KHv6qWsUaU4coHvRZnOvxZ1qdel5Cc0Ki3WSrbV ZLo+7mSS/Si539aC0NKgWRfU7QJxSq/x7doe2eo3XXnKdZHGe4G9Mfx09OL/ pY6sK7+saoWg8oTGRvp+2co9XcklBl42LRmprF/pXFtRl2eF3apfe1JjwSJt v2xloa4kXKnp13hLX4b4oU1kPKQ+b5qhBdomxw7H2LhQ22fbomJXIq/G0yb3 x/Zlk+ZmPNbNpMcqOWoHJwL2U+pnZHx9hxerHXZ0A2s0/fKx40upqR+/N3Xq D87Pnv3+4MyZb129++73DHNgzpz3DO/A7be/dXHRor0fbNq0yfDicWKQfl28 YcMGedOiE3bEJ/W7IStqxzbCBl8kqyBrm/amF6o37eiV+C5oQUP1DR68W+/A bbd90/BdmT37i6Fbbnl16PbbvxhauPC9K/PmvWd4+M3Pm/fMwMKFu7EZtzMV nN24cSNqgLQwHo9i0367ZsdZFtfcfNQ2grabj5ko36q9f1vhratv5DuvNT30 0FFhYMOn3rdsd9/9VcODGjC8l+fNe2vg3nuP0X176Oi9sHx5EDVAWlil0cW4 96ZM+ZCBya5rVIGt53zrQiXMntGAXX/ftkpfVw/M0bU4Nzc3mJ2djc3wfJCT k2N4L9577yuoAdICw4DXrgvQAR59oVtvfQu1gW1o+fJXB5ct2we6A12sZTd/ 4YEHDiJMCCp+OgYuz579lSuzZn0BWUQXvPfer1++/fb3Bm699RuGBxUUowkl ATirMoDsWKDVxJ2qJhx9PknxkAK8Z+GISiBFmHg0Nfdv0tGLeAgtXvz50Oc+ tx90gkfvlSVL9kg+cFycX716m8TFaqaai3fffU6qhrjkQa0YXqkXS9FJoTlz 3gZB38J26bbb3oMuvTlw991HLzzySNUH4GQ8QThYN06Ol1KJs3rG5Gv1ZSuL jopFpkgIhMZXq+BBrRkppDPfBSCSAM/luXO/hvdj+LnC0tKeCy1b9jipyqSj 7/Lixb1CYdguPvhgq5FOSjLPr1hRh6pBzWBLxst4UQuGObhkyUv27/k0itDt Ln1WwyS9PuZa+oiKc6YS5ww57SSdCv48oiHYREaw82vWNEvdBLhuZs06HVq1 qpG04sejV+NVVjDFfLh27dqLK1euvLRs2bLr8+Y1pdI1/MglwsmSJV+EKzwJ 1+u/8vDD+4R/4nDBZvg1+oragJ709bSGb3lafc1W9eUYZk0njS11IuIkprYP wZdeWr58Od2sUNvtt+8aevDBraHc3Fb4jICFfkjAArm3HJXmQX35ri5dujSV f1OQatmylwGMoCrw6g880CdBOI705D0LR1QTRXPrbqPeyEFIeFpPt1ytumao 6nIM0AEndS3SAGwaI6HQFN4uNsQI+GvmtRFo8+c3hu67LyO0Zk1BqKioAVwM eS8kI947oWwp81QCa9iMJLya4cXrSSeVzPVpAx3Xpzm4YsUBaYlVqwomuqqU FwEqmekzGrrq9SmercR77pnspM8FEn4zeBxcvXq10KDhxaPJ3T+ATqrw/vtX eVCHyUyFirNfpKoQ6WqMs2Nw+fIzqCnSlp9hEAmL+kK2Gje5KuxejcKe1fA1 R6swW521a6Ywzklh81UAUhSYpVGdjylwaO7cwwQaACBENtAfKIBrEIFo2NV4 qbi4WKpxgSTwZA3+/DYHunRpNWkx2eIz4o60ON1Vl7oXcjyr53O2Vp22PRRc 0w2+obZ9rIV/u0PD5jkaZQaYSgcXLsyVMMS2YEEWKBBU6UUtcj5fz8xsu1pR UfHDgoIC4y4NGKfj1QLSIR4ie1RUtBspTIFDmzbtkSFjpqsCeRW2krE/pyqV IKbX3nh37clgOzlWe3g+30sojQ8f8V9ebq8JJzq1pjDlDt1zT1loxYrHQqtX t0FIqbpSXn5yIBj88tW2NsRsT89Rf6i4+GVQVn7+s6GMjFPwhzbDQ0ffh8Fg 8IPS0lLZ8vPzQZjALoAaVC4l3hLFCntijVBG46I18vOr7Ra5np/fdQlMSraY qwniczR2eF7jFLK0dhDLluMtc2JLM/zRdkjjwxlcYxY9uJuicRd3WJFdKoZi jOfqli1bwHMUFRVdra6uvl5Ssi+0bdvjaA8Yd4NFIFPeufMptEioqup5g5nF N1Rd/ezV/fv3i3apr6/PGP9Be3t7MlokSRpjLrM60cg+xEMOCM++fPkW1Hyo sLCLlO+5WldXB51FHAlO3KaxwEx2o8oA7nm9K8nUGkGU28bLpDR7wL9XVvY1 27SCIX5SJRnmq8mU3UNfRUaA3kn3ftQ7YLa5ufnDffv2XejqOic0fxlgRZqv rz8N0ZAIcb25+dRgV9cR1Lph0tE7sGPHwQv19XvONzf3gPsFK4Bc6OTFyspK dPAgERxT8lXwSPDrihUrJAam0dFP5BBkUAIuMsIbysnpleEzwFIO5AfaSbS7 NAaypQoyqeC7jCtrLPXW8Vnfdn3cwhI8H+K/JyvrR3YLGSkafphO/kpnMY/G YsmqxT44ceKE4aWj//z+/U9fbG5+C+2H7UpLywtoPY9lPEEZbrzA9b6+/qHd uw/jaZfz8l4cKCk5cbG6+gAaFDJyMKYH7TgTTQgdyczMRDuSLQN4ZJjyX0eP KoKUiPbg0xxNaDKWCR9HLLtbY0RKXygt4VOwytq7LVrTiTARL0dkSyuwsCNy 9tFHf6KYjk0H04SZPVgv0BoJzDJOY5UAHX3nOztfRl4NZGf/4dWWlrPIH+Ad qj8V1U8cE62t7fHBoqJzAzk5Lw7k5z+N5hiorDxM5khWuYXNuJ8MkxRat+5Y aMuWhitZWb1XHn20KdTY2Beqqekmz7Zhw74kK9ALyoA16XgRnK80wQKNCSaq iqds8QW9o8uItkfY3RQy++T716TxuTI0h0hG0Rz9hv3pAc1aQg4+e/b7OP+A 42xDGAascAkCMkYUYyKzycWuri60BFljHB654xrcu/cAYR8UD+EYj8nIlKuF hcwAUUZAXpCT82ic3CI0BHGF/eF8WdnRgVWrvmp48DKG7/L27U+HuroOU8vJ OYNphRgMoFkGS0tbySA+Tfy53zUnS9EYKOqBBSk+xjojqnUck9k0dl56POvw 6f33pk37O2Ecg8+sDdx334kLjz5aR2aah0fPBy0tLeC5IHajTdBKxiSNxSYw Fn149OhRe8xHw4ErAaMx7xYg7yWsxi13paio7VJJSQOzDhtvSOoEyIo+NNTF rKyX8DtXqqufRANBuNu69XkP2YhyMWkdRhr/YG1t4/Xq6mbiF7Sf5eW14BBk iauhxE4J9tmElzRubXO0oULuhpL5Gg0vmBXMN/Pz/0xwE38Xxrn55gsDd975 navz5/8ON44J///8wKJFfaLdxsj0QXl5ORoJTWSYLNCgadBIZKgJGnNNZudd OnDgAJoJOQbuSZopabi4+NwvN29+8pMNG06OrFt3dCQjo344M7McOFE6WFCw 7d4oHqGRyFCpjHRorgsVFUcHwVTMTEbS9YaGE1f37t0r286dO8HTtqCVhqqq Wk2KQiZGIRx3X1y+vOrC6tVbH3I1lkdlEEWNl/Rub1O0vYYse7nm1/P49WyP CchU7NRvZmb+vjAXuBE8+tBsV+688xti8hV5BQYEoxlewS+y3owoGyLZAs42 xMAlbTiVnYf2EwGK+UfPSGfnYcMfLix8Prxt23ORvLyzkXXrjoSxgR094czM MsMbzsraOpadnTuKPRhPR+8wBNGhvLw8bMZEPPo0lJxKNjY/7OzsRJtig/y/ 34dGhSRj9+4D0oW2tT0mghxLMgIiyaDpvcWLOwZWrCAzn1+7Nst42MnWYxoz n9M4zxgbX7Ns7Jq+s029lEdvNhv/ND39bbSsZWMPMdN7af58yUnDh8fpGoum uFtUpiLTWYKITlSkGp+CFtGco52dh7zhjo5+IykMuo6gXbFt2nQiwu2KZoVW 7A1nZ+ffhgb1DJHxrhUWFl7dvn07NiMVj+MuwvAYxg4gfKi3txeb4cGjB22Y xJ0rGi4v75hICfnM9cCyZfVoNDLYctVgQfofqZJybUGZoMitySb/m9lEmd6J es0GfbYx2pi217C7Zvv3Wj0Qxnxp/PhLP1679ss8IibbLYrt0p13fhtNenXx 4mOQL/ZdAngafsbY8xs3lkrGTtRERTIbNzIaE40ax8jmh4899tjF7u7uj+vr Hx+prj7lI+Mmk3F37jxIrazsjCBvBAwcQQMDaw0TLWx4BXuJuzM4g5G9YHWy /FyyuHcYdDPa09ODzfDQ0TvW2bkHJZLUAAdWQcEzYYjH2CLLlvWO3HffjpF7 7qm8snRpDuTRG8ezmZMPYZwjc56FDAAXFi06cPbmm/+UHqqa/XJAlS4GVHT8 BbOfMh3yst5Zb4i2/c81ttetnGa7TfvSuc3Pz5nzp2hftLeT7X96992fR5sP LlnSO7Rkye4rDz7YK2x/8eGH26XtU5xsP15je57XCrvTGTfh0YNmN8xLra2t V2tra0XzUJQ0R5ubjwnDIBhMRAKgvLr68ciWLaciGzd2AQ6KPRGAgIWDPImD aZL489D6Jpqb2ddrxxboAqxsJJEDWblyf3jVqq7w+vXbwqtXZ4VXrFg7BOMm 0MWSWVcfeughNlsmHzwQDsYzw59fvrwGjU+PjH14pOfGfM4p3YheUPC/NBDg S9yV1ZUx9rftm+g6RuEPLhaDz3tzyZJztqhsot0FxvB39nFgYMGCl3768MM9 CIHrS5f2hpYu3Y0w+OkDD/Qynx4VtH2axGuKMwKUxGsSP4+zH0EAQ3Qwv+Eb rKrqQAxgGy4rO4vmMvxkLC+Zf8OGPRGkvxdt72O2B2tbPmCi6gPQ7xv3kA8w r0HgFj5gtLu714OQ8KAIksDQYCISIoCECCJhw4Y8T3jjxi2GObZx4+ZRGEyP rlmzZhRs70FkQFzBGSKAB0FkMR3N6/PnN4dmzHgNGz5STaYn6eYfTZr0x9+Z NOkv+rlPsGNBmZt7VY0DtmUxNiz8m4oFxxEReypnIhbObt269QPevGT3lGg4 kDu4//7HBx58cO+V1atbBB48CAh65kRRgQECj15NqJ+WIA4mSE8wjln/emnp frJ8QcFzo3l5T4dxdlVYv6ysB22ODYykMN+yfqpk/iLm9z9ta2sbA6Fg6v1G Ml0qEAkGT6KtI2vWHBKWBmBlRdDQXjS3Dy3tGSVXPwx2RlujpY370cLj0bCQ ZvIHtgOzZ//Oe5Mn/42VqZFRydG+GuvZ0WLroq15KUFr8lVbQbhBYUlQPh4D F5YvPykj+UMPfQ2/DUG1Y+Cuu74EtgKDgv3Wr2+4umJFO5rUYDYNIM3RrnJY tXLlsQvFxQfJlDP4GImb0TEPT7Wcutfu1OFkPHo/KS3dRxaFUG546OiNNDYe sbliZuXOzt5ITk4eWdmPR6/Gyn4Nx8neniGE9ig+5/CGof/y8kk8gqDls7Ke 5FbP96LJyeLgRTZu3EQEh2YQACAQcbKPgutHHBDp72HhwM5yI4WOysKYwQUL vkmLYpYtqzy7bt264Nq1a8nW/y7R8ZrG6cdA42PLQ7iO0B7QQMNvUd2LmEA3 z5BgwwPQnJDAOR7asuWJ61u2PHWluvqLEDVogh2na6WtpyeYySepbp7AcROD wzU4exi9cUVFheFDOHi4gXbu3A8Y6IH7a0QcJCEEPAgBU5PbcY5fKyoqQsMP 42cBZv2xwsLmKOt7yfpoeeA6sAuszny7F3x7hjR9cpTpH3zwQWxk+nnM9ENp aUeiTG+tdVm69EuhFStOX1m2bD8uXfB+ALYHs4D15fpLsuv/VL08Be6o9c7k +ddGA+Ijy1e4Duce1AAiiY7mxUWL3pTZH7h7k+BgXnr44V1XwQdjCxUWvmiG gsG3De9gMPjOperqd3HC3rg5Qev7pUeYrrG5h47esaKi3Wh9m1vwh4uLn4x0 dOwFGOyKgJQIDLslFAwK+egMBAiiyD+Ok3/9+qPhkpJDdvOHN23qQ6OTm/dL 80+Uvt4j7ZzG7Dx4//15UXb2SjsvW/YK/G/16sP0WH/P+UcfzWemZkdBect4 /+po8Jj4sCba5v+s2txx1LdEY/MUFiVgBNeOsYCZmo6+gby8cwMdHX9wpbPz 1audnc+GWlufh8AmrY4PA+zzLIrVdcm9R5Pa3aKxv0nH5NHS0hZhf2r5+Y+H t2/vjrS2doHtuyOAKHCVubm5PmZ9AEJhODe3hFpBQc01nNBeqHEDkxAHHoQB 8L6uzsr5fdwXNDS0STAkWZFfuoHJdAwI7y/cgJINzNJEgmQOExEJwBUYJoPJ 4IoVB2k1EwLEb8FE9QsDalAg3/66JlDEYOS/uWNEjhCXajAyngUKFhrWrj0l gAH/o+NgV9fZoZ07nyZocLdwvbr6nYvHjh0jk9ty/2iAiJwPQWGQR5ilQUSA e4StW48SEgoKjoNHKClpBruUllZH2tp2RCoqKhkaWAIogZCfX2kiGuDr27YF h0tLSwkRd0uvMI0HhS1bWsgzICwEEFjE6Y0UFABVJBCseDCVjl57KmCQp4hK DW9GMKTarI+BAO3ut6yPNie7J1lRwRA/ZMSfMOMok3xvyIQhasHTqmgI/NiC gOsAUQeBidxNZGRUEgIw8PuZ9S91dHwDEWC3/mBf38lLR44cuQAIkCM6TcZ/ taamRrqCOczwwuhk8iQ6ppArAOqjyamB0cNlZVVjwSCmsc1jpaVV8HlFEjP0 KPw6WlZWFiopKTHuUB0ANmOm5QCSACQy06TW0bGPsgyQDIP/DG52+HXzmDD7 LTIsmDIsTHHm+9CDD76AdiZbB5jFf7xyZY20eLIT3/9JtTgZ2PY+dbn02cvs SPYTP49GA8BWouZaJ8gBYB8VGpPp6PsAH2WcOnXqg1dfffXC0aNfvbh377c4 EHwYJ643Nb2MEMB2HVwCmLi/vx+SBwDDeR4Hzh8+/KTnwmOPnU3WAIM9gDav VVVVDQEQsA2DIdIYNoaCwaDERip3DcXFPSOFhY+NlJS0hgAnVyorHx+orv4K rhpgq6CS6JGNeQ2ANgR5P7ZL9fX1fjbHewmAIid/p0mvAEAEAiBOyD3MpmPK 2KZNvcJJyMjR0dFLgGlsbIps3pxhB83mzZshs6ChA1yC+Qpb0ID/CfhM0MAn iTuMRx89KuGTxOAztHnzPgmfcU4O4yKnsn0y6ZyKAvrMnwh8Lmi+qIPPQ47w 8drhY5h09J4/e/YdhBGByGQ+5UpX1/O/2LPnFAMPHb1XQN7A7t1Pk+/hQ4+B 5uY3B3bufA3RBOCMhVMKHj2IIi86BDAqYAZDC+FpjgZVyXj0DAH+DN81+ANe YBAfj+KCLoAWdBHAZVvQhdji6+zEkiJ6Lu9hT+fxSTsue6BHQuP5E/fGxkYE HwFQwBACE6arhL07GNpgVFMl0AZhZ2+kqWknIQ0zXwhJAm3JhDYTf0XEYQOg bpqrCU6Wv4qangposlo/x9/s2WdCGzbUEPJSeMAqK9txCZREyJvglNX+WIO/ FzQwYpmI3w4jeya8OhqKP9C4QN2D5IcThGIyHf3o0RCA+C9+cv6FF15Az8Wc mG/wwIHDQ3v2HAv19p4Y6uo6Q4NgHyHRN1Bf/4WLO3a8hoNhgUAjSaIPgFde Xo4QZDBMEIx+C4xeAUbmINmRsqeTJ09e6O5++WJLy9scmwKXhEq+agoXG4qV U+yZqLVqarCu7rR9iQ6tDrFWTbGnm/ick551prAnnoM4xgKYYjOS8DiZUOsn tGIylZNTCUG7mtBaV1fvQbiSYzQRoTSy3igzqTQZUn2a/MmvGVubHJ133LE7 tHx5UWj79h6OThO941UwMDZcGDTZaZzNQ6Iyw6p74Ymp8XNeNTZTNhaD1O9b F3PdXmFZgkidxJzmhTNnzvz08OHDCEkYkwEgrZE4ByQ5yCulpc9gUBysqsJF H5R02WMruDtCokAhYfBWDRK97IjJGcIRwSiW8AkQYoPe4jH5fFfXKxerqr6K i8UQk5cbG9/Epa+IRbH4kq/di108Vl9/+mcFBS9p1yzpFo/NR0AGCIe+UE5O zUhGRudIZmYjDBW2hauraykOcyeJk3rSSbIAPd8JeeQlPRq/6OFzvOgX589v haFcegifTWza9BhHoO96QUGPQCC2D3Gl5BQnP6l75fFZTbbG0jxTjNhEyu5P BInnVSQ6zhI8kiASb2JIvAj/vwqhmjBoMiQONTS8Ctj4Ag/SeAxcKS5+LbR1 65OQk7cjIkeKi5souwO/CKkcoRCRFYVC045CRB95Q7FMETI5HDgS5pIY/i5U Vn5t4HOf+/5Pu7sfN3Qr5Ew6+hFliEa53oqjzYNwM0wRskXTOULbaqwrn/vc 21eys/dAYpKb+xJIbG4+PtzS0jtSU9NGT6OBO7j0IJyRsRUbjF7xGBjLyckd gzGraHBOpkgajbs18dtPEE1GaI7MmPGKgCRB8d57qwiKW7fWIhyNVISieZVM fAWUKfPFm5zc4d/hgQaTTzmiT50v4Iv2lKUKMdD7S3foRW86gSNPV+hN407w 1KnXaWLKgl4STlLh3APGZlo7DLAbzs9/diQv7+nRoqIuD0SkRrDF9u31gDmK yMIHatBHA1T8nELwRA3qxtPRFOvERKMVfRCbOMhwLSwQAVdQmgi0y0VF+3FR 38elpfUPspViIMD8YOfOnZCFZGe/MrB69dcRSdhCnZ2HQtXVp+j5twdupM/L ADWWn18yWlhYMoojFw8d/WOFhdvD8Jlov8rNLRrMzc33XQV0JQ9t2bJldhSq 5DDESBqbP78hPHPmy+E77+zBdQ0jixZJNIVyc/fw3M/u20BFdBS5ICFrqpOf +4HE1ykNJLwab6R7k2gMvv5MA1aXjTyUmQ0dvm7m+II0UMxuCNc2vHv3iVBl 5Zu/Ki9/HWCUm3sGEp5t23oQVrzV4UzEWElJeZIGVzS7xZ+FYeCMnhFRwDWR gcu+ZhSDJQNXSqir67jI8j7Jy3tGLkfcsGEPhL+yUHZ2GVitZKEEGF+KCCgj pCXR0TxfUXHsYnb2ucvFxc8gzthqxMBQefnp6/X1x4dgsIIN8QWtGBBWbPgQ W8yxDWdmlg5lZRVez8kpmIYog2wCgh1CbYhKM+iIT46s+dNU6xEqxVwEXPje eyvD4L7CK1ZkgnusrGynx277R1atOjxsG/niyEOij3s3jK4SfdOdJlP4rkfK HPvxBHGoe7lsDA7fj49D+8YtcXE4A48eGhKn4uzKp93dJ0Z6eo6Ngv3D3d1H wh0dRyMVFc9HSkrORQCKCMdwfv4xg3k5X7i4mKbFREOPBwqPHXvcYqHSR+jj UzVyJDNJg84pLOD+EFQkVzKz5efjh7u7j45AioctXFT0QgRXWm7ZcopWWK5f vx9+rxSr8fCZDS7SEIszRuxLLCfR0XsN18KLsOuxrbgEUBOwJzPXiVCGVPOQ WCWCGMaVl17IUPZAUrZr12ND3d0H0aNiZB4tL4cMg6AcQCiPZmVVAE5LQ1lZ RcAegjQ6T2Me4jrAgDy8cuWOkYcfrhpLT98mcAr32BVevbofG3yGR+/o6tWH JHa91qxNlOc0YfDVJD47D+F/ptNkzl9r4Gt7c5grfHWvKY6B7x+p8HWc4Fnh At/e3l4ErQVfICd87+Pe3lcG6+vfhdS5uvrzoJyWllOEYFxI6Yng0R8JBs8K JEcAxcKd+hC6ENlKSsrEABqbADB/gohTyAhgepCgmwqapBmtTGUQvrx/vxyB GB4EreEb6+w8HAaciBbBFWIeBLIHlxuCzcWKUlxx5NEsNFNWmGJpIOaO+Ehq PB29lyDzhXFNNTbDd5GNzQDGQKTdQ2RIdgx1d+8bARBjg97h0Tfc0XEIUSxy TEKyh6UF5PsRxZmZJaBvwPFCcsu+6+npXbhOdbS29mC4oWE3DNB7jWRCq//T vLzOIQxSHImIyus1NS0eyiRx9mAHfoRh3pjt5GB12+YdpJBPYPWKETBhyqMZ BVuvto4B5x9Y4Exk86m44JxugfPi8ePHsQEjd+3aZXKEVlefi7S0HI9YCPVF mppOSoQWFnZGwL+C50B4eu2QFCsZBCbJsSZ9Nkx+CBnlxZ6enp9VVj4LKQau biYI+hGCtEzFWvSKPrTA1Kx3mxW1FgbLiWYz9OEswCj0a5RSETzi0tqDRlK4 sfEILXDNyzsKQ5GOyPr1QRiObAe854HfzvSNMjcIrgrCfhY2YzwdvddAGkKN 4HYzA921goKysfb2vRSbNm06ASEAxmDMRY5t2tQHo56OUdSCh47mWFVV41hl ZcsIOFZsJgMgpp8fb9jQQtC71clF6raK3K8Bjm4GZqbGvcY8Q/uu6m8d19s8 miAKp1KEZ+CjMQQAEBskNnQcRJ4DHoeDwbdGKytf94QrKl4DztbUPBPZseMY wjKyc+cRAmZx8VnARjuCMoKQ5MAMVVTURK+4UoCZmiAwJ6vAxCbyr9C2bS/A QP5phCm4ITj6CKw+CvwbNx4noEJUtZZpRK3amq5ZwXM7IdVnRyq1ri5IqxCs nnB7+wFPBA4Q9KqqTtC6PVyn6cF1mnDO2rWVgLnc8ObNmRFAbRiR6xmD420M xCEOYIJvEjsOA0nCTU194aqqfvCQp+FLTyBwCaglJc1ewqkXcYrBnxIAHx0D oxyzw5s2YVH+YVz6cfGRRyrPr1mTKUAbOyj6gGFFGULb3p3oOgd5ayKg/bYK Wsc1QRy0OPMjgAtJXixoJ6uuE3FrpBJevZ+0tDyBOCWYmnT0RerrnyKQImCb m49Eqqth1IEQNRlCR0pL60Ll5W3Xg8EmY5xtgHS+v79fLXmMWm04UQNTGjR5 CJ3eS3B7Mt/ysXzrekXFAcQrNgidTwQIqV6qI8jIqIlaQDzVKYjPo6M53NbW JoA51tGxnyAZIEj6JSRxKSkuHAY40sJCa03hGD6qwZlID+KToHkPQdMM44qf jo4OalVVBz34C3SsqakpUldXF8EJ2BRI/ncYgUhpaXsY4jq2seXL9/7y3nvb AXqNBLu5TnM9f8xdlH1kvTtB2KVp/GwM7H5XhZ3jrM8qC3Zy1kcHuwmaiD2B wQ4f7Q63t7ePAm8hWBLswEeehgB+gNZvtLd34iMIACMhDnEnUAcpEh69iD7p J302FNoHRIAux7VOyuBonOosEYgAbYIhOUsYnIzm51M1CZj0KICFVSBs3doR fyHzOE1YX8DweA1G6UOgyTFc4NrZ2ZnCoYjr5jBpEDDkK5q9co3jZjk497A1 jghLiPkZCExsuEBmyzzmN+3ghG4yZLa0dAG1OwmTSXREGu2OrFp1EBtA/J57 cMHOokWZw0uWrKDnOp6LK1asoD3G1sjx+ywnR/k9DWK7E0TsHYkg9nfUizlu w5goYsc5Rfdo2NK+LHj0yvh+OlxXd5TiELaWll2E4fb2Dvi8EVBcDtolLAP7 q0fKypoYivHoZUF+AK4sR0Qua/QU3KZI7zmZofXToqITouaJWmHhU4aP+8yu rj7tgmwlCQ1oQvt9iFYPAtUcJd86VlpaCkGil+CaTEdT+s61a8sQsNaC7ACb w8SH3AKmzIMCvOA4xpvBw/wYmEaFqxeC0WNwA/X1uxCphFYfHj0EVV/k/vvb IwsWVEUeeGBNeMmS5eGlS3FhF0LWHLI9NseyH8LwbCc3+/sMK5p3Gqs4MzXz lfM1gI8B7Vfjg5YutjpB0CZrovtNGryadPSONTbuE1AF7eNxEhx3AWTbQck7 EbIA0TJo5QjYCFu61RQGoI5Bg7SxDUE7WFGx7+OmpoOIWN0yYh1YA06hnmHX O1RTUzOK2SNSw0T0UlL8FKKXt8cAw7vAbVUjjiGUihXlUWN50ykNuIePprjb HUZ9JjNI0xJjADKBOYlnqZgLr1tXQs8io1aZWx44SQNvr0wQ5mhALbKDnTu7 Edkc3ezY3LxH+mUPHZNp8Ip+ecmSHoL5gw+ugt+XRwDmCPWxpUsfAhbTri3D cBSQhxEyHLnTpjJH4bRvdnLa37HgKWeedmggq3u4dG8i+H9XEwF0s1bpCeLf r0kzpjP8D4GSEfWE/AAeTQJ8Sri5uQMBL5oEfXl5hQD7aEXFHg+MDk7Qk/W3 xeY22jXzOrCbmuHX9Cic4+yMB48+ArsfUwvIAvYRyIFYYPcia7m8XyyXR3Db k4kFKqixGeO5n87MbA1v2HAMF79JUGOtzrp1RQTqgLVcWlROwHcVPDNHLXOK mYRnn5LwYmtv3wtXQwwHCMPCV2NOsXz5HoFb8JzonL2IW0Qsc9IMu4hbscoJ xqpWpSYAmEB8i9NUFo2ZaCaqRZPG6qZYF2ocfQxYv2BdzHUWa02CYDWdMgwd YpOZ3x5rbu7kicVuBK6JiAX9tba2Dzc2do+0tu4y/Gwd79Vg8B0s7HBc5j9J XYckGvnkGRpwmnT0jm3f3isSCsPDsBouLu6JtLV1A057Ipi95ubmIlYprwCN 4+L+vLxSbLb0AfwTaAWxSficyFA6mpsbRJRiMwIcpe3t+yCj2Ba9qF+ilBb1 exCgpiaVuJl5Xehhm/S6qdzDolNftKgWPShwjtCIHlSi0afxpAEnTzrVaXLr dyUkGxOE5APyGzFA/Lx6CceJLL6rddxHVR4nIM7QADGVJxCtrTtFqoDNM9Lc 3G34h5ubd19pa3sRn3v9rKvrbXzwio/1OSYv7t37VPQ2LU6YtA+/ZmngGMAj w18SDL1OgK9upVZT00T+srKySuDQw3IDhJ8fiwrg/FrRAM9Vw2VlZfM1jvNm 7jg3b+4jSObmHgHKM0ju3LkHdN6ECzdFecGYvdJwqoSkT4b/m6LCf3v7bvgu AtEXqak5HElP74SEOSOyevW6yIoVq+FT4R4floBMsgAp3WOSxj1OdXKP32Cw UOadahNE5VJnVL6pXsJxpmpdfFRi/DYIkHM0CByHR88Q7Zz0q9bWnlBT0x5s gy0tJ37W1vaqWIh8tbv7+VBn51MEPV77hAuRz0fNB+g2tcA1crjCia/ujEVf Mh1TyBkWFR2Q4Csvr4VhYDVQowVX+Ya3bSuCVoEIrfWM4nop7yclJSUyB50r veFswpopgjQ1yEK9Em67IRvoAkTnge9iHpCvTie43azJOy3gTeLAw7oIkWMm cw+Ynd0FGcAmbPA/dgTwIfQIfh4GwlG7V0yxYrRchZyighAdo1g1F+sQv6YB YVCDIK/Gr+l2D49Z8f6aBtEBdjG5nQb+iPc/aOCIq08vQsQmDM5lSBzEQgSO RtACDaNwCxKE4zUaol7t7OykJebdV9vajl1ub3/XXm0ztHv3KQZFVnMz1NT0 Mlbc4CrlS3CDvM4O6yxwYTz+azjWWojlybjEDqCFy+20YE1lYB2trKxBkI6W lOwaKSnpHikvb7hSWXkKF3kOdnScDu3adSzU3n7KFyopecUzArA2fMNVVb1D ra2tol2iq7MHngNIEAHkaZrB1G0IaS8Fcj9VXGAY7+joISBDei0XFVOJToZc PDfbCctRcX0cj+vV1Y9JVAc4quvqWiSq/XQ0ya0+8sgKGik99NDDEzShfbwM 7ZOcRkX8RYLKdFS5JjfUhWS+ekSpAYyB7svWxVxnBXSvKOW1wWliXxL8EW+6 tkN8Ah49F2mbk0vp6em0t2djY6ORppkuCKg4J9ebRDj3XQJQfnjmzBlacn/2 7Du47koUFV3u6voqBn9EusA5rwgJfNzXd4aGUfX1XxCVIAM9PS85VoMkq455 mBWbkkPFpaXX+PNvY7YT/j1ED5NWBW7ffjJUWHgKwU/L7j0I/QDC3kgChh+9 CgM30X66a9eBgaqqoxdraw9eaGjYm0rLVbwfQseiVgCYVI6EMwzQsAJpHrn0 gOLSt23rEBQI79iBo39BAq9mZf2tmtGXjglJ3L+vW1crmeDnTNi5syeyfv1G 4kCy9PIbI48++ugYQn6SZrw1QePLJzhNk31JQ4gSFcOOhHhU890YQryYKCHo vJjtltgGCv40255d/XzfLvx/koYeqSwCfJiVlYUcYTy5Sgm/YIo9Kugm1xS2 pLKoYGcLoFyuVES+2KtyP9679wXkCXHFE1vBgqzCcgG+T7JfsOhCX9/zGDIE c6wilkCCVEmyqMIKC+CP2NhyWjat8cPu7uNYtSLKqahAAGMH8sdLRz9c9Lnr LS1PChYN7tt38PqePYeIaYZ/cPv2lwe2bz+NxMKGxDoPg9dxSC6+3vES5klg hqtUx4zHVJzkmESkSpbDxKysJsjLq3C9HMUVW22VkawGlwh7WudUwIIMC8iU ia+VgOBjBRevPO4FEndG8vLyIRlDSvmAYhsiuGkttDFwqKOPPPIIDEtj06RJ MsKMc4owfKZBeapc5E6o6Kky5bsxhHpOczHdvJtPTyj+QpB0I/aleun2TbE8 GmYly8Djd+STz84nbMglg1L+CRoiJVvFiEgm/JeNaQGgEEiQPoI8osgBIpIs t2EcMi9XVLwzWFJyZKi8vAlLbryaDItIlCiVfE5U8ltUkjOErPbGRxUQWHfD a29wLG14LErZgxPSaai394hJlDJDDQ1nLhcUnKOl50AtD/IKUjUIW8gstl6Y xy6sYRTLL+8hfnmvYX21eMRj0tE3nJ3dMLJlS9dITk7ZSG5uCQwfaljA4pwS +ywErDrraJ4pg5Q7VZ4ZPnsQw+AVLiwULDMhW+wjluFkLAQwIpoZIVc8CpwZ haA0ihCarBkRT9EEsBSnAPY2x6l9rnprgnzTvTwvhm9PWxdznTpM0vPtPv51 WwATL4vsmzz5Jy+tWdPLtoqKTupwp3vUUAJUE6GKBjGTNCzj1WtYV4mjaCIS r14L1de/gtONtvLeANGpsPAlrL3FmqFhbGVljUSocQlSyMOmHIcx6eMNQmks ewJslp0q1zIz/4hqiNrazphIkwDRw4v0QB4hRXilj2mPQNh44LmCW4qKwPMg o8fH69c/dWXlyhfpi/zrOOEw3NraN1Ja2g3hqM2HVZMegPQ2w4SwVGAvDsJy g3yqI8qSbLiLJ3e2h/U8ucO4VUTP+8XQpr19F3Ghvr4BGLAR+WCk8GQOkzse eYB19M6t8Pr164kjooH9MSJN1uR6U51mM31O8elNDebzNDmaji8bE+HLGeti rjOcqS58Ya999Nn3ycSGu6lBdIhN71I1HOHTTzgTdRV4chU3CL9Jww1RT3fy 5DOUnllFTQExAPpZMCiLmkby858ZKSh4AvBQXNxEx3pgBIUYGKYTNxDr8pko n/9EriAjkA8GRZYJGjJQWZMXoW94MUZQaoYc8NExRTCBcjAA8uWsrGevZGSc HszI6A/l5paF8vJKrxcUFD1wlbwJqz0BjcjaE09srRPVn+CeyMHgUx5cJGMk wwDoJNzoHmQGEmMsL698tKiodLS4uBhayVhRUTHwBD6hZfylw1lZZUM5OYXX c3O3+q/m5eUlD2VmZkYVn+hmubz8mdTq1TtpA9GdO7vpmWoncoFFDT+LGmM2 VoBvIXRTFAFmEDEmaWYEpmvmVv1OkYTPOikPkrI1zIgqBqU32sDfM9Sv0wxY DDmeVMnhONHK3/9kf+k5fmeBlbz1G+r7Ye1c4fuKeq+kpX0Fd4YkdozXcGQW HvnTA5y4RSpcPHr0KPgVIgr+Lp958eo/3DPiF11d5+yFp1idNVJZ+QbAH87g W4ZhbQZQhFpJSTBcWlo5VlpanqzhyExeLNnU1HQJUsZrSIzJGnpM5M9ijx07 JjIpg8WIwHBPz7GR+vrTI8XF5yJY+mLbv8HwgEsvp53FS8ZycvJHcYW0h45s eYwop59MR+81LHkRQWSKE5WSWUJGZVwbNrxzOS/vVbbIzPCJHeWvgRaBsi2j FRW1pBF8hlFQUI6cCrFSse2hnJwi5M3NV1nJDdZw4RpvJFAAjylsBzzJmw0b SiBZ2w6DpWIxkIkJKzhHIMKKjxPIFlJgnMsIhKFFzAtP0qRitzjFF4/FIjlk iJ4AkzTY4sgiFfX0CjqaGYshzuMqcRwXNU52JU7QThy/GmSQLNgG58z5AqTt s2e/Cf5r/vy+0D33tAw+/PAmGWRw1lQQ6BYWZPDJG7KIHn7w/VWQO8giYtIU DZ9utqrMvL/q6XkcK8ywAVq7u49AHoGLzKurn4cc+uWI2Itt27b9nFT1SCra h0tMECiUugWPfI0OPo5DDiGXtLziJWUXwRAi6hg02veMwKDFSBrlJUPYInV1 TxLBcOEuEmzDhscYv3DJ5DaAdgE2YFfefKKYbxjpxbeAulpSUnKltLTUmHSR 1nsObN3a+6uiopMjW7c+92lZ2ZPIHNAxcMfEmOQZqa3d4SXi+ARxRrOzGXmy skqhl0AfwzuYl1eA/CEOzadjwM4kbCPLlx8YWb++Yay4eAflWht5/iWmmpNk TrZBzcnEyfCrSM5gJBkbgnRTBjPYQz4Rgv75vvt2X7zzzhdxf9rzt9zyveLJ k/8GCUQgPyfxv0kDdx1j8uU3onYR+lw0gWwFl65rLG/SE0i8KduIee05RZ4f zZz5LaKMSUdfaO7cZ5E4og0tXFhlJNsIJB5TT1MJRKEo8FkIZPjwO6LOjWo2 amtfZRzy8gK3xsYzYU4i8JrHBYF8yB1aAlkuJwg8GipNs6jkRyrZV1wIWk1h rMJVdHJF/E3WyqFftbefICr5kEKeCNZrBCK1tU8QkzZvPolMglyoAUMU0giI DSSCzuXk5CGLiElzeciy8QnwhZutabfSx+205Vb6fr6Nf01NW6SkpCuSnV1B bfPm4jC2jIyiERj3QCaXa4wfoveLXcOSIkGqWxmprq9Z0xNavfoQ1bJVVTXD 96sgc8uD/mfKZzVIKhuJAow+4XXrNsgAlOQegKIzONwGRGzRBW4ZjvxN2Jdn zfry2WnT3seUyDbhTJRYnyCJtrHzlGeSK6P5Y6v4dJ3H5q+NE0MfOkOXtpmM PPSClnnzvvtziDycPF47eeB/cAxomDNFw5yUBJkz1akIz8uK8LDsaay+/hni j5cX4bW1naQaOGQRz+mMAFLIo5kRmMK3JwDVIHGQA4af84FT5qoty1N4M1ku ZfKwqwwGg52YWFHVqpeOKVQbam+CTJxIAG7cobYAB/YFtyJx+PZy+JQTOUO8 mcXYg0+mNC+ieEyyxyt3pfewXekLCp4BuOM7CtaubcFSPZCZAy07ApEGV+tl zhxlQyCMQrwZ4+g4/hMbsa4VF5ePVVUdpTq97OxD4AB6IhkZmOJtI2Jt2JBJ qR2FnySikinCFlBqE+R161NsbNIEI5nOTbbYJLZ0Ensl4p74P5w+/b3KSZP+ mCH+eQ0t0uNTigb329l5yqOhGEr1q5RynMme4UQpnsGdnzv3z5FD2H6Zlvbu 6OzZr/EMLklkcLItWFAXuv/+7aElSzZdX7Zstalh1kQNs8Zxxpw5c0awS8wm KMyaItdjBdwqCbGe6ElK8KwyV5Pem1NUtBMSvkpsARafgFdVklcTVV5RUEpO kFcTnJZts2pCn6jQoopCzPYwSvkpVuFKk6c4rbbRosACUxOgpjnx7DY6+uw8 w0bcIloFaOPXZOQVOZhHH30ssnp1N8C9EEZw2eFNmzIhRGHD6QJiFu7ZM8ab cQ9j29i2bdtE5RaoNSfnNITZ8vK6yPbtZXDtAmpYOZGZmQ2hCxckIqH89jww vHbtRoxVdmLx6Wo7sZQwpdtFMpXvljZ37udDDzzwbcz45HbzUS/gtlVQm/aJ ZqSBjl6lidDrMXd6yYvN1tDrXk3E8ljpnmCb4aWjPzx79qvDc+c+I9l2//1l ocWL832hpUvXezQUG6+ZeLBKdxjPcJbOkWcTnWshQ42NJ5FkSi0k1kFyukHr j9TUYC0k8MtkJBstK6sZrqhowdp7XjCmkmxcgiRL1SwXT6UEkqYGvCMFBc+G 8aUpdnJlZnYgpSLEKBm1pqjp3ie4qvFuIpKJW2yPtba2hnGPv46OvhSij5/o s3btYU6dAggg2RBIMvFJTqZnFN9rPJaRkWEigTzIm/mMNmEYz8rVtV5bxSMW aOTnI+Pz8wupa/mSOvg4ZyNuyrDJAzIxQK1duwH+u26MJgjwmKLJ8nRPfFId t/APCPpgG1y69By+ueEDoBHNatsf0ChkWG5h33VNT4WKfRoFxRBpn3Ux15c9 zFUvRlMfRKSoXI84YzL+hG+//Xh44cJCuL0ciFZAFwjFMNyVTElxYsrEBJky TpPrTVCXZo7V1R2zlW8+E+nufiyya9feyO7dvTDch9AQIZIgVQRRIMBWVu6E ztq2UTH8UZMOkhWJsidZhqiJVupHlLFWrGNlzTGR9tHbSQ7RZ12SQj4Zn8Zr Rkx385wPKDSEm1NjFac5SjHL8fUkGP04p7ySUDSXnYGswgYwpyMSDB+NsiCl CVW3O3LOlHVEOLIqLq7yRdEuIyPH8PBZCqCcIBwNvNYR45I00xJTNJmgbtvZ VL694oIFv0OMW7nydCg9/fCllSu7DO8H9P5tmjXH57GSHE9p2PewJvLonicF 2XnK86QY9vWpKafjlPkdFvvo4vhzDwupQcN61x4mi37OwPvuO/fLJUsqwkuW rBuF5mf0C+XlBfH9kIPd3X1GwIl+UzT0m6J5vJQapxZVWR5tq0VNolrUmppT YSz0a2rqo8eISMiuru5wMFjLOTlWVlaPTCQ2EidNJxJOdCYh/l+ex8dpP+zr 65M11FPUJ7yQZx1jlX0m51939x4IqrXEvwAePZr8MCDzw3uQhB7kXjKj3tj2 7Y3ad8OsX48vCMkGUmMMk7zbInnn57zDkn7OPcPU8G5OVIpo8c6PNU9ioRC1 hoZu5CDjnw+3eqExGb6Tat26LZQzphLzcFaDAh4FPb97vJPpos8x3nnt7IP/ Af8M79+uWVOI/CMOehgTz65Zs0Zl4hOaWLYkQSbyGgLl2VcME3epTHTcybTA Sh5Fsmj4ebq4aNGpgSVL9v/yoYdKwJ0D6QzfyJIl65F5sgH/AMnAQCMw1N6+ TzAGmzLRfnOCFEzSRMCbNOxzrqw1ZWUtFkkBAT2RsrIKDzHQDJeXN+A+JGO4 Awk0Hhh/ChFJTn1Mdade1FIiNXucxkZn9sUVRMHt23t5ca2fimtZRDwA3dsT 6enZhc+FkllGKebjWTB0GqPNl5QEtEKuibwkbqZyhmIlTVHRYeX1PTiVyJNM mg8RDAVObpYMTdYw1Bc9UaLwkupq2XLwJBEMkYvUkIkwLsQtPXDVEgbkTTRP Pw4pSQ+6vAmGQdpleBxn3rx574Yeeuhd4pzJmHd969ZdknmmE/Me18SxxSrz HNdUNFjnyaQxhnldmovZhnJyFTmfyTwLNpSJpo8fOfNECy9b9ihnIPqm9SLq ceZ5B3fseOLjPXvOEltmWvOKVwCSjkzzy2A3zVpcK0sukqzK3aRwc3O3rNxt bW2nJ5llZeXIKySU2IiyqmrfSFXVyU+hGR5cVTfNkUmmnUlOUx3TnIojWeWu D4Zmx4HkvcSgpqZmWibKaIQJZb7IJJE5ukRyio0rolw3wKNZR8d+ZAhxJYmO lEYKqhgTnGgSFchuJsKY9gQSq9GSeTEaxi7cj2rz5mLabgQuT+IYR8bLVDFq Jd5Uix5ypl3EJByDCWb4GTNo41nBDL+VHRrix/7USWHGQg2YHTbYphpgmsuP ocROd0rI+fhClgJSRS8Y6AOw24WVK0/x4dfA3Xe/K5gB/8OjGX7kkRXhtWtz 6VljS8txz5X29nO0uHum8/S6QgOvZnLiZs1q8xRZGLxL7jgiC4NNpMVoXV3r yI4dvcgBH5ub/0VNzZfwnQP2B7dObBAxBCkwU4N8v60Szr7XSHFxDxYb0dYn SISSkjIkAo2rwM3n5hbBaWXUtm2rGysuDl4rLS2dp+HDzcQHcywrq02UUURa Ww/6JCX24AukiAwpeJyq4YBfTldMjRo6IeBT+Lpu3DYvPR0jwyZjvAp30KXI 0vgMOY8FuOny6MyZr+CW3vKtLwj2Rx55hWAesMIAVpQRzJOcwH5Uk0Td6wh2 dd1COztPmWxfEY35Nk02p5sw57PvQcD6B7xB2ghHrw31PA7AMAiPvp83NJwO 7d79bKip6SvYBltavi5KGsR7OewbOGpIYNpJgOCnSDBTA/xxLNOShcgAeohF shTZ9/O2tudQ9C+6u18O9fWdhJD0Ajgewv/FfftOy6HKJL5wARf4iSXabF2d icu26ZUJ8C9On+vWqLJK0ABhHsuQOe5p64iqqlrEPrgfDAGILwl62nq6jr2b YaS8vJxwn+aUPs3Eo4cq6bz2l14ZHkmCXppsw7ntFBYXcIJtTKRP0504ERUX JtoSKT6RwNmBL1Ysh3xps2wbNmyGzzZNiNCl4Ve2Xmj9+vXGOEaZCASGMaDK GDAF23hGmdGFC7Npr3JoYDM8epE+wzNmvKq8HuThh08ieYhASYxGuGyGtoxG 6iQ7ZVOHNRnRXZqhh+5RbmciNGp2p5GczyuxsilJIy87Xly8+C3KsIBJkFsR gwbWr39qoLHxvYG+vj8d3Lv3RQDt25BNAZcM80pb2++KQiGscYhDokv4qkYe OWZr+DOB8QfXfCNhsHKfJO0xvKKCn5jLVxcRjbq6ThOB+D6rQ83Nr1w5fPjw eduw4/yRI0+pU3FR1BqHR/ZeHFO8L24YOebAr1QZX/bJKmvkVkVFNRaw/rKs 7MBIfX37SGNjJ0S4PpPqVk18XwASTMQW/l7SYc40YtsMJ7bNpWOKPeCIQQt/ q+Aueonl1q3bkGTENw9QL2OWyjLil45l4zjL8vLqZG1REotB4cLCCsEwqira TE9tNyHJiGg6uvF5hAhEpggwLELbsyHhkjWEM+noEzFLvoZi1SrcmJ5INpSR sY/Wp2FF6Dgnkh2SmdWdCVKrh52nTPTFUMu2Q4brVDl/gIVZmaSWj1HrfEZG F87M2YKTl6gFtMIGoMaj3x6ssF1ub/89XJs6TUMtVhNh0i7P0I1B+N+1rq4u 2w4FklqpmgpAr1UXjiSjwh57XXhv7xM2avkG8Q1qcKdIL6yJvbBnzwtwD7t2 nYNQeuDA05JiPg3FktmsgIheyDKwNxFAPAS2L5lV6Dae1S4NBYN1I9u39w9v 3340BJTDUlk2eGLugRaVNzScMVjVbHJ0YdLP2tsP2atmaZ1rKq3X816CnkgS ejUJ33zGP/tOMJT0NTb2Se7xYIf8S6Z4h69Q24IkxBYGBs6Rz6qS5DxBEiOe UjHusxX11dc3A6GwTlYQj0IcUW6SRbwwX8VH9bTraO356gjEOUa8CMsLecwb s+0iM5aWdkjy0McCX3jOnNOjGzfWDiPzGP9MzBUF/3CQNN6ioFqJcVBS8LYE KdibCAXr1Is5zpeXa5LEAB59nHM8lBHbvIxzl/v6vhnq7HzZniRiONNNhk/E owfp5hnFdafeIYCRnP2+VTP/luRYqm6KJ1ripYW8Sh3Zh7kh8g4DGjLP8Fyl N3Ne37//2NDevcevNjW9Af3HSvGB1ta3GBGRhhjtIC2OpSCv8RvkFBxitbVE wSGsBXSjYIpa9XRNvm4VOlRauv9SXd2TRETxNkPcuoHXdID7oKOoFRRlt15W dnu5qOi5gbKyk9Flt6my7DbAyp0G+YMumuJLxuMM4mSy3AonO7s5nJcXJC7i A2RcQc75aDBC+qgMlxNSkNK4TWVlVGA0eWBcs6ZTcBSApxbdsolz4KcnQsUg YYyEIjoykpq00B0+H+NETdIESNx7bKl3jBHzrrsaowIkETO8YsV2uM0+yFLT 0/shS+XZqDWLYVKM9IqRHRF1vNPobr8mtWRLJ+SSDcE33ZKNvZxu9pmQGO5W axyBjrsVVvgU2amRQkfzwrp1LRdXrOgW2WiAmOujhBQYe3337hevHjly5BJL +6jQVhTfilcwJmvYPI6FQBFBh/HFwWaCvPZbm/4g4DtkWE7SPK42HSvrfR/v 3/8icls0ZDgMNHBnCi96AZwZIVr5GLmQ7pdaWx+7HgziLtQyddW96jg+swOa esYAMTtgf4SNdYwXmpvfoSrg7du/yQNvkmC5aKLAHlmOlcA+XgkMf6Iq4K1b n3GqBPY6Fdqn2cqBFQfgIQfgH8vNrRXkh3Fscbi0tAKnXzD/5ZHYa4/E8D86 ipEoZci3SyeQLOdlIEvdvLkEBqYHbKX2VhEwq1DZlEKBOUAZMfKeN6zsIq7T ZnDMB2DlsV2qB0/w2xyBCNh+FrAjM2acC/MmRqXh2247RD4gGOyAgE0+YDQ9 /ZDwA+Lpmj1gszEqf7GRcAkTnFwC57SyimuGRWHXlSePJeIPKtWRquO8f6Um nR7Hx6vA1POvvPKNC6dP/x4krRTMLx458j38/6UnnngC7hjcAdzxc889J6Ir EIhoh7/jZ8qkpt0rJKteARvwJDGv4LV5hWt2r5BizagKz8C2CfDQBjU+0SNs A8A4Cvd+7gYgEbhUU/MV7gDIGVwpKXkdd4zBVBjbryoqGgzyBOMTpL6poX6K ZvUKy+f94lWI2C5nZX1nqKzsNaS7x7Gu02uv6eQlyj5R4Xy5vLzv47KyBqS6 8TBR3BdatOjtK1jWnJ2953JOzskr1dVPGlQsw6rcsJCZipn9vKQ5O7sAPs8S zCbGM3qHxeOH+VHRPYkWYdq20JCFzGVlZUhcCuS4me5G7ygm1F4kaVQ099qZ bHgkl01b8s0DOwvqIHb+/Abks2x33tkTuf/+LTQlkJvbm2SF82FB5QDSdorT YLdPkzdPV6nl+GS8n52nTOrG8LTMnafyYUSQnafMKAmeAv8+ePfdd7FBVopH H3IUuYqsxd+Rx/xv/g9fe+01ZC626wcOHMfhMA6Bk60pW0FVFmcpFQcQgz9A hhJLdVxl800B+2ZpYhsPucfARPc9Bn7R33+U+OijI8a+V4dszCRGbt36/MjW rU+OlJa2eMIlJc30MLkh6i3z8bnpse3UMWjfqUNHULa8DEM0DCkwi7DtFZVE 9W6Uggeu5ec///MtW85gaXVo48b9oezsCiqvzs8vMZZYBaHJoiAUi0CppnrZ su8ObNr0NjIYtxgI0fJuXPnpwXpqfBJfCRmuVU6NpdQlPlZJTYVtWVnFopKa F1EPAyNl9J2tLuIEtqxfX0dEra7eS9tFiZ0G2BzTxhQ+GoaRsQi4bBxs4OZu G5C4RF6PRWGRlLNg7EH2mpK4XiKuz56NU1u4MBsGsxh+TSBwS2Tx4vTI1q21 kaqqncjyg/R2Nj+jLnR/z1B9fT3FWh+LuMrzxMlOTN6tYfJNCTKZHs/QeDuG v8WaS+gerFRr8m5bnBUchs+Ivz8+ffqLob17T4k22N7+BSOJCGpebm395mBt 7RdDVVVvXW9qetyrCaXjHOlp0oN1PJcPlHWPIfnOBv+8d++XaYqKtnDjR0iX R6qq3rxWXv4Gvg9D7AW8fXs3cpEa2zC+CnhYmeJIRrksZcg+4p3oVH0APTx4 8KCYaIKoLWtMcQHYS1TAk50Nw3Is3YakLTOzCktLKaTl5BTgYjJjAlvGEuJF 21SyPQWPKU6V2gG2gQ4SFCu1kaCDpaVPs2JtL5acDjU0tHxaV7fDSCIqBujZ L76VMCur1F6kjXWmxiTbDgcKOcfRMdX+oAZJGklP76Gn8W1tbJ1DdnYOp+cm I0XOVsmEGNDLdkqw89NMMMT6JFOpGHydfXorcscd3ZF7760kcmIJOZAzghFV EhTuHBg6ihtN1tXVYRuG9kldXfP1uro2kR0rA+YpTvNbfMJYWY82KUGunnDm amGCXOVL2pT5LcFVwKCMteNZPJVPbQRfIZ7i9BZPha80Nn4NqYrN8NDROxIM Po88JZZO0HB1lrUFCT7RoVg8VUPUaXzDK9sTz+He3pOekV27jhspYf7WURip vUYEEU/pi4p2c7I2Ilk9yFZaEGoNbv380Qm+ClcQl+8PjusCcItcIuwUzTJQ 9t4x/xXouUhXaZMFYCvWg7M6PFp+Tb2CBhZD2uL2hg1EW1nIerfTorNUPHpp btmPteC/yMk5NJKd/bqoB/+0tvaoB7xXL70/fP9IR8dh0TxhSHfpLaIeCqv4 arxyXhhezArD77CYan66Zk1DGIvqcN8EGJF6ZAqbxOnGqUZE8zmFwyi6scWn PjlftXx5BrFr5cos0AbwaxxyCzAOdwj9rR2rrm4Ow8ceNioFCHV8UlvbNlhf 3yyejhrTncabnZox43hN6knzTx62B6/MPfGHL1RT5rBiKsW3Whmv6zOc+gST WUYwExNYMZ+MRPMgy4zx+JQU81Yx2SOIBpB9c6Si4vVRrOQpL381XFn5TLi+ ftdoc7MMjPgSMEE4tuE5W2htipXaIgPWkY49gjWxcvxKU9PXsXp8dMeOpzxI NyOZCCdaTQ29STcilgkw0kHwY4zDCCkZ57UYJ4v22OsifPZ6IuQWvebqJs0q UPsb/8CeoB6s3wa6eXnVUEXF02L7BSrK40XjvCRPLPWkOJnmxLxpttLXtrb9 vGQcjkmsUjwSXSmOyy4ximVkFAHBcyA2Zxv8mcwwvstPKXKdTuXifioXX778 iU8LCg6GYdwNvcZ3sOQl2R6O8shHG9GxMteNQD6KfHD92KhnZaVJ7JFtGDgF vcX9tXuh34xvmzf3gb064fMGSI2bfREiHRzoFYI7h0tLu3Dix7jFqbBhp4Zs KU5ki1rNc5qdp0wMxfDMtuuW64OaBivp1E3uSJ5NZDwTA0Zs+LyG8cwUj0t/ WV//ZeSVD0llmOCGTiKtsI01NHSlWMzCJ6T2d1roNjnRVR/pclBl7bXHVmn+ aU3NqwDqY8gzqiLATfobG88IvkVYJloH+Eeu+SG6VQiu2VcfTNWU7JmaZzuO uwp5kGmGnxaL8slAbEMlJaeGKyqeoWjnI/qZVGqemfkE4HUvUs+jlsPmS+7N 0hTw3coqYe37NWAb6+zcY6syN2lpUIAKILCmD6XZC80zM7NYbRFNv96mYWGA jv5PV6/uANt2QrJwClh8CL7TjUzG6JfnsbFQ5J64fd1G/gdIwjeNaaiYQERk r6orK9sHAveBx2KkRELCeJ9IGQy2pSAp6eHvPjxh6KGH+n6yZEnxLU6jvx1W ZJJzMQGVRY7PTnVVgjGUzNZcTEfJpgRzS0ZJL87bRC1f8F3Zs+ed4T17To1A ohdpanoV9PGmwUjpDePmGpyUMBSCY5KGljcluHWKrihwslNVkpfN/lxvbX2K qtarq9+G0d0bYXy3KL6ZuaPjKGgEaWoSRWHAiG8WA0tXBWQ0lKwULwTDjb0k LQMJ0nKcGgWpDCkJOekJFRa+CEhsaTkhywB9vAwJqYm0hDGbrZL2Fk0Z4B2s klYQcQy6A/TbnxzFPFshOuA0J7x5MyR2WIquW5l9NxExFdeuYwU61p9TQ9Jl ZdVB9NtGFeg4E8vq+dgrcbACnW3hxVbn8a0dwrhzqlMEjKKdlyeicIv4/klq dXU9kW3beiARtegHVhEtleiXRDaEE+jlTvfc0xxesKDq0yVLVvwb37LoZic6 tlpskQv1zATpyHcxVgaHMXTcorkYH+rJUIs/TVaElNMy4zWZ6CQ6BuwRkqJk d/cf4lAPfPBp0BU9bQewvxXBtFM0TD+Bll7iJB67wcN1jDU1tcJYIZack2U2 qtuTRUdJ3WtWUxgnf9XQ8KJgIcjGoz/S3PxUxJ6ktrcfhw4fM5GKIjEtL6/9 pLq6kUg4waksMFE+Jqt8pHg5jk3hXa+sPDhcWPjCKFbqImuam4/J4vaqqn24 awSroXDaOWKShqFsPbnfvrxoDB894JKFzs5dKbw+F+XhRizI0o0bt+LexVle 4im+S3XLKJ+NwWatJL+T1VDYi46i3/bLat+3xtS+I2nZDE0SRU4baWnfPdz5 CDiLSxc8OKZM1gTOKTKH9fBlhzbeGh46+uhtXDa+Yh5rMNL6RcwML1y4Q7yR LbxkycO2d2XK/ZNXrVrlOKSktbBsAzGirp1rOt6+qMmKY3hr273M9XFIS4KZ 7RQ8iri5c+e3Qw0N72Ibra39fLim5m1OWjPS1vZcxEZYDydrQwORNdzUtIMK +tq8GsZOcKr0TZTAjm+d5Sz+BCQNw2h1rLr6GXAwyGIfZ/GhSE8PFu71Qjpe ZxCFvURhfEtG7XBlZSvWFGKpfYoTi1MSZHHASna99mTXGM/m9q7V1dV9Wlq6 D2kMgQ6PWPd/OqbgHksNi4vLeUkIHHU7lqU60lpdNejnZVNI746OPr4ZDFse j/zm3KZxHSO3D3ntkaSOCsRpmppC8b5kW329EV1gj2NakRXb+Az5AHCYZogC jvFYWbQwVl5e7iMaeyWNkbgs5fXJmCved4uvsKOXNbE3KPrsewgKEhvTnFjM l92KeR3Hty+9nAh718dnL12MV6No53/sSfAU/jDk8ce/YSfvcH39F8FqSN9A uLHxFaQwNSBGBBNgZGxj4074KzAWNN7U1CIIC3HHgazjEyRrsibasn2ffPTU E7NC0Zqb94Bxka8B4OdLkAY8AV3aD5zdE+nt7aOa4PLySlASRV0kLq5utyry /ZrN0CYmyFdTkwVPIaqaSFVI0KtHcQoHmklsDdjZKouCsYoLdzFPkqX5yQlS cxyjJr0DKro+f/NmrGjMQVLSksEsD8Vdr4i72IDbgqkBGX5v1eyB4eG1+LZ3 6epq8SGzt1UAZ/J6LxFsdfO2U6x0mTY4ohWlnJv4Op+Ght3EymTbcHTp0h7B S6/mRX7sHb2mfRMbuVPuVKcZJdvqPtelQVEbURObY1i6RmWp42OQHQnmxpPZ UPXDV1555dKxY8eGWltxDzXgqeEdqav7AvKUuOrlx9bWZyO7dyMksEQKGMpp Cmzp+KSjg0W+JM0QdbI1czSAURLtoNtuOuAUTifaFhNxikKcpCOGVtzARlDU G2bcbWvrAqb2CqaanKhA0lEYqllENby4/xOylXhGcXaKI1F90QXHRGyKrdOs YCoYCqqh41hh4XEkqi3A+uWONli73929O1JTU4d0TbLq9+W+1V5n3g7aeTuJ h1ReCMNfHMx4C6MXydsAHSmmAm0zibKpKmVp+f0MoqxPqToWrwv28yoYpKq9 Uh/3zcC3IWCl/saNrFLfyyr1iaaYI4/xxlYg0JPLm/A8H0+C7Vtz4OuIa2q6 QB5jKkZRHLUuWpSFTPVp3gFrarbf8Kjbwkc/xlRZW64hmp8RTXl72xsyk47h 6ioN8XUFZ2LKWTetZM+HJ/Nx7OnTp6/i5Ctvg7t3H8eoimkxgB556ocM+FwY 97/FFdi7dvVBINgNbG0lyppEWXOkpaUH34UhNr0xNayd6j7fKxfq+TRxdaqG sH464hxOF3KUeOqhYzIcd4exMhTbzp1dgrVAWmxVSFuD7Q9g4p4boaqq/5ez N4Gu8rryfO+63/fdSRMy4AHbsePEdibHSRzHseMBbMDMYhISIAkhCYRGJCEG MZnBxsYYB4+xHU9xYldSSaVSVake0tXd6U4PrG6ven5r5dXjdWelWbV4lFc1 6fAEyJKle+/b/32G73xX+xOqZq1zQOLqTrrn9/33Pnv/z/4Lzc0nMGZffbGa 2JVX+HXCOg30am1s7LHr1OMZ3Sa7eX2qpugNfEnV7gD5mpqVZkFio+X2uA41 bRFgO2SWLj1qLQLQobZmzTpekpnIwuTraaIqujBLVO9sIailq2lOl+Mqu956 45uRKWlGQ8kAX0hpkTvr0pbmmh6aSZGqacLRq5PXpqfnefN2Fr/2tUW8MPUR zcV77/1W3izPtGCZXbI8WfrGVgTVCctTXVRT7nXQzfv+IIx5o6bZ95Uu3AfD O4/bouGF2z9NKVwVXmTN4k34PHuX9uzZYy+ySZ59Xrjd3Ydo8R7AAsbWwA56 Anv2DNGb3YkljJHkZZzCMsYSNsN450gy+SrLOepkwHdwbYmhB96KHGZ1jfXc VUvPHzM2MfqxctFLjfWahI1BIqCVxh07dK19/4J2MzBm2ZGVOyPshcORELrs aPKKzWD29EJdu/YZIkQ3PWYX/ZJpoSatdUGSm7chkzehmBSZ6mFapLfFrdTr 4zq3Pdu5vY9NQhYvhn2Bkb6LrfS9xi7XsI2tuiQ0Dc+R9ouNjU/RihmgRYiz uR4vF1Zopb5y6q+dtlKf3uoGm/vdvn13WrfIOeuSr5j33ruCoKXW4re+Nel0 6ohBjq/WolmHvApnxIWhq2LXYlSTeup2kb2YH0RDWF6X95euR8fWccr9mYFQ 9Nr1KIneyqjo5ZUYqHmMPogT9EbmOzqepVD0xUJnJy0irMREGdYilqId/f2o uxzAhRULEuY2FKruV346sA9JeOe3b/+JraWXnKvU8kuVeiiYNvDrnTbw7du3 T6j6wOhFlP5m25Dt6pr+x56eFy/19h6/vHPn89o8gRbUB2hJjTVPqFAdcJec 3je7oUNLTlp9Oa1r6+v38PWSFiABgJZgAk52baTF2+EMp4wU1BL0zBJUPgpq Rqs3PxbcxG+OW5M3TzYUoYD3iKeTwfBSQFsbVhep2axalPgnThriRXlddFGW XEMrnci05LTtwuLFvba92907NXkg13aEVymvUBOGmtWsQ9CIecnChcvsmd2Z 8DJZoMXnntkdMU0NnOOOYxbksuiClEyoeKGl1O0iuzF6QZoaBsdW1VmQjtPj lMeyDE5T2eoF6SpbvSD5AokFOcG6A7NfUL+W3t4hsxLpK8yIGvryvb2D4x0d L2KwmwkX2F0XJoikK59xXjC1e5H1VqnW20R3dx+ttf6Jrq6BRBIrLZEe7ejY e6Gn5zVTxoTO1IsDAy+zc4l27rnc0fH9s3TfbLnAjadJ9KFKmduyuG61pFOJ azK31wuLsoLndGH9+p18NcSgxYi81JWmpp2X29r201Nvb+/PwHNBFS35n27c 2DBSV9eIcbmubuMsFVZe0SEl1mHidqw/91xwXBP1qiu0tW3FMtOXQlwW8SWf 9HWjXXVZeynMCR3d4RngPYKVQtjRXWVjyRwnf1RUqVYYriE6bNTWDD6fKa4s UxcWv/Odh3mRJXH5I/DoVVa60my8mBLixco4QSptfsQcGZbVq8JNx/5AuDZO Wnb3CI8hbbAMhtfBSckfV5eWC7o0rZbdCN23XXYezz6trF1akx6g1bfTV4tu Yvv2XVf6+5+RDFCwAM3aQG+K5NJQHXVp4G6TgYGBm+JWYhK1f4QHus0Iwlda gmYZmg62j/v73x/u7X3NtWe43Nf3IqwZfnf48AkchUy3fNu1ZzAuKGL9UCZq zzAKe4Z0/JocaW1ttWuykufUKM1jGzfuGFu37sTounVHhxsa9p5vbn4j6bSE mxOZU+pcZm4J1+3g6mCmRHB+8+bjpf3gqjU0p60a6Dp6yWSDvsSXzXTksons rbFkQFI9adeuPpYPC9dq2ZuiC7jkspkSXFHCQ8x3IvvDi9iYM+hlLJozQOZm hQtoxglAkbd1H6OnZx8bQMCI3Nd25LTM7UUVvWX3eXq967XOK71cCEBTQgBa EbfeHxUugdLOaUX8Yo9cdyctdslJUsr07pqm6C0TRG9GLXYjetUy10ue3mqz 0PXl1cNKp7W4/8KOHW/rgiaPvSFQOI/1rla9Zwp7Iwdtukt+kklEZEv2Rsef xaz8snDlezheD6ufz/b0efb+29GjT6Nvlde/sonIXRgYeAv9Z6N6gACwihh+ 4omjsIhAdwwCUcclAvx4+8zQ0CvGsIWLddOCM0Ru6tVvNmfoibNM5iZS/DzK 7n11fx9v3vzk75uaXnedIUYGBo6ZXnF9MDtjYGTbtufRL54oPToaDeOEg+ke HV0V1yue8Ma11mZkVCvvCJutImhw+/j69S1ciEEABCy4KiIbve4zRJIKJXmN EUbJLRYlObsjlJyY3EfuukcAIqtWrVbuEersAdtATpC4RvCO4KOnjDZw4WG0 gbn/3t59fPz8Y49hpxfwCIoPP/xo8b77vmMAAjVOtyd+zBCi5IwQJZfF9cU8 NE1g6F6ZSLXjDwSITAJGicFm7NaQbosVs1auKC8TRHlGEOVpNefpV2X0+Hhv 7x6AYpRU4vmdO/+cPt0hLLSRjIHF73fv/rlNUHnhufBTFmJcxZcCXaylKLE5 6IyS83yCNt32CrYfM4oikp1nxJLCV/PHAwNv0zN4ydhRqPY673JPz/c+xhn1 jhvFhc2bT402NnZc3rSpXVnCSPp+ujTJCDTRbhSlu1LsSIGW9Pnzf0OwXr78 V4nU+fb2d0vdKOA5ow5TTQEqI8aJYrIbBTrSLUi+ApAocgRjS5f28aHzy5Zt oxB/XaGlpc0QgKlAfHA3ndh1xpDCs6QIRcdtPEfPVHDkR0F7zVjHCUWKAXai t82vGbf51aiMCSe1rTeIIzYX2nFisgoJNEja2rqt0kmWgKSmZiWF9kqFGJBA evhKgBTcgKNKCO2zNrQvjwvt75smRZzuWLuZXEIR/tlJFHGcS6fctBqaZoyR FWKMnCA7MjwHNA98smPHTpADA7I4UWJmYwxtzh8+/JJepYG7Sk2wYcqiT7/0 0kv29K4yKz2kLniJF0GUF6xBygReqEfL4JHP9Pb+6uz69f8Zf4Nl6I5HCgAd 8oG2rBgYeJ4ExftojteWFSlukF+79iTsKihU6EKTPAXnrVXTpIPewhp36ZAT ikvUSQ8B6HBm6dK/gWHF75cu/RVokIh3q/BLTyFPok+evr10abvpksch5Mqr wvt7+FR84xs/Pb9w4Yva2wLh4NPYcqQXtgOHjKvG+ID7fJcurbVj+XKiSgFN t55WGUsLcKlKghKfV3CY0MWd7Iua1ogIu+KNdcUeBsPWre1C623Y/pAUWm+T ocCIt7MwOkPhAfXj+x3fjD2MhZUr17DGKNNooH8X586dW7z//vsNGiK5COlA zJyQi8jFQeIbUUjE1oVdh5vxjtgPBFxMQsMXhLuVtsX0wUmRrJ8UkWSEiCQX CgyDB40Gb4yW3CVi1kX6P/qYYvZ+9/TTp2yLhWNz8/Hhw+x3RbdjmxugwiBC hwcp1+bG7RrMCtoiO01WeHFhigSMKsc6Y2joecc6w0fYgqQ9uPAHokIShyHR knAb9dev34qm30TFNOnAhShJhgInMkotM6QuDNO27x65jk5gHLmOzv0CmkHM keuPP77DHrm+fPlaW7qSjuvcV6Z11seqOq6RP8lzyjptPPLIn1mnjY0bT6kj 1lJjq1c/A7cNgAVcIX405teu3ZDm3n7sPTRoqw1zfrSP3n57IueKFSsyI8uW kT4Z03sGDJrrbdTCHc6qtR+0SfKcZt4sWKBscsAaY30FonDYkhIajafhu0H/ 64Q0vPMwn+DliBIey5dvZtpQbM60Aermz19QDtj4al+fnuJD4IwZbKA3S8iA 5IQMSKxh81f4n9M6uHCOIkJkly/cjp8EmtsFkSPt9x2YZiSTESKZMiHPqSIZ b2RwcNCCxuM5+PD1118394e+LkBG22Nm8W98z/y/8eYZ2b//GaRG/rG7+y8T 2qAH/h8f9/e/rHb9rBaRLD+Ug3oaCdBRhzFGh1xSDreTsaJdOZH9wBaglhuM FTgLEM9e/rSh4W30cSn/D7+wdu0hx/+jLSk0OGemSRkJMBVx3ZcUtRBgkOKU rAYIJvAayPCZv+b4eRzJBtgsXLjXWIR4Qv/zF8P+58Dtf8Y4y75+KlsK84F/ /Pa3fzC8YMHbiQD2A4kA5gP0udhLv5PdMBsoNDS0JlL6NHqCCuDyKT121HRg ljIdmAyQbAiQDANk4cImWsWbiwQkhkVDQ2OpbY+rTdhqKxWtkmNKBCIlMKf4 yKply7a4RIDuKHOObKQ7ZDwklYhBvbvnkiJxrRCilAspj3QcIRz7dqkwwOLh 5jg8lHzv26WguG1qUNh9yINhsDJJkbjBSkoIViqEYCUVggJ4cEDhnaMXZe8v UPcHDwT7PU89UqlJENIiyJsqcZJ1fYIwaI29Alpcweo3qkQyH5njGAURNUzE MlOBAqW3JU3aNnQCMD7t7z/O9iPKDyHFfgidnc8WN2x4o2BMSFavflZZdwXG LMgMtGlPRYrhtrY2fL/UfMRSQdcmfEi/FBTrje3ceYQeBRTIFqRTv9EAhmuv JkFCasf+fJwVwgzVkz28bFnvlQULniHN8ha9gOdgi+CcBj5kTwNP6jPBUfIE lwRgIVmEEQmMEmjRLVmyAZV2hdAqYRlynB5ynBVozJ7N9ggepAZAoWDBsz/y 2GNt4w88cGh8wYL2/KpVLToi4RyG2RAN7RMWRulQYuqVmmbPdlo3j+J2jz1W zzspBFFGQbkNVuZrUiisaEgUKHhhPEiQqLB5jHRcNvS2qdFgk5W3qttFLBWm hYZbog8gbZ/wLZ6YZrASCMFKhZANDYRgJVBoOHPy5MnSvVcoCPSEs1uD8mzw kN8oOcsh4hsGj5QkzBzo19nc/BysURgEFQoH4zRbe5Q5US+ii9jOmK1YcIZe hk2yuoYNTz/99PDWrT+hp9PS8iM+ruVEwXg1JHlOc9spmICzy8EEFZhsBRCU P0pKoIAqj/e5IUaX42J/ZZYAgsqwXy04R8y7uG3bNjNgzJDQPkQuFXSPWsAH qhuPFNOCyg3hn41DwXWq5MG1Z1AI8K03g6c7xLdtQ0vNbrrTTi6rXbRoHXsz LFmyXIcE0S3SOYJLQ47n7CV6NiACiY92tkx54IHnJtADpUp2m2DWwD1o8Z4p DAeYNSijhlAhiEudj/KlZ1+H4ywJJ+75zepYiiwvcZ+/xoHojzwyb+K++759 vRAsVAgpidgTwW6a5nrXx7lKNYKR701a7yUPoEwihGJfRwpMylu6MUMgxAyV 8dulkfWeUuvdjRn0eo+xQ/Jx9Te1ErBCUss7bV2QzNAOEXk0yJULW6fquLGU 69nipjakla89IWjRexdhuJUa7u8/gpWPMdbS8sN8S8v3ix0dx41NS1fX08XN m9mLjC5+B4qwRFImEEGpTQvHArO006Oz6s3JM5EaC0kPlEX1AEiQSIMBFLs3 NT0BR4hPm5tPggJpjQAECHrhKysIqe9ccoa4NWrRws4QuPzT2tcdNFj8T3Jj 6sKFxzjunz8fBknL6QGXJsKemTt5yedoLW7h2l54QTgmLLQ8cUT7Sj6mj5Zw WdR7ZZHxX0lM3UKuPci4qLCxsb+4Zk0X3ccKXtqek2rUV3DORSzgM9uTxXnz 6DpeePjhR/K0enltXyes8EohHRDEtbldJyxAaYXf8b+7wm+IPoC0v8nf45zC oWkqfk9Q/FVCDtIXFH9KUPyVk92YMDx1ZadL8zsFODooEybl+tLY+IpZ18r1 RTJjmiU052gzJqxmm2ecJazwyui1nc8lTPNa90ba21/HGp+ADQ18st6hGLWt 7WW+vhuLCSz4LVtO0gfs6SKyA5LrCwn7RDW7tGCdpqa5vDPR5a29JXh5Y2kj HDe+EmZ5L1681x74HtpKzBbW823K6cXtauXCfi56UsdymsJ+1YcT2DPfsbQf e2wTmuUSSafBFQYwU54S9Xmnyh+Hd9fVPZ2AT9Tz9BBr13bT1xvZCQbDNJ8r dlgTNKfUWJ34Pn/+QiLCAm6Wywlt6OI2Js+ZiC0Mnk9DQxu9g7W8KctFy3R3 zAV68fqSz4P4QH8/lgAuHuXdzIcLRIC8Q4qI4p8hpAW8uLTANQIpYkol1Unu YoVypBhiEiwcn+8ptzGT0QfgPQ0dEkTSilJIkBRCghlxVctKIhh+JDKCRKic wjZqcPBnbBmFTvn+/pNsG2UAoi0SrUXNTj7Meru1+5aMaq6JaxGaLlTKrWwo 0yih2zDbABGfZ/RLPm9RAox0dj5ZrK/vmuRW09LiuFFom4qIz8V0iZJyfS6c uIHuGbNH8VNfSRuuZ9twXZ8LtOQZzgSWM5JfzW1XMbZArWVobOEzZB599Ahr BwKMFxrXoAwqLIIoaSAy3haovDJ9eJ6eOzo66G63cKs8/J5qEYgs93SCwLjV KGeLx/Vyn9yJm45tog9KD+aAz4Vupgc1m4sUxfAgmPHJwzkrNrgbkGnCLAl4 9mEk7h63NVuASrWCytlvf/vbNsBIxkEl1hC1JBV4l0CPaRFlVvgAhhZiMjOI ahkmyoFpBh1JIeio5jnlBh0YJuDIhiLEwEQyvDJmV2gUznd3v6K9cwL2oCsx vNIQ8Y3bFQx04HglcaRKMInMCgiZGW5UGIyYwq6ILqlgmPiAyQTO5qNB8cdL KeYJnu2zxJKDfFQ3aoGx/8n+G8kQJuybQ8s8kYuDiXTGpQQTHaX8dmhoyEYf 1yh5MgKfbFR400BrvydY5iQ1SgYG9nNlElCStkYcJVlKyZdDIov25YCh8CRf jrVrn2GqTOnL4U/ZB+U6dEQoY2qdnF7/hPHmWLasxsYzBjBlAmCCOPXC8Yw2 j4yyLcVsq6trLNbUrOGBB1u8eFkqmqgwjMlqwTLpWM3ZQnxTLWQwknEZjOk6 Tn4tHjCRms5JgKmOPkCsMWxGAIw+pUzIYgZuuIMBuNBy5BYrV6ZgQJ4kyoSw RlkPBJytdMx8Pm1r+0B3LedoPT5n5AlIUnTyFa4Vl3IfAEvsgSTW36dCiHLK nCIuTRQjSCLbnhkrSLRxCIGEYVIR6hODFJJkmMvzW7c+bTQLj82bX6fw57lC R8eBQlfXEG+qDwwM0mvagY5mZfWDNEeLoQzG5dbWLnOgxdm+vj7Agk1BKmNB 47ugQfzDnJqlRMqlLVu2GMAQ09Ts+hJo/5CI5Q88ROBPsG5dXTb0DzGbovSG T48vqvDbM94hEb4sXtxiSzlTli+5aIcIl3WrpCf68Xpt/IFBzLaHdyLJqR1D CJWKJDU16zhDgu1L0GThwsfVlmaldeKSKidmOh1gUTc937SMUAQ7QO9NoweI 0E01RpgiZvPTjXzKGSQpBgnxwcDEaBapemKmap12gyBghBf3dA0y74mSghf3 e/gWZzUmMaNSuFtpA7RM3c5so/Dt9sWGOb4Jc0xoM0tZFphiCRPJlAtBzIww KPr7gwffYyshbShkfPtCrwMlQlBU+xqNvUWkNTPW96uLyxxU9VRMtFJW0lEd B4cgKjWYEtWKC5fohRg2kG7ng8nYTEhzgL7q7NxLEhjVAD09/cwCzQN66mzX h61AUk5d8CUZg+M46w8+Z9JNe1ZPjQNz0wt0ybs2JMEYjloBA1KYA21JsnXr UWsbhGezcuUqYjDExTQX+rWOy0HE5SvQq729vceudseUxAqJ8ik7w5QpScCZ EJcA8A1K6x4u1zcI/l7w9lq4cFnK9lNXWYOvhGcqt93dzMmmJBy57Z5Uod3U tM0ICPoeZt8SQOU8HqsKUx1mwYvnAl8jRCrXqP6xy3fc0TFy661HL9x44/u/ /9znXtj21a8eQJSSn+biv88u9CmWfJkQ6EgbmxXCkneKticteR2HQB44S94k QU24UR4bbqTcPAharYzbX0pbh3V0vFDcvfsALlIR6zB0UtPth1S5kxBPzJjm IvfiFICz0sdQScUnDKuVnu/q2oH1zWs8yXOWrvwDBTR702B/B73asdbNSk+o QwX8iebm/aPNzcfhQgRDk1g/E931wdUPdGnn5X2dsMgzPOfy69cPmcs9j9ra 4wWSALR+Bvkyj4CC1nxaJ0LpwgmLhcKaNfWjGzdu/Kyw4G+MOoPB2YRt955g qb2baxaxyrPFyUHDDKF16xon12nWYJk1NoBlwnJepbkp7ExgmKsLGs05wO6a xkjrfm5nCfNYsmQt3cliXdk0f4awfPlkQVb/1UJJtd7dwKIdveGGtzASPs/e 8Jw5P/jZ7bcf5RTDJ7xoplXn+EB0AZfUKEzyGcpcfSnzD84QlvKeWMXPGxx2 M2N2mJA0dY2kiCcr/Coh9eCpefJ1O5Gmq+Ob2mCMPYoKuA7BoAjO2KUuY8aa CC5jniDxZ8YucL/UF4WX97XCes7xjF6NfrOeecCsAU6AfdzEOkgfo+ZCc3NH IjlOq1a1hns4Qfj0wYMvXsUexXPtUYwlg9n9iF3QZZiVYM+aVUyjC+5IXJ5H gp3XXk3NKl7MkldKErN+xEsbNmzA8h6ur9+QuEFY6LcqrxTbu6kXu/FKQWYT 672tbQv2AULXhiWmWzMxK7rcp/BK0Rdb7ZUS8Hbn3LnrON8I3wZl0xkLgEiL lbmdyQLQfRsPFqPe6fZLOKNpSpNw1Bmf3+0sf3OwaBC9eru9FRHdrts4h7/6 1ZW4ejMCcgoE/+JLXzqKqzgvtv8vXK5TGnk+JKz9ElsVvt0kHgRRHsR2cM6M PgDfzmkDL00xfrhixYpz+DhjNV+reaBrFZgEFYKOr5jaswyaAB5JmgcBs6Cz 85j1hyAmJJRxmVfctQsfkl5QQbFB2XEbNFB8gNmHc5lhAtb67DCPWIoFfO/s oUOHTN7weoEIFfYKv5u1O0jgMQkCPPKV7u6j/7B9+/sEpRe4Olp7JaH1As/g 19aupcQfwmxawjJGQyJRbi/xwTSxUKHgwLagGzbs0lToIW2xBWS4QuHQ+ObN neNtbT3jmzbtmVi3boACfrAgMI5JGPmGhsax+vomeg/XraN4BP4t0QJHD0y4 g5GQowW+xyCh2NxsND94MMht3UjfExNK/JO4Q/MGy4QyKwHKBCeXjF6xK1bU 2q1ML1LW/HjoXpa0rqDaPykkQJQsqOtYo325F/Jh4nEEcDN/KSsAqoT27UCt e7PmecWX8RyMfuMbfz18112//Oib39zeTE/sa2DWBWF5ShUOc+PXf6TCYdL6 TwqAkTYtrxXW/05B2uteiDME2HOkqlw9AKHOUh8/WymI+gphczMQsoZY6x0d xxOhK9Mu68qk1n+Oi9wdj7SJrq59wz09J+CQBn80FD2hEeva+H0DmMJcxN4p lvkcIaFXxXMal/+J7u4dWOCMl46OvcNdXc+c7+39sS6l9ODRxI0RW7e+qT2a fGMO89HRo89hsWtfGNcJwlpy40hHitZ53WfjGrqni4EqJfcpjGib2LBh73h9 /ZGxhoa+4cbGfTCHQf8XN20PDj6J9su0soehp/vUyK5dR/jbNEa6u4+fr609 6l3YsIGEzscNDT1nN23axi0OAc8+mh7cJgjJZO2LmhKuWwxIsWXLQe0YExo/ WJc13/V9gHXMTVFQTMMxRps/FTZvbrfIcMsezV5BlSAkcoKQyJZkB1yDKbrG oEiVdyZ1MRRRhc/hYQThy8cklqQtSyqFDEAy1BAlLPFHv/KVPwdPRh966LsX v/OdJ5K/xvP2TtEMtPC6PT9NtDwmyAjJTWYSWqaxcXmDDV7UnSXMH22rGEkU loVoufjAAw9cJE1q0AKssGw4efJkokoINcqFUCMllFaquokg39u715EVypEm 0LZvdOEa7+8fGu/pedZ4Tl3o7v4LtxV8toAV1TcV4FRzoAUbEESlLnRMJG4U 8FKJmfs6k0qAGOcpA5cgZAv91+tKSvCcGuno+D5MImA5c7m//yVzHLoHx5kk g8Y3AsPAJS0EHLl/krLw4D+FU5ox6OPJ3U6XN248cHHVqleAFuM4c7Gn57um s5s+rOw4Q4/x6qdtbS+ALXwCK82m6xuGECWOM/CgChs1dQfnOYDGtHZmVE/4 sGA7M+razjjWq35h+fIOeM4Yo6rQp8oXfKputtQpt/LE04GKNpYpNX8hzdoZ 6Qg3fhFOVZVhDTdXZaxQcQljbGWC8J6JmO3c8p2ydZjc3sWyBXewMLCsKXdY YxIXGSFyKQ/PHjDRC1IX5SpQGb3jjp8YyNBCmDfvaML72/nz68Aa5o2mjhUz +HN2mtRZKIgXqWbCpc5ElDqxu5k3xVGnTwhocmpLkwOauXPnMnkw0AylE5ag iiENqFMlxDa5eN+7SOGWf1Xfu0v9/SfMiZs4alM1b4QOWGxDMVMAUCXmJNjj AzyqjdwmLG8QEFSmwpkx3dB1STWQRgqzlOkFkyhwza+gbkZI8ehj4GFk9T4W v2M85Z9vaXmXvj840tS0jf5uSwqeVxXxBMJ2pSVQTiBQigmUOkcv1tRiuA41 yqCGfTDoIV9jDCUVjGBLQQHiccZQSs/0PxfXrXsj4lQDKF2oq+tJeP+rtrbZ suf2WPZkXfaw6tHIKaxaVU8qoRFqRxnZSB5XoV3eEuNek7g1iiHtV/PoowPF xkYDH98axgAfBJ2ctrt0+rrAGz7NPWz35N6OtCB3UhpGSE8bzHkRa5odvMGZ dWBEUVRRIY2xwC1eJpLKCanUnFU/2jlv/IYbvm+VTlZD6JZbfmgh5CkIjSxZ sh/rlfHjC9Lnv0chJFWDmkToYkHpXI1DY1EOxe6Q3hLHIel0hqziEAdWLofw edClFQiaABgDHQBIVEM5IdDKCM3puueUILQPEHICLM/YbbEvn2pK94wTZ6kv 35RWW9kwEWtrLcoVY1ypRM9lMrOuF7ZTs1FmsS9GVigmday2rImfpxrf8DUO 6zZWW8Y+p7v7VaRtGV5JjbCmpveH1617fbSu7hAsdJLwzymJy66CMFPSRZHk ZIRllYhyEZYIVEqIMfbAA//VDPrU/xzcurh//376TRzMMLaywNan9fVv/HHZ sheuLFx4fHz+/KfGlyzZOr5sWcN4TU39+MqVtfRE2BrjyurVqy3DvsZzdnjR os7hr3/9Ty7AW2f58iGg7x8bG0+Ot7b2jDc0DHAPbBoWOgkcE4xd1RUMKd+a cS0pUOQWmuncFuduoavbucXt4YcPst1WUuMLqRngSzeus8mFOhrRdz22ot3q CTa1cJvVQ/eclDb6dN1zXAcdNKU63euAlYn/sgLAsgLAyizAlN99kL/zzvbC nDlvYABmYzfc8GYio0GmIcYI8xXIzjU3N1s1lRLU1P8VC7IoaZYLxCopEGO1 5FJsRLhvadP3syEh+X4dIRUJ3zIl4RsNihEwewjlbFg2I8wWGZiZIlVArDSD HOlwzU7tH1hi7wP/wH7XP9C4f7F/YKAdwAYH3zEOYBgX+/t/NB0HsMjOUs5K r4zCGDq+0C/vSq9IJjlto78SVx+JZeohfYrmfvZRV9evztTVnca/k+qZ4J0E wZQfB89pWIFBpsE6EAy7RAyD3w+pEiIdd9qjsHSz6a6jUGB6EAt462lECTli 10U9RJJxUWwSmizhfwi3NEIXBvJMOgQcg/PPwMBRDLTcJdGDz6XkygBo0aI+ 9uRYvnwDXZq4zipfU7NqYuXKlRiJ2Tx741czAkoqxYYI0voNKg+g9OnGxqfY B+juu/9dxAeopeVEgo2AkvAASrKxGGyImuD7w94dysHD56/pf+HeMbZkybrk +NKl9KQ+Xbq0pqQnP2rjcVMcKdWB7ICksiWOOPFo0zHJ10OV56dcWyDBnXCy 81iJ44cnKMKkdiObO7fZstQ8qw0bGnSBrjJN1p2/ZpQLPM0Im2vlQmmMPnQr f+uthw1Z6XOA2ZuYM4cJ6+6yc2LMUDZQlL28du0uQ1qi1GS5+JGg56RampUC ZcOqGpetl67OVk7hvxIGpJajaWeHTQvBhK85SovLcq8qTI1Nah8iYWhYajLx kWg1He+gGIlWsypdhkqdKzt27CZxdqDEQTHNYSqJQoLfu8P795+EU5GxRtOB Y6wtWkbQgblpAtQXdGClwE7tiPbbp556z1oX6ZgVriTjmza9SyCkjxP7FqUi dmjaigSWaGXT5GPS4SOfNGT4WC7wUdfyGjSChYkkSOgrFMIbJMWmJCtXnmL7 AWNRRDj0LA1XWxp+CXNyBKcrRM0IMqpx8fK8eU+O3Hvv66P33/8m3fQVr7Bm zUt0H2vWwL/p5KdtbU/R6iLlly7U1tJPcf3P8uWNeYjJJUs2ENfWk7BcS2MV jM4qrEFRdYiywKIM1olz5w6S1trGpXQDOr0FpgBejLB0nJVZrPGAb80Sk9pg wKn+5zM3S4zLHKvEwHEfCV1IkhKmaFhMuVn7Civ7iEF33bXccingOZUnLrmh 7MjnP/9jMCmjcIQPzZn6+noGUU4Qff9lmjhaExV4fDsZRxejOIotAjBHcrtx acrZ8CvFEf2eS40MzCag6lnWco0kXKmsi8SraSFeLYs1dI2aqSVDvBkjBO3a mMbXH7711lul5mmIWSeZp3Hy3so4ggMt1Ak9pg2lpKPqhl1VVxHWFv72+PHj jqlaADgix//Jzp3PgkgTqF9WXkkZbnLctu0UfFHYEwWjtvaAMWv0BVe1VCyp AkMqE35eUocaxoDJaXmkF74TSEowmHwGU8BgWrr0BIOJAIHteVoDTCWCS6jR Ph9HpSrFJnZLeuyxYyRRPgCQ8q2tT2ITmN6JnfmBgb3aMKWlpZsWcV1dA/yR eNTUNMAmyZgk0ajVJklslJTQp8KMuz4pWZ4945PC7kkpizGPdVmaTWAffHCQ 7nF1sbGxubhxY4PxUxPNXiXLpNgDhB2rhZSru+h+V9IjNRfb2zu4f0CyVkO2 bkGlTfWn4wBF37vjjq3FG254vUCDUM6aafxzn3vF6qNMqI/w+YDiSJQL+ug/ ThNI68LbRRsNSgoXvuWg6Q/hz0xZn/BaqJRs6j4lRJyBEHFWCBFnMM2IMxXv 8xhRShnBzCEp1EAohRYYv0eACn8DVcbG7XfPP/+9eBu3FLxcjIUb27i1tb0K BcXcqooFVWAyaJFs/zWxZo9p1EH9t8OHX4ZvE3xbxrdteyHf338M/m0JZdyC 2OS4YRO8HAyXdB82hJPlki9wSbcknAUq6XfOPJol8EjybAlCU4cJVIkRmDBS DCef4WQMmwhMXKHvCwHkZ1QAObZ69WoQiillKiBhQEkMwiC0o1/EWjcFuq9h snVTLWfGViTQYb0MAGII3SJYNqV5To3Cpu0rX3l7bO7cI/n6+j56I+tVLUS4 hWhcmlKTXJoWKpemaRg4KOL4+UcfXUcU7aZbLIYwyhVDXxejhzJO9xJ9HzXV iZA5KWF7sUwz59ZbD4E5GKRDMHvgT0nsFhRuvfXJPAG2MG/e4Yl5846MgURp lRszPDJMqhQ00r9hncM08cxeIFMjKbBjgxVFmkaRk+hcGv3PKOli6xreEOI2 X4jb0kLcVi7EbUEYt1l6SHGb5CBVHp/Yj9hD+ILwKgsd4zi5P7VjnOeiJ6Ht 4thPqrX1EK1BlEzF6iSUWrGFXFyrhQ7UPnzxxRdtP5V2yr3c3f28sY8ab27+ QbGj4yStPSDILxj84DxSCtjYRUZizUylgcAO0zxlT+OZLTBHMpLJKuYMt7bu AHfGamtfLXZ3H0ozc7xiff1zJIjaWAhxUyCroRsVYbAxaAlzi4rHYHMLUyiM 4sDArpzujUR3BvygHnlkBy34NbRUVxUXL4YVwnJ6gGUlnnCMli9OqFKoRx9t zWNvEPWTMInSBlHwflzp1kwaomS0ftGmkMYsqlBClhL3hmhApslS2Lq1ky1p Fi5sgGVUMMkMTtVWoYbBcYYpqP7I+aBMlYVMICTcsxoyFHRZyAQOZG6++SS9 JzvomRBW6KOpwRKm3D11vYnk3SsFxfMvBVUicaCxlCyRegaXLB9HyRJbu/Ay 386/lX6sWQ/8W/d6RhLunhCZpYXIrEyIzNLTjMz8qS0qbcLdAU6pRWUEYGWh e631o/G0X93g4CvGr+4Pxq/O+NEQYOjTtSu/bVtfokLYKeT2Dd2nxR2ZZqtx tkCaiihp4BdNbxw/WUMY9obQ5lXsMmOMqzB6e4+hm5Od6og4bF6VYsXjm3y6 IU+1/sA50IkcBmiyQzMFALm+M+jftL4zZYpCY/X1x20v1/r1Jw2FGht32cZE P072zIyLyZzjctNuJSdGgZ5eEajq69uvvWc89q/TBldch1TLIgVn5q4sLF68 nMYyCsowlngCt77Ac1l+zZq64qZNh5hZrrnd0qV19G9sOy5nayt1Ophxt1OG Vtj1W2AMrTCmkEQRcHnarRbeWahExfnWTU0D9CBb+LXU6GS2kzMKLe/o/0Cu efPmA1UYDK4ZQrbbE2DGBVlpzTAiV/GBB9YV5849hFGgQSIJFPPHiWKjmmKQ Rr7AsBmCRPorIekjVWI1CxGaVP/p0uz/FSJCiWY6vz2XfuyQHgmfZ/6eieaM dopEchkhkssJkVw61E6lOe9IJOeF2smirDLebTcSyQUCGism2/IhF67l09jQ 0LNszQdXrcBx1dIkI7jQXCagbKbSS9zNZnRQUiiicIw3LdnKbLtqTj3jSxS0 jOLc8dBBKw1HiogZH3jW3HwELFMlPymbVmqz8kmbXQFElmTaQQvEArmYYTp8 A90sybw4B63KaAYdHaoJY3tDRAPQNNTU3N9/IF9bu5HRlsLsCWir4Nl3IzoQ 7pa4EvW0tqcA3KL2N4E11oJzH1rJSYhxycPyJNhG5Fi8eKk5NSiPYnV1UKGp FlWunRnbzwrAYcA3D1/Tay6uX7/BY6sKz9r30Ujo4odSpy1wZYEnGOGEbv6z wvIuxlvW4s0MIA4PjVw8hStcyFEmmN8Q2kysB5KZ+ogqgXBJYT8vFc1DKaGm ZwO8lStpdQF59HIAPkIeYy+pJBzgN9zY2KuueOrTYkq/mHnVgnr7+TTJ1xpP vsgen0u+v4/ed+nOHlMPf17Wt9MajpmX5jn1i+uu++js7bf/848efPDZ04sX D5iIsUwIFrPR+nf36JGrBouS81eVkFX3hGAxLQC0YmovwYndu5+O9RIk1jH1 PDVDx9nkulT5VV2i5+x2XlKovpAsiDNCNKmMBnwwcQwvHgfBdnXt00ZgjMX+ /iPFwUE2A6Nn2qGMwLwQh6TrukdaWnqVBtNIO33kyJFSV0GBiSkw0dzOhJVI fc2MZuftaGzs4dqCF5nZxw0NefT37+OTgXCgWQYk5OKIMiGZdYvQzlul+/bh 71vq+LVx41FtVLqKVrBBXQDKkb51OGcpd3ucwRcXi+5lT45Nmzro3oyNIMeg iw3XGCULsgLU/HhjHqPh8Kj0a8InIMVQo3eExloSjIiXlyHNlS4x4yGu2YIu AEwXfyUk6ZYUEuxsAuA7JPvqV5cU0UeZBcmSrN58epv2TqCJgsYlAoREr5mC bvvxNOm1VYg4peMYXXr9j6npZesSXtX34+o2Ta/Tt9zyG9AL48Ktt/7p8M03 /2jkc587lhMiz6yQ6srGJt5TrrxyrYKqBZXmCQFnvAFq2g042W2svf0nY+3t PwasruJbCGAhtTFIn7T+QkdHL40eiVmVUeHGPiNSsZiEq5TrM4ID0sxbUx7q OMMsPjR7O4VMra0vT3Ia27LlZKGz8yCXOQ4O7inSU2KQpbTNGMwMiWGjzc39 GMNbt3YmUg7LwKVSU0NJ352lp2B14LVCIYSvql25GbnEY4xDRgWxPUTaQVq2 MB5ZnS1OFnM+Zg8gu8V2Hs/Sgm3hwmOFlSufjNBr1aqN7J4OdRbSi899ZaHG GEtFYcaDEPZ5gWPsAGQafFyjQl/bi8FaDMpwwYKlWqstTFRZZ7HQY4gr72eF MWgRj8J9X9o8evv2fexfVlcHDygiGDcDML8ijmKhQJufKBcgVs1z4EKMBwFM gSuRdhWZyy9WY2WsxlLF1asHCvQLzeOXSgj7tLW1mzDWxSm06wTV9UOBLb7A lo54bkV2Dl1u/U5golTA8JoQb6ZU1PlaRcU5l1ve6I03vpPwRj/zmRcvf/3r qyPZMzfkTAshZy5WgUUOdTOhZuIaIUWfFMLMjBBmKiek4Pzg4L8y4MKgX8n7 tJ7a2n5EFx0oLqO8mpre1jaJHGfSh5nBRfqGsEXBbVdXt1Fe493d3dyeWGnV Vm6avPItr6rVc76CMggDqIBnn60QHSghxNpHT6S7W7kfwnNo69Zt7LiqXM88 nIuWb2rqGm9u7kskQSg+qz6MGCVMlQuYugZzcoQPqTQxLN/BbMEPUVfmuwZJ OgwNit3dsGvcyWmvdevqWXApUAUFip+AJzfKTMSGmddpzbV48RCTa8OGI9ok XvmiGWpleEYL0HILrHKePYBqAgOc+ixmI7Ncg7JAeyYAJthKNFZoCxeu0waI S+Cn7FmzhBmOJdrkXL+vtRW6tXt7D9oBGBKrfKAK/UzLrMDifFiiUmDTTJve p/fQSYbZjL6B0YMPLiviI1CuQsMi/aaKra3txZaWTgIh/ico0Eyfrp6RLVs4 NYqEWOKGUFAlzJ+3BDBJRfQ9QtIrrKdycfT/TI0juz3wfdwso/JdiPrO33bb L6CXEn4In9EvfKFj5CtfaRL3ClNC+FcWm7r33UoD/MxMIVMvcScrRHtVoQPb x3v3vmW4A9EE9niMnlQBmgnowUCh0pYt++jvvgzTxst3dHSbzcBEWVxMl4v3 h79AuseaOyeFvP1M9dRH8PIQzwE8GcwBwyZHsNkBi0VrswjgaOM1A5s8fZKS E/hQeZ9s3nzkwubNz/2+t/epRLXAlSolf67gPGwaY8q2CT194FSLhJloD6On AzrYNsGkpbm5W6fU+2mlrma+BDrBtXJlHVdgYtTWcikFnJpumnwKBUjzGe3R tHLlZgYMNhC3bDkcOH5sdCumS1YxBl6FecOYKsWYMXxNjBkBYz4j+LHldMcO 1v+iRT0aKYu5fdmzONHV41GbhaBYmoki0UOvk3CieYXAzQy4vSxYsEofYDG/ WshEzdQNh/jeI488wji58852FyHQNGWaIitX7iKt2cP8SPGM0876Ptm4se8f QI85oayx4dhr4VqfsvipT0gcScVP9zoc+b/D+zZySNxmNAQT0uiQNb+dM+eX jJWAsRIgHANWzBi+996FYs1mSojPyuLT6YwXHZPp3uiIcYsJxly7Z1v4pHni ZqPY0ZGYMs6OjuAJFMJLFLMcIp5QKFVEpKVIMtHZ2X+lv38Xx1hpIUVeFQ+R yOafdnubTI2cki55UidAhx0EEG6RhITq7e0HQCgy3JzftKlzrLl5P59O+6yH k7UJVy0tf2JlSaWAD10FjkKnEY0QUkvTw0d5iUohgpACRJIoxRZPbW3tbOGo KQJ6sO9bwBZP/gQRzxRjfVJf3yC5O1ULuaLbgRUOtkiuEE9MwoiIdYCVEdzU ceBMTkMFhk/Y3QNOrlGR1gh96i5pqGDcqLmCsyxK7d7wEAsWNNGSX0pcWcR+ zeXTtHur1LdraGgwiKH7BV48i5dFi1bp5Lr6WR0nJaoEvszi2Sd8zC1+61sP c4xEwMhqnjzyyGF6wANE6330MIoqODYLu3gPPLD3j1/9ast//8535n44b968 OYIweXGaaNnxv4GW30bvO7be4F0h0+OFaAFWFFS0Yrn99t0GK6TPMQeX77ln mW1XNsYtKSFsqogNm7xzR48etbty2nbBSBZT7l0uREdTWMpBpQAqDBYVKaUp InobprG0kA8WYNcxOLi7ODS0lz7DsJgk0viMGx+4GevuHhqlGw4PDg75cdpl CuzgYEyDqMT1AnEqVDZHk2YPMWaAPa/6E/6Vnp4n/1d39wt0Ty9f7Ox8K8l8 Kbvc0vI+uy/Q3/jOxzt2vHpa8wZeLzCXgvsLvF9sAZPLn5wTFo2jiVmPaUOo UjvKwlcudJ6Ex9w2uoetV5qadl5qahpKjlPMmR5ft+5gIgWfOdRFOCf6No2t W9fshQCC7ySjJ2eTPF9yjKO0mjHJHkse6Ka1a2sRfDB8TF0UQiQja2YqWWMI dBG3SIJB1+tsz5YtPZOM5mprN3GCmoZKVTN7Flk5Ux7mcayrQoXAI8Mt5Hr6 +vYwiQyPWlv7TGmnPavLTTxXCPHTLJ2gxv21tKBOYYhb8gCj1asHiuvX9zOG cnpetGg/w+hLX+os3n13TeGb3/zOxL333jtC49z9999/5sEHHwScrhd0z8lp wkmbRE7uQilJ8bhw+j+F+5bgxCmlIKQRcjeIoYzQcWk0+uUvN4/eddc6otI9 9zyWFIIpT0BSZXwZOJBzCbndEEk2Bc2HWkh7buVCvZRjcTlBYMh3dp7QPAoo fHqZlv7TmkfMJD4TepDe6927Vac6gMRsYsPrHoMmeqH4IPkj27fvd3POM4Va AWV555tGOy7/ppdwvZBcnsFzmmTQTqBovKtrJ8YYAWq4u/tZx/XOhx8MA4pI BCIpc6oAX547cOC7H+/ff/Lc9u1v0o3fTvih+511vUwKhVBpB1AIriygMtME 1Azlaw+XhbGGhsFP6+qeJM6cMO53ScehCk53rkNVff33iVhvwaVKO1R5rkNV wgvtqWjsOqMKHfB8L3K65xLyQMYOJilYUX0xlFKpwpo1+1DyyQlwSCg0zBHI VGgWcOpXtwNjcGHBdVE1BZZhMM5mKZxNLFq03nhnWoO6LVs6Lc5SFmqLrG+m wlTKLY1y+1Jy1lTB5ZnOA/HBzWhTBt/McWDqxB5mW8bUas2XgDZTCyzcIWi+ desugtiQ5zANqR8cBVnGTEsX6+sHmWl33729+JWvNBeJacV7772fuPYtisTZ Mm9MM+7it75F3wPlrhfk19OCRJIcuIfC25W2tcQS7m+jGaLYMoEfaXq68ivJ c+AmrC34VNbat+Aj4I1+7WvLfTCPLqWPP15TirtIcFcpBHclO0wY1tGX8Gd3 1yqEoM6x3St19BzDmddoOdGDMHeC1A1f+1h6EeQYdAp3qQLOxOns7ALoCp2d g/DXBeCSF7Zvf0M5t6ClOHKyuJulrra9e0ldhE7/vGTqGa4TSFelstRo3hvR Y5gizORoZye9dgM7hTqecwy89vb3QDhjhEUx4A+vtLe/A89fo9Y8BZmzW7d+ AEM+jIRy5fN+hxjWwM6PRoOjyhArlnOR/TXJkk/dn3++vX3P7zdufB/+VwSu v9RPZ3j79pMgnWuERXhk3tEF5QRdT8G8XJwR1vmGhj3wwjq3YcM2+CjMjjfg G3Opp47/yVglZwyxWlrUmke8SuxiBRcoBWeSUsy7a8PE1IhRcJ7lXrVgyGds 89AGvHx5DRMvh7kyrgaUC6eygoLLaOIhcWUUXEoruL6+XeyyjhKGIDxZ1TYF pkuiTOCvXIgyecfOx3tBdwNZR79tgz3OeCv0+Szn7r13p8FeEtyjV3Pvvd8G 9xT7ePZBv0uagBgMwWsFmXc4BNWUle5sV+5Wups0Of+Ei77/OjX67D4gA9DJ YhnO0brB7F+6+eYfcoIcwu7uu1emmHGp0dWrW0h+HTKcM2Xt1UJaXOWhfARd ZtUDadpU9OLevXsvDg0Nlaa4SlNhkQKqwEmpa8LRe87Nw/nt2/c5Qu5ggT5+ JPEM3XayqWhv74mxjo630V2DYnfmmoSzSsEawbX1My9RAhvHlUne2fP4VEUI LHy6PDWffeKJJ/7u6NE30HmcSGu0dXR8AKzBx4+03qt0Z6fgkjCye/cJxlpv 7+vIbgXMkuDChg3vjG7YsHu0oaF7tKmp8/LmzVsSLNtmTJNfkqFfWqiCVyIx G3HDmj//N2DbyKpVPwKsCMUvwRkrkQkBNrZ+/RuXampe/MOSJd8dnT//2OiS JZ2jy5c3jtbUbBxdtWo9Uav2LgFgAc+pkZUrN4/Pm3dsfMmSgfGamoaJlSvX U5y7iSPMrE10WYlGa2YyuK4XwOUrfF3SibAxfFWus2ELFmwxGNNme8rWr68P ZQfrEYEyxbjb2AajGNixc4NSC7fAwi0jZOWNyx92CI2c8x24oesZWMsIcMsI KbSyKYpFcZIraM+fQD3Tx7SIqtswZPVZ3j3wwF7DOF8xLk8Ms4zzBZXnqdlE tEy6WYLo2xelUyzvDpXyLpJ9c3l3WrhHqTbhJ3y74FZH6mGgniqR0uD7whd+ PHzPPas06TAHoy0tO0YHBo5gmNA1cY0QtqqK78DNMIEIAJ4JX3kfUWffEpKL aVYIX9NO8YLWcvQbUHN//06Xdgp2/pWBgePnd+36hXEw1QamprmHnWGqBeaV O/YLxj6ZkTcF+PByx6MpfM9VdImMYl6keiEZ+hQaiy/tDRicXb/+P/9u+/Zf ILN27tCh45B1JJbgFxOAhVbmESvBQ20UmGYgrl37KgWQR8c3buyaoFHYsKEz 39DQkpguE3UdwrjLxFxYT19SY5oGE88sXfo3YOLvly791XBX10njDqjEHJvJ kPTq7z9SaG09wU3Rjz/+NDtraSuZiWXLGpMwC0x4V1aurLeGWffw7MMo69z9 9//owje+8VOYYyWhCLmk4iBSfIV167aSqqcZTUbr+XC22jzFwWYUuCAVcLxZ oGEg0DCrauYLjzzyBAxOHeM+RUJ4uhC2ykBCX53vBPxNIA8Hl1N2D5xMwrTg cxUIgi/Qsq+trS9S7tDbu5+ZiEiVOFgmIDEnZPGkMtPKWCT6nBFAirO9Hafp DGbULiUrP01EeoaMxOK3vvXtvEFiWiHRlX0GiW6izxScRiTgrqmRaAF2VN1O KpePZP9cOP7HqeFocftnGrIxUDz7zW8e+Id77umhT7WC4qOPrjFQvDA4+A6a cAwUI9sLWUEeJTUlYDpgZJ0qMfXdHknH6TkS82aFmFd7ELoxbyKltKFhoxPr ehN9fbsJUgco3Pzu1cxVjW+WhpbPwNq79y/wN/4vI2xAZKPicUT5pk7J0Gjx hCQeJZCq8taZMCU8+9hjv8XfMCbEd0+/+uqryAACluY8HBhwuXHyJYqdLzU0 vDOxevVLvKW5Zg1So7BYRV93e2HjxpZCQ0Mz4XPTdOPiWINCCaSqcixlDLjg S/jpjh1sRki/vSOe9rwxRfdAaG3tK8hmPZkCPJMTq1at8kYoOPwycKlt6j8k RsBaMPSvT2RLTQbPLV/+FgwGcc0Yq619lg/j8RinXr6+vo1ebcsEsqCZCZUL pVdvt2mTmDOkUVdKuxspAaqBbkR69NEBBisyhAao/f0DBUTJVl5G9zo8hUXD WDPyjuSM2ExkreT0BclpbARxGq96EgftaUFIdmM3pBxs9VW+cTJRMwJRK5x9 EUPUJM/IS+63W9YYXV37QNdAkxV68+tf38JkTWuy3nfffVZsZgSxGQhkvUYQ m33TJOuxeLKarCP/lEvW34TknbJ25BdhhtGU7pPKUbMmqxl/+OY3SQWoVCLC bCxV0FV3+XDnT0l9WFSCZkKelBSre2YnxbGA9d2dGOB1hlCGlpna8dXSNsNz Ot/XN2AyiyQLh0DZUVq6kKPa8TXDpHUcX+Fc+OHLL78MmiIk1uduuKaFxk06 Qtm0EKKXTZOygaBUKwTAqu3l3Mf9/e8zNDVM4RNGj3mKHu1EfuvW78KDh9jx alKXrtKHGhQFQ7mmlgBCQjTc7c0KMI09KFxyM6yIhanvdjaNdnUNBq5lGBGU wulT1pmHdWdBzStWrCcNuS6PCrgUwJrw+cRhNDPRuETjFsHFtYIB6wOuZx56 6Ofn77//r0dXrHjXA1kT3ift7dvH2tq2MUXLBJaakhfs3aCWl/3AMAcCWtM8 l7toZYefRYvWA6vEyBaL1DVrapl6CxY4WA0PHvKLVo8apJIyYYZEanBzAmLL tJNP1Dtsvj5sSEX2iKHdY9iQqCS4Kt2aNmb9zjBfLySaTs5bpm1/e0XJlo0e ad0xC7yScOXSO4y5c7eQCLaKtaADeXoNkxVryqYqqwWd2iUkFqUGg+PqdpG9 mbCO12Xor8N7nLJIRrfSn9qwYYPNUvpanX7lK68bftJXmP0rX/96DShK8oPB 44M7M4Stl4xABk9Qp4qXgbuVwyW+OA1phhDGp4QwPidI1JxKXI7s3Lnr8uDg foASkpRhqexdA5iPGWtX9lDcs+eFRE4Rkr31zRZzygbvFeH+yxWwsiRNaV4t RfUxSrNcgfAC2otM7a/OF/zdoUMfXNi27c+udHe/ksBGz4lELt/dfbzQ3f1M saPjOA8NQ3bRWbv2GUNCdOE3X4V8dhtZgt4MAXqqRcpHC6hph0KLvGr28y9v 2nRoAvv7EXMy1H6cKCxZ8iyFdZAgwF9A+KunYBkB81oMwuCaRLnVl7Pj9OU1 Cn/Ql39XU/PmSF3d65e3bn2as9v0/Om5jiCVAvDlFP6ubNwYVvzpU50v0uOc IQRi0AcNc+Yc7BH1FjOIN37PPccnFi5spve0HlE4k8agDdvJJWnFvKMW6Zet 0KYjdPdMtQjaKnjOGbTlDZ9gWrZy5QZGWV3dBl0UrHDG3OPzGyvjyFWSlMxp vYgEJPjV3z+UyOk66cbGTuCKkZXR4Lr33m9DFAJeicoQXGZ3ha4LBlwzBBm4 RQBXyXEk+D7+/7k4dpWow286FPvXUYrFVtP8dUixX9P46KGHTliKfe1rz1mK +ZplCxY8T0vwPeaArxQg2ign1d658XZKWOda6xBldk7pFjuFeXVkWyYlBOCO efW4oVtWBeAoI+THHhoaosgJM0vMErdYfm2/feGFHw0fPvyU9iTyhnt737cm aEoXpuEY6xqhXd627TjYBx2YiJgwTt6ADiK958jQqh+iuVpB7xyFoabAUKu/ wG14wN2MtLe/nkjCqoiuFtu2nSpo8HHB9HG6Bm/e/IIBYBHw27hxSyIlyEA/ HoYE2W2XCHdsyThbAF86zp0ore5gdN2618bWrfsePbmnEulQ/sHCmt1ily/f UKypqaOrMtHOL3DDI+FuNZDH6q9S1oBZQQPexBD0ziHIwK4e2BeEBByjxeAG 05dcAt6mCHiOlsSZxsbGX/NGFM+p06tW7SVN+f2zDz/8+scLFuzNr1u3kTi9 NivU0PBGcSYUcPmpKDdDC7gFC5ZQANpjznFzk4rmaLfwXNrHzfcTVUJYHAiY MycxmUTjwMAubdsUcFiMh0cP/ty584v33/+Qjn996DRupaCBDGNVGAJbqZYV 9lsqBNHWHMu+KJxOqdtNbr4qOZnSBd+vBPDp5KJt6sKff8azb8CHcXrp0kEv ln0+2Hd2aOjfn9+582/Qecn4kyLeQMgvpoSIV7Kg9eLLoSMhsGT6WCZsymRC 3vFjM+l4zrqnRmFMZT/7+yNHfhaxn9216yVs3agaGB/4I2H7gcGfsYFsbn7Z 7tdMA4Am6r2kyhMns6/Cdpiq9zgYHhg4CuZ92tz8Hj3au8q1QxMPHaYgHrI5 Gze2FMG6kHhhFaHUqqU82gLEq8DZb+kdMzXTiWsF8mn/NtzOmtEqd6RgtKHh wMSaNS/DxbpQV/ddmEMmUtaX7SkNvXX0jIl3noIelJ6F3iyeg1ENPNTSg3CQ fInbBMqlFeWg8SzlUgLlPi9QLhWl3HB7+5NjGzYcnVi9eju9gNYkxeV4posW 1ZjqQduQYXZY3Og1I0i8jPUiqtYekSi3XrsW9Yg1aPFIaeSFB8gtZD9/WN3i a11NWNBOtGhSnSHQzxeSgukS+oF7puEW9EPdEfwwfe2K+eCDc63w83gOiIT3 GRIaGiaqBQGYFTKCFYIU3CAgS8LhS+p2UstHRBu6OPznAmqlwpt/EdWBGKS9 MHtnvv719zjCJSaSLgILA8NCM8BEs2kBdkidY6V8jES4KSHCrRAaXX2Bt1LN tSdEu+VCmY7mo9GCDh+9c3DwMfeXi/ocIV2o9WCADRpzDqcBoTLC9bTZ0ebN x61RZaWAQd15Bil3gR6aG2OvFfBnGvFd/yK9mUXr/HvG80N7VHpsXhSVgcgC PmdhmMSsiYjtFHCQQ9wZgkOlJ3SOKA2YdklY6mNk7qvEzo2PGKEA/Hlr5+Zr IjY1bTHdnvFEnMGzN4Z+NGIYBlEPeckzgKL3IT1DGw3frBCJt9YiMiOEwr5C 5LhzgnnizhCRH9L3HUT6Hzc1HR5dteol0qJPA49J8JH0W13dJtKE6/L0DAmW y8oFKuZCKtoAOS3sT1fxnGHzEdhQ1tYOwYbScNLoP451sfe9UFlfprSL7gJz ZElBI7BaCIU9gZIpTUm0zFEYrNWhoeQBkuxtKOXWh6f7RitqUn7bBxbppbj1 OdWCXiwTAFkm6MXaaQLy1XhARjSkC8hfRgEZW6mj3X+/Rh8EA0mCEQMSutEI RkKjDZQNHOkrzP6F/v5/ZvyGAJIgZEqpt26kYtET4ueMED9LJuJ+vJ6MxM8S LyuELZWUED8HYfxcwv2IESaYqUPo8a1b/+STzZt/yHxURpi+NSfRozzcNbGg nIXZdNyBgniqDi1RxGhpWeL2xs4AZdFLD9yS6PFBy5RLy2Jn5zGSaU/Q8+jy AclAQ7Kxse1KS4uSiOUCJFNC90rJ2QXICiakGHmGsHHNJ0f5TMu0S0vtlHSQ orc9xXXr1pOmguOGEDCXYU6OqP0MEnmAJEaiimfvHD0cmMncnKNI+SGeviFl mRAyJ4U9ky8qUkJIWlL6PPP1frin5+DltranrrS37x5jik4QXZKgZFZIDZYJ QbNEyIop3CwbG7dYN0v2E2YJ6VsJqSGZ4jLF8LRPIHLGVUBpgmnf2WM2nnme A8r29m38oGVaTj788CPmhAS1pVxCyZmCjCy3ecQyQTzWXJ2NzK/X1e2klrwI L102/sU02fivQjZa8ZhSbPxowYKekq2QKBsDRUgISJNI1DAKXH82DA5IpYSg JwTcWSHglpyCUwJwp2ucWSlsnwRCwB2EgjLa96wyqMHI0NDz47t3P1OAYUp3 98tF1x/YwaLyB2bfg14bV6eF3eXqUFCGxyY4u9VmU2W2sLsc6zqn3YOH6ZNj L0O6bIpNnYz69EKeFrZtO8auc+rstR04DCAAT5MhT43znD5HIcrTbDxPkYg8 R59CMFTcpw4cawSE3oBokudUsaXlmEXojh276N84JH11VlmsAaMWoClBat4c JzVnCgCt4Nl3o/FRguRdzMvA5SXGh3g5+lgOZI9584lISb9nzJ4rLXVdYpSc FULEnRLIWa5rHx1yEjhCy0zlGGEsM5dTxL84HUpMz5WXRObJCL3GniERtZzD LQOdiUQ9pVuGY7z/9Hn1ZcrNXaEYP6vdoShwYXRGCsBnCQKz0qIzK8hKdcy7 77a5AGsSPd8MSVja7hdLT8dxeMpTrP61QM+s0pena2pa6dkPMkGJmimGZfrM k0/+zek33/yLD999912cZedm7xJqj9b7/YEDv0R2jD9JSSHizgoRd06IuFMC cCtDb04XksZxYYYgHIMw0LZcTAmBttpASrnsR7J1uKvr57BO97QtZ0vLe5Ns OX3rJszudnl0R0t0rCpRkaXHw18VkaHRXZVw5eGtLScEN053BB+4T6GXYje7 TgGIjY2bGIiEe2Lhp5s29RgXThJL3drd2ncN1qEfywQsqiP7giuoE6cxCiMq +htIFHuidV05xfy9Fo8qLkf+9AjcjtmMT7vHJBQb/cKqVTYMj5OWtwvSslqR 8bcuGSujQThyk4m7QxlpcRgIOMxGcYih6girBeUo8U/Vyyhjzyj/4mw3mYEs 55J6/yVUkig3DBloir8lBuo4m+8D+UicyiHxz5WNk49z9q2pus5AXi+UzlQK 8XVG0JCPCTpPKht8Fzdz+18iatJl38+iqlQqouF7/LcC+8p1VN3auvujU6f+ uRNBe/j61z/96U8xSJFh9n537NhPQQh1vKc+v72z889Gt2z5E4xPOjre+KS7 +yRd8CaHzJIZcTo2ZA7ckNmaXlXH9sJE04ppRTt328U4EbuUM4Z6bFOzbdub 2onYZ2FIqCtq3GktaLw8YUKsvCACAXnlgiA0NsT0+0GW0Ymj0y7t+GxmN4au FpiX1jqwo+MAPYXDDDrl7JnSLjb9rLE08ug1bOLkI0W1hD347cFqD2OMhjUh nsLYM8K+SqdnWrOPyMZ1MYaBsUU9qucwRyB52nCQhzayIVoPgIOFurr14GBa YbC4Zs2Gwrp1zePELBzY9Q0gzwPpyoUNmRkKdGdoASCTyIj7aphZvIQj0Nyd Qxd05Rp0qENcvnw5WmUS1UJNYErYUs4KjEti9nRDn/br1IhTr8wIPg22GQLX ZvJc5vb5We23eHGP5Rh6ltW5zo8rlmWiYo6ZdYNQTD1DIFdKkHAPT00uG6H+ 0JIr/JfLq58IUbRULvPvYnnl/5riFsMmjCRgFShGQbDxNsmePX+pS0uC8zt2 /MowamzLlg8mWlt/mMCBtu/xUQjHo80XJZGsZEAsmaiXRLLgnDEeFrqVo1Fr Roha1XZ38N+effZNY/5pjYc9bacFThn3z7a214o46sEYDqeVkxZxImI2XB6n yCRGzQ53RkIXUCFelTilRe8ELWrj5adlWdY1BWVPP4dVBlKc+Opjc7+E98eW ltfPdHa+V+rrZ8ikff1wMGDriFZl2FsIpgmmcu2q5Qg0NgdV7lqdJC23YJEl QSWul0nma2s3JTL5+votpIm7zcg3N28bIyk2SgOo+harM99VZ4hh03HcSnIS jxWZhZcKXvlMR3yGRnhbUYBXGc+pUfwcKTWMSyjd0SCbIeyDBALHMpiNONOO C05jcjrGJnQ1hJM6x32GEKHOUi40qukPtMMxywZZrvyCa03UvwFJRD4OcYLo NEGUmiPIr+ooxBhfgSC/vj1NiH2gbhep+XtPxNkHU+PMFsL8Jl5+uTgj0Yg5 QMzp7vpe2L37T0wV4IXe3r8CysZbW39EUQJjjIDwGhaXKxEi8eYUGIvbsQDC GGMzhSAzKQSZWWF3oiL0MTYJPeM7CumlfUfZOn3XrqP0iRtSZlvawfjTnp5w TyIjSKvyqbFlDQAly9Fy7ZPe3b3HtRv1Q7dRUn+tpGr3AUOXNm9+TblrkYoc HHzNyCSY/cFcxnhrqdI82fhP9RfDV0uPRCoeUZHtiSqesyVo6qHYt5XuoZ0I eeyThoYeulUHQZdYxPaeXYZMiSTPAV362vlUFIdSie9YRaW65bzTELRRRZU6 R79pkznjcBHFfya55k3Akc0bxafBGBZ5IaTwSIynnFJYfOKhhhQF3jQnwalK IZ6UGJUS8mlZDSkdS5I2WoNKGd/aX1UJWLpWayRsvi5ezMV4iawQCGY0j1TV 8yJ7IJg58pCQk5gjaKuZNinmC4rqniiMpIYKx7kgWocnFSXf42BJOg1CKkb5 D1NgCbkig6WsUlcmSuQYMal2FaC0TP7o0rZtP2MsBYwl32AJA86+Um2e5IKc i98qgEiy+6YzZbMrUIk0weQgUPIHTKrHH9616xickBlIvrZXd/xKCU9D2qu0 mwkVaGfkrq4BujjvvTwwsE/VX6t0VZjgQiMFE0nV2fk4+R0WgGa/VWpQq9RR nnFDhgtykrmUnujpGSQ1t+tKT89TcMg619f359yc1t7+Hj0BNkI+d/ToM7BQ YO+/gK2vUuBUpHRE8ymjLdW1bhpTnVrTo1K1Sv+PNzb2j9fXH8EY3bhxz4VN m57Vzgypc62t713s6Dhxsa7u+5fq658ngXL0UxoeA8knrdcJIGGM010nwYqE dxnxpklyPRTKKDzhEXq7cC2qUqHe8NDQPnqtu083NW3T26Ae4GQV1Bed4+Tx QWFUqRlqqhRYIx0dHcAUoyojACut7QYddUWXkslbAb6ArkCjS5V77Iw4kiJF X+pI6tq7VArh4Syd9oKWoo9jce3aDj6tesGCZQmv6B5g/7gOJK2mcimmW4UL c+fOzZOGyjvBYkRnzbJA8wR1dZcAnZJGCwMenbWSGi0ip8O7THv36kxjNv6n KZj2ve99zzIth9lsig4N/dUfduz4KYeGKYYX3EGfca3IoRNU15TSVtadNBC6 KabwcWdDZVDNIZirrUzFhyFYJGnvWP6VWg2aMDPf3v6aDhEzTC/X4RRWCPDu Bcl6e/vY4z2pTZc1yUa3b38CIxmVW4gWTR9YJG/PrRPJEeXmR7+ICWy/6aI7 iW3VqgxxvKtrDzjGPs9dXfuN45+nD7uH2V9n51sMNOW/7MH070pT059c3rr1 XfoeQY+o0NLypyANj61bP0iy3R+qpd8G934/OPjM+c7O7kDIW1UqykEDlfZf RChXqb2ytCeMak27CE75w83N/efq699hrz8ayusvc6G9/UUADwMeppdpGKus K11dh/jdgkX2Fs27Yc06Jt3Dinc4tW4CqU49PIBPVdOlL+/addA4cIwODh76 x9bWfWfq6nYwBAMhjNTVdVfwugwEAwGCSQGCKQXBMSe0TJRFIYhha+1c/SZB 0HdyZcj/uzam+Bru+UZmaXhJdlfx2wBZTus73bHFpqatxaVL24vLl68uLluG k36I2faI14UuC5VTl18kyBWIe3k9rhP03WzVfebmzoBFqLyVX/zid28FuL4Q C8VogPiLeCJGvucSseRoHQ5nU+q+bd4ff/6zut2paRGxROXp/YBLXV0/5zy5 QiNmZJieipzV0NU1REplF63vPtHmxReC0HIhCHU8UQHLMXUMFt+Dyf2b/FmF EHPmQpVnXekVo1Pu1gE9wSe0A/QJ9omhVwRnVO0WwwOoVCbQ2qCeLg4wgHYw CYPUv9+794VZAhqrLBp9UJHWFT3usFlrs8OXOaqej/Z/TuJmyYu8OocHBnaP 0MNR1P96QrkFppiNRER2DGxu/jFpqp/BBNVjJHpQggaLCUWk4HxT0/vDGzc+ xY6BjY1dnzQ1dfDZGZurBQrOjE2S+a471jDRJMUgDM7QkzXK8vTAwPdhjkWP /cAD/zWRgmHghUWLfmGJ2Nz8EjbMUzB9oWsfvR9XSAvTG7kdNAQLE3PVxuYo Lhqaf8QhmpMj/KZd2bVrr4FgIuDZP79y5bGza9fuwfhow4beIBSDYCET8I4w nWY5mFIcNOm1WA4GAgerbPRKgT0AZ4pDUsLGgRfnf6p98E2uLbAmgEO6QGMR b22KcSlHt+VCdGtKkB0WWlcW2P7RL7y4Zs2a4urVa4s1NeDiiqzt7TAm0gs4 NTdfH8JBoCsS/MDFJKB4rVAJoqCYunznnZ0Xb7vtmQs33fTB+Ztu+tNT1133 7+YStz4nJMykCmPd9C91pEW+5/LwjfC+S+pAAsNaY+bCP3t6mlws4zll9hZs Uq6v768RMibDw3MARoZjUoPSRSShkQ+ZUIGcl+/p6TOeqEZDRqLgCmGbQXuq 2lQ7+rjo37OiEpDlY5UQAEsOgymhto7Te5JdtKcNVXFyR2dnJ6yi0WE/3tn5 0qXu7vdYvF0T5uRs2bB2VzGxL9YfLRHLRPv6HCZGDVW1Wws6ffkjzHT0zxw7 dsxsYcAPIa3F45Ytf3qhs/Nt2KbSWwsqlhsxachoLQPXrj0Jy8C88inoxLFk hMTmGdPkYlbmYpa56LlcJGE2yTiQx8aNPzxLsu5jtU8OKPr4N76H8Vu4aiM9 p4QhX1MtFAOevYmdO4fy/f0HYJbFPmeHKHbt7z883td3BIOFYmfn03jF5xYt OnV22bIjSYCSnqLWjU4dcTSA/rzAzIxSkC4zuTcaRSRaL6JcxXLyGiFoTgt7 Ekltd+Ugkv3wV69eHTF+hnbElkMmEuQu1PLPYBEdvY8l3X4MBN4Ghr62/uvo wNEdzQTCdfT4NCfBwvCQIpP00yfLElJI7BkWGh4mGIizhariKrU5MXz33asA xdE5c96mKxZmf/jGG9/77bXX/qK+uvq/QC3ePE04qpZasf0i8j0XjiUnqTmF IkGkUIT+cGowqR7XtvHiz3/8pwHT3cUwRRfYwOT0miKkn29tfVNTcg+OJg0U HCd6e3faAFun6C4gmW8C7EpBNyo4BiPmMFQCBsYl1dBgCWnbKSqFAFvyF0wJ GyDagzW/fftu9/iQlKIkPFjZ6Kq//42ENmC90N39F8AT+z7PEPYtysJA2jOB NCNyuqAss+Ixq8Sji0dVS5fIsM9Wb++vYLV6dsWKvzXOgfjfs3T7tBKRI5s2 /eBSU9MPxtesedmcHO0YWzEmC42Nm/ONjc1SIC2hMiWjskyh8hy9SOs7XcH+ Bmc5wwcWgopMRiUa/Qs0G0aeoXfC1+XAJGxsIdwDCpfjSD4YXPqYs8zHLHcL 0gu7snjxc3+cN++pCwsWHL6wfPkWGq1/v2pVA/uwpIVgWru2DOM4NwPEMp59 F4iAYSAkEK+1mjEQIuakNlV1CJhfsaLFL4GfyuZN1oQ5IVLOCZGy8WpB5jCq DgPrgmpGc3MnHx6pwGj1IZ8LSTJT2QxCH4KLDEA1u/GzabiQ2tKAxpHPfvZJ hmJOo/Guu37548985hd9N9/8519bsmTJddNE47+8Ohr5Z100viLct1ST4vPt fFOLZ3Zj/tM0qViu9naNjDQlaFzSEWgNuW3bm5yzI61I4ShQmAIKcflGuGMs 9yHgZgibJLmQgIZ+GGPqXDQbfdtKOUkjSp5/6as4rGqJqOUhO6yS6tjLVlZJ x2G1q+t9x2E16zqssmsp2PTEEz+Hwyr+xtdiZUrWorIsno0Rc+qMICJzipIX 6DpjSKk7fwNDRDN++9RT7yU4vobHzCnOlp7Id3Q8W2xqepV4+IZCpF+orT3s ItIDI8vj+YhEo+WjJ/OxUuBjlTa+evLJJ41MBA6VeuQjNw0Z6fc5GY33KjS6 KUZ6dJ7zAwN7wcdQSXqF7dsPJbnXCobIz7CxzaOPHik+9NCBwmOPbRpfsKB2 bOHC2tHHH1+dU+6n5+BjDa0H3qXUcdw41tL2sF0nbMpUKGVp8pG0NrrMwXX4 m0jaCI7eqKTklZqaGislPQZp2t1/YWN+wBNep42NB4huaosYBMW2sSr9Va0P 1VYyZoVIusLZZXGzin19+22z7rZtO8HJUERylV8dPYs1KGZOcHPFTM1KRz8m fIGV18SZXClWgpAOK4PRO+74yejXv/7LC3fe+Zdnv/zlY6cffZSexK/pjUk2 c3YBALUirlxRzETJRgxKzRh/o8gmtbJFGjRcmErHakoVMWkZptOVmBU8+3/3 7LO/cGvjDEe3bn2DGPoUfXJ3aI4GbEaqc+Z/f/jwa2zlL/kClrpWs0Wems2+ TehanVRtGJML+NJCqJ2JhumOL0Im76YdaViT6oGBU8Cotnwwpv5KUqoZ7qnW SD+lZnNYk+XX8ePHQc+0EIeXK4RGHAOlepmUlZcVCpznDhw4UOKWxUWFsAik cPt93h0/kQiYk6bhF+5YxEteJC+yMwEcsraBk4RPzB5pyrBCJh0LT9/dpXGt UnFT+i/GZpUAz2tUhY4LTxN3Q1e69OQaY91/hg1ou0lzN8/p0k2aPH1oCojD CZlES9XOX1t7srh8+UnwkmRSN3GllsiKGWYFa0eXLFkOj1OSQ8o6GlRD0wec tson1JFOMEg1ZwJLQE0JGzzleptnx47deWIVPacn6Hp4aGLr1j56fMJqwvt0 /fqG4dpaFqeJm4VNHWWKmnWDdHodPcWWln3W3BQkdfWoW8V3jSVrRiCr2Y8u 2a/JaqgCqIjMlyxZw044izmFusgcRCxqz5TA0xmC9tQu0iYkZ5JmeU6N3nLL D8FTHg8++Pz5b35z35l77+1J/ZqvNacWLVoErjJb00LOcYr+iwg2wwppF6Df DW85Ze1OVgHUqFpTB/Qf/mlqFF1t4BPqX6wa9R2Kqt1jey4mtkRM8a7OZAZQ qIaucKxmVFULAbpxXHUCdENWPr3c7IpXR7Oh4GpihhCsS16EWaFJJGsF6w5Y VEOa8vPt7z8Mvqo68RSzVZ8BwH8TZ4l239d+q7/bu/ed4d7eJ1QVj8DRypCj pYYzoseslqIYhKnJRK2Q/Qcvd3c/b/wHx2FGY4xnfDWDrhCjxbq63UUiKxo/ Nl+FokZuAp2zBGLOFoiZAzF1iH6aXoNtza2MY+YX9MY2jl6HAQ6NT1F1WOTX zn1wprU/owlgpOYjj+zgPq5aen00k7BbVVi8eDlGUnCK1jJ0hDTiuDkI7yZF 0jzp4Dz9OvKcRsasi4Hy/f1DQGSBoa3nLVu2F+rqNk+sXt06unp1w+W1a+sp /Ld7Pmne34E76vz5q5iFOjbn5GQYn4enlMwW4vOUTVOWlezZuM6obW392vJw Eb09k2E4QxCXsBRUWzUzBEmZxFzOzPNGv/zlnxve0adr7twjJDaIe0AeYy/L c2DgN0hEmbKG+jcWbroYMVKs+A0HeM9dHXh8j1q4mu0fc1+/+SeG36dOnTIS DmNi2zZTLuNz6N3Tc9jEtDh7YtCzGcldMH93Y9qIIat0mHE6BJ6JxSl0tMCz UrJKbVJHLPkhHB3wRWJ0yZQwK4jLMm0xjYyULui9vHPnAX4NGfUa/u748T+H tTT7xSRjjVcDNl1tbn7PjMsk6hIcglcL3JP2tpNWP6pOVCCPsSfBryzOHMHT KY729tcpcP6h8SKkT8Pz2o/QL1BMXly79hnQrwj4saxEqXXzhFN8bcobdSgO Dy22OcBX14XbNxaC1+t+OPq6VDYi9jayESycFYfAz7CfwQjbII4hf2g2l32V KKRPXS9w6Kz8FGtHAiDwx4PibJyB5xX4IDzCX3jeugPDYQPDbCgrAUTG4I0K hgVsBJv0X0rvh7htH7wVraojUgTCE0SmoYmamuaxlSs3ja5ZsxFA/Jyq476y YEHXeE1NH6m1pUU+Biquktozp7bzV1VWIaaEPKWp/DEbN+7FATaCupKRe08W WSfsxcxHHNm5GNMitfVuUVnloFLv4bDZtEJlZbTUBwoxUaYpaZQhKOkpSg4/ 9NChjx54oIX5mFES8TS942fo/f4Her+VByI9mY0bN/5P+pV/b/fu3eCZ6YQj Cs7VJEzMsdBUPLRB+7tXYejxKENjDWSq1O1chib+vfpexHCrInZXx4NitNBR WzOc9uZ6GpQIEUQ9vXW8ffteu3Xs64PVu7v7/jA4+CYzyBeONpEqglJCSJ4S QvLK0Krf5aW26p8sIH0hSC8TdnuyJV17WPpJ5XN87ujRo6XGrtqgMTDmrub/ HTNDzxi7OsffeYaxY83NP0gkx5uaYGzQ2PgWva2HGLIzpkYtnyCtPK0BoXAT 6PQrr7zCWM1arOosx5W+vsPWz1UZyiAT9Ly1M0xqO8OWlhcpFoPX02b6Hs0p FbJjA8ilqTLXSrl+rrbcnJ78dcK++I3xYEU8br4HsF4fB9aZ3MQCsFY4JI3K yYCzl5CTjz22iWCAzByWJ0SkYml+8eJllqW+cGSeIyxtiH69YukEBeBRlpbp osaamu8Wcd4ADgVZsGBzoaZmTWHlytVJWMwaeNbVdZNw3063W4uREva1dcEi e9Cg7USfPaLtqJH3ZK6qLerJsbapKUcW01gNpjRJ+/v3WkPWlLYahNksbBj0 yJRwFA9T4cTfRnLmLEfLFUcLN974/fE5c94cmzPnLR1he4ahTFA/5KhVm77A UZ856n1C8/9YsWLFR/Dl8eOynOZoPOJjc/Rod/7erYa41wlgleouXdgeE2J+ yW/mmihsOeaX+prjYRsYKpnBe9meW53j5A0NYpE7xNkBsEE0iI14xZoqcnfr KBBi85QQm1cKlUrasgtotVtLlUJl5hResZGtJeMVi50Ag1t9pIbkuQjEmkuI eS7G1sZBbsr4x57v7v4rinQ/AGAnmpreZsbSm7dp00sgbaG9fXe+o6O/Mr5m E32FALA2kJ282Z4SDGTLSoKB7u79JKqIuNoxFnbVBRRANza20Ied6BqofCg9 xy22D6c8VKuGr8YT2zCWEXutANrPREHrFBx5bsGR8nGVKJtR+0ZXdPTOOnam tk1YvXqgNHwvNDQ8yawFZ1OWs9mpwWqPrr9WR+wknCYV7bgiNaPnpqZjzFoc sffgg31E+tUFjEWLVhNvV3kTzA/3RIPELYzfrD7vdl9+82a0NzezUzhQjMof CFg05SirwgCAndAD/y4oRanYDO9Zc3gK/Z8vcDilOdze3mXfL99yeDcrXdg4 ZB1Fq1i8KFGGmbeSKgQJW2bRqw4kTU189asrgF8zJm688U2gOKUpjH0jQ+GU ms/X1rYbChv6/pHeNxaxyU/4HQR98X/M6JyQFDUmXlraMnbTCr7NrtydrW4n tTbGwvfJEL4GrGLCdXb0fhi+v54mfHUhvJsqMEVIQhd0tAiIeKyKgAKCw0nX thslUMa6O5I5yIWK125CBULmIK1wLFnRRpqPHMxOudMvOS2WCy/TwbFtC9Y4 hvq1W17c9KSlL2/36zMMiO0v5Nva3k+kGLQBg5Yga0Z+27ZBswsV2cif6bhV AK/YqWfYSsj1BRfaCuFdTGJOaevErVuf5eON6TdYxFWUghMCb3MA+iZD+pIg 72GbsKxA3/Q06fvZuJqmtLBr/9kQwf4/wNdC4xZJg+u1wiVNWViz5ulITLx+ fSs4i0GKj0UtkEvCdilTNyewV0oQzNbsRZX4jkkHx+8rYa9XrKs7QSB8Ctyl 8ICoy1nNlaRKlxAUF+fpEXAYdZ6P9gNKGL988J8tjLrBgbHew2Igr13bQK9r fR6Dnl8Bz5Zh7E8wBPNaDTuFTSlDYjOY1DQ8IcfgOVlXfV6p9ZYFkaGYQ5cK 3+Zz9X5YhYVymaCHKyyUPaWH85/97BEDZBIdmFNGH5udKM4zEJkzShp/smTJ 3v+xdu3aP6rjvK0MxtcAdGJWFMKshE1Vk6uAy0MFbJXyNQJwSyrtWeG6ED4c hXDs0X3XRwHPqV3JiUyCcDZMN1ix6Al08oWTnrUQxkYPNnhcb/Dh/v4fGxcz jCm8wSMpiFLrW6AkK6QgyoQmJz9WH6fcdITr7FglbGO5luCaxeacJTcLoZtP c+YIBevuuGfPX7L57a5dx4qOAa7PVPZcKnN33m7ev99uy1DTAqFnCE2iSd0J RXC2Kd7ZQqmVF5fi1f1fw3TjUWyc4U0O1Jxvb3/G+N+SVj9FT/NpY/dI8N4L iLOfEKmrVNHUFLSB38buMRDcb3NaGOPpmsqB2eE+mMF44vNx+2D0i3ToDXZ/ tHXr3tNdXTtvUCcE4giZM83NzRgoJA0uEvmSI/X19aqjyCaCZ4Vy2gDeCdP3 8wsE1nPFydnf8hDul0rgHslYzOQ5cLO/9oSqnDUsO1JcseJ5B+g4GGYZYW4J BsBOXH2c2erAncSCoft1jPPUJadMlpFObyj9+jYlwXT69Riyw1uSnmRFmCI2 KjthOK8Z7xRleS7n6dKOVHKeD2OdjPmkTijDtijqhbubX732T2PKB/qSAMQT VFl8h5zPCVttlaruAKAvzJnzBnM9zbNnZPfoffcd1zo7O0bz+Lx5R/Pz5h3h lBQc8Oj9AtaR7WCs3xSX3Xge0wwB5tXxMI+UxLowPxiFeWzF1o0CzP/NPw3m bjpDhLk2r8339YVZjWSY1TAVUQnlz+uZgx7cE7Twb/c0BPwbKDRJCnd/Likk PbLC/lzZFAc+6H06R2UHrsq27pVVwv5cSsgrpxTRBeOSlPuyLmzf/ksu2Ojs fFt79RY2b/5BEeliM1pantUk92neWdi2baDQ2bk939nZLcG80srtIBbhvrtL ZwFe6gCHdzCj3kcQ2jrAKadK9HgM0rV6wJCaIvfmhMe4TuNYGsJDd6G5uW9c W1RCevNBX2xTWTE1rO1+3Z2xsPbO7dlz4ONdu5640Nt7lITBpk1PUkhGwLY1 DDMwe4D1jDhQz+BjFcBoYkpLy5EIU3AkwcDAEFueE/80rGleRj/AwKafn1y3 kBWyINU8+xFY9/XtyelyViQ9kPCYO7cBght52yWcDYbuXhRikRaVi+lcNBly hdQlhVuq/svta0jynDPQBrMxDLUn6B3J088aXZ4T6B2EKr0QLamN0tubUPkV nTuJnJOT1KmTtWv3R5it/XulvcZUHMJLNgMzQhEZi3avSBxPAuYBczyTv/vu rsLcuYfGid3g96j+23Acbpuk1gs0w39+BIbQn7cIP6FQaRIiv5g9+/9IeGq+ cMstPxn+zGfev3DHHX+RyOJ/Z0YFuNv+GqnGdTm+L+R4XB0F30J3mZmUN99O skZ3/ek0y11RXtrWH+F4OlJxtQMEhxg3FVdp5R0Fp4HzR4++YvbOGOPaVh2u nZd7e0+VctrG8TkhG5IVsiHuuRNR8e27Bbu4vWQwHAjJj5SQ/NAGw6Xmwqin KzEYzrDwJj4X9daeVt2Wzz5Nvb6w1VcuqO1U2B5x9tChQ056hFFtss8YMwVK 57Sudk3wVLPyEMdUA4nyIn6BitKbwGiX0Pnm5kGi9PFPafyvlpa3Tx88+GKS 8xzwm7qKrLak/pJAapUUSQ/v3XuQ3vsj9J4+wz5SXV3HzzU2Pnt248ZnDLnP tLY+AanN5M5Yct8YR27tlZlfseIgS2zszUHuamijDWo3q+0BnGbD6M5qgC9Z sgzfywPdMwWAZ4RUSpWQxi7TKnvRomeY3DBsSoXoLmFiFN0VcfmTCsVvcKfE 6SoVx29vgte4wbe7UejmuWklT860SAwPeM6abAsnvefNW1/cskUd9d3Q0Bj1 Kc6FD8bdG3w+r0DptCC5c7rZ7M4724FqDLogGmjTO/mFL3QXFi3aD2aTisSc oXf7ED2jw6y5aQDWE8RuYviRy6tXDyYvMjDP0efHbkbeLqS4n9DApDeumX4T GIkk5uSvafLOfu5zfx1yffSmm95NeGo+/eUv/+0hk49JKQl/qyvhZwhyvaTp gqHuon/P1dHPO5u3hveN77Os/5uroD9qTRrNxwSxtRL+mD5/APVmqsjWIt/c JQzl/3Hfvvd0KVrKOJsao2aYyU/09BwoF9IsmfgThk6/8847JYrctma4vsyR LUdfwHxa2HJUpgxcYfLx3r1vmd4ToN7YBrKbqfFlbm39Hn34DxYJ7RlgPeFD fbseWWVxlswO2UFyN49ySbewXYR3hN6TvEL/M24ujuW61HD79h0u0gMmeoDT 1vItLe3j7e2HQe+xzZtp5Yxu3vzDhHe5o+P7Zw4fPgF+J3z2DvSMt6nCdJju Pgs7dSfdHYH6XUJVh6+qOv5/4t47OK7rzvPtd0MnJCYlU9Eay1awchpZokiR FBMIAkQkACLnnMFMkCIVqCwqZ1uWPePxvPF4dmd25u0ra6u23uoP1a7+UE1x p2bXfPP4ZI+XtrggCQEEuvv9vr8T+tzu0yBV+6aGVeeQaDa67719+3zOL37P 7do1NTs2dgRjZmjoqIuVnf6zsfGVU2Vlb50sL3/lZHX1C2J597C8q8053CgO Fvebci3uYdmrpaamixf34uIjyYqKoRS3UJQrO9Q2aJOL1Vz4UVyWLUP6xybt TFlkeQ84UwqM5V1GJXVPP1BlzZpaXtijYnlXu3JeKD3L8l5kCVPmi5Xd9IzT 7y66sntyZZebc1nClr2yRy2+lbx0Sola3WlHp6OfLJyuVvJc6hkRlda3kW75 tWt1ygpecJllgfct2/AY5giv61jle1PbtrXC2KHvGBZzP7F69SG1EceYrq/v D7mWFfzmXI6UIZ59cxnHeAkiJ7FPGLGfrlvXrxbyUEQs4ifvuec//uK66/6r uYg3XWwRT5d7mEv3eHDpzpm5939/s2U6ELv0c9ZExM8aXcjZiUy/jTVaVSkr BSRX1Nup3mBomAh/sp9usa+kQHSLfeSM/Shu8aZELeJHRrlcZswyUN6x1EKc zJ76In8stxfFiHeqZtTYpqebUT+bmpiYoq0gmb8pWrPFwu1eGBhIN6OOWJpR 51kW7OWYnRlxEehz4uJjtOe5zGLSFEmXiVytebF2eOYqcLRL/P3AANq6/u0f Rkffnh0ZecHnVduba2r6iFaH12b27Hn61ODgu6INYlS1QVQDCzkW9oxsvMC6 faclScQRrbrMdRuD7DOCFi/ecSze6O7FC/i2bW9+WVx8/HRFxd7T1dWD05WV bbPbt9dOV1RU3Z5r4XaE2lCyvHw0icUbo76+R8sjqe04Fu2M7Tiv3o5lDV+R O9oZ8LHkyTW8qalLRzYjcg0fHNyXKi2t4tU7JrfoGzZs0mt4WK7htKQladvP a/iy4BqOXTrd9dlruC/XcEQY5fptruF+cA1PitPM9rDE02t4MlhaZ1vDPbja U42NTbQK74TlEcnVRIflidOdYmVLMCzU7GSXDW+lgyWUuaqLvmHZ23ZZoZe6 4YZDetvuyhmPPfxwcaqkBBtYLPVu8tFHp7B3N3bx7oVNm/ZgmRdLvZi/oMur F/zv51rwWzF5vF13scpjjed1vkCs9ifo+p169NFHZ/7oj54KxbDaO1jsQ+6b y5b9s963+5Z9e5HFPWMrfbnLWPxH0ov/opmE/494nrXGxVz8Ixb3jK2/VzS7 LkQBQCa/+Ga3s+ldu94ys1eUokpAgqC19R008kn0948r329gxx6x+NCjuRMH sZLrVd+2Y3fSO/bMVd8SDQ0mHcrQw/nR0aPsnEk3/XaNlrm07qFRLt2WPT39 AAEG7Z6ZBqpd7vTExB6RrWPbw+elHek6eWWpRoK7gMB50Am/wsKFpeJyJgYG RsEAjJCDprmsBvGWLtVxRKkOypSABTUuNDT8mC7Xzp0fO7O7dtHafq63963M DpFonvtlZ+e7021tk7ONjb3nWls7lbMmkMZyM+b4CQ4+/47+4zSNc5AqpY+N PqBDIXd+ZOSJUOGFvr4jhNWjatAG+bnE9u3HaUf+3ML69U/OY2zd2jy3dWvD 7LZtO2dLS+vPlZdX35MGROxCTU2ThgEG+vsDBth9Ct+MhEEYP15lWe5tHpmY zNimTR8ZaAdlmrZqsLOHjLVuXujjernfyL14OH5oWe4vS3tkfNMjwyosZGjQ G4oSQ9juco0Pifinq7zovNTzgu8kuGoksMLnWXzothU+LP0vqoCwp2dPqrKy n1bmSnp2KUdwZU6j8N+oupn02q634gkVPMWyvkIHPz1L5qFs+JO6/fYSvaQ7 ckm/9toXUnfcsSVVXt5KF5R371jS6by7aZvYOkfjfEsL7rde6Xz5DOuyWsnv tDhfduhF/LLgqn3mBz/4AW1WaI5j6eZ9ukw8XG2u1QUWf4lZqxjISDQX7KH0 Ly6affj/frMFOxAXtS3YkZwFKK7atZu7f7PzmhJqOL17948vUahhly3xO2zx uMQsu3a5fsMvz3wx1u9A7NOxeFziFo9L3LJ+e8FLxC3PRRvOmGrpa3Zl0718 ZdtzXtEHHF7Iw1hNVTNfWpT3Y/3Ftp6X8yWWQGhh2geDRXxGpKdkr+TLLWks S+SFRd24qv2WnX7PDQ7uog31wd8NDLwv23hEIO5AdtV7WMWxxccafqGn53X6 /ZdCLi/mkenm5o/NLuhobImm41BioOfs3EmwOtfc3K098Essi3oY87IT4obC icKzA3f6SszOLFcDzA8N7UoODx/SY2hoKtHaesSlRfQJWjVqa49xwTac2uvX H01u3txDt9bWrTtpqaVFfoYWXYzQvVjhQ/7sAw+8Pbt+/VPzZWX98xUVDYnm 5g6xi4+lw6V6e++J7b0Kn/JKv8h6H3DRROT2fsOGSb3euzJ+iu29UtGjdV4s +YiibkpiiaeBpT9uWfWv4E2+ZzpqsNjHL3GtD4vN/Rx+lQ6ZF/gCizMmblnm hZs9njDaWfJobBxNNTW1pSCNA6dPcXExlG3STeH0Zp4LJtfH5FqO91Pb+Mv0 Su9Y0hkdHRmli6SW9rVrq1NVVSN5vLrHUtBLgyUFPTWMxsbBeRozzc39tLvo wvIeut+yrG+RLo4sn/q3LKu8x7N77tZbB7DUs18mqhf9DD8779fzczvJeeOt /nwonhfIoTEZ0B9kQM7kx99cIgPCFo+NreFaxLJg2hhgE+uRbdzPjY29B9+M 0cbdNdd+mUqHDhWjwYTpDBeOb3HhxC2BVqFh4aGfF35/AboZtCpK2QvTIaXQ Rr+SHVxVL21mqgsGhE2mMAvQ9on28J7R0t3oq8QYGBnBzqhPeHdYOHV8jp4N AkwPDj6Plu7/+YUXji+zLP75wcUfLh3W5Mmx+AdirYXBxZ+Lh3x+Pd/MquEu eGgSKirvvZPt7Z+cqqr6D+e2bfurr/v7Xw2LTfxsR8e7p1tafvrVjh3vhRzu 0+nOV1Yem6+v75tnBTDMUdETSfWYE4I9otvcTGdnp17nH+TZJQANzNNY6O7e zZvhKW6QewgrPK/yTnqt5yYjyPnesGFvCqu8XOuT27bV0ga0YoG/tJhdLPvf 51U/Buf9P27Y8Mrp227765OPPvrnJzds+BH8RWc6O5+Z7+oaWaiuHqXXoM2+ nywthfejsrIK4tO8/vsWCqxMU+C8hQLayeNJCmzZ0pssKTnM678jq9yx60fb S7o7EjU19Vj+QwoFGzZoFGDkSyeKgQKMKwUNoGqRlO1FMKLfZOcvrQe6Ymck FeawLuZb3DsqbmoGX2U0IWn29BQ5+5EUff70mdWnysoqeZSUlNGlRJ3AZpkp 45kqGBiqxEilugMOl2s4hDgJUlsBKgYLJHz/+5Wpu+5ag/Uf90ZM+HFSq1Yh o3QXHqa3xIy48+TpNWvGUT8feiiXz+Zhnu1O+usEGj6ja3XyscceYyhEMOcx EfyTP/jB3wEIasCNozz2AZMgHFzVM9WL1KqO3b0s0Nf6GvjzQRAanGxjQqPH 8vK2JMt/vkRo+JZobDR3l06srtNYmzJqd6xqSCz2gU6knZ3vLEYJdClNDAyM mJQIuHw8i8vH3M6rIK2kBEwGRQkcsCGOpM5JU6LA4umJWoQ/wpbQR6B+Nru7 vZuEy7m3txdcoJW1p+d4yFOl+mossaTd5GX4+oGFBdHpngExR0vseURtDT9P ABActeXa/ailJYpIyoxyqz/ZuBnjRHX1p58+8cTPP3399ddnJief9YAHZ358 /EnhzErV1b3DvfZEi1J03BtIQhuSBv3E8wJtGjUe8ix4uF/g4Tydxwxi1xA+ dxZ6enrYEdZr4CEXMjxGBsozgYzi4iaHmeGDGfTwjmRZWRWNSpAjFAc1HDYW 3LPoJYplEfi4DjNn94RFts/nW7e+c/KOO/4DD8IJWUPPocn9HEhYVXWASUIL TW1tB58kaBjj2V1ATz1s3rGOeJivsoR8Ixb/kctzNLl27RNMEtgQIyOTiiBc MES2RJ5wH6UMeNCHQHNBECEq9CsMCpfM0p5gT2YXJJFyTWas10oSDvz6Z/gC 0qHbPEc2eLi54OEYzfgkPUIOz2GTIqrrFQjCtsUSw7ZQXqQreI7qEMGaNWtS 1133YurWWxuZGIjvEhiiBjEeeeQoBpf3DvCv7sX/Jm+9tXf+ttuaZ+6995Fz DzzwwJkHH3zwFC370RNkIND3cu3atdqFdIcGy93acZTh/f92GiOwMhgjcWFh IBKgLQwZ/5295Zah0/fcc0iYGpYAgTuVHSBwcxLG2mY6s8+VNEsCIWVJmHcw OdeHRHpp6DuCl/h5tTHwsy7NvViS6O++GYcCDqxFOGSGmxWHPoOzPFh6GzaN F6W1ghwbx+iTrewYpbXS0fGCkesyiSRzmcLoqibY3D7BkKHSSaL5FkdWnkjm B5VAJDXOiu19IAwNvISKLCFnWxfYsMUZ5tsriX1RzYbSh6/Gxt5UkgKy8ati Eoggq648osCHn8OAePbZn+LxqCUmHdOcykuDCSAywRRIJ4pZ3FayezboF2wv E4oCR2b3WRzIV0NDb18YG3t6YXz8qJccGztCt93o6BOKThhJWq/JGmMiJerr uzSRolKBD50KJZVC9waJNAsiRZhI4URTE5pwv6IIBCaBSB6DyE01Nj6FIAQU 4UKCQi6tPDuwpoFAdNPwTAwqB4fYjsnn2WNvjfRjAUyXaR4VijqvT3fuPHri kUf+d/Boev36n7mAER1mV9c+un87mTz5gj9wFp2pq6vDoKtJcwQQKswJoTzT qcVmzNat3cnm5l4NHizc27aVGuaLK7thifx3D/QptNPnctAnKtZ904KRJQCu mWjEhcaZ4HGkQwttaaUJE2IO0amWlJRocyZmySWNy94Kj2dU7TKaJYtk0xrG kYJSZ+cY3UGtjCOPZ5cb+6BpArKKVlhsmCvlpUAV2x//cRndGbsRb45o6EzR rx6k+2K3hE6E3mKQiyzuums4ddttfYl77lm7cM89j1y4//6HQs4s4Yc+L5oB omn8VAgc0RJDAAGPmElhC5lusHjB4mLlXW12qblSc+sWC6gKBKim77mnUoMq LEH1ve/tmb3nntLTDz9MG2yLZ0z0xAk3GaAyo9G22EZUHGCgDmwROCnhGZro vUT5b5jfzP21fIz/SPdck3wOP8/5lX5M/4lbXs8Pvh6T7vWLk47j8acvkXSe JbZua+htWFyadJ6FdNzhx5H6s7JqIJBGauiJSYUcllcMC6TNjo6mDS3HEpsp sMTWYzK2brjj6GuLWYSWVKyH4zUOqFZksbMiuRUiLEUgwcpsN1jMl6UQIfvv SoUINrtMn5hwiblme3NVbxxAXNgSoynIDbvsNhu2PpVxS0O1fJGqy10nnn76 6VNEQ7SmRHve+a6ul10mnZcE6dQg4snm5ylphpmmWHLnzq5kQ0MHIy+SBt9Z tJYAYu6ygC8f4HOS1dVv0CqIJmeKfEQ9X1Jv8+YDYB1Ix70OKj2BOeWqY8At 0+66uCbbFUJA4ouSknfObdr05+c6Op5SN/QMHYTGWtyCtSs01tycWIvOlJRs p2Npxkj19AwxxpCfK9rbbko74jYqkmG4bFC5KjLPVMthWa0QllXCbNEWF/2E NOok3lzNt1oyHWvpV+qsZIsKsimq5cyljQU7AymqqV4ast+E7E8nerLB0qqp aWRra+vWanqBYpy7I0UkZcYs8225wTcFeWFkod9kIy13T6YqKl5FWySHrLRn HAm50tIhRGwYbzE5EwO5RR0BLnX33SWp++57NHHvvQ/P33vvQ0DcHMDmXGDY 4d+zcoScc/zYtLTCGH1X5QbgF6tXr9YAtDWucPQCn9W6rcmEogziZ4eL7rAw cqnFmPPkDEbeeefO2fvuW3963bpBnzEZUfm9ajz86quf2Toeay4ywKRvUNtR +CN1egOZYRKOb6RhBnjxicXSMLs+A3pT8jkp8Vb6Mf0nZnmefL0PzOe9FIRj zqzjP1wiHF2LOzJmQYJvyWPwc8Ex5Ks8Bph/SNOF3GZI5unCO5ns6ZliOy8i ChvIQGFJWIUlLvcosth2NhC6aRBqrKnEBdNsLbQkKYQtSLSZwSLxLmLWt6va SF3bLnKqw2R3vs6t6OWY6+390Zejoz+PCQSChv8wNXX8tJAPzY5KFQnczcJk XQx3vsZdkaWrktBDcr949tlnFd/IbufWJXSwT4Bzasz39r6UGB5+Evt1+Pva 2l5iy27HjnGAzgnyjdbaVjLdMbuJxkYt4iFVkILMu10wbxoJ1PTYjOiFCmMv stDePg7wqaHx19FxOCQtvmR7+0Fl4dFtrtj3LWHTgXYKWODdtVIwydzAhdO8 A+WYdFEL727k2T3R0NBwoqqqCiPk8+zN3HPPk3OrVk3OFxdX0UE2O+l0A6zf aSPNzQW3HIbbcgvcCiRe6EJxpm9NTR1djJqaen5eHfGsjpOS84P2GfMrYvEY xoL2mU48EB1D0rbY449vZUpFLKxaakk2uFyeMY6Tbk3wirvLPs+esSf5Mc6R SYmAZGvrKIeV0jEkTxtmkllO6v77V9HhE7rm7r//wXl0uvcWWOwD/wbAGGIZ dhtD7BZgKwZORUS7+8/vvnvqxPe+99Yvli37DOPNvLx/Utm/q03nnoCWPUZ1 r4VHKyzpC4602a6//lVm0m23DdBjRKWQCy6dXLv2F4wmacd9/NBDn/+iru7n /6W19VlrC36RkZwlsfSB5pSEkLSUmkxo5KUhtHoxuNggpDRRQsIa42fki+f9 ynye0fh/0eznr8TzrE1GLBAKJFIsAqFAIoUNQkIxwPvipZc+MjWmwkaiMJk1 KI8OCaPMX6CflcbU7/bvP8b8WWLJi4imk+SUX5FuUuZPIIK2JB1BgwnGB7nE 4me0NbK2nboUBFAqKKjHx2AzTMigRJQMCrH25xcGB9/lLn4TE8fROTUUsYsB TEPuyBb5Klo8NULnxbmW1Igllp5Rsn81kUhcwbAyttSAJgCtFc8LCEGz7Tkp BdCbqq/vpqWlkzYLRB0bZm7l2TMxM0+QuQyk8di6igSsKwygpatrgkEWBVoc i1m1XJhVdMtGzrDM8qn29nalxgdlvm9ZmCPLT3EtFHdCYcEcSARq5nxHMOcU rcngzietrYRUniOfbt++9/N1646ffOCBj0+VlDz3dU1Nb2Lr1orkpk2lqiCR HYTStOKW+Rs9C3uKguxJSfYss4Ss8mSjVqNFK+TxwgI/yfLyxvNlZTsYPAUW 96Ct1FyoAHgqB46DVISeuDSb6uqaiSqb5IDNuIGoRC8GyRgdiDJ9gCsyuMN3 pJwnJg6kyGrH4FrRIwI+ERM+bDzdd9946s47awAdeiJTJ3nffY/M33ffHzNv YhenDnsL7xbG0vSdd24/d/PNfbMrV35Az6PZO33NNT+lzdeVV/7y3y9d+qu/ Xr78/wo5omXIp9dc88mJ22//4NNNmxpCD1gAcyVmV1o4IArRhMfdd5cLqEQY KsXFP1W5EadWrfrb0yUlH33d0GDXdMnoSsKZb1k0kX0HV5uUcHn2lX+uSQ6m hm8xd6LfjDSB57lp0qj3YfNRvVEAQYZuwqL53P/zEhHkpO0gyFXzChzP3bTQ 2vjJYgeZdhWtSu8bKl0RQ6Vrn+4GjmBAf/9QyBNcmh8c3A0mKQEbbrRSZMnE iKTtIsUmolq2XWRwiX8fhUNLLK5Cz6LQJa/HLF5fXY+4cJ2a1wPjy0OHnvzv U1M/i6SbmKNpgFRQELNs6m3TUcAwdRQSHR0HGEhLc2LJMxMycjkCl6SzM744 duwYkymiycTZLC4LdHnzTU0/5F6Fzc1vpehDchlLSD8/QqvWcIrNH8xhYQkR lFoUkkI323H0LZF3wVEuafSEhO8vLA2ffbRgIcNxmNY3pN82x1I6rkVc4qhW qEBGtKqrqwEmNZYzoFwTUKHLpQfQpFPM4gH0BJ3myIjSdPpuTjp5INOpRx/9 0Zni4pdmSkp2OYnt21toc7JlS2USRpJsNQhAkQGiwLTcTqKlFhJFLQ1rPVmg 39raDyDpUVHRgM7fiZKShvmtW+vOlZZW0eessijCFs9eJJ2YTe8wyHKwUW0L 9SoiccPYTcwfJhNbRmk6FVrSJJZLOkEISNHJwZwnoQQlngcf7EutXr2ZljUm D80/AG+YOfk8eyZ54LJj+NjcdbcKAin6MIGiPIdn77jjl1/edNO/QUcTHnfc cezkvffutxk1KzOMGsIOgQxmTHT29ttbQR01ph9+eMep6urXvqqsfBO8kal2 8y0to/+zsXEKTiksylKeQcWa2ER4XzwWKKq8Uyznr8rlPGS401wLN9z08z6w cGNRvtg4pJIHLc/7tWIQ/njp5/0q4331c/DnaBBLOVPMz34zLAWyNBbBUsDd tQiWMrXU5oaGDmkttTSW0lpqRCt0JIF+JHEJAx47aEaempz8axEIsrnrwhZ3 XVhgSdUY8dkIcQrPjIOJvl7ZFpNr8dgZl0SH8+KXJv2DIbpQio4IZoN3/BtW FW3EgCwP3jyACjoUvydUMaFc2YW3qelV2t7uwggtyY0ppGfMylQMjMssCYNm R3TiEoZSQVJmE6R/pOxPmBnV14eN7wHaBO+lBW2c0NTig0+e4NM8LZs6KfAm S1LgdQynvIBXbseOl5MNDU/SHTFGUBrRYOrrG0xt315OiyFxKZaNo7PEi+uA IxcUWiogdMq8N/MsbjnHAqGbLRByeI5+Vl8/dLqy8hkFoYWyspaFysrmhdra Bu7wyDkILqNGeejCGkYr7DBaAhjFLFIVoqlAXNNn+/ZG1pvYsqWORk1q69Yy ItC2Gfp1yPAusbjnPEs2uOp1iLLPTG0f5IbAvQgIRSSKlKYEZ5drFNkSvkUv Lp/wWKFQxGNycm9I0Wjjxn0slrFlSznXb5Vzo5kSotNGGutTP/jBo4n773+Q rGAW3lU0UgGkGR1EuhkYijN3fILHj8Ge6dtu+yvmzne/+1NaIIg8ZPyQ0aNT 9263gOhaIyNC2j4SRD6yIQCgufXrt8/v2NF4obGxW6bhhUGfs7W1z8EIgkF0 4rHH/qqJ7jfRxtwz22/BKngvCCc2FIIgarpEcPzK8rzVOQDTpIDiNOV6Xth8 PQzlxlOpG1lvl6GqkTM9/XxO4PgmcDAABzLwF23XkunrsKQCBm0pkejgq9VZ 6c1BtJM7pWRmdMtG8Gg2mxgYGAdplCJSQIIj35Is4Vt8dBGLj06cY5boXKZN pBMznNwqSJYOPVbZDZvvL9DBnt9D5FWETSkOluMYGnprgS6cUuMwiIORoCWa NpDZGevL0y1vztA1mcbqdoUFO04QOxwyWiGu5fnh4cOqfTsHfz6gHUF7+/O0 UThIn+FeWlB2E3r2oDFwqqmphRYxYIfhA/TMdnbuOtfbO3ajJQfiO9Isamh4 ik5pil52nN4Cs5/s7BwBcTR1uAkA20RRWoIrksino1UkiYy/qqqa2R076hSA bgWApBYSPHW6RXDcwiNRu+abLjuMWYgvf58ZFAV/PmtubgZ9TtBzaCMw9Nud O6fw9/+kdwnL/u9VVVUgD6jC2ueCN5cF61BZCsIBcQosQSBDhM7jVmTbtk2m iovrQRrkPZZxBve2JNGFoFOyQGNu2zaGz1JLdoNjiQv5BnhUGoOSzhDtNCdR jEqoSINHymaECjV48i1ZDIXSH2mCZ3z8UFwyhz5hzRyfZxQIl9LYRqMEHdWc hdWrV9NqQyjQhtHSS3TJ3ZjTIPJmv/OdPwGYGE533vkTVzDpxA9+MKqZdKuF STfI2iT6eeaxx8ZmV62aIgbtu7Bjx975pqauRFub4pA739bWf7ax8QA4pLP2 2tqe/4TutTvxhZNAytR+l8ndgcpVCaTjaYD8OhQETcDiEYTw1XPU4OdISaXV Flg1ma8RucTnGY3nbRl6fPj4M7MIdCCfIYGhnGRW6DiWbXw0N3QClpIpcqqq TAcHJ10Lb0TCtvv78fH3poeG/oyb5jBvCixWjWdxtkUtzjYDMJlSISFh2oRt /4dzKFy8l4SWEfEsvjtRqRVXSnpqACeQEUlMTDzFLS4JJehk7FkMGCTq74pb 8u6WGg1zgAtVYyuBEkZWuQKKCZIrZE6+TGDQMiBdXU+zAMg+msGR8XHEjcfA EDZf6IMhfMx3dk4CIRjTUPW+1sKRW5gj8URn5yDooUdHxyi9TR9tN/qYJY2N zeBIRCYVVFTUpaqrm5P19TvpErQQYDtprWhs7OTuC+2gCHvWbrcHgCIWmhQG XWzcSeYOpkgEFDlFvwZqYJyij/S3dFFmuru7aeOg7BYnVyrBCtnN0eCIbkCZ L1GCXO9M2T0YE8qWicm+OVVVx5Lr1h1JPfTQAC3JZQSWUmDFpamE7gBJFgz6 FvJjyrxhyBRpJ5trcbK5Mv7T0TFgabA/TnZlE5xqedrHtkHzZZnmS9ySeaBa wSOTAWwBViRcklu2NAMpGivlobABFzFQ+kvH7C3wgRNpllnQ4uZyuF2NOQ9A ccAReuI99/wESDj9x39MawqQYsv0vka2PsDPdCXVcIUs4zTNM7StIJOmT+7e /fn29v6zra37f9vY+NrJ+vqPT1ZV0c5LIAXmjcIK7dowuy9hEVZ/MrxvvEBL xgQ60wcZY1v3V2czhlmQ+bzrzecJZSr/g1C2MRPKE6/xQdZr7F8cKjrtezYn VDxTuQRWjG0RtXWvsfEkdolSgmwU5bZgkKQ1+eXkpO7qMzsw8JFqxxbQdo1b LBnX4j6LWSwZQ7sqU0xQZR/wKYqkcC8gsZ3WrLLlgNsS/gIJdHm5FU6Sw8PP i875LrdWbmr6ELwJORI4LS3HNHAciZ3u7rEk2TFEHt2eIcCfQkv7Tmm3ILU7 A0ecEqddaCsFvPlKyiARmt6FGT8oit6NlBCYMHRHEgocBlAYADJVDwEjWq4n HO6wcw44QoLbkHavLbckvd0pEr1h1cQ0keRI9fb2JyWVOHeYkMSBoWaiX21t J12ufsJTPy15iGH3sae2i2NO3bM7d3YLWIl5pqmpg5aTNobV3doH5whKfUqn rG8G6VyFTiz8a8yn24WtA56epsP/kgbodFpe/rPIUaTXjItezSDVPMqaiouL VcOd0BWLECrPEuvJLU4YYdsHTYlAqNWrS1Nr1pSwS2zLlmJaGxhJCRNTrpiV MZTGFJl2RqqCamnM7YIQD2pu3m/CSdYBo6nmRmJLtgV0hcySQ1tksIlzyC1O uDwjW4FsIKZUVBpCzc1dGaxCM+vtilPskIPIORIG6foucMY9z1zxC3KxnXRR 59xV6SyFDJPIVb46QIx+IoyFvC8feOAAMIbx+WOPdd9kwdlVmD0QLBIkGEKg kmDe13QVf9PcfOSftm//6OT993/qnNy48a8dsCzkfl5X97ommJ+bYCpWxLR6 R+LHrFUKEMy3uc9EerdnMWOWGf8xZf5H7BI5NxlEVs5k7As5kaXFtmADSaWp sMkrs3dC3IIpW3P/RcQWyfzZqyhlqo5zSQ9RSvYb8tEmmjbaf6mWdPioJFE8 /Fst97AxTHFwlY7gpl1wmeAK1CvZRBfN11OpcxJcysxRnSKW5C5YDrQX9S3e POE5jOBscmm/hIQ+F4fEtD5Xe/uhDFgle3sHubUGrbCJ3t50Ep1ryeS2ScF4 lp4UUikXqXkQC+DreXV6O6CzwF2hiis0ySHPNTAwwhgjgKVaWzvoeEfCQhRy rqdnFLii1Z0+fJ5d/KzBlW/PW7hCOOjmyESZkSP0LZ7js62tu+abmvbNt7UN YMy1t49+1d7+zB/a258939Kya763d3yhtXUUNmY/9uwDhL+Wlm4ATI+mph50 PJqtq+udra/vmW1o6DJxpi2w+2WGA8Fphi7ijNCx5Bvj3K5d+/6+rW3oMyg1 koklfHb+NJlCYJkaAswyjVGyjFEWFRIEF+g7OSvHXFVV1Szqdjdv3rwY0+K5 mj8oBx7MrFWrRhhga9dudmXjTskxpphnYZmfy+QK5SmOmR691MMP92l+4TjQ Sg75dHlGFoPiV1jwCx2gOS0PZ7eEH/PY2sTjkm0RS5pDXGINMUGVcBeWWKP7 KVVcvN3w7/lZJlhxcQnXb0PjWKKNwZa/kMP7V4TZvaAyITJ8fisE4Ga+/e2j WYCDz09aaHTLY3ZNwIVutNDtMs7AO8OX/wxKx5C0CczFgrCbh06YDLYAdr+m hedzvrc+ges8/Glf32uf19T85MTjj/87/I1HPzlw4EBU8I4dgurP5TxnpXy/ /Y2RN6WRl22AccqfzAW83gK31Sbc4rmwObY49XTq3YI89hzU016/omBoSA3u FhQ3Fm6JvW8qSbkArcKMRkEqhZqRJ5snQeldIU+FekwXmhl++oenn34nk3M6 1BS3eALjloZKRopdhoGWTs/D9VliObewxYoNW1yBAnKsa2mq3nA5lsj3iKIl h1a9gZkGgTOCHNFtFHSLMNg8WGQKbMhbyNeOwIiljHeF0VFpHr+Bi4FLdY28 YGYhkye7ZPf3o056H7PMkUSTagoYYMnZ3t6nLoyM7PcJNs/TL9KcaG5+4cLo 6L7zfX1PO6c7Op4Puaf7+o6dHho6ihFyeHb/+8TEMS2F4/PsfUrblRPIUqdx mtbvB88Aah7+yQ/V1Lx2qrn5A58bbcfRYXC2o+PF2R073sGYr6s7slBbe5RM tD3KNAPP0FG9k/2pPWS19S1w9dR8bW1PyCPMdc3v3NkBuMFKe5CJ5p9FHh6g LscctzWeEZiSzb+Mjzh2bmLiwOzo6KHZsbEpupIHTlZU7Pq8tnbgUyInCAhz LnSrSJ0wERhy5rirFb5qfOvI3BSFwogIYdGJ1c3RmOXmEDy709XV1VqvzJmh tfuyRZjIWsL0f0ZQS8lfBnSKH310FDZdSAkZbNiwkdXMcjExnNO+i8K++xoK b489tp1LxgQDy5UdxxiMS8bBfkKXbilrk4E+NRzwL2xxQUYl/4aGjmj+eZJ/ ExP7UYJs8A9mXVnQrPME/BIm/JZohyTHurhgN6cbskC7IdMeSINx3vTDDx80 jbjrclXW2jBXYMGcm7bpvqI7Caj7dN++fflMOvcTWqEANQZbOCfeggnob6c5 oh+TbHvlmzDKlua3PNd/iNrjrDDZBxlgU5E4a055UjzvpRxgUy5DCbZA+AlQ yMvd/vui8pyiDDWMMiCQTJluimVCq81jCYinn377i5df/jEsNSHT5iuhn5me nnfPDwy8CMssVGBxJ8Zy0yrbKnM4XyKI4yJLVoQtc145Xs2sCCn7wFeR7jAW sHEALUK50uQUdVwiXVHhC8o/vb37HZoGo9oY61c5ePRe2YZXTBbJHjt2TKNr qaUk18nIqgDDrhUkM72JUuw+yuptkmQL3d1H6Rv0AtFrYra7ew/0MKXcA0sB 9fW9ruQe0ChcyD2EPDQLRz9ANAZEs1hmkMviQP6JsbG3gbIv6ADAqVOi0hbs coGSGWjY4raN8Oydpy/tGZRK0ThJH4l7QkQO6VjpO/7EzLp1P529//6/82Y3 bPgZbbUbG48H6nIrKt4lk+0F2gs8jebhtOsf4zT1jo5+MjA7U5B2IM6lQDi0 X+jmloGdxL4mHjt3NhYsIJECNl0jWXRNGKF8nt3zSPdTFt63hIV3ngCsWEhr PkcCwERl9U2TtUfcmwr5qI0IRadbW4+cLC1lDp6orh4FBz+hV+JgGyFNZBH6 52gxM63BedFFhfv4mkhUOAwJHvqKhWqAhSEfJGQQ0j2ArrYqQrdENvqGPxQs I06p7EJ6wexkD6Uoun37HpiHTEJD2EdJr3HKRyYPoxYbsZBn7+zWrWVfV1fX kLG1FXZg3GIGChyGExKFGonyLYuElWhikb6DCoy+JffDl2BEO8BAJZYE48DA IKev+Iv4O7dsKQEdBSElJyUjmZMrLD7QJZdYJhzPmR3izt544xuaomFhKSqK IkUkdLUFofk8+5lhPdA0tDxN0a/b2toMirKx+BtaV07weiMRSt9JjdBFPKKB mN7bgmv0YxCcqy8RnE2W511vPk/I4fkmR7VfVaLUGuUbTqN00Tx4fsv/LTdP P3vmmWe0XzODp/PSSLTxNGJxi9o0T0WSuIeX4UVldPQgOCpMQm5miE4WeDGW U9q9+3Xkg4fT4nlK9hSiHCyeJ5oawvO3X1uEttyQRXRQOdckwyK0FRcH0t0X waslOYS1VhViafvH8/nh4VcyVJV8btaBRM2RkX2swjE6SnAEY8OCsVDh0Dnu OeWUYhY5pSILaL2MkJ8B2oDXU+mcyBZRX3d2Pkdf+MbGH9IXmWxCgPZ0f/+b sq7MYzmOgYE3FWkFZMP0ob0PyKox09n5HhQ5PKGs9Lv6+h+drqv78MyOHe+R wfcCbYYH6dpnc7YQ82UL7A6ax4PELww4UvPP8JGe2779NUAWg44Us5tYs+aX yU2b/pSu9DG6b4aGpsLchRfVYM8SSA8RN3bxIKgCqXCgNtH3qL6+kdss0SC6 7nQSNH3Xgtg8gVhc0wQ8FGmcuomRkT14Rwzx3nCKHCb7AVXwLS3PTpeVvXpy 48anXUA15MG8BFKVg/V7Aqno6piFVCFw6imkKpyKBEnPpOkMgTAm5PXAL9AU LA0tldn5GfwMS3zSkpqp2Jpsbx/V+IwJ9VKgSUmmQl3QRtCYIOgsvbC2KEVx sw9bOdHe3kM0Q+ZlJbFtm64Jk9XK6XzIMMgphfVkCDBUYAGorwHqWjyrrpzX ravg7Hyg0zEAumvXbvSJ5LQWAdDSLIAC+AqgngWgV/LsmQCFs7VIW52hcGYg UblafUsoMSL5ed11x2cffLCdyRkV/ERODKxPJueVFn5G7WkxV14iOi8DOqU3 Fen+GlvSm5qZ9/+WAE2gAO2OADizgVhwiUSVpMx0x/4qTUqLNToQxGRm9n4Q k25uTLLyT4bxpcjALW7zczPSJjhr0QWPm2n/GMofqzr+wujEv91gByjm5sTE h+mMStH/NkuGsK3tzcTAwIQJzECJmCFDmCk+G8hxkQ3mAUEValTdoLKbyWe4 UGOWBBdDKou3EiyELYA5h0WV3oNRqWSsOjreBzDpXJ5IDg4epLGPzKbx1OTk bgZoX9+AAKgjHat9faNKyurcyMheVzO00CJjUpCrVb2NnNflihfKFwB6z8hB mwCez3V1PQN8fjkw8CdSyMRnfDY3fww9Qq1ixe3qaSYD9lxLy8d/2Lnzh2dr at7x5isrXycM1tQ8P9/UNIQx19bWdaedjsuZjmHQ8cLatR9jzDc2TrFxNDy8 P8o8RNXVsyxasmHDUzw2bz5AP7ckKyqak1Aa3LGjnmDYEAURXdDwTkHDJL0F F+MykHh2WZdWpbyLWqswfUhTyebmZ/Am59ete+r3a9Y8eXrz5mHn9NatraHw P1RUVAF+aigI3pQNQUBjXlQ58rsxBOkzmRNl1mxPmv5VRUGlFD6NHsVoWY91 u8iOQd+IOGaK3g4N7aanbTcwKORhdVqmTNUkHIKGOT2tccHFeelpBZ1DecLT ilPEJiLR0dGTrKvrJMu1hRmJ9y0tLVsqg4uGk5WoJ+goLcucdIxoOgoNqzwz nYbHI4/0p8rLD7J5qYjY2tqGjvaGWZlNRdOsBBVLMlJrrssVeyxY1BubhcC7 7iqZ3bp1IhQXCPysurpaVxessCDQsyNwZRqB9O1qMfJqNAI51HiltB4hAn1x B2xW4cGbFyPiYqaf1T/bdAlQ/MB4jWziZpigXWlGLlpswL/qWRgp2x6eoLvn DHIADFNSWVDKarJhMvyNpHmtSo+BjJ1ItkwvZ9uQbaka6sKwhNIjG5SmjouK jkUtTtuwxWkbsRiUgo8euIdjxTngdZblzj3CU6WRfRr1YhkikthAZJAxcpbA AzKqAaFHouJrtCAf5qo+segyGdVgQg4ODjMcQwg7jhDh9iqJR4Tf/uHo0WPs uC2ypHzmazTG0nk30yp35nqLu5afHGfueafo9D978cUXuWHxwMDfOSd37PhP BEBDsOWL7u6/psvwbMgX6JubnHx6YXDw2WRt7duEoTc94tGr9HlVVz8L6Tw1 yFzpDt1q598KYR2eR8YNqgWQKupDmIWVpya4AT4QGJEzDMOSkhcUBHnpLS9v TlZWQsWrqgqyWzU1NQm64zEInco+5AK7BmCR0XizBZCunM3WthGeo9wPsqzs ZVp+9ycffXQ0uX595TyNuQ0bymc2bdoWlrJdQAVxjEWAfczX2BNxOA4pxXV5 G6MScYSYvG8m4mCcg8t1iXa5FtjB6EkwdnUNZbQNcaVc5GQSbYHzpH0oNdMx kEbjWdhoFEMoPhIRsm3GsKi7A76/ppEUwrRCKQQ9RiDjxfFYzFBhKSu0YDKS xqQ2IvMtmIxpTBLklf0ImxFtgOGfBxXhbIWmQHHx9kXJWFwMMvKg5wky0mNJ IuYCEm1vtDhcDWNR9xSe+973ekLOhZUr3/clD2++eXD2kUcED2OChzMbNuyG kx9cDC2z8pAu7nU5s0qD9Lva4jtl+l0lOBBwlkrWBYrsgqyzujILmSuWLFEJ t8xQ4tQ3gVv74nDTRQ/8q2EL3PKkn5RuqFP0wQBwmQkjbAAW5CbbRTWMo7n1 Ky1ks2kYe0y4sbEPft/f/0tQLSylX7q7n1FQw4ABaG1b5Vu8pTFL/kx+Gm7q 8PFvCTfTrDUTa/MtftKoJQzpC7Nvhn5FgY0WLE5fp5ebkObeQTIFuZDWBBz9 hDnGBdJ9ff3EuBEkt0CkbK6399UvBwf/FMYW60cWWfJB45naLyqlxqQbMkVR w3yWI7vCoAPYMlrus87L5729f6ckyFSnfhh6iDgKufkIA258/Ch64asO+AAd OpPTSWJ2TdpxQ5LBmy4JdbNAXVyirr7++WRDwysMOWHzebT8PKsRR3hzUkQ3 hbiqqpoFggsGfQCYLdgLIel0Z0INot93BPQAGzSnTUNP9CP0mHKPP/4kKEfL aqUDzHH3workxo3bVAv8SBp2C0QkDFqRaY6AeEsWIZ6QGPYT8CzS2pagZ4J3 MAZp5eQ2i3MEKJVsE1pm8Y0KReOIyT6VdwP8IbZIS4hA39DQXq786+zsgsQX c8+T3a9MlXppFarcm5zkKxRZOMoqJLN9+zmi3RzK8Gk4KPqmLQN80/StS46P jyu/M32zB5KsYSowSIZjXZJOi5u05EnEGTFIuqDZ/tQ8CwrzFnQMM3nvvbvo NLfx9ws5OEQ/G/jw07YoSMcIdOg2K4nhel5r94wWpKOLiZUr38Wguw5zeH7l yvdAvLmbbto1e889a2dKSlpn16/fK2k3vWNHD2h3CvddIdPO+4S+D+gjcIJu VAQKb1ycdTqp9PpvFicMVE688S+BPtt/yOq+1RburTaf1xLkXs7KCf7VaG7u sVH30EMPZXJPOSut3PO/mW6zzaLD6336wx/+MKdus6EP83V//0cpKHKGpSUH TZhgnqOLHic6XOhYrDsvNwADKTl5ae+ngqAqebSEEANJt6piQl2zQFaOEZrU YcOwwCFsPeUJJXhD9tDCP09Q8Ouxsafnx8b2o/tjSMihxUw5NCaRlEI7+eST Pzu5Z89fskyaLcs0klssJkBHjiByi0cRloSdx3AsFIg8QVdVI1IIr4VZrZMO 6rfDwx9/PT5+THHQlf2JUbwuUYgBDAr80Zk2NWGt6022tnYlWlvbr18UiGfJ PAAQZ0TbZbqRHbwwvZgkoowJCn1OEBEdD8FBlBbUuhqJOzQSIzx7JhKx3goq uiYVQzcwEn06zFZlB/IYHt5NmxVBxa6uI8r2S61d24jK7EqyzzdsKEtu2rQV g0ymLZCJgZQzKBkQ35SYDF2mEenaEXkB1yNPBA8TfX1DqYaGdroUDYnq6gZn obqa0D1fU7PzbHV1DXPxsiAd2WUaZTqGbXRMbts26kowDg/vYjCOjo4JwU/h KYUMZrCA3VUBRJOTDKWMPNUAJ/N59vAzveu2lBwOt1TxEhKZQOd5ooMvQ7IS kQxIL41J7BCEbQxYRi2sjFu8q3lGiYdiZf6CyHNdswZyPROpmhpYiL04gxY+ jyYa9QTGGu6HTUdbGZFmIYxE8JNQyQOG4VKp6Y2sWznEvmRZLl9qRLRXTnz7 208kr776XTUSV1/9XuK7351cuPPO4oW7736MU6adC6tW0SIyJ3NyGKg+Zkck iU03NbX/dufOZqaqj9kFWgmwdDXRXuQzWu9O0C31R5dYtXHjN3OlZpZqyGb8 KsWVkRZkrDU2+C/H2MbFGavTWflX4xbGxkVVPWxLZqzkrIFZjUUbZj1LDo5N WiVi6V3pWF6PO7x4oj4R1XoqG5RWxuegKSojib7JVxp7kv39k2ySjXKnfq1S jRPwLU5TmSHzBYFCH088GFQMdKYxY69Lgn5lhdVCS/1h2BJXjFgMzLAwMBND Q7vYwBwaon0fw9SfHx7ei85o8Bpz9/+JieOiSyXtPAYG/q0SXwuFOY4Xxr/x mGKdynsNWzJxCgVHs4s3mKOyYhG2pQ4gSnsTcM3I++Ew4u+6u/9iRqqr0eEf DYlO/1F0+tckra/fl1Ku0+bmPpQKynIKIlQHOMosverSibqcTUx/oaNjAu+i Rqq19Sn6NgioDg8fpJtmkqEa0VAtAkUdtid5HVYpN8RFFWa8WhiUJj2lqorQ G4AtuWZNN4DJ6pZkRKYIl/R6NHtCWE0xk4lp+FGhWMrcvIZnP0GGAR1lNwaq MhOccAwFNJeRmZ8gZtOD6CV+MNHbO0UW5mQCmuFVVQ20PWgAQRfKy5tmt2+v P1dRUXOVdqeGs6HJ7cZaWg7Ab+qwWozLsES/MKKkcKFGLIj0LhGREeFETRAW FSLpeZgjeCyzrxkgL4pXcsMyEYBlugeojyCfSnrFSAphhGxfa9wCTWFguoA2 bR4Os8YNDN1XnVR5OXaCuGdra3tSzc2dNLrp/u2gJ9TXtwjhhAjv17Zta+Re ocXF5ciApb9RBrmVXa3FogwyIQd9qDRfAbjGg51qPKlOcMcd20x8Jgmdye9/ vzlJBigdejXrNTkJ2q45C488coC+xDSDpkxUR2TonCstHQZCZxoaembb2zn9 4HRLy+ETlZVHPqV1hTt00bdZQpQZeuPieTkoDOG8nO99I5IGq0KUpo1Z8fgN MfrB/68Y3ZnG6KJVISnjRe/MxqivXbQGSpXJygDISGCxsfRS1boDLTrdXCwN qnXDVFVKOao0sK/vVa1kqtRMQVUiKq0yYx5DFU0FRpS3VlVi2kS6A2k6qg29 JSXHluuqwpVsoBpVkpravsVfGw2m6TBIo2IGRs3gI20KdgGnSmjBDWrqKC23 Cx0dfwZtHdbUkYJup7u6/vxMf/+LAqIWlC6xVI98Szhs0RpN96cJSxOXAKrA anXiCmm3yD9NTr6jElq5fKS5+Ud0X76AsrSQMFPDtGI9ybirr99FROqnJb0H RRthAVX6rNNQXX7pUL0KUPXYTEVM8illphJJD9Ab7yEQTtKhdBIq2ToFTpXT lt4nB1fjmqtXSK52dnaqdB1tjTY2PsV1g2AqmaAegOokmarKDGWwXipeV2bj NUlnl2K8WjpBOzzn0WkfpIt4MNHYOIVBCIC4TAO0UBdKS5tny8oaZ8vL62bK y2tDKy1+XA6ohaIaups2tae6u4eUWSobpD2eZ0ni4a7R0cVBm9m6zQJa1wSt BjKdu04WXsQyDcBWJDZ5uvcp+gHRcS1N+3B1zUnMgti49OECsWjphuAzROQI tfg3KyiIAkv6cT+brjTQQqeb7j/iLWjLA6250ZYbu5fi4oqQ6JYKV/a2YLqT g/NeglPOT2gCA7ls0xbynM+WLZKIadnGSH7724eTK1e+w8C95ZaeJNmqDF1o 4BJ0veSqVQfoI6WZfu0purwvLdCgtzo+PzX10gUac4cOvezMHjr0SigyOzLy zpeNjT85uXPnT060t7//+cDAawq3oT+6xBTY2/4XqkeU4I8pb/qvitraNGov XjWiVGQtqNVeYRO1RQaYAAmjUWMAja4l3+cicuHaDPYsr5eXzvcx+8ywEpAv Si1SSCJBfk9//57kwMA4iy2EwpBYMFUalPO3wJLVE7X4fb20gaob7hjGu/b3 LqJLZ8OpmdtDX11lo46R/TEGjCotV6DUkKab6+z8s4W2tj/PkqaTxikwauJs vrHxQyB0uSWx9cogPc1aTuXbzUlP4d/1dOoQvea53t7nHbwnXTI0Jm1oeB8D MFW6PxDE6OzcD3ayOGmnr83Sdk3QwsUI6k0bBJ2nO/IaGfxsbj6srNKQcP2G U/39B7il9tjYLmbp+PgEgBAXOCWApp29VyyK0+wg6DLB1lRnp27KqdVvysp2 s50KmobTlipxtZhpGrUw1be4er+1CFNdS0dSZirq2A6A7zieioojtHSPs920 detOIlcVUbWKbNdK6J9ew0CNm65f4JSoUsda6TBVEfQUMqYb0v7dx4MQzYiD RtJM5WTRNC6ATt9Czbj09NJnQB/SOAbCng4Q6qXpmUBHuVz0lJ3D5+i8ZohC uLq0Z8x26drQGRPWKQvrLaaH58k+qQY/6XIPpXbs6CdQ9qU2bmzhtj2wTQmW cc3I78htAdqmKgM1zHM0sXZta/Kmm35CCDyefOCB3tTDDxenHnhgA+vtkZng QL0clP4hbaSamn5EH+3HNH5KB/FO8sCBF+iyHTjwYig6PzT01nxLy0e/r6v7 8HRV1Tu0dTo+W1Mzfq6hoWO6sbFNZAN5KhcWPEzQF82GwzuNipAA/3JUhLya Jo62QP9VnbbVQQQuXhFSZEFgLCMhiPAXcnh2Vfar0ZuaF3gk8eTEoWPx4toE Sm0daWw4FNqsrhIGR7u1UEQW9A8MwJIYFfQTMzocKGHW6d2796vyj0KLSRmx OGn9nE5aW2fUYAqQa/HQxi0mZZ6IfMJri0uCw0SHFtZmNQTw/sf+/W8bAngR UwAP41R//79VEAw5wJ8DCnFt26GEaIrabxqTGoeXa79swSX6ZSMZGUb0SnSX YHYBQ5iSICHRA0fgQ5iVE4AwRkZ202I+xGWKnZ7FkIzZMXjZGa48EW5luhUX 5AjdkA56+vR+x+h8dydF9usk6BdCE1k4IAl7AGDaT0tHVlW1I4k4Z3V1dbK6 Gn/XkEmHICOQWGBnYL7MfkWOEfrQmAx8/PEdIB/TL5JmoLYr44KBKhkok4Ha rrxCMHABiS6KgZKDkoFhs+cpDwIgrcwHfIYgjLSn2IWMrM6NGyuxnpbTyZSW bl+Q2T5z6BU+Q295LQPRm1u1anS+rGyEjR3DejQDm1EL+KK5y0JS0nAE9kJL JA0M3HGTxCDwJOzSCa8ZwPMF9s4izYmgh3EWybQSfkWW1J+ohX1RyT5TC9ZQ 24Nn9qXUY49NpDZvrpJw2yZsQZHclFRnGtW0+75IcErQFU/cddcryXvvfTW5 Zs0hbNBTk5PHfYaZyxAbGHg7BYiFMTvyPwh4SYzy8oO8l+viZg/tC0i9phGK ztCNt+wSs1vv+V8LSL4qGEM//aum+lRYiCbDkFqdKKReYElOovkB3ykGnCiG UQeucCuaIktqqvPNFMZtXa8tRp3HRiIB4dzw8HGQTNhzYV00rxJg0JNxYGDY F0FI7j4nmYbwXZEljyeSdo9qloUt7tHCoLuVL4BNNc+x1GrELfacwbJM09Pa FE9UrPjgm9IxUloTknM+DD2k+Pymr++X51taUOD3IS/0Em26B3hROnVHl22s 0GgrWtw7qvAWSBSC+hSWKE+gDamxyriTR+DBsqMFbB+tyOMoyIQ/s9OxxBz9 i1MN5RuaajdJ866zcxQww6AlATOaKoyxygXMOsgaEdiUqzSFni1YXjmrFUij 1xBgq2Z772pLvmuhJbMnAsY5QJxstqaMPU+Cbnh4b7K5uY0RF8dclJtsAY/p ZTnIxp2SQDZX1lwQyhhpoJlgGhKYjqVWrTpAtsIQPfmxx0RtQgkKBwMt5LiW g9FGnxsgoZrPXSVId766ui8JJV6ICW3YUBKxkC7PEp8UgrCebp2KQSdr6w1Q JGEHz6eCnS+Qp1JbE7xxukTssZc0DNrRKRm8CxVa/KQRC/AiIn/HBB6MvLi0 8Pr6nqZf2ksfZTU663jEvFJHQC8JuSgJ8hAbsw7oF9bgu03YsXRx2hX4yGR7 1ZVc6+5+K7V79/MMvCjPHv6HCPsumJcqKzuKcEDXMlAuMsO7q6/RhmKxjNYH cjWPs1VvSEstUKl4+8W5tkilYjbmcvSFu9RijrI06S5ezLHMQrpoRlKrabvh C5lhu4E+GdTzTerpvuL5uUkXyLpZhHSn4CqTjsDzY2NHPdkkBqSj+05Vuruy 1kEAb4R5J1JvfLgFVXRNtQ4PFVpqOMKWyGDYYsYZ6APqDFUlq2xfwJWZZ0m0 iYlEG67YlvhT0cxApNFNy/YpKUL5Hp6JRiDQEfbehV27nk50d7+fxJcpLOlj kA9joa9vSKn3BZJXl1p8ncsu0dcZNvrbKRb6goUwIBdEh5Mn9TF1dh4io2uC 2DQKFqba2jo4wNfJMkydprNzAeE9Z4Y7g4ODwCD7OZfnAuKtPMcXenoGFBB5 dHaOED76kz09/ey36+joAhCZh2zzMQZ3AIUChxqK1doJeq0FikU6nMhu3cZE RcUYcEiIedqTJBQNs+FnHUe2Y1zYewSE4gR6uglPXDYVPYvPcwXPYagvZVIR 8UNXtz09gNChtPAEGeHshJ1HTAQRU2vXltIC8/jjm+mDoZkOemtmMqtshQP7 D4w8j8KLK6UNSBddOpWHEAxDfUMFRxA3chRx/Xo0+84mo5OhT8tMEjN+Tsgu OtZGdKIwxGUnr0JlVNuFIZdLQJQP1E3ntio+0jOEDxRFEdIkDEUxO6BkvsUb agOkLxNcVSAxQ3sQoeNNm2ALltKvY/aSxcXbIF/Cgz5OB45OVwPSJjJya9pG TK1e/Qnto15O0dc8dfjw4dTBg8/GDDyWlx9nPFZVjXjSGqytbdHW4HKeXb45 CZZJA5QJmr+m2+ccvmAOOjdG2cHpfoZIHxqJg52354z+hZX3kwiVInKliHYp sstSK4Ic5fKQ48HHOJ0lwFaLXNM3bAGwGFinLgbWkiBYF68WWWEBa8TiFHUt YBWg9IAKBUCgxMJW3b3cxlbPkoUTtrBVZOHET9DxKzJhKIOMi+aVUO7AwOHc ZYXIB2XlB7hLYVKy79E19AvR700bl77FUWoWeQb3GZ7ZcgevISAbkDVUdSH0 K9k1IQZYdRxSghX6wBrUIvHWN6WkMC5MTKA92sTEk0KPI4VMJGE9ijlLuJC+ Pt3do7o1TtRC1aKMkhCNzOW5PaiBMhHf6GiHF02jlVVkFV55dHfvluZmmIh3 mD5PNDofSqGLr8RsWEYW29q6iciDs93dvTP0FHe2r2+clQTHpgcHhxmwRZZC ynsyjM2urkEuNOpn99ggJ5OApFHpNSWesjdVDfqZLrHK1Umz1kkboJq1N+Ri LVmRZN0lYeGVlz8lBZUOMF+RxAPGdnZ2A67MWUeUDxBTNmvn6tLFYTurTNBl OQKMRFeZoOMqZ6phfQqPqqLsunUlHkMWNfjcv5UrGJyUaCJg1FSKfuZsjIqa kxhvbJAJ0Nu7lzjWSgivT6GrK1RvkWXDHb3THXcUVLnpgAHUQMrsxXryFFgg Gw/ao4gDmrUjmq+Oha95mq95Fo9r2MJXz8iFzdReLC5uBFIZq1GeXfSFV3Cl 3+U8G0A2IQfhV4E27ZFNpBnr4fCZq3LEma1slDJXKyvJ+qYbuEv6WpO1ta3J +vpm5upSC11lG3PQdb6zsxOEnabLeRkAS196+mKBskxa38Lb6zBHhAv287a2 Z39x3XX/FWANeTyDfKnrJcgk+bLcsoqoZi1mELZNF+OhLNZYbXneagt7rSFM 2b11KuP/fv2NeXt5bt4GDFkbb4X8k88mnDRmMwxaz4QuCHMRYXrttY1YeBsz YpnSnqW9FbetCTSsoZXLk6xF1YVirai6cM8PDR2HWIiI7Fk06eOW/BzP4s+N WvJzLJLByi8sjVut3piWCs62ZUWWq6tCkpklpBmHyiJYXEQyNvZ/cGS2q+tn tMT9kKErJBz9FJKBkRUjHajArsStT/OE1AsZAtFYvjGcriDRaa+FGrtXWty5 hZZIpWc0wUO8E8tdOO3OzdDaKiDD5xXl4uWheNvTM4YjA3eZue3tHdy9HOrd 0GUcZPN3XJvkvb3jc/39o6FwmsDnaIPF7I0GU2KZwHmCwHNwDSuRrKtnRK9Y ms/IQbc8P3ausXFqtqFh72xz80jIOd3c/FzI+7K5+R10nv2ys/PDWVpUHSiM sNdwF+SzWGOktrbDIdC0eQTcJl7pm+nHVlr+WgjcO51kZeUOZngNjWqM0Pey q0EhnhsToVFC9Sg7ZTHq6ibhwJ1Ey1EE9rDOb9pUzFZxVGcF6TxJjCThG+Ra njs1KOA8XsKzp8kNfWCyhx2gOsRGMlBtmMdoJn+YDK0xmMVEz+IwQxsiHhtV 03VWjbdwOx60kuFHpm8RHYAomXET9MklIZeMpgkOz26SZnaVAlCFQLhrYbYt +9ZmLOZZAqaFMmxq+osdnn2T2RhnRd8jxem4xVHsWzjtSk7j1FQGUFp3slNz OiY4jeNOSFbTNaPZEXhWBaxqSFQHzvC78gwVqqemng7FJKcnJ4+nkH1eVnaU w/dddLS1te1AtJIHIEg3hgoNVLe0tBioZkN4jq4Uf5VuvkROFwkBLjNyivFp f/9hYNs5WVHxHi3da9f+4s1ly/6Z2R0WBF+t6I0/hQJtgfqUDHyz/fwviu+c trdd7bJYvjjxOaNcxVP2vTpufkGZGBxQ6QqnzWWNby83vk1zORe+lb1ccImd WCOWIK4S/jJc0RLfwXwcx+xBYNR5yB4E6C+0S0kyzw4O/hgwVyBXQUyzwUIg Uci1eKdjFu+0TdnSsXi7MxKP2IheYjmpSJromV2RbPIpf//MM38x3df3F1wM 6oiSUPoa/YzW3PeY51KYGS5pEB3BHkOEGSQfFg3e01IqmrWOJQcpz1LQsnJx N7UO2brpbn46GykadFMbPW492NPM9ubm18B3B4CX3XQTPT2Df+jre3l+eHjP fG/vURdCYS4tKi+y6tsBiIf9rq3t3ZAD0noQVHFOjo+/FfI+P3DgZSUQ9tnB gwcdSKvcCVrnob27c4bPGfopf2hoeHmmuvotuq5QTPFny8o+mq2tfRdjrqnp NVq+nmMv9Rv0zauoeJcWvqOEsgO05xjk3GF2RQrRFMilKNGUuroWKZjSlNi5 s9GV3YpoadR2dljk+SL0uoDHwNI8zDmLahyefSy+tMwfpr/5TekwBkIK88iU BcQA+Jh2gWvEc6e4Laix2Zxhri9bHPq6O1IhzxEAn/izmwkPJ7iiPf1bB4hL S6dgmjPkkaq02ZNCY2Z1qooSF2rDvECW2NDZsmEOKDg5Ke+B8miVlCCDHZlN +RaHeP4llrLaGF9kML6pqZ2oh4+itraB3rq2tl4xHnxfrvEetZSk2vDuyMQn m/5mX9+wLC5VeEe3W139gszdojThIybhF2Ri8wX6Gy2eQjL3F84FAN2I/iJ1 7Q12b+O+wiCs0w3djMLXJge3Mbf1atS+7tglIv7hnIgPm4hXLu8T9fWvehLn xcU/PXnPPf+RQR4VOL/exLl0NwfCyi9L/JnlphLn7BW3CWAKfttN5+XfaA9g N803idewlMF4Zg4w/t8RV5B3IeqP6QUP9HPwLV5w34L1eDCpykygsnVaV4xm d3ihpSjVsZjnUQvfpQia6Q5X0iQBFLqWjghh0V4PQWaFdtVZd3Zg4KfKXodv WQZwfdjsytes8pcUogO2u2Oprcmz5GLFcyM/4H5fki5f1b2Uiiy5WGGL3zxs eQ9DMQ17IwF7nj1GPvpkYBD6BfVFwRERPyVJz3ppNqrHLMHna3N7yC29BoOJ WNG05a7ITjsbzHlMc5BdDWQ8owdwT88kmtFzD4nR0Y/QcD4kq3XQkB5SLhgQ cxF9C12l48IyLkLMxfuyoeFjiLmcbmx8A0Iul4PsRSD7CktiFx1b5Ax34TIV 0uiqYg7PrVr1l2RnfsgSaZWVb6VaWl6gS/mUJ1oXpvr797BCWnMzhEH7BN/R +A5Fik3GaJR4thfpxAXOU8SIFMEtxYDDHAfxBchibEHW1nYw1DHwLrRZY3c7 gYUBrqBu2O7cBW+LiHUT2YuZ7mnGb1qU8bb4dz7PvDXRFrwLsoflPzdsqAXO 02BnqmkbXhbE2jm/RBjy8P9rQz5mIX5uuz6siM/7Jtj4eH16r6iF/IWXSP64 xSNfIPPERkb26LJouoW5LYTLOwC4qXfO1dTUsxf+co1/cZF1VyfP4pT3xJ7A 3A1gIL9P7wAmJ/dxTAfsj2PmI18B6HMZD10kCXh0MA45F7iqCT9rm/5acV4L W7bUc+qzmfYF8FdVjSjgQ42oyRXAhy2vge8ZwEdORGtrqxncBvA5uL2Fge9P NzUNz27b9pIa06Wlx0PO6bKy10Pu6bvu+vf/5eab/xMzPTKlXe0ZZM+q7nnp InDPEZbOX4TNi/A9sEeIhTTzF807Wxdkfc56Hzf7DPm08OhluVkf8MDnZn3Y 9L6zuU5LdzryzZjWsqaLID6QTWZDfMTigfcsiPcF+gLWu8wtQ5cGZE6zdrdo BxVm7e6BgV+qvDKVmyWqb8L/ePjwn5jSNSrwnW9xwNuUul3LpkBCnC+k2qwU 5T6TwHtELO8hPPGcenAG/Q3lcA3TXXKc3dUfEzN6e99g1dPJyQMoyDGVT9H6 XkM8op3uN+R0uodNpzuGwnbc4msXAfUwUtYUrckm3w9SQ97UE30xWN5UFvNK WdM4IA31GK26RjCfof//bWPjxyj/+6q29v25qqo3nGwVmZn29u4wy625czTr vOxb7PguYnyHz5WXvz53//1/O3/ffX+DkVy//mMC6hsx2WvYbKi/ZcsUrWyt 9N/Nis9OUFbmBtmXgiy3DJM8mty8GelAL/ErVFU1EXSa6NXbmbdkTKft6gwE O+kaIxpb0hy+PDd4Ax71uAAvWXCTGryKuc3Ne+l06pi2ccFcqKgkFHP9bBFv zdxlQef5jGhzz++lw9/cq9HCXGx5dsBzD3cE/SJMbOasb6Ft0SXSNmahbUza 2SiUHh7ez5+qL8USJHXBXAJiIzpJz5eV7Ty/fXtt6CpLGrZnyTLzguZ3srgY XUHSgmz9/QOcYR2XnnSY3iqG78hzMKPgl6ej4PMwtfl5zGEPra4uyAEar5Ru hXXrxrgGKQ1hWPm71XaSPmttckfozmxQBF6Qeg8c/M5F3xJhbnM4SpKXjgez P7916wt0tM8nH3nkvZk77vg3cJUvYldnBbpfFFgKtJcI0Nfi2c67RGwuWwTf l1qYtGZx9OripLD99HKa2Z7FzA5b0BvLbWarilyzKleX7qQZ7NvUWlQLYBt3 A6a1jbthHT3mdg5mdyTV1iGtM+7+bteuPz+za9f7bFVL1kK7hvXdOjr+BOPr gYEXFwYGDhRY8ssMDVTdK8q3+Nz5Cjj41aUWM9m3eMajFs+47Oiv9zJEV7oG mBHd/YBj3gxbxmuY5Wr6+p6DNiZ/1Xfv3pMcGZlgeRpfip/290+eHx0VKWWe xQP+RxYPuACubwJXZZHRZ5ft9Y4Lr/csPXaur2//THf3YWibSm02yNT8oazs 313YuvWvMrTZXPTvJ2vyA+GKzqFO09TUF7pdMJSdcAZDlwgTGAKeM8g2Q4GP S9Tvc2htOSD+mRwYmDD69scCRN22rVdK1DSRnVyPBLNkTU0d8W3HjvoCjVXR lz+a+MEP3k3eccdfYMFJrlv3KpfntrTspedNEFI7kL61A0WwtWzKblXmLFcQ CY6CbsUM081JZcBemTunLOCkjkgDtqwMfYSmAlVLUBdtamqjk9okOQowbFKq ZMBFZBGUXpYuZvLMYiZw1Jf4RG0aZO/gBPUFRJW5ikE7KF5WlMM6KRzz2aW8 S3NnkwVoytrhMn3MNFb1Bwl8lpf38QdYUtJAmKulPcZ2HUwvLy+3YtS1eLFd WcS7bl0FfS77ldeaxmGt4kaHkycpCjmakgwdApOiV/Hso+3Hefrfc3Q9MGa4 ugk0tRm1KyRPN2zoBE/J/j9CmwTB04MHn6W7rJF5GuXZV8HpXAjV2dllAqGz VVVvzpWXvwZscl75czSvX/8a7mi4pYFPabuutgSZA17plwSz6McgMJsuxrTo JT5PVh/lArA9tGwAc9H6pugiwFyeG5hmga8VmKZktrRXdbcmCzADzRItwNTt BG3ANFXfMuRfAsAU/Y+8r8fHdZuKtIA4N32CHA7+Rj3Q9MjIn4ZETyTvd8iz kpCcb2v72OUexm6ip+fZzMBywMscsXiAfYuBWhgMVJ8VtUTZqWJebnwGUsUM fLLpDnCGefanYckpC7Wz84NkT88rdPMLHZfh4X2s7DYxgaSqIUP6NAp8ztKz MKYnJ/cCoKar+bsy9wsfZNDT7JmeZtAz3+JYFuCMQn5T/TqGAi93+Cd6etB2 C7nQw2GTldHJc3h+fPzJxNjYUe570dLyOixHbv2aS/vmZgapa4KULno2RfMW eM0g+L1A6+yThsabzwBV8CRwpgicIVP9JtD9yRbyzdNgvZ7BGlvYvn0UDekY rhKw9JxnWO+momIfvcUwv0UH+5dVMA/LXUMDOsNDX7WiooqeXy0YvHVrNT1M rCXoblYDBN7kADw25LoWn3FYmq7r1h3RyHVk1hdM187OQRp9KA7O41AwYBuT 3YozQKsSvy5nszWsMAWugrCKr75Q/UliYULCtrZWM3DrSdxK1HLy9orF0apJ E7YEhCOY82SAAIoKpaUvEQ530TVrEY09IjhNlbqmmnssSlqHSZtneoh5oDIJ Gqnj44fpq7eH6Qo9HLTytxmqKnFN1UEBritF0jYQi49M6ZI657h/5Iz0HmPA bmXeLlvgTlnEVk7DO6Jjxq6en6Nj2WtQ1qXbsJl2Vi05a5+2C/cwcihnGxoO JsvLj/OgLSY3dkamhSTsp7fe+p+Fgbo0yFQOj76YyVRRUZxlQ7Kb13DfKhQq jv7K5KjE2WoLb5vM50XSr7fo8x6+OGI581pgOkvONWWwPYBYV8xf4MuoEBvJ jVgzo8uKWENkW3s1paZqpqRMvoWuvsUN7Fsqh2R3QTOxCkxC22Ig1RXicvhR vTRoK7V3AFw0HjTztGGZznV0/HRBVC8zcYlabyX7+/dn5mRnEjegPB7OLT5n xonxOkstJ+ZavMJxi80aMWqXpUc4FBM26wLysQcHn2DM+pidpOjTTrQlw3WA ZVTZKUzGbF/fBHGRSXt6aOidU7t3vwrC3rJ4tZNqkkiPZXuBhcpqOBOvKrNL JG7HlNScKTMHy/XM2NjrgCwQS/Yg0p2lsk5X10uKs1pZx5OIhbJOS0sPGnOE brxE1hYxa72Fzs5J3f2fmBuRzf+B29LSbsasn0tRx8+VXpVnj99ew+D1NHTv uusvU+vXf+yCuPSeLS2jICvTNSLn2to2OoZ2NrcwKirq6Gc0vKoWUV+HJWS4 DRNH8LgdHzBw+eK01Y5iVyjV0e/1mcRl41aQdoB+bjGMXHTD0kYu3UuY2Req g7bRxWHMhi9dBzQFRt45DFxuEKJt3qxkrYuB2RdgxlnN0DkykpdfYgWVbwGz b3iQlQkck5pLNTXPcV68Khlbvx5NpEpdkWpuspoOP5hqnmZ2vmI2hnYur17d xC/b0zPMfIYjGYe+deu2uLaC04gOWxB9jfAlm4imz/0ikC6QlVXSq6y6W5mI PnQIfZaHhGNZIrq5uTVlpGwlRQeADk7ZKk8jeoa+jCoyk6iupo00YO1La5i2 neA0BiqnclvDWbbjC4Jpge4f3zcxzhhd1OT10wieUs9zLc+TLl3TAr7Y6/06 43m/Np/3UBDpOYupMpLN+Rk5ee5YfMxRC88jFpPZs/A8P5jiBCZJnvtmpZU2 mReBesDH7Fv8tdJkNo1aHB9vMxzwWxxg3BQn4FTtPXuOqTwueJlhNIPjvhT/ kRhnlA8Pj0tZofOmXWvTSDd1eFSGljg93yyQ5u0MTt1mQzuWcitbNpgN53GB 8zl0SBge3p3GeSiSRIsmCMuqMTo6TjwfIJpPhhxIx4a8c93dP1cdJGHR3pzT 48w1VDq/usDiaY4Ymj+S6nQ/5Wqh7ENOCG+LppULEGESXfdAcU8TnOgNRR9H AlzK4nF/Le6yde0lUnwFU9w3uyUrkhs6Psix7svQ8cnPxe58O7uvEpJ4MJrZ UN648U/oou9lZDmyd1Zv7y5unwt0+3IGwMvLWw1413C9dRXXY1UhZ2sB5TwO z94cHRXE8M4S3KCZ7s/Ql9nWgkugPGzGfDGAcLKC9jhgNydxD9DWqYcOdxM3 vtrMTteNmt6uhd4XMaVl1hXTG8I/ENNh7XJOZNI0Vy2dYV4n5NCZWBacm5lY 0s722StOZ3dGYn0O/uJll4h1zxIY9iTWZVA44NmG+Y3YgtFvBYVlnJ22cWNx QsTmsxnvWRj/LWZ8mG3yNWt6OHUd6XfIwGIHe7a5ze0mv22Bty8QPi3d2Uxx V7uzozLlbMuWekXuxOrVh5IDA8ekpf1camrqKcL3E3RHNrg56e2h+DHZ2dmZ oC/bWfqys43tgN2e+DYuNDcPK0ubvqaYXboDXgbHmeUOzz7824roysetKqma TKwXBeHGKc2S6cpIZwhKpr+Wm8FTJlvd3EwPmOkyQ2q15fXAas11z8J012Km P5Bmuiq0skrrST+EKsTi0+aXW5qb6YGUrUWYbqZsLcb0GfoeaHUeaaObTAfk Ciw4N+T7Th88eDBT8TWjbZa9Y6Qh2edyKvbExPHzPT0/J7SB2UL/XTIbIzEw sMds2axhaui/60hx1GKCC1d+2KzOUmY4Dlqw2zc9+BgzQvU2e2/gW3ze+Wle a9slDF67bH6j98vu/zE5+dGZXbvenunr+4nM4PpDX98vAEtG5/dyOrbdM/io 4H0wIG1Jl3ahLHQePbfYHW4pnJY6tsjjOtPZ+WezLS0/xphrafmIFsWjvrS2 6+qOK0YrgaCQTR3o8tycnjY5/S1wWkkDSde2RRqoyyoNtCRna5Fgb8vLM3T3 oFbrG2huaelmKDvSf63samCZ7Ol8C5VdMSsqz7CO7hn+RoLOgPMMk0/McwhH qgiza8nUEtSOKXc3caSL1lEUandoVJeWbk/jOmLhc3xxPudZ+Ozy7CltdTwj SZ9VDIh20mROtrS0iEooC5NdMU9XVFQoJocczA7QvOQSS59dC5Vd0wsO6/qx x/ZkN2PZqJuxuJaibtn6bN7MS7uSKexNl5Y2zTz++C5U+9MOpRX+lno/SROn P9SqRqr0SZTHLHFlG5Qji0I55Jkx5rQDPL7w6KNThOojASyTVZ1CilxDQzPd o20prWLASCZEdyVpV5no6hpzFzjZAnQGnNnCLhaBZnBaZUDSxeCvJWxtDWxX zmhEHQC2B0ZLq/t6C54DMejng+ziVKggngM4FZhkb/qUHEAmZ2T5adRer95S 1h1PLfIaTfLvXxmv8YGJ4fvTGM6lF8QYVia9PL00hm0CCo6l+DlmwbBRiWNV lg8iSTfb4hQtQ4VHp20Zsn+Kw+r1AhXPNgZHLe5kx3J80cWV6unGew9qugyA j7jA8EmFZrqDMEOkYXdWZZfpLV9EqT6Q1BW3FFKbrxdMqvbN81UtOlUquk25 KMDsAhGnNpnNMUFwQ8Spo0nY3gRw4HtuaGj/9PDwi/A0nNq162/OjY+/LWV1 /2n//h9qxN5k8Z7nCxSfR28Q2NDc8MHiPQ+nMX6WKGpiPFAbHQ1WUZ3r63sh 5ADkZEESypPQK2pufguif0JQF3kER2nH3ysrjQNaRWmeL83Jc8/k+TwtOdfK YLVNqGhwcJ+kelqoaOfORhYqciTNzUadyyyEX6Lj1UsNrqt21RGefTa3wfWK ijYatewXX8J+cTA8DHw7oHYRoC0pDX0gcOsE6OAwkSPTa9a0zj388BMLW7f2 oBAH0UdQOOD2NnK76CQZzAkTzHmiYskEs2ocZrMYLYR2TUKr54HU2qqOS9sa Pk+VVy1o7ROtUcOEGnCuA58TuxXRLJsYpC1oWyGTjdUsEujlTAYTEev164+m Vq+uD/ZgedzswWLDdUznvnGlE22JUNA+OHgkWVn5Gm3BDtD2cxQlxGjhRSfW TTdCe6hogUXe0Un6DOqkcYL5M4TtKwSi5+BPV4iO8+yZiIbvW+RVRzmfeuPG LhjLTOU1a/YkKisHicyH4HqXhptB4BHOD4D8YV/fEECsBisQb7FgmCVPIsxd H6Fp5m5JyZP0yN6vNm58JeQCvSEXIeop2Y0z5E1l+78FkQJ1PkDbc5KW0n7m gLaE8esWGOdZgCuban+Q43n6z71BqOasSLIpCvLLFeaGaiDFywZV3+KvDltK jyVU2Tkr5dxNqGo/9SJaugE/dSQ3VAOJUTaoirYkMQSkTS1dU6I+2dX1Ln2F 3pUhZ98EKwF1b3JwEBL1Q0Nj9J0aGtJ2ay6J+pgl3ytmaeopG5HitDJ46ikb WO0ZjG7aVhFA5a4utJi/InSH3PFJwNQYB6B14cxyNE0RVQ2Q1TCQzxw5cuQf cZLgnS1vWpIVVEKvLdCUTibbi+0LsiJfWpPVt3ixhVBERDfHxudMA4QFXxea mj7kpK4PaDskCas1kMbGDpFdM2xKIAWUAPMtdF0GujoiiRoLCajKZL2B56gZ oGYZpI6OPWisRusxyyDlVkFyZT/P3D07L7Ngd6nGbp7sNAIV85aWoBxSb+9U auvWJjKkKkIrNG4jGrdkGRGSwFw2lgt5jp2qq6s7Qa/8Ca3in69d+/LJO+74 iy9XrXrm/I4dgwS+CsSVQzFLjDkqYWuAhS5mLth6ijIKsJ6Frdy8s5BhCo2E PgVTumC1Hku0w/qtB0+Zo3HBUcXQnK1ABEc9k6O4voaJ63LrsjVruO6ZPivt lNf1V4408DNqnhVA8zU7l4v0r/MADn3PadE7FHISDQ0vcmueQfbmQlVoieAm iqLBTQwyjmlmeNKNhyiCZCd9WOlg8fzdd7+6sGHDrkRFRQft4Jq9NBWTioo+ UxFCF2OKiCFpqM6Zhup6CyHlNyJRV7c3w1AN00bgebrpp+hT6KcdWU+yrq79 q7KyJz3BTNVkU9ASs8i6ygoSPyvAEyj3lZB8Q0ItZDh2YxZIrpScNSEZTT9v Sj3vnsUhqWuHviWep+LWaUiKBDN/tTwvDPy79P7731XJWgFHcNwi4afIYCZr 2WApLC0PjmDAUgEzQwrWzOvKJYirk7VsUrCRtBGqD9HNycswIr2Kl+g5Cf2k tPZ8JDU8/HwK6hIETB4KmQMDu9jfOmZ/K0tRbfBqRC2dOE2lXMlKxUl1iiq2 W2QxOV0LJ4ssnPTkTJyE6YkA7mxv73OCj67JR5mv5p0aH/8/Z7q7f35uYuKN 6f37X3BAyZCrOMkEu8HiTM4T9qRipeJlocWfLHEJY3Va4TJsaXgttSROPPXU UwqVdM15PosTJFwmhWQgZl8jk1CZmphARtqg0JKAgdoZF8vBrATkeSwYOQH5 XWmANjUdZSgSKIlymFGHBc/iBI++vv4MKaUdWkrJt6hGXJkrMsw+Z4ddzW5C llFKRmpSKvFAaaC6rCXR3NzOubwioxeWXkWqvLyS/c3LNT2jQV8zIsAhNltD EYDzC3pfBc3pmprj89u374HvmJ14VZ7FRM2zULMgFzVN+1MZacqTDCwq+zNP IhNCvRAq7Ooap8vSFpbIrKra+fX27bXT2BjkBU1PhmVeTmT6CplaWYkszpBC 5tq1VbpNSCS9Q1B+8ZC3ODLTHcGWCGTOYckDMnkR5FkknuG7AVgWWpD5XZ7d U/TYCfrEP0HwNMxz5DM8Rp+aGv+NPrHf0D0y29g4oBhAd2l3ort7gLZvQ6Go oKZpS9JxZLt3VwtqmmlUwkujArDA5I4dR2lvCCWx5uZhkRbJyKyvb/qqpmaf z8j0VVdLEy1WL+giyHwrjUKdAu2lUQg7sgk/XZdG65TEq+nwxfNW46e708hc tHroajwtZ1+rdIRWq1qIPQGddEHBqZPf+c7fnLjrrh/9/UMPPQljk4yGbG56 FiMzYuFmLCMLyGBnaKmEp9nwIj83PAMe3GjOwtugB9ezwFNIRnhKTZ5ulD8D OMNSSL6//7UU8qD6+g6TTTkRYU6GYYRBkdaMzQJg+bmF5ANuWRmRZUs4YEY6 eGiJxeHrWJywS3MSMYJLcVZK/mGcGxvbx0VBhMSQL1CIImPu7fHhhx+eJgh5 FhReZ3HIxoQBCLbNGjhkV06RxTHrpXmoXyNiia/6Fh56Bg+h+t3R8RTtVQQP 29peYkl3egZ9NMMppDAHtZW0czbR1tZOpsE3IORtPMcXhCkwqQet2UnoLfX3 DzEhOzo6M7WV8E+l+UALSjYlVy5Kyez8KZvmoCtnpbVUWro9FJaMJICkKioM RnLuNUdlmZMZtDyPYxJmZh5MzC9KSyd/V1LyKlTDQcrE9u0doGWisrKZjJkd bBqKXs6EwgJJDyEWv0GXzCDFCA2SLD7cAgsbo4aIvRTxDSmFJ8lJgUmefTrH RkgxzRcX13+9bVs1Q7PAYmfGcmY8eap4l+OpBMyYkfRWVlbNpMywqJOs47A4 L5cYHTSzeRkWvOSAi+JlnuDlXFNTk+blLRZeejy7n9JKfoLGV8KexBz5muaz zc1DXxHYTq1Z8/7JDRtemh4ZeWl2ePjtUJijG+658fHXzzz99NNnWKOFZ/8s 8WmGjkiNU/i6xdAd8j4LPFdIk5N4CWYyMX3JzZ072xUz0QZamJq+6Z7FAGZU 8pDiJjPyWBpmmqWSm+/y7F0vuYeBf3+HsYZ/Oas1MPWfOy8OR45kXhc8lrQU vOTiauPgQ56YFRcxpq+55sfO7MqVH9D1veWW/qw8IwsmA3lGi2DSRGTQJ7vE wkVDVl4jJZabiwEnrGexe4VMoXtmaOijLFn5np4XadGZYBlCQURfNbMAFVVd T6ggtxhhoPdjJJdXdZkIDJsmqOrpDAoutwBQpkmaANSNJA4fPoxGVtxdw0nr yKsW1Qqy/wizk1jIPJQGIgD56RtvvMGMusbiTBVU5BRbJdJHxBESBtiUKqkF W5qwY0kTjlocrJ4hMk9fGmZjWHByjt7XDKz40s/a0vI6fVx7UK6kxXHb2jqi Qh0JXJzv7Oyd7+rqv9DTM+QQ0GlnfW5wcAxg5OhlQS5E3s2NK9hqjGguqgE+ ov4/rZHkZWokcQmu0EjyTY0krTp/Qy5OFlqUFtC2WmoQokBa6SO1tLTGDSyq ro/LLAlLedoFm88wDE8Te3GPft3aeuRcW9vR83Sqc7RUe0L6B7+oWRi3JBtF pMGINkdKXEC0P/LwWOIicb58GcLs7OzUmIxgjjIX85iLREMeZDyCh4Tc+tSW LXX0dzkdVykypc7DOi0UbDyP7CllUC6iUc9K7uBiuo4abN6XbGpqNXpfeWZC NM4pYrARHaoy2LhMszEmq2/hC1BsjAo2ztAtf5YuO99ycQsbb+PZAxv/Gz3+ a8lCWUkDFP5GIpKsBQbn5+vWHT+xatV7X27b9g6Q6AoizvT2vjd94MCLzMI8 zJcL/T80RtbNkvMwX2HB4RUytxfeXOT3ChAqKA5gE0qYbFFIDPnBkCXMrVxS 88e0zSYhOBfkWc6ilxvTzwvaeQ4mmaqkAPblt7/9C9odML2m77vv8azGhia9 bJ7HqIVe0fQCr8hFCxznNaqsWX6lgvTr6TIR0WIhbIJNax3Qep93ie0AfQto lZ0ng5TTk5NPZQrMC9ldIQU4OjpB68iYL0KIaNdkCswXWkpcwpZwYcSSfsPq Qg5OW9DNMz2fINtlOQOCotmTUtzz01TLjGNelGArLS7OaDrRRhPMFTPsOU2w fIuN51hyaCURT0IzRBHMzWhhnCYY23iKYjII4idaWo5zQo4ahLOQA6CxaPcQ fVwjCmme0Jnv6BjiNRPCQ3vmCWShiIAaLSfj00NDI6KNYS6oXSE8o3N02jrO eAXmMMsMxdDXTTVRnGtoODC7c+eTMzt3HjtdX/+j6ebmNxfoBqIjrK09zBm2 /ZAWwuBSjTa0f2hiG6aRI46sLcSzh/QbhSeMfODlKkuUkYtsWPad29btV3KA SnwguX17JYjH1Ivy7HFiLNJlaOWFBtEKC/7yNf5iwnN6ltZWdQNyDRsGtjdY kcMWBtoSbt2cDHRNBsq+iYvH7TLSeXzDZITuAaAo0JhPt0I/m4jbtjUqHKa2 bi1DranZswlFnEBkoSXTJ2Kho2ydxD5wmdSja6WQtNXd3ctZT+neGhk+5PDi +ccrNB/DFj7GePbBRywRipGIidPRZvtcbxY25DQ99jX97zz6LUlIzhG5NCSj ApKfVlTs+/stW94gu///I+1NgOSqznzPjLvlUlUqLaw2DXijvXTTeMPu8DMY BJIQ2ktb7btq3xeV9gUJJIEEiNUYbLANbm/Ybrfdbk+/18x0xxteDOFgYjwe XsebF4oODfa05TZTkooqqipzvv93zrn33KzvporXRJyDqpTK5Wbm/d1v+/9/ ilixUgWKOPEW++PG+Ohhd96he/Kn6GE0Femr2x9S0dVUbGnpYio2N7dP1dT0 sc1AoKiIDOtXTOOOpqI9ugminVRwiw2t/pli3FTEvZIDJHz/n0yM7RiNwCLi OoPG6Vtumbj06U9vSUSjI+Q/swIa00WIYCgKaCyP359tR1+MRvCMbp/IxZjS kcRF9Tx9uxhpLHNTxpMedrmCJz0YSSEgI9KJwkB40gOSoSe9DgN/ffbs2fBQ +EJWNCOEgdr+lkNTuOViCEalij3TWWP0B69RPalT6AG2elLxEEZ2P1ZkzC2S ldcLOdB01Doza+zY3SjaM7zU0V4wBa4Z81papkm1TEiDFqv8A45phcgpHKl4 xcObQ3Rn4VHRMYsyHhMSq69vaJ4ivPmOjn5ao/TnCbpoPZNy2MbHm2tufpxi /Ifp1Ry7vGvXo+6F9vbHvAsdHWfoSAwOHv/XoaFj58bHD6W0Zc9FQmQIR1c7 1tuWfDdgrxCkhTNcfVH/AqWaS7W1Z9jyx8XuTFdXfy2VnWlsfJKNAMyCIcD2 7Y9brj+DbOzbSWezpqaeQm1tT6GmppvtYLrpW19X18pDembBEM3R0rmaokxS T4eWOJubwLBokoX9gNgdwBdQnNZWQBs3HuIYdOvWUXqCvTaNKUjrIfJuYQ5n saOjZgvPYWwmVFfB4DYl8bhCqGn6en7GIrN9aXjZ0DkTp/M8T7AwjjzTdWuI 7AswzpWGMdc205q+Ollr0TfgRPX69acLd9/dHZJ3w4aNbhRbhqKJjpppAYRN b7Gdx51eu3Ytc9gXaOxYNDbttY5ur0USFy3UyNFXVW0tE2q8PL97hYGga4QB VUeheYri8hDNOZXcNWg2y+DZF+j80YjOdFHZOGOrIRKP8TN+Tw/Ht0MW+A26 F2a1IjYro4YZXY3rt+gEFuL60wrXb9HTOE/3/A59blJX8e5ebG5uBq6xUmne A7qYHaaL26NmMb9bWvpc1ZBHp5hWIPvcl770S4Pt2/DhM/9dE0+mctK1BLMv Rcw2pBenTZjZKg52m2xmqzql+/pNN/3jhZtv/h7T2mL29Cc+0Y1VitmxnGdG GPo05Tur16cUs8392ZZ9NrPB2QoB157Q6xMk4jproxrrMqCHSfGenkeMw33K LW1vT1/d4fmBgXGC1enI3r7IsU9q+PGS2R1r+CliN6eEl0fdPqaWmbpWKQdf xJcJQaBO3eYEZpcvktnXCBnadLzdlWntJWZofTtDa1pfdRtQfKDEEeqWGQVs OytL1/7YlxhQc1pWrQlQmt66wct9fcdYAGJo6Hli7TPvNDe/PNnU9O336uu/ 5dI5nS7GUNWh4PUJQuzz55ub/8o719T03ZT/r7W1L12oqfnGO9XVLxBGz7AN bnkSh28s4jDsd9mC11dGvIJHjz9/xx0/ykO6Yfv2p9mEr6XljAp+YDU7yjqL g4bFvCB4CL3/Zh6abwKHMUfP+g6wbcPYgllw55mjE1NWYDIPpRBs8TutfFAw 6WDlltbLnjSQ+YUZK/K+WMg3oy7KCWCfsQtWV+U3btxMa1NJ/C4R8Oso/PKZ v7jegA8uzvaqoKfwa4ZUQBuLs2E0WFmas1mhTuoKQW+Wd0htnSrcccdBWjWF u+7aADVnI3MUY66eIzXBr83cWMORq3e74cjRggu1tSPhIPLw8H6LtdsAWeZt 8P4FMq6L83YOn8aKKC0cNgM6WmZc85Xx6mD/SETVKfo4JVI1I1A1SKbqGziF G6r+uUDVD2P3pjdtOourWPokTlZX76Yv5PFzdXUvn9u+/Rt2BvjNLVtefAxw xH9q7GPBgMoJxbvYtKjm5v8X56Y0pRnVMf9C31jg5q9uuOGXoCUT09fcvPHG s4adKUfR08S+4eJzZnLMG+NnWkgHewI/y6Kgztxf5JcTItSEqeVCu6wnZIIl aQdDebtS6sRnOMyKTOv3FZvWzw4PHzAOOYacKCaWHClxhRxxTugFUolu3+4A Kop+Vd6cjgQT9Dr1dQBBDT2Nf2wMn0uS8fk7+pyH+LxKSA/riQ+0/RiEEtL4 o2DmMq30sG+nh00rrJ448e2iJusNEzpTuXirD8Myw3t6vqvrgIXLvfSo4zM9 PRNQ7adjz+Y4jEzCJVZKsTI929LywvTu3Q8xMzVO/1hb++LFnTu/lvIiRxwC zyBL9zc3d30uCY1lCo3sT48k8KZNuML6/Od/xu0hr9DZ93lrwC/NMojoaF2z 5gSRCN0rLWwuz/bcMgGvtQmIs37MpI7uuaqqpwBXGtwXDHVaWtoLPT29HGAS 6bK60qmyvbxYXmgL/VP8TmeFCQZbQgaCUcTBq8Ne2mUKfIDevHalofdZoQ4t WBQ3MN5MBphInKc/FfgnteNMPgPa4Fx/tc4AW5ATJzsDgXaOpt3g4ERRkInz 3VEWXdS0cwv33LOGbQzuL6nSr6WNZjX8LkbF0SV24xCW3WlL8X1Noa3tQDib C9h1d/dg0FUKLv33Lz5xvRpcpVPOQJ6+uvN6lQn4c+P4Q3U0dVNp8iEDzORb IpDP1Z1F+Lwb8i0VyPcJgXwf492frKvrowN4ZvqOO16a3LHjCNhHvCP60TcU QaNWNEo5vHtgoLGRb6J1nVwIfSgZg/8Wx2DiyAhj8DNC+OgoDL5x443/afqG G160MJhmDOrwkdenPtU0fdtt66c/+9mVdMZUiWArnMRip/GyZATa/TwGgbH0 rEaggZVgGRdmfCuS+Rfr7JH4J1nGSa6wSoPPC11htTNsEHm+/2Fs7AVMm0yO j78IFpohC2R97X4dF7/whEjSEUZHyoQscE7xEEfY5pkdUfJtzfdD85ANC0y5 VOJhpTaTffHFF8E/RUK1nz958mSYk10upIC9qOHHtMGm0snlUpMCBgu1fqBn QkhWBSYGlglp3jKV5n2vr29spr39zHR39z6YtyqzmrIL27b9zaWtW39M15zf n+7o+CoFnI+CeHRET00ODp59t6/vDJEE+dOnF2NYM0u7Se2CfhWAnjOliru6 KGwFzt78xo2PwboGPxGJHshakvsA3/r1Yyzht20bUrA7dtRyQ2wtxgPh2o21 lFno2ixMfQggJO6vXn0i5l+zYcM4AWsYNpl2VOeGdCOycYiimmE3xYy4QTqK 9iLSLVW6gXmMMFpKe8o/JpinFw3YGWdxAzqPGQc3k9B0HGuSlQjhQeNgFPCq RVLP1yd9q7CJVaZaX+nFHmfArVy5lo6qIty9995HFxbrbOmBGOFYLN8Jy5os MaT6YEOgoSQ6NKRmfJAJMmoNksxhIJQxy0qT7FqNckga0pcOi148f/1ssumC Zhxt2kDqtxRjv6W1ClLXx9E2m4S2q/h2vo02rDfwlVsmVDM/pquZdPoB0hhk n1A4w8/4PW7x5s6dr5y7/fbXCV1r1vw8lT5XVfUqh3VY1dXfRD70rbvv/unr bW2nU/5r/B2W8qIx1ToNtpgAgQbb7yOwJfWu8i0YbKwuoIqXHhKh52655Rdv f/Sjfw2ieQwzLwazW2/d4THF/MkvfvHLNsM4uigX+BUIKVBf4FfOqstZtqdL I34Z5oj8kiTcM8n8Wqyr+Rx0XuOu5mx5alzNtV5PGlYyJqDDAhqM7akemWCO /frRR7/J2V1XSIOWCQ0/uXga1O405c5Yc/iWWOOjmI3EvV+vvg0Mvq9+9auM sHIBZMsikCEPaoMsNs9RKeRFPaFzNZ3cuToNMRvTpbokKmCagiU9v4W5z5zK gOLfXsTj0jtzno7Kbx544Dn6pv3SgW0MHeQNG34F7xist3bseJ1OX7+gc+rQ 0BOpzKXR0dMz4+MP0cn52HxPz4lCZ+eJQlPTYzodmewgww16UerzFu3MRueX 0JmNnlsi6Mp0bXfXrnEUI1keN6NbPhob4XF6iOjWxO2ttQw3unF1dc2c1n9L OaDEMhYQBdtuYLRl5qqqRkO8GQcZSAVoBxkHQmueEM95Oo9pEY8X0Y6zm0bQ HiahwB1HjpHOgE5r0ll/qCjKythqs6HBCx2aAoYK6TU4KrizwZfSrbAzUCvQ Fmz0eVI24sjhQS1/7dq1qWWLxGGxbA9de6Y0C4mBdSAgUzCtWUigKpbhiRnH pOOpTo72VKozbVKd761aVcO2QLpUGNP7XZySwpXKhzEQ+gII04kxnvcGffwY YgQ0gO2q5KYesBA/g5GpD8bDvLcgQC4x8EOJDHRtBhLXsKdf7+196q1Vq34B HvK6885/eLOv78nXh4aOpzJg3/XxIiB34jyooy97KlLD7ndXhh3XDBl2Sp8u NuSPhaYdij2IfKm0YZ9JbIbwI/DRCQjk86ba2gbNaRdokaDnC706gQA9ZTrq 23lLA76URb4w0ipBvtj9SuSTPNRKmH3PDw0tMPs2naxs9s2mao6K3P7bgQP/ CflLZTrKu39hYOBv4KaGPunLAwOPcSvNEksGvmgAk9VkNeZsj+8il1WlKKQr fTpW83CAGGn0IQDqKgTKrVgk5SoEyrlRd2vYsZMRKKfDtUk6gmEn6xKr6ldE uVi6UlHOR6jHqrN6neeDw89pqXFvMYjDz8bBBSnMi3SYZ/r7H6ao+zhP+0Px Fahra3sEqHPAOjpXF8Vw7OOipeChm2OsXCzK0atIQNxSHcvV1Z02PTe2n0tT 0x4eLwDafOyuotz8jh3VoNwc66ipHcQDHEywFHHveuaeZzOv8OUv/9DRBi5V VQ/ROgCjNA4Ua9KadkWMQ9S3kaU4N3Iza0g3aZiD/eDq48MTjrYro3cqr8Gm EB0IKEsLKKtcJMpctfOjm4nGrA7rtm9vDlGW4d2jsG51XnuZAGnGn8SmWTZq lrlsmmXKefcm169vmFmzppYOXR1COXtwUeclxRmVSm2yar0aAy9lskq3R3xs 6JUR6OVH9JqMF+gCQ68wFNMUW1KaYjOGYjdHY5AXcWZMSkz+ySIpllO3A8UQ 1fFPjvrda/QiTELSRHFhkS6K4mKFOmQojyuAxVy5Ndv+nzjbEoc2mG1/qeLB aECDcMZIU2DzLnz4wz+YuvHGbzLQCGZpZhkmWUZwQufsY0UyyGLZxxIgsxti ikHG5/GizswYyByhi8W2vhRAFoJRg2xS17Asxbg0gWzEgIz+PG47Z6eCSA39 vcHBF2BQZvhlW2eHJmWOkmKFhXaxLWise8ViWjiF71mdrPE5Fs+2L0Hopppa opQlvf8GbakKYXLj6kWyTU/Jv/700y8WT1XE0pOO0O2SFdKT2iAbTAOn+F9V amLS4YCJ9jvKoGZhbjKrZjVs3tHj8kcAnCwShsvA3gTWJlOtrS/PdnY+Pt/V dSoPtg0MPFDo6zvuAHR0li5yOmG+NTf3wqeM9f5Ci5NF0e1q3v35pqYjdlcp B3KeNfI9MrKHINtBZziimyMgLoedUaGCIKCNc5dLQ8hdzZDLcnD3pS89X7j9 9p/DpazQ2voAJNV5el/LqSspdUadq5OYBnUI5ZYozoVDG0mcywqcUzqnXh4t dxgeRK8M4jd+6j5hrp7+1JCvrW2k/9fN8FCJALoKC3R6lk+DLrDnFFktDkU7 itUyOlSDiC1sRkG2HO8BHYdVMNc21tqlOJcTGlS0Is40vdd0gbObDko/PRtL vkeRToVqFQLpli4kXWgnfpUmHV0chqQrE0jnqAmM+d27D8+NjR2/vGfPUXzN eWped48YwjG4AjWpaPd4Am8S6T6mSDdHVJuhb/0UknFS88n12B1ATfMNhTj8 yH+7QrMMM1eGZUFiRnKB3eWxCFhholKz7F+iv7rygAW7bjoCy3xFtMmPfvS5 6b/4izZGmA7KADKMDuCkDimzckH62xOaSdICyyRja0dgo+W6yf82nM9LBfb5 3Jb1zCXjLJaR9AQ8lqmKGt31xNTo6OG4t3UAEXGj4cbeHrDn2r37Z57KPQJm xto65Ud64lILZrEMq104Mx4cMTdv1b3q2y+aG0lweK6JcpCGYnQwsbsmJ2kX 2GJUuzaRaoFNNS6CEdHeevjh7zjnHnzwewTOQ4deRWCEv0Igd15V+RZCLSdA LRdBjQO2fezUEv5bvq1Ss12YqkwrqM1Cr1uDTZmI0P3RwTRgM3YgqNsZKxCs 2aaml+hrcUbBLBPGb7TyxhqEgjWjJx4IWqfXvB+8fRA78o7PWPYgw8OmUYEF xCHMSbFHWH4zSJvfubO6siTVFvaoLGfEqVMlnELUyL0SODWK4tqJs1BX11jY tq2W6LEdUFuumQaexTKTRUzz1I6f8Xt63jvwXJboqT8graamjlYDVp4WXdQR zVgloOHdbdtqJrdt20GHLMY0FuhMlhn3bKaBZ2mLZRgzVVPvYBkKcavBMrPm 0SfpLFIZvFyYeMioII4nUWFbh6Gd2toOBMctYf4X04vr6W1ZKJ6+rATaVuD1 VCqWFSYm9hfGxzEZcUxZxNLLJo7RYz747sTE8bf7+g5lGWNcQ0PUdcVGyo8r 0F1EezFxyizDsHIh5XiN0EXycQFm174vmMXHDjgq4wF6za9zEb+uPGxwp47p dG6RoRWoMOzcJz/53XO3335o8rbbRghcdX5ErwtjYy/i5A0tsXJh/K+4+w/c yiTTK5b6K0GvaTtqWVLCkKlMQNcVjKOLPCYDuzhnsqfglqqh+XjlxebRoR+G tquC46RRX0FwBp5pEe+YRwYsJ8WRwECop/lRsrGonSZMNtoB6jTm6E2qQqvI 4OUbxlGgtzi+Xa8DwmeeeaaIb96bTz75JPwjz+3d+xMs1bHhv93T89eXenoO g0ZGQo3OCQsTkZph8JdEfwgYaDOMb2sxLJaI1AzDCIMpt9EFSciwosAsHF2w vTCM/CgWeOYxz5QXBs7xoRcGE2xFkbYaXk4ism5WydfiiCxfX3+SO/209UUk z10DdDG+0rzz7/J6sXNGDU/mRbHa0rnQ59ikI1MrZKBVaKD19o6G6mrK+ipr u1JqN8p6ntMHvUAxlJNsqm3bti2iGkMNCdMdPKjfG8ZnWQ0y9PBbnY0UfULv EjjzATU6Js0zmzc3TVdV1V7aunVnalnYXZJNdsswGMu3t/fRYyiGDQ1N0KON FTiQCttIQobRv1UA0Y2PYQMkXLjSAsOU5zGbNoUBWoDdBb7oxnZ21dU7UG4o ViHU0paXoNgyoZCW01AD0MbGjjDUgoKCGorEW7c+9fsNG554c+vWfUFcOe23 1sk/1kCilGW4n9mATIVk9AnWQGOeZQWqLV8k1T64yHTjtSHBimQ7jyo4xSbq PqX+6v+OQ670ZMDd6sawlSiKz9Lnbr31a4CcWQy722+vmvrMZ1bTCUK1j7S1 HbHdhPlcX5aMvVj7iIS9tIAnVwgCy+NBIE+qVy7EnkFVKezFVESTsefbz9Ng zzw3vO4iTGds6wqW496792Ww77fDw3+HJGSggaeURQ/H3BoDIYzzhfpaWgjj cgLyTHERh88gb3mEPJOcpEOyOOR9UD26PUMw+cADxy8dOvTQ1N69j54fHv4x XSuBdcFka+sr042NL83s2vUAzBjmOzpG5rq7+8uEsYEs7x4slcOxAHppysTR s5tTQL4lifN1cej5QjbSFwbsHXV/BOSjxgQqZlWhIzheXV0P0DXKQGmrCmmC oDwJiB/TLZW6xwQgpI/GHkd55tDZe3eoyN3R0WlFcwqOBDlGIEwiaxxw8CoB f1fJ+Esr/NFZ9gjh7lDMqgL2lVo1jQVqMIhgo2+pkKRU7ZWgHvebKG9mN2/z Txod93jPgYEmsOO1dWszgqDZDRsaiIV1YCGCuxUhCtOJKMyyGFpLy8EQsAjl 4P0BFLa1tQOBCodwX1oljZhLAdwSoafE1eNzaAZFPxhO5I7AQk/tULOzpXO4 MndNCf4tFfiXtoI64h2TL8N7jqvFSKHfd9/J+TvvPDy7cmXP5P33b3qHHuu3 9LiQ175MEZxig/8eMfD39DF4E5zSgV/qVsXCGZwODQt9gYVpYe58STILY+W4 m95f6a14OOCBOAk5ftMk/Oc4CUsPB9wTkfA1etFvfeYz3zaZynOf+cxpQ0GK WrD7b3/uc/umb711cPqLX9w2fc8927gMxaa8Ev4cIWeZFfAXCDlLL9GpybOj SCCryIWIy1B09+UC/CS/phJGxHY1L+wTZTk1lbh0Z0dGHqOz4guxKA5oM06H LnZJ89oTamzpKJS7gNOzxTU7PRm2iwIgRVyzi250f8w1MCzkWk7g2p/EZ+Om 9+17mC51sONxnzzf3/9zpprDu4c4Dnx7r77+G3QKfVIZnEF5bJTO5r12f0ks NZlR43E257DOqywsj8fZsAuNmSoElTRNPLurkt7IhcTzBOJ5UT3PqKzFnCY0 6ei8OQb9GMtpQutoQzs0ZJ7/vpn3KXVs5sE8vVIaePmurj46R48uBB5E1Gq4 ybOWVk1EvaLw75qkpOZyYdjAiQiY37r1hOWRGNCzmDBTc7y0tHYgwLDSgqHJ bkazBhIHJQGztMVBqMTBZJnYR0FTvR5dr3pv8+YqFiOhaPPqkINKQK2suBOx sHLlSKG7+yAFmnv5gYh9eciUrVq1WgwFPd5dU6ZjJnqLJOPScPJAAdHgkO6g NAqtOQoHTJQmx6+28GhJizIeK4X6XaDxqENDC4/pQl3dY3QfjxbuvPNQ4a67 xvLr1lXTW18/zx8ElRqEZeYsPdd36blNsiAbHVUHLpiOpQxAHzOsVID9QwIx 0xExLyLYACs9RcxLx46d+tWRI8fsxhTTwHIBA+1SA8uH319O1KQ6ORLUuIzN 0mlc/l8RLq88crCKI9PX+MW+vn79eBg9OgIzPbWHzKRQAJlAV6HDThbqwezA ph3WpPYfLEuGZkzFpQQ0TQzKdoYhNMPmSdu2XgpDY1lSXVozyiv/A7bBWds2 2Lg2zba3vwIFF7ZrihwOMzZQbZdD6K7B4dARWlg8IVOaESYPMvHJA7uHFC8v xOsyoRKYWSReb1KP+y8nTjwNqFp4zVzq73/Z4BVYna2v//p8Xd0LdOZ+nl78 YSdCK9Aw39XVaw8oGLzSO8IZU7SswIMwpqZmt4LmlCWTLXRq4krcl5RQ9YVO l0BIqHpRQjUkrR+PVRd4WPT3Iw04DC1Ty8PCNR4W7F0BD69dSq97ms7eZjwv McV6myqNznd2DuYtwuY7OwdwCCl+7SP4jGL+DnTN6OZOFU1Gi2NMboXxDW/N Am9TN1yBsxBlyUMZrarqIZ1UdbU89zikuWOWFWbYXYLrEqF0GME1nTgmnqHn 8WDh/vtHGKAbNhhlVIzLs1mTGypuXi20wCg3wWwI1dWrO+il9BqQMskBxDCQ ZJiGdUF6yQthKoWZ0qD68ijMnMfbyqfkiKP01nZaHHVtjrL+gSKpK5DUBJpF lwpM0iUCSb3EQNMv9Pae0IHmEXo7+guNjS2GoPQxboWVySzh8uK6devKQVA6 wIibYSUJilYmsZRuRy8mFEurUGi1q4ypnEIrAtHLx4+fvPTAA4/QGeXw4cfo ivjIkUff6up69s3h4UcJj4vrDb1FoxXiFDG0Fk00MByPJrP011dmaTTRsEZF to/Ry3vNWq5A0oB39+22tu9Pd3f/AEPXKcaokrb2i7k5xe3sAjQtT+DXX3rp pVhCVLA5tCNXgFNHmqZR08CuBDdjada0MLDwvpyBTT3RsgROKY9Dn6Fp/A2x CJoUVagYtL9/gmA5ppwO1Q5mmkRrKVrGhhgyQpLVj4JRk2hNLRXqijmBltJg uqYlqqT/tmfPN2LB6N69j77T0/Ojyy0tL/NZ93lO6p0Nz/GESRcn+UAoKgbx xhi7ezQm9pIVGm1sNwujcybN+nkCK9OKlTH/QzdefLRZGWOvk+RnYaAZ+VnQ p6ADXhZYM93dQ+50b+8Ya7aM0kXGMEekmSRmfla/PmLrHDSlIKvs0AnseCpL 9ztEq9+s2ba2B+n/fUSXZi4MVlc3E7cwAagiVC5YGk9hJ3RP3Mm9LNzdouqC RNUd83qlMthXAKmsqqIH40N1UTDU0eXJwcGDWvd7PLR/ylgWiSZrmxFYWp6U tWWZtqiN1IsG0X2OlqAtBrv6NWvQo7qF06ybE0cfLKhmbajOq3m6NjoAzfxY 1dW1jEkDUKu5hv0Kkd21ipKpQAE0VGYpDVCP7Z3oUz+vl2Go5qddosxbcSg3 yiqGFtUpry2BT7a2kiLPNO+I9Y8U2tv3FZqahszAA3102+jAN+S3b99Jj4pp fXeKeAlmMjLLBHDeiD2jSDnV1tYWUjGj9vkjR07OHz78SP7gwTNYswcPPjpD bAQfoSjosDKLx6N74+OnDByLekrx69Sn/n3zEUcUDmOzf5qU/3uclKXnI9aq G9ukNEHom3feeYaDUMJlKsOYTJ/r7OROygtDQz83uDTNOSZEROkOMRiWLt3F KGpyrKmySLBsEqftJHXOEhQtNjysjCdcOfRcIkSzkq+T5HeYFkLPZLNg34Se 7/T1/QT+TkxRX1N0cPARujr/JkULjzE1BwbGtc9TcHl8fJ8tPGpSt2XCZEQ6 ytqGoAyErG2lUI0se1+gzGJQ3wzu0/F+Hqic2bv34bmJiRPEi6cLqqAHWCKw OmxAyeLmBAKKKXuKQRdL2/oCOD1h7CIjgFMLgzMQDejKEk0v4p2nWSGdKwmO BgKIjYkGBZwlTTT6+gYNR7mjh05WbW09kNnm1dExRmtirq9vZKara3fKo6/T 7lR6uqdnHHg1C4CdHBgYYshKfK2I+Bq2tS5VKWO6366QuTnoay6Z4xhidvv2 h2Y3b356tq7u+ExNzRMuS4SnWSJ8cPAwnTKfpmD0kXx19RGWB6+p2cuSo3BG hjR4W1snr+bmNovVkCXdubMlBVg36V7SOoD7A6ByGTDsCBXUMgZyjmW+je0U 5haN35SBMSS/Cci5kMdbeK4cqtE5VR0lMkoUXiFQOFkCLc062/fee5yhfPfd W+jP69jp9/771ys4S+6LfhGc/Ytr1nTN3nHHKEX0XQxeimDFaDaTDGOp6zUG 46VaeRRBPgyK8W1yeHfzGsyKy8l0trPEWn3Ou4jYEl1IuLigiLoUm8uEGqqL PbDYPDR0oNDTM2xqhczmujrUoHfQ873//o184bGRKL2OSR0sktcf1fl/+pYW 6JyGRccJu0uoPpE/cOA0Fp2CsWfo+/jMbHPzN//Q2Pjtt3fu/MaFbduem968 +dRUbW3HZEND6y1CY9FfYM8oMENRrRjMxcMeh5PB/KsIzFce9lgngNlTYBbi 14wBs1kYPzeABpA18AAo00ajW0h9NuiFZ9fo6HFQldlcLoiJ+gJIA4HN2mnR bk0KnRYtQJsKqAZ0YDPfViXNJXM5FoBLXNb+VL85derH4LFhcqAtF3t6nmD/ NUBYo5hH+UdGHri0e/chG8XlQmNQIBRQ00Jj0BKhgFq+SBTfrCRGjYgA1r+O jv5kdnT0NH3sHyqMjz9oriwKyOximbiVUByAxJLflBdvhI1VNAV975ggm2/d n4DeeIxZ1Duk0BvY+V0eRtHui5mkgqyja6m2xndPz5gD1nIFcOjd7u59sx0d B1LOLCSjMnOtrafnm5vPmDXX3X0cEkXTXV0PvtPW9qh/gTZnurHxBEtzH5pu bR1+B+CswF4OXn54Tql8owEX3lXcUMRWV7lLVVVPQ8I7XHfc8ZOZ1au/N7du 3Ut0jv46gekpYtqzDlHqayyhfZobYbu6Rnh1dGDSDnYbXgGOVpD4xqqr6+IZ RjpLAq2NjU0F9FCmsfMpO8AZ+4O6ARYTgjjzKt8MJQMOgK5ff5yoN8y9RgTQ 0DejpqbWaNyEke1CXVOXyWrMjiO6lgn54mW8+/T5a7Gl1tCGRP9SDeZv23ay 8B/+w2Bh5cpNnLzFYCHRNBz0l3wa0yFQVyj9m0urVk3Mtrb20nNop9e4NW0F tpqnFITTnlskPCsVPOE9EsLTx+6Am84ikam1emaRV6VrEXax0F4WNkLDQqvE 0Jy6hJjHMdQM5TU+jjbjCKMDA3stjGJmB5+ZYToiLRT7b6Njuon+zuB0AyDK IM1cGaczeMYfFnDq6v3w4YcKBFGsVMA7jKSfpk/YixgtpkvfDRvO8Hs9lN+x owMrlZ6CNJMA1c/8O2ZQNGBjygAasG9EgL3yNMoGAbC+Lr9u3rzrzTVrBlRj kkoQ24BVCWLu/X9lcv/+02+8+OKLIKseOQRQMVNo5gqRM8VUdpnAVE/oTzJz /PZUSlaYcrH9HwX9gDBgVXz1i/nKkqeS+WMQBb3S80wyuYL5Y3HQGzpADg7u Nu6PqUDZP/K5mEiL9c+nT5+tEKZNfKGGmhGC3SVCDbXifRE2bYJdlIsne3t/ NN3Z+T2Kqr5F378TdF4kztI3DhcM9fUvFHQNlYPdtAp20Z9kssImsLX7kUyH bCwjHAgqcX5iRjgo9iM2ZC1Tbbl2IjiU1MkmT7Jwi5IGqo5dM+DpXG/vyMW+ vodQOj4/OPgjaMVNNTV9c5oWznffdqCGmvIpWH3KqH//sbr6hcs7djxHp0Io gPt0QjxG19pDWFO7dnVj7jL1ecXTafi9Gp5mmafci4z4Hirg83ff/S0lAu7l Mez/l3/5d6AohYAP6iZaCk8PE6r2EIYGUxEvmZXMyyXMS7TiZlQj0hz9MYw5 A11cBT5N7riCu2uVoVXBVF2VCYYywKqt7Sz09vZzMKrlwVO5RIZ6hrNEtar8 li1bK0KM5iyMmvJspQ5STSfT8PB4KNF2111jRLkNDM5A4TO/atV982vXrmWH SE/AZ7bIYgmn96UM0sxsZ+cEXQ8hvd1LFwo1gGlh9eoNrJ1z772rlwrl1Wxp phZ38ULhNWRqmnfPDkhBVV+AqWupBRmY+nGY8sDpihIwVa88bddaOV+8EKAB faC6C3194xyfYoT43nub6WhsToOhFRE0gUrGpS62GmBGOWP9kmPQzDIl/ZCS 0CAkRua3bh3lEkUHJ0Ka5+rr67EokqadkVkGZLIawReuUD01TbrcSsRk5NkW zcP/Eudh6cGVTQIPs4qKYOFbd9yxOxxe2bHjRdWaq+brDRHoZP3k9J49J9GK pP7aMyw0QjGq7waZwVPFujkSF6VYU+JiTIenBBe5ZhqXBvViAnP05zJBMicQ 8sB+IhI9uwkYKPYty0dL9NuJWT4OWzVUb2Z4+DBbPmL6lahUIYSfnlAyzeqa r91gVC6UTCsXCccP6QajQ4e+BSBipRzeM3Quf4UA+A0AksPQ/v4zFAY8RyfO s3RpOprRXOzuHgyjTlfgYiAkfH2Bi0Fiwjeww0Us07tbrmY0TZ4X/UtgYk5I 62pTjDnLEEObYkwUm2IwEnftegn+UdoUIzAS4VgUmx9neXC6LrbVweGHoRed LfpSnwYNnSkVS6OHgj62DMP0O6q9QCNxSgXBsFD2IQtOp7nHQUf8H66TRCE1 X0JnF9YHhzb41q2NXC6trq6jE219ntZVIROv0s25WnQ0YiKPmLAlRmvh7ruR iB0g+inDx/7+QY4fiW6RSriDPyltcBgRbjaNugRgg7uMkJNdYuGuSMaNnu1u k3Pl5OjalEfcUfaK+oQvEa9MIF65LpTiFKutpZh8W7Z005Os4/AZXa90jk9J 2CsRSkqTm6YoysDLxvOweSThJeY5inlwBgmZl8XODcjLSpAuo7uKoCaLxu7u 7v4ww2qRLQwh165tBdg4QEyHYeL6MEwsV8Sbod1Qj86bC4l3A+++TTxeR44c T9nQq639Gn8kN206VmDcaejt3NkWQu963l1QD17H5xlRsD7+wr9viOVQMQv/ c5yFpUdXtggsLOc94NiwpiYc0kQ2FQlWN6oAYhZ/emzsrEFhyuqtCbVmAj3R 0dV1eo7O+Lb8dwyEUlYzLYDwSo6KBoTlEQiZUkrEJQZCE9CVCdMrgdBTJBkg q17cnF1gNTCMOSoiPiQquqElVKStquiIMkJoiIzkLKsZjY//2InEwyV3qHDK xRPqpVmhsahcqJcuTabkW6dPny5uLGLPZBxUxF0eU9JjSlJEzIto6XA86XEk 2d6+v4CpDLQVMSwDgt2e6d7eA/QiJ4BK03WbETKzvlAUTSdmZj1bYw4MrYg3 2rJblJTELVftR9P0Frzb2XnaWGUwC5XCePn57dv/53fXrv3b2Zqal9/r6noK EISqOIOQons6Ox0lhDwlqYprINJPtP/ZFYiI5uKQiJVMRFx4H83X1z8em7HE aWfz5m4orCoNca2uCouMkHhXhzz8gHbG+NKXno85Y8BpascOeC+2pCQbKFeQ UyUIekKeNOJhWhhp0QbJhdbWQ0VDKzzQSaf+rUzCrA4CV6++z+6eKcXFCoGL WeZiYHOR2aiTnZxX1v1NwCMQVKHLlDYeyzQe0XtUaoKlXMBjucJjAQ8Z1zTw bTxiXWTnyBCJSnLOsyc6w55jOuVVVVXhugYTMWEvEGhIdET8lzJ1SXhaGhpm FA1p3zBvaFi5SBp+QOsq0dcrJOHBg6eyOkdKJziWXty48SGW4O1wFAXzO3fu ytPnivjXkLpOU7Ctre1iR0fHO/hgV/COi81B8BBLkZFOA4CimQq9JTGXGphc 6le0oncTLfx5hcJbbIzlUDyg5F7aTyp0/mO8oaj0GEuVurGZ+mRoVqi06mv0 UuLBnKMTphYwWaeNQImAMR3XruFB/hKMFP2YElwTwySql8xInMrD/tTK+GNw 8lTyS/SF5KnU1JTRjVFFlsOsu6CGMANOnJpwUa0DkVcUmhdGZvv6nmCXYZaz KxOmUFyhRpkTMqhlQo1yWTL+YlMoN0b4O4/2GeDPwe4yA1E/+55hIGEdO2Lh r+pevn0UBgy5oKCrKEhB2JAhIZbpD8oKGVQvmYLhGIvQUwsC0jklRKBp+0kl u0Wl7d5bg03WItqw4Vf0Bqxc+etUgD//rqnpF0iZvjs6ehLGGkAgCjjoTbC8 NbCAQDoWCoAtLX10TdQ1j6GUj+lOHdpNphRA5GSpM6UGVPH0EBzjPLEcu8OC da6hoZ62VESsquoK9X5svXHjqsGdOY49eYJ+GZNOXc47Jlkb5611tWW7Ydhp bDc2bXoyZrvhJtpuhKlSw8+0EDEu1YTU/bZ8C1/gbFbfDtg2JA00SQcH99Bl SGNBic7R7mCOwxO0DjyhxWeJANJAjbdMYWLXeBc7ytZxHtGINlZOGaIi3Qv3 LKClTGj8KV/kTGhOqF0u0dlWy1yEFndhEWigThsGm5OQYjfBZmVIVnpx9MBF flSRdAKRNV9MViIW/dzKZDXduGNjR+kbPcxMzWmyrlu3ARJFzNTlyWSNdfdc Z5UjKbZkoBqsIqGKi7xt24YUVnnOiokK0UItw9uQukqRFV6Ohq6pmxZJ1usF snoqBH29r+/om21tDz+7fPn/m/IPsyQryHqzpmBqqVC5PBj/HZciNWJfuzJi o+mWbe8HsamMUT81y9D20sTEU0jJKsp6hrJmSXbCjpCVzSSDNhaMSqAti4JR 3AtrICzFYzhKCyg24pJLpq00vXpFdysnUWo97s44MLA/zcT15oaH90CWwjgz KmPGjB2CGm8r/A3+j58dYdzFEXK35ULrUE4obC5fJJb/RMCyx7t7aXj4SS5w Mp+ZyAG6ofL9/afotR7JDw8fLIyP78E0iFdgKAPNALOB8mRf38P/fWLipVyy THrM1TgrlDWteHO2CMoX6d+Gw57J5lcLbEFwcaAbmbKwBIEdCP7PMe7evT99 u7f3p3QW+OYcLq4IzHSqB5mVpKwhs5KTVdna5uYB+oL0YAqm82ahHyhnIZml Rg2Sr+U9ZgACMkcDm/u4lAgKR+rouSQCr5AJrIRjy4oNQOh8+zzTF520tbV7 C3V1rRBFL0DCNbDsHXXUmiorgVx7zMUTbmfGYTZsOFqkPOSyylJnZxf7IOZU Mtd29MUEpb9I/i4LO4JcRd0ZbaSsbZQXUtcrRO3GoC4Qgwh61dJFYjabiFlc z+0lyo3R27KLG6sggKEwW8/i71cLTUBKVskD/1hNEIhubW21YQr9DHUppkL5 hobxcNzF04AdHz9cmJjYR29oNb1xBFiH5f/cPNE0zOauEJp+JMpeo73L7Aaf jM7iInAlwoKvoCvnQRz6PDViqKdxWZytTNXbFsnWct4DO72LBaa+VVf3pANz Y8Lspz71q8PGWFhjtsnG7BKV/S2ejjmgCBmbI9Wk/Y9x0paejtmxSNIavFgC dSbpe7Gv78fcoElLJ32DYtRiHGR+YGBIFS4DG7lGGgg0ywmkDQQdJOMiacu7 atIaKEakLdJfkELaxVogS/4jbrIxV2ghSYBNacKi7GksJEMbLc70OiApHWKr D1YbI/PvfnPy5I+uBNZYvJsViqJXLVKs7wYdZ+tULyM1rfAahrrd3U/TW3va A01T2CGnOUFf3QnCaa8bMnUELH2nv/+xtwcGvoucKuTZpXSvI5REcyUacel3 YdNtRcRU8BK8Fa22sskq7bFZmSBSaZ/cteu7RqX9vdbWF8BRhdSAkVpTc9bg tEABLp3uutF93cnmjx3gKTP1uvdD1ht0LbSjY3eR1O3jepbTY7xifASI7evr z6nA12gsxPQWyvRUCn3Lw9zwNTJulzBu/ZgVibYh0Y8cxPTaKQRh7G7dut0p oq7tR7KwoTZOXdeiLkVhuuVW3W7dul5DXnoKir1Kkk8pKVRVbVW+i75tQGzg mwoWSd8VIX2LwOslgpd9y+ZwVOm1AMCBUGKtXCSKM0JnUZmFYgj0w3bG0eYz 3d27gWYGs6PwDNnD97Ztq5+sqtqRupbxHNh4ZizTUwWWo0mVVtaAoKOuBRD9 mE3LunX1hY6OB3SN1efYd/fug4zn7u5exL06BvZNDGwWaE0XiYuj9AodC+N6 Lk5pt4D2akNnVJgbtW4/LkXi3UVFsL4rEdZeCGsNaF8B+dzKlT/+8U03/VdG cQZ7pVx/3R9PMXOOWBP4l6UJHO/SrRYIvAQ7w1A1GfkXe3peZXUfLOIsIhmt 8BMPa4mzqDSOqMqo4awY1maFwZZS7pU2bFWkyl1A5v4A3MqolGsCUdOXFNM7 Wqxls5m9sYNkybLZGFcODu4Ji6teZNk8OTp61u5qZkn5gYFvA73nR0b+McOU 9YzlF9a7/f2PVgqdRhmhhnr1+1LAjUM1o6JVmNTN9/c/zCwNeM9ShLonjxM8 qNrXNwCqFpQIz+7Zrq6z9Jl4WasKphH3cbKW0AozFHih4P8wR9Fzn4GdVMYy nC0XEKv7hzg8RZ6/CLFg1QyoVSHkkjPCTIwraB4F1jgqHWJRRF4rCqrcssu4 bWo6QfChsBOjJb4C7XxbWwTaFVaJ9TK9vrDEmkmi7YexKy+UgC5tjuipzGgy kzieC4VzAQAlIegKEoLlAmqvZdS6Nmrpdko0DkW1wcH9lh9KOpSONwuM3byZ 51pisvGmtXa5AFRHAK+j88ebNzcXVq58gJ7VYQ5njcw7YIpqJUJZJqrPpsZQ AVoT5kwXG8yu0MbM6D4eiRyi/USYBgamZs3rPLIrQHWx8W1aKMxmNFTRE2ug GvCeCaFqNBRxqNavr5/ZtKlGjb5yyDtJL2qKTtEz7E0agRRh9Lx62VxRluwx 81/5ymEAlWNeFefuZ5ju2bOXHmqDind9Fe/O2/HuIkjKQy5aHGl+/fo+OmbH 6Ut0MiTp6OgRbncDPtMhSXNApwNqblDAxHzYperqfdMbNz5GX0rs/uSmTU9c 2Lz56Qv33feNP3z60//TN1asOKcIqTLDKfNfhZAZ1rSMDY1qWv4ioqUJZ5Nn WmqTaEnx6jPPPFMUr/q2Uh7XXDs6/kqL/rghSzs6vmbcHTVL94KjdB0EkEKB YdQOVCWLFl9IB0vczCpZdsaHBTo7WI3BrlyAnSsEqxI8fSEjLLk+B+G9js4P DY1anUkIYPdwny4B1Bhm/n5k5OezPT2vXBwYeFUbZnrGY8z0frm6B7q7++Ei VeB4R1JGKMle8/4sVGK531xE0zm8xNHRCU1TRN8HQdNwQYutp6cfJE2pKi5f AICn/+3AgR+fO3z4VQf+Kyn/3Pg4awya9buhoSdtn8zQF7pMSABrkmLyEz3B Fkk9tovQDEKQasWr4WSoBFNPEEXyo3gVMDVrcnj4AQjTe5YmPSCKdiWs/v7D dGocCMBSL2TprpClS5LalRJZ+qe8p7lnCRFrQ8Op/K5de/OIZHFytWc16ZGM S4tKEHMVkYXpWbs3EPhamZQ+jnqdAt3729g4UFQk9mLOLFu31jhF5AQzJXX6 q3RAahG2oK2kNVU9QuUEkXMfz74STY0Aw5o1a1lcIWpucnV+mBf/w/t43mWN aQJedMi6XEsT4ICN2MIPDlCry7Rz9FnCpQdD1lcJY8wFGdymHOzOvHrV6LXS oE0tW+ScqYYsX8sYyAYasjDlMZDNasg2NBykI9jH2ooYz1ECxZvNS+MYfEmc tLMQtrWtVxoaGi5xFjms7RolY1vod82aTjqAR3TAGnEWV3FR4MptUSZopUdR 6NXYZeheL4zKLBFapcq0Ed2WLa2MXqhsDAw8bMZJDx06SV+5IaZvpmCs57iO y8FrIHRJbeY9O71ly5PgsFkzGzY8Nrt+/RmKsR9BTeSPn/703xkaN9k0Vgnk +BzNvmQa/yyi8ZUnauoXSeOMpb+H6UNgWA+MKOUgoBh9JN3dZzV+6ROk8Ds7 OLgXrpfGP0XCryeErelk/NphK+dylWlqmFYtnqmJ4fIKXtXhjGsJh7TY/WXD CBb4HTEzoxZy+Srm/OjoP4XunvCq9iIrtNCjWs8e0Qn3OTqtP1TM3TCKTQs1 12sF7pZj/4AA2jKVCw5Bq5dh7cjIhM3ayyMjpyb37Hl6urf3m3q2BnnQ78+2 t3+fLqF/bnxfIOIL35fptrbTs5bvS7kwF6OHPgE84/miuerbXEWUmpgMTgs6 +JLzi1YcfOPs2bPnDx06BLDSRw67O0W3NgJJMR18Y6kJHXwiLGsjdbqMWHRM d8y3t+8yK/O+KfvnvAchWc3q7BzDeKsBLGBqAJvWu63Vq//O6OKLmvgrkoB7 TQhcYkxtbU8ogh/ZwHSwqODWrdtULpebg5cKgenVWobB4BVr7dpujsCqqpp4 GBV8Q7MP0ZJj04C56TNL6ce8WmvyEKiXzF2kzmFjD4aXNBJT1/fyJmalAw16 BgI4XbUjozqD1h/QcvkimekLhddACEyzet+06bHCnXceptWjhRSroNRkR5aW fmJaoKcRqCe44GcQFH8fTeKkymbpgBV3XDOld+5sZ36Cnf39A1Gcyun5MOGb 4rD1T4Tup0oBlsaD/L779hhY0rsEUnpMSnREHT36QKGuriGnYDlfVxflex0B llW8e5fo6nN6+/ZnZwmUc+vWnfZASXoDvvzlF8BJFF0NK29eGLkuSPXujZgY dhNrXP51HJfFQzdxXDZhW5rEx5Rn+pggTwtEpnWg2t39KF3B7GEeKiq6MxTO wAca05OpimQkxsZGJSRmooi0WJrIRmKodrskGYlJVtolI1IJido9jZGlb/e7 w4dPsgSjTuHajqGs/sS/ToeEHBv7e/ARgenFrq4fzimtBpUvBx37+w9ioQ0q IzQl+ULt9PokQBYNlF4jpHnLiwJTljHj3Z0fHt7LDUlAp8O7T8HpAYCTntle vNMUxj2Wcs7t3v0afacBUkLoex0d36f7aGv7Ycp9b2Dg+X/t7f1rNb2pjGYu dHT8YKax8UWo4sMVTBvNzHd1RW3EGSH1q/SJPANWVlmgN0AJMLj0TIYNX+nR OVkExhYXZyWHtZiyry9khJM5612EYjQ+x/TYECYMLNT296MQOsZahO3tSoaw 08lzehg/+2CsXXedpDsxqgyT1ggqEPs53dPU2TlqUxXaEZg9JLhyRljTM2O5 y4SGo5F2L8zPWH+B6LoTKz2vTnl01l/gOSpkjAsYzzFYNW1Vg4MHODFNd50y LcfaXyYqmzJqKwXUXqO18m+99euEzQn6u2qKWLs4HCWU5hIj1MCQtnDvvfdh GdpmFGzniBcm3ynCVnuR0YHsDmGb0UEypmRLhaiKtB46kmEQM0WPM7N69erF BqieAFsvMUCFBOQJemUPsqQTBBJXrtwUCiRKUk6eVToGU8FWi7nK+Rp1SZz6 l6kBWLsum8cDQduYrhSZsVu3bo8YmxF6nxbL2EDvVkAaVlgPHTrl8EirS/ux /ODgCFBLBwGsRZm1Ia9ZGzYWb1d8naIv03vV1aforp7A8pmvHt37U+Druc9+ 9p9QQ00LyeEl8bIps5TDUR5l1VT9UbyAWtwszETFf3y3zerGsVHWCgGy2Sgg g4gPp4IDLeIDJPT2HscEJiYx4XERpn9x/sVE5u7dP7mCQ7doVWrDNh11A4dx oi3Ua+BZHgcvlmRVWtKh2xMEgH1B+KFMdUDZzxPPz4lLHbNLq5oATie5lP6x r++vU2nt5mZBlkELtTRJxNcXCqofWCRprxZIWyGQ1sOu+5TmCLd88UQ/Aase UzVNGEAI/UOz6JA/wa7j/f0/M9ZtF1taXqZvg/KXaWp6xFi3aXOU4sGcEIlp JVGPSVdDVUPWVFm8qKqAqvZYuJtLtnGTzGXOET4l3d8Qq74KX4FVIBWLcE67 AWtn5zH6RuxGezQvgDTDan4cxAKscx0dPSlnli4oMKkzzsnwMTqQw4qscdUj TpTT6/o4XlzZPB8lrsrpRd9/1h7EhCbF/T35hoYH6SAfRuv2QCqYb23dM9vQ cBT21IX6+latyNvEgz7EpmIHGs1iV5DQX449K4DYEUC8XIN427YxA2NdpnVD IX2KTkNDGltEPy0M9EjyvVdpJN9/f0/h859/qnDbbS8Sax+ml9hKwdV2KWns azBbOKa1xtGVUoRvpl6r8WyXIkWGVQp4zibi2Sc8o7cMhdpawBlWLPSe02ty QOeliySzK9RnXaHpSZHZY+lHQ+V77tngWmJR5tpDNTGlY01MWMLYbN7msu6X mrzvvp7L997bM3vvvd10/dFDb1MVcsVZK1WsQ95URqjS3pRM5ssYrDL9TlwZ dzjozeTvu+9AvrZ2lENetY7xmO2uXR1gssoVe4WGhnY6vXbO6WvVrUxj/yLE xqCCrV0V55qbh7iR6gnaN29+nFPEKgBmTBtEY2G8hzG9TCja7o2njnk+5xOK 0D8oTej4OE9rCUITRosJza7ddP6+PDj4uJbZC1OasC8zLixQFGI3KnDa4d3H qZ0VhWx3caut2GDbIDuWMs4mI9tOGZdC9hRcfLU7jI6VAxu3tsO4RG3JMU7y WNUhsu2Kasht5pXsqahQoIPiYrZdHRo6HQp0WKimw6gETfv79yMjHSs4231Q nlC5/eAisb1C0JKoFLAdRAHybE/Pk/SJR4MQKI4w9DGAW4XEav9db+8/ze7a 9V0EwykXWYAUfFy++YeurleB7dD0hoJh29jMEaT8PQHjQdQTFUr5a7Qiig0R nBGQ7imkA9/FSI/1TnlCe7K6P9/OSIdyFhmFcRMZM8ZdtRMxnwwz046u/4Lq PT37iOwjeRSiFNl3+Qx2n/7YS9/hIaz5vr7hma6uPXTEu7r2QgiRonA6nLvp NY0YoF+rBSroYM3D/oZORPQloj0DjF89h5DBpVjk6dn77vv67LZtZ+guamro PaCT7lP06XsYQvzE6kegq3/cCPA3NvbRM+ni1dLSTj83M/IjAX5Mo9Qb8f3U LdoZB1VQLWQLKfwKIAva6w/TfeogWgfPE2FnF9Er1L3QueoYu5MMcEw4bQrD aOq5666ntBrQBOSl6LkSvV2B3oGmdzygXhMI9E4vkt48uluhE9gWrsNaukd7 HXes1RHVahnXgXYfJwSD2YzsJRG4ixurYjqIjgBuFuYv06RGDP2Vr4xy7Hzv vetYFdlZOG/LTWzsMF80IsTHP4yrr1NKiZfuv793fmjoQXoZ0DMcoRfVydci XfSU6+vb5yjoxkqVqeu7WXqEkMwfEvqnFJkDuxMZi45rJx3fXui4tNHrHx8/ oNPRSv4CkhaBBeWmpm5zStFuHOxmjO5DfEN0V5UNavqqKzvk2tp9Joymr6mC 9saNj4bQdhS0p+6885sG2shfJ8fWC2aF9iRj/LtxjJeeFWovgXF7VkhLBJpJ UKAOSHR1xTciOZCzz1dygDbML46MnPYih7r4PJArJLYlcAdCrO0K4FYU9syz NPBW7PZt6Bpv9JRkju4Kue1kc3TVBmX8Vp346JLVwLbA6hW6vWYCh13rurpe CK1ei2JuOpR7jd4UOrsc66FNB5YnVIJvWCTHlwuF4aWJHA/4WiXy5t0/NTJy CDT3Fb7fOnLkl+eHh/8X5FkIE4xvQv+jLKIFcDsa3xR52/h2Q3xHljGukNf2 k/Ftctw2vpHknjXlVm+RiW5X6NbS+Mb92wi38W0nt1M+78gj7Iu57xh0A8QO W6v7BZXx3kV/10+HYzDf0QHl187OvWxftnt2eHj/e/RVe2fXrsecC+3taOJs bT0NQwAsiqcfmm1uhp0A/WN2YfcY4eyrgxMVlsr20e8I5nN6pf4MuzOlzmr0 fItmuLxLW7c+M3v77b/AmqPlQOWYTmx33PEqse+vMIacUr4BQPmT9Cl+SM+2 dHePEpDpfWX8NzfDL6BX+wbs0h3RbBqgDANSyvXG6Ndr+cGCLXv8ASV7rP7C LmAHvKO0ephje6z6+njnN31tLBlkL9T20MY8WeEyQfIQWKEvKjZs6Kdn85B9 mUA/NzJJMD61NaO6wezLAp4qXlVkJhcs8rqgXOgQK7P849vb+/nCIK0vD7Zv r39v8+b6yc2bt9Gnky8PTLL9CvIdnt13jZUcxrv5u+8eN0l1Lfjs5elqSJpP sq8HcpYHEa4HMhfpb+jcf2S+oeHR/LZtT9HzP5in6wK6gw5cDyzliwF3kt72 0BM2ozxhL9MdTNHlAVYqw7s7jUsAc7lQkXi5ELZb89WBy7uHCi1fGwwMDOL6 wFUla/vyIBXV4IaKLURi1wtrsTv43mVwlRDwZYEP/wFzWcDr3nufouCHLgik OeJlci17QkE8NjisLwZeES4G0updCDPuYdZ9sRcD2rLcRi4WT67SqWK+o+NZ On09iSsCK/jch4sCdWEQxvpw3Bj+w+7d39DCzHETeEkNyxFGh7ORSEfI37TA Xzeei7AvFcxzxwLU1KWCZ2MeN5GMbR0hvE8nXyXELmikqwSrsc5DY51RMIYm o5KhyvBVAkQojbdtd/cpfXUAW6AJX7d641nrxDxdYy1Myt+4yKuCZVFSPrwq WCZcFfgqurevCnTTgo/HePORR/7GRPj4c8p5/bnnXlU18DSuEXCFMLNnz6n5 8fGH6ExzHKb39GX7ur5OiOz6iCX03cFFAnwHFti2m7geHdrF3rb4udiL1u4u o3ssmaoveWGgfII8UwFH1fscRNWjxrIwpE8XhfR0LUAvk64G2M1gBFcDc319 o78dGHj5wtDQ8/QUH4eTwUxjo+1m4MLNYKah4Rs4U9IXC7vPNnjNzUNm0Sen O/V5hrzHlwH0ArFAeaVE5vGQNXQqcYlER9GdY9O++c2bz86vXPltRr0B/he+ 8LeFL37x7wnyT9NHESd/v0Bxv3E2oHMkgN4UayajE3d9mID3decZPIAM0Sux u0rHEf/Ch38BUfcB+n8/XytgQMw0wbW0tIaOQBzqe3pOGYldk6vPaZAjIjWN 4JKLgTEDwphUV9ceinIPc9szjpqaTAXFdU+3IXjk3FMU3UsUl/q8cwLFMxbF jSaJozVJWlv7wHNmugr8fXoVjXTPTbPr1tXNbNhQPUmvnD6CTPjLcB0wCYCy K09WoWpiXPhizWoZPZpcVzcRClxHdkgbuKxdW1tvj0zxG6uO/cLXXRbyfrni /WUMJtA5AovQcQLs5z/TJ3CWrl8rFe+R0w95f5PAe493Nl44Tw/+Fn2esM5B 11tZIARTn//8iZk77jg2u3btMH1VUDdoA98dDv5dZnpr6yATPVBcn4OzSLE1 mM311SoPALDP4JUgA5BVeQAk7cM8gKeBbyXv8/Txpt9OEPwY+Ejch8D3sC8X MvglaP/tiPZJY1fcK+6o33HWIHYF0Pa+rgB8m6TmCoAOEuv8zmFotyhy1XZ1 ENWauNTf/9J0f/+30N7FDWAqxRDYtLeNd8sEJS4rH1BcI495DuSU4rNJ5JvF spVFpC9lYe8Io8sS6W2vn6IRZ0FN0zXq28gDmFZqW4DZiE8yEeHFi0zLwMCe jJKavrx7936Tw8cyhL85Ge4xGeilQsV9uQB3V+0zdBC5K9AScsFjhKkGj/cA sb+BPdbkwMAr+fHxBxFCHGdNyRcLtu0fkB7E4358zwzK7Sp76LZrp+gDAeXB IlP0jtA0nouaxk3zGv1uYWo+o3Z21o3ieY7pZ3t7x+lNPQXladVv4L49PPx9 mBLN1td/27gwzLa0vGAcGHiCq6bmORjxuUxz16Y5fRS4EDjf0tIfBu636py8 RfbQisLCOp15cTz9ucbGQ4br+DPegbAWC47ff/8hevgWAnIDUvN1Dp/fMdUi NYpHk1mNPJGEnxzsToHPG3lN/fnQRCBg4OfC3P62bcZIUMmP7NrVxXE6YnKC vCRhrWRJ/JgE56ZNwHyVUqXmXrlsojxYwC0KgDxWf//eQl/fAQpL+00CGD1+ qB2sW7cRtF8G0Dtg/GLxrq2M8vTWhHhPY1cC2eU2z3lRlA6W0yPW0Tuws7B+ /eb8+vWbZhCW0l3l4nn9WTyLXGmscws8vrM5HaH39e0LEe4WIRzZF2nq2dWv V9s2WdX4+OutCLFeqfrU+UuisU5nfJXgpR0NVTz9UKG4Pm1z/eOK62/RM3+t ra0NK5XjPftruqj453Xrhi7ccstPLtx663cufOUrBy6sXj38x5qaA7PDw/tm x8ePaBNNl/B7xOQTwwC9s3O0uCYXA/nd8YT+jJqVVAn9HTtOhCBXVfggv337 KRh60cVONy+67IXQiMRyR0jsL4tn8JnLyqc3rj+i0f5ShPaSM1xO/C74Fvyg u94f2m1+hmj3GO0uGr800ic00tEZN2E0sNjGV6PduE140fC23ef9Bp/IhVa7 nIB7X0j/+wLus0VqWpzEVE89Fn0XyYZx2522HbRVVbBYOVtreUrOubHcvyew XtsO/svhw982AX0oZekz35Wx79jY/oIy9gXcfZ7WHhk5SpcuRwF3PK/URxYp pVkpkH1Fctd6jOxpgew+dhWu83i4mWkg7j2vsI5m6ieB9QIidUK6tlOKBdNu MtFjWXtfKLqnhay91EfnCH10OUs4mz5CNtFjPXPlvHvzvb2js+3tZ+htOg6K ax+lc+3tr8FAAvYR9DBr1/5NyoN9xHsDA6eNbrajtU2amqCVDTXCp4jctPsK 3xDNDvH9CewuqC1Be4UOxFtaHqCzzbMMax2S5SGbAoVsBIMBkzqvMr5K0VEh 93oumQPNPlMZVKhUzhH5e+45lv/zP/9h/o47zlJcMp7funWcbmNlx33ZKkIS IomwmxH+1lgnGewSbukntRN2QV1NXtWovHlzPefjgdh169YVoEO5TMiZe4vE cUbohPOFaFvR2Q/pjAh7w4YGwmRtCnqVm+kW69dvLFj9bobQkwB0TsivZ5Ix zcdDR9t0z2ofHt7POQw9Yc6IxnAzEO1GiGaXZczhOfk1a9bQ/ePxio+LPS0n YbsyxHa5gG1fwRvYvgiZfzpBAN1litwX7Qz8JxS5z9PvDL1TZbwHb95zzxNv feELf3Xui1985dzq1Y+h0Wd6z56nAxYGci+NjT09efDgo++cOHGCTp20u1N8 7jlPX+tiOU6ofoXE/oJQgl/Ge2CX4OmLd5q+Ekfp+zKqrp+9fF1dLwG7nf7f ZEE7lnHX0L55IbQXJOCVsVN89lpz++txbicOk/nxqJ75biflF85jW73vxVLX djabFT8UtHcTsMeVYbzKwJs+eKudzDPwNp12ThSkFnWesU3iVE/PC5MUuCBM r0hmdqzXrgSzY8+8BLMva7Zz7V6wCjbZeMPs2Cxa2lJbKVJRkeJz024Pq2Br 1LnYHCLgSXctDcruiBD5ouOssvEeKrfTBAgsOAd/dJEUrxBK8tewT4WQbc8k YZsuvXT2nYVdzLCEww0caRCc0wtmtbef5oIt6J2OXJ4uDQ3tNdw1ve9pIa/u CejOJKLbt/Pqoc+F0SZDQK6lT8QAXOE6QEDPuma0fn38+LNv9ff/EpzWFhe/ +9KX/uu/bt78v9r2FnmitLG42LXrjBYOfopXQ8NeHWz7Rkyb3uUurHn0zX8s qVruYuc0xHWMbm+us3OC0a3xHeiE6tDQfg51geyMSutyJ9fOnbVoWsfAtupe 9+as7nWM71wny3wuZapnoaod+lrcfvsr7GsBcapt244QVzqJq/VsQlEFIGzx debccrLgzvfiLHm5UBZPl7hdZ+cgB9VgvMe7b5OeV3U1Lly4TBsjfaWQV18s 6dOK9HSQB0PSe5r02rSRGZ/RJhu7dh3lEj4Rnh6/Coynnzd6DOiguAAO0F+k l54T2uwCxfk5oT+efZxMRt3X+8jIXm58SOI78i0UmqecuAJ5Xq/MIhEfKZBn 9AQ5nKoM4tMK9LOIzHEuphjDYD6VFTj/KYHzKkL3Xt+6dT9YD85PtrU95yq+ gxBgPPO9jHf3DbSIG1XtJcqxAuKdIe4z2D8k8P1qFZHnq6uPg+fhN3SIVcdb APTfEu9TPhPdM7Kfh7WR1NXx8Jgxq+ltoM6I1vT+Wrx8nji0lhby9HZC/Ypq KoFQmpZg7muYDw4Oh+V03TqPCNwAXZfTfXbN6O7+wb/t3fs8YM7j1r7yr7ow MPA3tsnx/K5dz8DhWEq0e0LkHQgUz8Q75u3rD4niHDUbsVDB2Njyc5TkzWJB t5/YcBcvzauSezBF117TFsTZ07G39xHl6eiHno7gOHQUcYiVgpo/PzQ0Tkfn CORcYGPFAfFiaV4u0PxaFZPPIK+A7JhqRVsI8kDl1wFyhN4G4p5uwrQZTk+f 1bq9yJuKLuoOYoHhpmMuIyTS3SiRHrI7m5hI90zIbfrbK6J/zje3sB3riStT nXH459zTp9F9nrsUlBPG6w888AO4YIDgcMTAzxc6O38I9e6ZtrYX6FtwnM7g SrbbwJvAXaDTQaGlhaGN3ErXTXLtm+Nth8NsviwBr5nZN2BH4v3ZVAbINqdu XhBFR7v52Bi+6105VYulG9cafe5QoztI0lm5Via4EhAtY6HuYm+M9etfIFI+ Qa/xABscb9tWV4AkdEYZGisv440bN7FOFrAcCNnvJQLEfeF2pnS+c2dTCPHA Ctfr6uo59MwJ8F4S5spLIDvW0OYLpXBGdplWBm9oeLBwxx0HC3fdVVNYu3ZT OmnozBEy5QjD6REWjq65eicmhmh2dRlkcHAftwl2dHTaVhc2lf3QissFjbOL pHGkSO5rqw20uxkaZxWNDYljNA6EOvityTT+zf33PzNVU/NDE14vUeTlWqkh 70eSyFsUaAdCjfs6nRpvaekOq1OexrH6HUfXf9y5c/+5L33plxrIYV6cc+HX CNgci5AbElrT+NnSNA4H1HJJNG59fzSOoU2icYb3wKYxKAwRF1BYQ9jku399 9uzLsLCC2oeGsMvnceOurMRM0Fd0sFhxVKKxKKttP+W0kAf3kmkcUx9dElcf Ze0YSbk0ELrapKuFjNBLr2riHuJqrnd3dT0F90hP2yojjI7bKuPKeQQoRlrc 4NeIqACLISo/tEgclwkp8usUjjEbZ2LrUjhGrR0vweA40NONyOZrbcIUu1Gp oTR/tqdnzLB4sr//EZ4ZzwhBtCtUtLNREG1gbEBs8t+mIa1cReImm2z+SZmQ 8c6pXjSbxfR55/MAMuVFiqRpdtAYGjpqHDSgRsqqLQMDD9B7BB4jj/sEsxiZ 1La2Lge93wxjOmeoQXOV/r5WqF4HSWD+EO9lYTbcCqs1l/ey+Mfo6G7mM0bB FKDRkx7CWal8O2B0BojmsvQHZCZnmcnlhscFdL+tWvUKvb6HKcZ9sNDbu4cw MUT/uJVjWkypb9lS5QrGGeVCYrzyCnZV5nbGrmrLlvGisNpjsZzBQaTum+hf bl5SBOWkTjV3kYpqXpIiKeNyIoyosyqizq9e/RDRuqZw993rCvfcg065+yjG XSdRW4u4mBT6O0kpdFfgt6MD7C1bdjG/BwYOFKBu0NPTb1eyGdhQWU8vNPLC krLniw2trw5h7iiYT+MbZWCe4z2wYW4D3RN4flvE8zfob5nkGd7dN5BkIoQz xisFmH9Wwfwt+oacp1f/Dj7NDvbclHogOhhmnDxVgV3FzVAQ7ifydPCijzEj e+XKHweK2IftBLiKn2PjaEAxQ5u7yjSqn4qjOnEITeuKmyo4344frWWRqPaF LLgroLpMce/y+Dgrj3KQrHTHMkYLJaz1Eq85cJ6YeASsdiNUh6qcZs66u/vB YgerGKpdoUMtEJ6yFDhLqLa8J8N/W3kF70nJViPWm+YLTzIdz33btwMUjc8k K+oc4hTE7iJYuxDwgtUzmthTrMmy2MJ1LpnKHDTjleO7Va6o/GsUF4qozBdC +om/29v7glEFQpiP5w6hD6gyDQ4OKTozmCcMlOFrBQMOM04GEw4Yb9id5Gy+ YWDtCLDOXaFYrUGdskhtIm78m3Ih2Z1VpJ6m34WkdtUekzf1LO1w/dAw4wCt YcShZsddA21drlZ7R8e4GdWmI0O7J1B7eVHR2pu0itZ48p8AqR0Oof18Tc1Z OvyQJZ8weOZe43GF5bCvWU8sFaqra/n3rGSNyNoXREw9Le2yc+fOvHGdcLRj MRLl0AVB5P3B4lY1hNf0GRjAFBPHeoe5b2EPXL4Y47QcHrB2dYMZB9WpSiHb vTSsensC3I3blXKcOGJVvRW0EWL29w+jy8zRUiTEb25iB8IZ5Jg4Xyfh21kk vl0Fcfag0viOYmsc6yNM65UrAUfiNbeGMbFVClzAdqCwbZLhDOyskBF3ePdD bOPYQK8NzuHWLBhnv4HoSKkuxHPKSYL0YiPua9VRAKXnNZ5T5aofzUYzfYNZ u8rg2YydX8Yg++eivrSQy4Hi8nmibjGXY+ntW3WQTfcLNjOXP8i7exE6NXR/ DGhHY7qubnR2586jWCmH92C2vr47JDStP9bUHIS1lSb0i6tX/zAk9DVyiXo0 DlqOkz+u/sWTEavNX5s6RIzVlQvZz3l0/Lb5/eE6lud2BfYpXHsmOWzasB2w WrWSZW0tlLd37/7Z9J49J03HGVhtcRpnsBeMp9Z8f/+4hGpHiFrTAqqtqLo4 LS+hmoemjIFyZRRVh2ZaZVEXWijg5gsJbqnZPS10pPvxrjbIoYaUFkJq2x4a pQIU9cWQ+mYB3txPnhNS2tcrWhstGUj0pCoUrfHnotp05DJtvRFzwDQGxVU4 jb08xLd5IarMvpsA3gOI0xo0XlqQedNd12+eOvUdEBwWWvTasHtE7++/eezY 9wFK5L+dqGQ9bcRQy5P7xy9jfsD0iivFN98GuDEASUnxtqa4XbI2FEf+e4F4 Kj5CxlVad89dHhg4bCy12IbKWIFonPMaGTlM4VBfGhR3FcWJ253z0CqnRVFA qSJ2USfaX+hOtMbGE/mWlqP5zk4MrWP387294xxvY0FLGuDOAubMd3a5r0Nx O2+UyYnp2mrLt6FuYG5MkPNoQ9Z6bhr43nxRNTziu6P9t1Dsjhdb0xyiG77v 2FHPADfxtuQOsjwEuyP8radjcjhuabDzoqtghjpa3Hbs2OFrqG/YsFlPmFfR gxmolzHUA7ufzRbp9gWWO0VtbPhuG5CvXFnH4TYQHiwS5OmirLkHfL9LP85S OItMiKdniDAbR1DUrthrysIe8jCWZklZBeolRZIwenE/+fXqaqSA3CydO+b1 KhOArCdWDZBRhk7dLoDYWySIPymA+CO8+5O1tb3TmzadDVdV1eGUM81KNBeq q4+9XVPz5Lm6upcBXTub/Xpb2+nb8L3Ff9cKaeci7DJHY9gNbJyaf4abLZcj 7Uh0PIG2tvia1GjlCvjKKdra/hdYKmebXqBXMjT0V4Dt5b6+b4XaoO3tX6Wz wGFjWkmQ3ctzXgmUjfWDSZQNhNy1pqzRLS8OiF9/6aWXbNetWK65LE5Fm7Kx PjCJsoGQu+a5L56wVmyFTca4YSuW8dhSvXK+jVfAFZPPYpZamr8OEgnr2Sov IGsJyL515syZ4vfBXHFYkPUsyB5CXO9o700kVbu7e2gNgq/KYMv/fW/v317o 7v6P8NXiNT7+c61X7r/d2/tTDC1f6u/fTcAa4YGuisQUtvKmNBG1gmpgR9S2 +0eZMFOdEbjqCXlsR+Cqp+fC9P1pydRIkRxcBU9xtYEUYwZQRedfF+SPOh0A 1VtYZ4YWudTX/VlNU1hR9PQMWDTFENw4fkdEGWKiogpJX/WMnvq1omMTPbMc ai3vNRxNcfUZsZYSTgFHsZi2O7NJZenrLYlyDVHdlYxO5aFwstoVktaSMPmK EKIc2W40VtDaXyvDNtBgaGtrnJ1QL1+3bkNa83P9+k0hP5eH/MwqftpB8UJ+ BsWaocxO4mZOY3P79qYQmxmNzXvvXc1Yw9CwlbYutnWOpa09Ff9O0guboiNr SYUjBmnl+TjUBjZurMM1GV6qY6PUSksrlHJZubIESnVgi+shoLTA5w3sDoia TSSqd4F+B2aCokg1K6j6NlSxXscndJmQaf5T7A4Y+nHGp3dp1aoTFPSfmbzr rleASx+spJNAdfU3kUhmVjq8+2/dffdPQU3YM2MxPa+Lk5PnnkbU72JjznFy 2iGuKRXjd0oyzbdbrsN71ZPPzGHzHyO1AdtSYR7KE+DkJTKUZ4xthnJalkHq RU3T811dX2dvLDrT6qIvA1TDk7WgDtB5p79/ghA6bDLMl9X1f2JxVQJoLKpO BChnj5cJZpUSNj0hhZwWsCm5ZWlrkmLFcwpS96dcDdLBwX0GorZzllaI4f50 Aul/P3jwZ4sGqC8ImCiA+jZADUTFUNUTQlVdwbZfznxPzyOOAFKKWJV9deby +Php6JCbGbD3Oju/P9fe/gNolP9+166/95X/M8w+AM/3Wlsf4R5iuGd1do5C aShVJqSWLfssk5o2WuSxtLRt8WEaq7NCh5ZWKJkFsjRR6VPFe7Fw6a9PnToF kipBNlzsjHNfmAYzhqNTRoW8re0x7p+i29DHfJAw2qlgyl+CLsAUi+c2O7l9 une2u3vgPSIiXXmOSDD9CGBaBpaWF1jbjQAyRrHKBK/u7iEIkQ9w6nXI0DQV 4bRGxikbQ1+jIGoCUZbJ4JwzJ5mvKZISJ2jqiNPV9eg9hZaWNnZuLpYj9QSf yiWJOmOZmE+l+Xt4U8JQq6trADNnwzrWJHQyOTMCP68K+ZkJG7VUKdiAky4c oiwq9FmGh8d1cRdA6wtxmeXdI1yuwl3BzBlDThnBszmryr0g5ruw1iLqgJDG S4MAyZrdfEnCIPUvr1zZNbtp0zBnw5EQplgzlRNgGYSwXFoCltdoWNKDhrAM FDLzVhyaChIzwwHmkQwbbXx+nvHp2U1YKNZK5PyIUKP9BO9Z/Izf4xav9/Y+ 9ebOna+cu/3218/deec/nFuz5ufnqqpeJYgqsG7f/g3g9M0tW16kcxt/7R9D uHmFJPDwlZjqmREmw1OJl5l4bdcaafIMa80DMlob1e2vOHnsCbnhEqS1rani pE3likNWQHcOXb7IJ3Z1vWDg61rRq4Zv6FWp1McxN8UAZrGQEioeMfj6wtMO BPjm4tEwv4SlgmlleTKGk8xIFiQBbKxnhElmR89G0bcdOeMQXMQs4xmdcgDj lGsGvRWR1f67gwdfmty//zRPdN+0SC57pQu9oVCZq+/PNmgpK83o4hK85G7G HwcNaX6/D6WydiUbzXy/HR//AeuXaLNL9uhylUfX9NDQc0gzM7C1o8hkW9t3 ZiHIVV//AnANCQj6etKnbjAkcEbIKytHEQ8UNZPRSEvnBI8uW3lcAHgYDgdC W5cCuG+nmUPp0rSlchZTHvd1frml5WnWNunrYyVNduciSGd0rZj+SLQenu3s HHqvq2sE0uJ7Uv40XcVODwzspusNJvZ0ONZsEZtTmnRl04WVWsJ7eg5DH5ZE 6Xx9/QFWhOThrNn6+geJKHV1j89WVz8319j4BCH3iEMMP8pyVXsI0LuwUg7v QaG+vq3Q1NTCq76+wdDeCWH/YR0x4y+M/OjySHI8Y2eWdS/4/rDXjGepSll3 VQiJ5Ku1iChg/pd/eZLwNkwXE9Xsjol2LtuUkf6MySRuLLtG93jhvkzjtdIa 9+14uBjpXCg3/Vq+RjpdmWLEIb9u3SZ6LEK6q6vN2jMaTE9JUNd+l3OorCIZ b7twENHfowPHRM/o3PL27Q1z1dV99HK2YQVWElkDnQCfUO0tFQhfrbPiqOkb tmcFtntRd/Xkvn2HDN/PcR+xSiIbpjPSPxd1Y/0W3x/wfKmQWL4xnlgGyVOf VBVe/Izf8y0C3tMh2fV6a9OmV9/s63vyNZ7HSqR5XNNDozw2chxDuR+7Of3H nJZ47gk8L+rVKq0aVvf+AB9LR0uAz1qkLGq/FsZ7fNu7igu/Sk0DIViGh2IG Bx8JlTIj0jPltSGYDVHAqEw903MoJxQxPdZVJjFdGVJ7doCO/1vGmybhbLyo Y1h3haS0xvW5kydPinmJ+EPH7083aPPQ0ujoXga4wnhgY9zotODKyeicUVD3 DhGcif4niyS6IxiBXC8Q3Xt/RLfbuUSiq8Pmz3d3P2qF3Bx2m340uI4bkxFd 4c6B6rZH2GxX17ehQgrSg+zIYIPmDnCeStMp7nTMnFnVm/vpYWWqBxHVTcyM /+eS/UTCvHjSvLMvUD2tUt12khtEz1h65uafe+pObCsRXsR2rT/qQXuUrUQo 3IZdEXeBOQUokUMlc5wiajaunevu3jtDiz5P3d374BpGuJ+jHXlsOixDyGLP 9/T0pXLzCZD/MGfM03Qv3SZjjkMz3dx89L0tW56AzrjSHXXyq1fTp4Fg9hLB 4jtQGydoPufQ9jwrMp+i5zdB3BzjC5FuIl5DQz8LjdfXd+i2LqC/OQ1dspuZ 9J5NeuiIl3M8n4vJhxvmm95ysL61tQ28TwsOYYEO6zFWVMplZIXgEHbXXUfp 3zUgfs8x9AMO5QF+s/QFwHWK/5zcJv7ngWifse0Z/hfVkekldoTod/VO3wie bgSfy6zkN5xCuMdM3eU8XQXM6RVF+H54MYALABSMbc8P6IBC45v7ooV8uTIq 8afo1jNtbaOzjY0d3Ce3ZUuLcllJufzidS9YqiLpyqBU1H+VcGVQrq4PwiuD iYn98+PjD+THxo7Pjo09eGnv3qO4OniDrf+Eq4LPqquCGfTrHDt2bAoVR6nc /AGh3CxdFZRxNh0hv6P+xWt0sjDpcbpm4K9wWGS2rgdiheahK10PxKVFlEyY Z35nsgFO/FIgsW27SGUsUitpWOSlgOTaIQXN+lLAzqqXuhQwPWGI98NLAWU3 5kEwmy8FcAlAMUlae4FSXHtp9+5DhtdlyRcpsVx6Ohn9dnE7RL8TOZCIsWis 1ysr5BkkG7FcIvADOz0/uXfvQbzGqB7tgvWm6T286xdffBHAxyrhGBLYwMcy dekPxJu+7NrzFTnvCpG7l9i/nkaGAkUDnaHgynvoqq38Pz04j8x0dv6ATi3f g4GYo/3DxsefmN216zt55R+GHRXcvTbTQar+QMixK577Ns9NpK7Fv+NQ90vn 2ouhHuvrzmB3eDzMtRu5jSRqLE4PNNxtixFCeqQoPs5U12R/t6dnP4XpB2bb 2h6my54z3nxLy2Mpf5aOIGRq6F6O0aXOSQzeEn5pd7S+OEXetrL4F8M2cCXU ggFwFm/RPqbQGQW9tXI4dq/wxS/+snDnnX9baGk5Q1cSJ/wC+6NzQzThm7B4 kFDMnVps29ycK6i2LqIJ0M2yoj72awFxyQXE114gkBA3GIeUeF/fGBAetZ7X suwJIJ6xVEaRcWZp6kU6gSy3UG5Mw3bsOES8bqW1NdDxu4VyeobYXYNzpvm1 vPvz8LeCsaXNdi/SPgtjetXsnaHjeNCAndfQ0ARDvb29HTBnruvcgA3yMLQ3 GiWmOzuJ4tk4xS/yqFpEcbpk7sWiK8sB+la1qzZ81SvAVz54zuUhxa8qge3l unEdzyaObbcwPn4Q2VssloM/Rud3ZHM1vqf6+k79eseOg6msgO5PY3fnUOFz we6LOI9asiSxXP21YZVbU9vO0KeuSmK1qmUv6JIeVGCMiYzE+RzDubswhsef i4GMnxnIifJh9QKQuVVM6sQuQWA72y4SWKXBPRazJvpiGhb0TavOIvrqPYhv HTM3UJl1kBeB6PnDh7+WKhewa7WqhT1gGQG7uqhsZ72xfv3EE0+YOWbBw1Ok cCzsLkFhqbcsdn+eQPWiYTAcqrB6oNGLmLuEV7ZvK3cb7KYs7haNQS2au7H4 WuJuRr+q4WGMuO82Vtva6Ot3zc3/G309/guPtivOeqGRB1IwhCNHo7ax8Qkb tR5Qyzr7fcUV6phqqCot80STTV6jGCpZfAXJefJY25gntI1lonZs0yZmCuxS yxmH0zo9rsPoNMF2GBYeF/v6Hjo3MPCL8wMDr0729j6Non7Ki7S/Z+ggzY+M HKPvyMlCdfVXbe1vi7eh9ndra084h3Vb1MHNttw2hCu0o3hT02E6779sOJy/ 554fEGgfyjJ3Mbb0KMt96yEsyHY3MG2bAF8s1vNuvpYxDK+2JoNhzFh580rm WyXTd3JcXVYwBXJl5pHhgBpFcqXzDQ3QUQ6k6V0H/3K2hwd0P032PBNmz3NC 9tzE0GghW7PmWbrFQ7R6iWc7wVxHeTyDtB7Td+3aDfx/ug8VQKfzAK0G7gLo WtbbeQNd7URNDznC4FXJc6MRNEj/YnUYSd9zTxRJq+A8WwzgUCwsCb5odAd8 l6oCuj1yxcbc0/zWv4cEEZ3i5ukdRxrej6M3r4ytTZ38amVUYk9OYZlOuaVC X1lG05eCZXrfjjB3M7x79F49eXnLlicv3H33id9s2TKRE8CrdUouQjyEzj6K wGpH/BxyOCtweEVizTxO5Os0kekcFxL5fdTGGdCc4r4iljk+Nr8vVvNkHGeE f5uYKpfmpBwBhxKdLRyGQloam7aEtbHhfvvQoccNmVNmJLar63EjDIquxPzI yFjKj4JjBI2IGYErKTiWpq1LUNqmKWt8IX+i3DY8m/SWYWdxtxh+NiXxGJxt E++i0rkE5ysKgGYFOF+XbKthZphZLPwDUdLbgJlgvxDKaoY5sJVFsBAIXzh0 6FAgPH3lJOYZrW7cHSa13PjQlpXmLgOXZ3fvPgEDDtYHg4EYHDgIycAyT+dq INN7DyIjld5nN15fVOXjhdrdVjf1Ytw4rpjgdgUcZyMchx3bmSLd70jJhJ02 53t7J4wbBz3yXuiXXujrezblAsZ0X4TjS42NrzCIHd7d+ebm5wnbD0MZNOVo aVCNZCyuPu/c+YhWOoKQN6QTmMepT+nu76JctsMBMfuEhf4DV6nwGOPRBSw4 5WWYx4g2O8KB6EB3oxGSibUNRIfG1A0Rh+etFczReT8NGHvM4CzntjduHGFf LjAX5W8YHmlhFD1xG4LXC900lJPG1jLRSEP7O2vXrDTH3cY1q7l5D0tuVFVt 53tX7A1Y4XLt2vUFgA4L0AkZ7NoM5unsqlSFzeGCTmgzJ2GPsWZNZ8hcTEGB nRToWhnsVUXcDUwtmxfdJx4vmm8yQiG1HPY7wqDUMoXfaXpa0zt27DCxrjvH VDDYtfxKPR5Ro0M0r/nrJ+WvrypN40qdwoYBeFHjGtPYxMKKxkGhre0REJke 7UThzjsP0Qtun129ekcAB6zgLXbQhlbJRfoTQ/nPFJr5m2rQ7AtoTgsp7spk NMdS3DdgzygWN2EvymTHwlYZxKr47BmNL+OBEQhelll1p2bmKoJvbSJ8fRu+ YSeWpEmdFmrTruAVpcNhztZqWs51dj7r60EbMFc5aIwb/U5mLxbI60T8tau0 En91MI7m8OKg/bINuLQweSVdZmhHTDvZXYLFFxX/ElkcazuT2tjcRWp5lgks vqY0i0sWoLOJLPaLWYzBKXP4pKA4vPrSMFaxd2DbXXIHWU/Pq/NDQ2eMAxas Moi9BRMQg73pMBruNXln43IdY64rCHf6AnPTi8w/O0Kvd04xF/gKB7WyQuq5 Qit50if2cl/f0enu7kNwvGLKOud27vzPqfS59evfOHf33f/Hv33hC7+Z+cIX XqcT47fom3AWKtwEHqUYVl//VCi/TYx1QzHBPrppl1HfxgBz6pYo78xS4ybk nWHZbXb4gX1gHiOrWA0NZ6Do8SzPMT0E0GrYqn1k5EBhfHw3w5blwlytEkaY RIzLIe6fgLsuULsEqKW3CvKcn//8y/m77jqZ37JlN916H5G6RaMvybUqHWqC aV2wcDIKToVlQs5ZMtSo1OEx8Gt8rAYGMKA3Qc+zkwfBCMOBzjOr6JcJTEea TZANha3ccxzFPnYHFGbtrFWFL38Z2flWOlyjhJld/DuKcemQLYx3VcIZo2T3 5wk1edUnr+KllpYW/JyHKzT9vSQMpnk7Ry8STnCzWPQ+X4G3dBFXZ5YD8CaK h1whBF4i1I19DV0d/sZC4Lq6xziPQsAt3HXXGJoVdrDjx+YZeoGwm1YWlA4c pr05pvAMXaVNVVdXY6V83t2L9CJCMbAbokJzSOa0QGZPkXnywQdPGDqrovIi is83/Y+VnDkPPRDnLPeF/am6+RMLk+C4mRUq457srrJ/sEP0bER8rjGHf8EY 36keV5h+XoBxtksqgfFYVjsZ475dp2YwKjkNNeVjWK557iuPywJ6iOmUiPWH sbEX3BIG19ZFgsF5LOmdE+RFrEHlcA7MFXCuvS/trEGx96XNNMTEFXKkzmFt ZTLCY09P0hSrEBB+lYBwLQnGg/8o/CchPLc4hJuJrVII58fR94H7S0dWV75t mIG3HMFzSkHc5SCagmcIj6QyCt7TAwNRA5gTTTYbgItmV5JjRjYxfx3YATOW 6QYri5gNFtrD1bEuMGOaYfljGdNqKG57gHXKP//lL/+fl+6//zWIbdNzOcG4 9rVOWGvrowbV9F3lcLhgsTrlhrJhYRN36qYS6eoP6pKxxW3uU+pnXdyY3ifH y47OXw8PH6Kz8B52W6EXZeQ+q6tDPW421rDkw+ZZVwxQvzFkepaZnrVlt9k8 Y9Wq5yhYPkN4nGDzjM2bdyo/rCK2m+S1sdGA3qcvcLuY77iFZKNRIRhmOdpG A4yHrGpNTUMYarsh6MMwmwPvxYA+0Li/777u/B13DOc3bx5mjlMcHWO7jqtN MZofBznriO0usx2RLzsyC6qdkgqJzm1jCgwdgjyhDQHYefqiOgLxPZXdNs6i czx+pfb/n7f3AI7rvPJ8u/re2wGJScGyLFuO47U9TiNnWZJFUswZYAAIECAA EjkHZoFJpCjJyrIkS6Ys2fKMozzjCfbs2NrZefs476mm9F55PdypqTFrik/W ztC2HkhBAAF0v/M/X+jv3j63AXt3n6ruJ6LRCR3u//ed8D8Q/RnsuEnYIfhv K63zlXpYiHYjKbRQRzbXWV493lgj2UAan0D3Nsk4PdLW2dWrN87gtU7y6hnR 56nT5bx6l5E2x7OD+C/Emlaa/yZ9Gq3mV2EtZ5H3TXUZ5P3K8eP3JyfHxh4i nT906GHS8EfPHTxIpzRB56Xg+Pu0zqPzW0pXR6PhPWG956B2SNs9V9ujdmF8 jWTxPePussVoYF3Edsxf2fmELil7SoiI+/EbdFcrcX09c0obhp3J8Qh2Xj0T JFf6rjftpO50jPx6dPSsHrrhuV6iCcnsMymUk5WQ+J8//vjj0fzz7zXvUuWp A1e7zbY7IWi+naG1sEQYPiPo/AJB5xcLOl9W0Pkpk5u/Qchllzu3Deu87+r8 zx955JFMvMSbHXpI4gtjsdyJGhrtAg6Tm5Eavb33ssonMcwnxVKfIqk+AMtQ I/emLiwlOIR68QofColrhXdbsV2FV7ty3ygn+qiwYy8TNuZK5ANX5HH8/N57 79UM4mOkxj+3tPzgUkfHAzAITaqZPXAWy7e13c+O3mZ/3t190k7YIPnxrKP3 jaztQTTwzd6mHP2+KVbaffyMy01o3GfLUMxnPknn3IP0yitlx4mora1Nqbtv mra1wov+oO7wLL2HRylTQfIDlvyymZqaYTsv65Of/FN298akjerq03SM0VYa s7DrMlrh9ZCskHK7SelKGzaXJnBUOLoeHY9lNF3v3W3z1++i4evX78rt3TtI z7CPNvzoEF9v3cBcDdeV3XlTfoXgt5104dt4OGEKUtaZeSr5AlUiZpWcPW4w g5q1POG5OWq9cQ/LuMdrME0/T9ExSW/eJIQTEjqHlpfH2aFEisYyWstbWu7P rV17v6Plfn7VqmoUDtDfuIGUfG2g5BxSfrmUnL8jfkcPPTdpb/q6q+j6sWP3 zI6N3Z87cuTLM3ff/eD0kSMPJpS6++ONjd9Ak/d5Qm40hSXnmf3+4O+W/XYL yyDF3eFAPMfTQ3ofcltxp22k5K1+pvhia18Wv4H3Xfsy6E/ZHE1XkQrtkMKn C3v3qMrroVQBD8U0e3cTj08X5mld7u39JgxHTJMzqqYjUuy7co/HkgzWygU1 lnbIWt2Nk5mzgQ/TQry6+66649+VcnEcC/uiYmG3QCAVvy0MN4adJ8Gly4qF Pcur7w70xrv1NkHbK+an7Xg1JG1XozwD/izomxt919l2ns8BYTfibtoBoO0j I8d5RkdHRzfP6POUrM90dg4YaZ/o7T1kZD0tRN0d428r62WxUffALR4z1d46 0h5AMN1xF5dVFL646Ky8ePdudvB4mtr8+xV6ezDk2jwFM6pDuYV6PPLSmH+b idWk8fTyHOCG7iDO/HtJYRcfvIm/MRKBp21+nN57rt6TOGNN23EedXWP8lYf +WQYtJP40zPjDSA7UIZ9wuEqWnBCU/v9nQTrcEILaLXjPuw8Lm18pgrWUE6O WjZk0wux/SRDQTnHAQADn//8T0gMT/GoD3SBtbcj9t1J12/hh6+pUQbfhVkf igzKhZYvM33LuLjgGpJtuJm+BR03jBCEGKGe28swTJolyWEEiCJIQOfW3do2 FdBPZHJgD6TqN2zopOs3Gk5gX5fly1d4zvYeT0ltucN5cmXiqWrSnXI2+j4q UIA5i5l1nRIc1KrYeBSMkPA4vkFf6jwjAq9+jlYgA85zs/TWS6yQVFv+q2AE fcB9jUdxJEEM15UGhjLBEiaJtVyVlTMEEh2ADfIrV9bQ67SJX5YNPNNsPeCA ASE1T0x4r8IE9ELm6fSJg+6P1uQsR/Vnjx49TUxwJnf48AP0OabVAyLQBqav 78nppqbnX2to+Cbg4FJNzdPjW7Y8caWurmW8vr6Jbdi4VP0PnUz7nD1jWvQN C/DOXYv+nbwGN9Nylo6f0fFLE39P/lLdLGGMSOk/nuMRNJp/kfDTMubcMpkP 3/IOc8ub5ACEEyYwzxlYkZavzc9rWwmscHrPID8lsCKUEpgDK1z7GcYKNliT wgUqKRC4+XxwxXhf33f0NO3A5Qj8m8vD1e9S4I5fnDnzkvtgePKVAgdI07ck E7uswCnSrM6IBRzv+qsKPe622v7xxx9frC52bWXw7zIBJRYLPeZVAkpkVIzA RQn64rOv7GWIvXGNWSLkB6pi2cIO8sJ1DepIM8LdoAFJfdxwbd94q5Iofq0w BIwd4Ei/DvOokYGBQR+QoZL8YAwzBuxSb+/T//DlLz+qyukwZ8QXauqkESPa B45z9pH8vgkeTDCAyoTBal0WW0enmsyNy7kOYJg8gVv7h9SGQQ26Hq9XET7T rWjGodxlDj76+/cDvhyHch9GqsYEDv+uUNGFaVrt8E4NPgmptm6+8JF2rrdr 1330Vh3kwpz9zIZDHHGAR11DQ2PWRh1CvOEDNTi3UKWmiNG55l3h6rwcmrAG Bg4oU7gUYcQAowOOnTt3MUJUV29dKFCANKvTFzIFaX09eKmiIr1ACx57qra3 d2CqSML4sEIFIc3QrDJNDrCQQRVCHDn4vJYxOaDiDuOs6+rgpF4He1m+Le5X 44JLC0gQqD41EuNyjQeo6ovgQchZpqKQ/jcZAeTiMwoRAAY58GAhGZB2yQCH oQLehaf0qE16HuCCKRT3C/1nBgyIE5lv3PQ/QghlOtvf1XWaWOkEc8GqVVu0 y7sOGigkyM4TCd6tkCBH38AwEtA6NnYqTwyAg14krPgYP8Epx9rap4kQ1q// csKbrqnpn962bS8OOvfW19e/W0j0f+x3SfRLqfcOpa6hBnMNC0rLvZu13LMY Z3j1fulKfblmEH0dBRPqevY6fFvh/rKF+7PQcaO6XsjoRj1GEOUGp0ku5HHH 8QlcunV+8AASmC88BEKXnEoHBG48wsKDvo/Z3t79RAvDDjeo2d6aHXQsIsX8 MDLyHH4y7WTgBDP6Wzfh4Xirt/chLlkowQuhusASvBD6s+fgBRtMiPCCySws DocszNXLhMjINQIvVAi8kHJqBzQzGB/6EC8sFnhhwdy8oNNOxbxgRpI7pYAk hMW8oPxsAtdFFsebQ0MndUNGytrGwp1jdHQ/W453dHRxhIIHi+6botM7oEGb zmGE3TfO33fftzDaBAf+jaEnbARDDyONEq0Qqgsy4dJABx24pGDazOFMKvdy xg5T6ZARMhBZASNUpUMQtZBlB7pAP77OCKkJuMo31qIDsgIo1oOvjPaNpbUj r71j6SvD7rFABxuxSM6VoaDTqOYHpoKbBYbwwwkL/h0dZXm8FGX03oxwHbw5 CO9IKPry8NHBiUgzQ6YwFYV5wk5EoUPKYizUU86cLIaKVnCJw+HInJOA55gp yGjmJAnkJQlFXyAkIxYKxQjSuBPjaYPUtwlIJO0cs0OMGUS39GDbk9q3Zv36 jXxzc+hYhQlVaNhw0xkh4Ejymoaiu0PLOG2C/TqRRUKijPKwdR3jRtk8oaO8 GDoQmijTcQkNHLqzTghHADfoO0HvF3CDkSMtgMfiEuCRidQdDg8fTZTpfEV9 /Un643ZxFCJtoxDrLHKUCbUHFQJyvGuGJ9PQSTTLUBFYqNi8+RF6Wb6c27SJ 2DG3dese/iw2GqQiYlYFiYQYE/pQwKGmmIM6mDwqw/kJMEjilv+x7rzOePq4 Xf/KpYpyRQtjLlVk50kf6YS9rb1eRd7e1v53Q5g+uHdBBz+i5KEd9swfVejO j6cOa5fDnQjlgvYGQhokJSCHa8MuFBlG749W2LEPulUOPNR8cPA444eeXE5n zef/7fjxhxRtFLztTZgdLYbKB92b3bv3SeBHyE/ARQbJ014a7Po7Tkl90/Xa qwpDBRczXqMuM6mSwm3fJtCGKglEuUDCw/QWgx0ucljRCgTkWCTY4yyMRw7k MIwdTinkcEsXSyBHyh3/goOpiz48piXFMaunrQU8v8uZPjDPC/s95ee2D6Nf 4Fr/b11df/l6V9dfvz4y8qMLY2Pwpj5w4IfJwuAXGOGGBr9UxfcivIlIkdB3 YAd/e2oNeetJ7naZeOAw2ZEQcKR0VgZfLB1ewoF2fg0ePof+tWE9oCPreNW3 tiqvejUCBjb19Nik+uMDA0MFuLgWNFE2y38BkCGvj8SNvPrMCYYbOjpGk7iA 77OPKOYge9USKpisR3T+C/2ssh5p8MP1zpQ0p+zhes0MaAREYYMKR6jZp3Cq 7+rqIRmuQT7DY2hQzePQaAQeqoR0xqKiEWlu+ELNiMlyWMIdkabmng4zL+ze 3YzOBC5DkKBBhyrioSHtQgP378OZAMQGh0FVzJBhIxxAArI9UHBELPA0cX8r V66UmGG+gYoyoeChIhYYAgDDtKlr0PkK+r4XQ4JgamchIeW44+giRQMJuTVr mvBaFtz/F8yTClQJQ8BTYnUggo+jR2m/43ACfSXACPSETuSZEDQnbNvWbDnh WoETPM0JdP+2ZuGz8UwgdQmGlFYDgakv4Ms0ENwmAIHHq4/wAUTc5DRSAieY 3v25OCElcIJfeJizxQ/zS/fmkZk3/AdUhfHBwI9j0GtvzvdYgyUytIZbHsqF nsBAsNKbgxeiFYuCMVCKWGHApDmMow84QYchzHB1Hqg+PPzIpf37v2EKJU3J neNGgC3XsehTntb9CrF9+tJTdsa02qJI36kNNfenexLBCfayqjCP8E/XFK4X 5YzQc7leQAdtYus2BJoRq2/09HydVPIhxRCFZEdh+yuQxEKhkGJRaZIw6l+K JELJjhLBCzdwYUiCdmycYcD4GzO11djra2v9ilx//36AhTlIfgZme3oGDVJM tbV9Z3rvXh6Gc7m+/m/1IBwzRW6qpeXhokE4FUICREcxGBTggjgHVJhGidgo hhkr55Rb6GZL3yRDUGtxgd7utM696HfPTVfNwHY6kg9hy6CurkN0aoUz3TBP BiOoUHGNFP5JjNExrVz1B6YIDiY7Ow+BNOi9mSEco1v30QEHQQMZNzBVIBTQ xftlfXCyvWyWU+5Iqc/og959rAE77G/c+PD08uUvTq9Z89jVLVseSniT27Y9 lchONTQ8Ss/1DFHGfSSfJ4hETpKiHcw3NPSxzX59fQud/Bobd7NzUIuJaCTS Qkjj7XFVGIs0o8CuzzCKr6fpDAwcYKf95uYWzmFUs1FQDVBF44paURcBRgCQ VApYskgHNNxpOuAAfZ2kTqmYwa69vfstraBMYf36DWbz7dJKKLmCUgPOAQjY Ynz74ZZLgphzpsQxL+C9Ar4g1oH3j1ghpWfa426AAwCDjIAsFQpZTH1mLLJk I8jCLbyq6sJFFkLLnRim0JDwp+mfU0SZhlgWhIGFizOFma8WWAJdaLFjR72t wkzrqMbw8DF8YPglzeoXds2a9TliFSaXhXPzyzTesrczv/hubUX+yJEzBl2Q h9227SuMLjU17S660CcU6FLP0PI2bh2doNcm+wa9F6nzfNZ4BYQSGSM7ZyYl SbSQvyas8hy36FREQT9qYPmi1vdiYAmTiScQhxcfwZiTYLRp4B3C/YFcbo48 Ln42j61JJxwRkQbg6qHxrtGwLdioVdcvZRbM8fby+GhFKOFSgmYkx4TQ/VVo x4SRkYMkv0cvDQ8/pxMtGbdl0xoMa5zBwPlkgWamW1tf1EF8tanu7Dw129t7 MHb6XsQS0G0ZgX1hlGZCASBfuL93Fu7PXsZZliQuqhRSPTfojJTDK4hunD96 FFOOwSip8fb27062tn6Ljz17nrsyNHSIdsz7sgKaLBDQZLGAJmbCnus7KE0l Cgp5FXtbX0ATyT846VSu4IXDt5MxRZ7Pd9jnqEfw66GhZ8y0nyk9m49uxxN/ rnZ2fkOa+HO1oeG5mYaGr8FIODzxJ76VU7MC6ibY3tfxOXLrNOgliE22hKpC 0wKmaB8mxD1MOah5XMSrLKNwvMpnKEkbKOED/U2EaRh5m+dIB5NJhv7dg4EA OGjTu48+5EOEFgcAJsRl+5NcSOGZiAYHNFRYw+NQg4mAZLAuAJRkmEIQK9xL r99eSJESpCQuWlhgFJ6ui0QOHZfZLfINTtaM79p19MrGjY9O3nLLXyV8Xr2p T3/6xxgckF+79hucBvkqaUFt7WP07E7Rd3MYBz1GL5+OO7h9sWty586uyYaG PXQfvNI2tpn27I04rtbV7eKd7DttwUeVhhYzApDAhQsvgC5qZIAaD7Rp05ZA c8vmzTWGXejp0MoJmgoh8bJE94waWjHHypX7SMo66E/Za9EEpSQIpmQFPPH0 qus+GEwyAp4sKuAJO0sU8AT9Ei3s2oDISirPHys+oyOawkUWDqcAgRwXiFCJ qOaUGbeXJC1wSlqoAaEPi4muYBRDf/9h+jhisCNzCj2BhjyGDG3bVg9eucZW glaUoBNf51zoS2vpJNB0MjIyRh/QXn5Fy0I2zutAKIklQplHpaITkMkUPT5z yfWRMg9ASVaXdCDzAiypru7joNkeblduztXW7qKjYZbg6zoVUAGWoJcEZJJ4 G69wMesFpJxXA0BovTmeT0AkY/pIJHn1Gmm9WYt6YqFSa7drA2qtaz9CTg8f UJqv2eWswBpjc7FGUmAIzS70rGwEJZE8a29r/zMxkYRTmCoxU2qe17su/Ccy qOlXIzokwe1hkYwcX4GUhu0XwqzhCndE4EPs4lRhXIK+RjyRI90laRcEoPam iBT/1/eVcWcluQxzWQ9LSGtlJG4xPTGkDMMSaiSFpE1aoK1UfCxKGESMu/tA AVNs+KVCAKW3q1cJfabjY2Mn+G8ZGvprRS1BiFpaWl4kabovkYSocZRp/0xf 31BsrqZSKA+5Jj7CEhrWKE1hCoQISwmMCWGRhDGeWjnaEh5gGLhRFgxuvDw4 +ICJNo0PDZ29umfPdxhmFNKgd+ZRd9zRm7t3fzNh5h25Zs3heUfdZt5RKJ+j 2QKhEOYNDE6VmCYl5HPSQh1qCaZB6AUDj5hpMkLcRUXOfMKH0+GRCPgIwJ15 1PizYCQC/UmYU7x/urn5FCkFz0OgN+0wxlGTyJyk8/Tp/K5dpzh0c4o7hIfo 7gZw0MtF6zsdgsFGOkwwVfxbHwRj6AVHuYIXgMvEnXd+k7ElqeDl6h/90d/k P/vZl3PV1c8lMjmOg7zZ0LDv0tatPZe2baM3gAHFG29sbH6jqakJB704PIVv HLP3Ijl6NFTaIMwSoa6EBy2oUYdpDsAgMQSdNQzT0tIKjmE/ZxOAqanZWgAZ JwDjDktws0bX6AAMTBw/97kH6Hd1+aamZiRs0PBa7qgsvLF4cqAQXJHopdyh F+NL4RfohcdDwBozWeifzeuK1lJEg6GJs2iExR8TCERTOc/uWIFoQG5ZTTQI cZlyHk+vRDf0tPfQ025IIDbVwCjXSMjSdGXz5trEdRZxyhzE0eW4FnGSOgCD 1xzjrBTcqGJWBGBGR49wG1x19VZ+/bmV6Lp5ss21im1C5aoZHXaprX2anu4B UA0f27djuBNRDazVGhbrPBE+qxptEh+KC7ssEpJFSV79c93dx87v3PnYherq Z8/dcst/To1ZsrnDkI2OQ0RrP9vDsu+Sza0FcogSy9kYYikZbVkcf73Q/TnV r9GozM3u9a5Vd1BcqSv8qdZhY2s8tpxH/f48sGUSIfV5YIs0xzkUv1CWF76b UYG8a4YwkRYOrugQC4hldnDwNKY6JtLavtpBFRy0EzXtvSKvhIIfEq84Nts2 cVRidrPhH26oddyx7PWWCOTCCaZ3qgcHfk3u338vz07ww+wy1dr64owaXflV orICuxiN89TKT8ywS4XALtfGswsnBEuxiy+UtgYCuyTjhy+H2MVXmSLir7HI qMbDuvDEm+7vPzhuRjUqX+s0RjkVjWnUs5zotVHDJYyPtTvHKS2kiFTdh/XU 5CFLWcc7K8Ipc6aIAqHuRI+k4BRUhI9CsRcdRjN8wu+ygRRMWezpGX6zp+fk hZ6ev7zY0/O9N9ravjrR0PAN9kr4RiI1W1eHLNujOdNT09j4EGLdybwaIQHL 6l27DjKneHptbgbrtDOS3CBgi6dW/IzL+RrlJUIwi5liUiYEwySzfv1zSB7N dHTco+Hlt01NBy5s2DCEg77SWL3XtmzpBcww0HgKaK40NrZYoLkGa0ogmHK5 0MXneExgRzhu3nwkv3t3LzgmYQY/bd9eC4JhijEsQ1zDIAETzowNysSPewp4 1NOHPvTt/Kc//UR+584+7acNfAmKxjbCDiwlBGHSAsakHIxBIiYOY9L6eqYp pzTGBIwxDsrwVEW2AVk0T35J6cwRXmlT7MItORmmlTL60MADHD6qe+jZ7+J5 jhs27KJXoD63YUPNxObNW+jYfL2FlgxDS8bt0DXQAmTJ4SXu6zuh5zxxOAYV L8QqOTiZI9wVCcvk1ZAOWt82T35ZrGMzW7ZE+cVjCDbcApppSIJbGJut0Wii IowxHJf5fFx0JkI1Pg+ZUtGZV1ta7gPC4KCvB1bvwtKlL730rnf9NyaatOIa yzT4T1WchnMuGmpCZh4hqAnGHLjAwZUpunXmZ5HfMZyoPFYq+jvc7mZ7U5Ft Gl1mUXdT5AqyuJhY+Mnj0up4YrnoBlBKEEsoSZQWWnpLDKaWiMWVd8i6shLj PJE7ThmxiKvwjETykT7AqtAynduz52n66hx1oOWg6RXWxh4pFzTMowAysvG8 EiqKLcErJqri8krIfFvxiu8inZM7CpHejSp3ZP5wSzJDQ2dtxIFIxlAMb5Of Z1k5bRIM7Gx/yBcwplzIJF0nYIyeanWZvkPm7xXnYvpCuazGGJ6qFcEYt1xW xJg0ryidGeVJlDrsYqZQ6iGUr3d1/R2ddP7rle3bfzTV0fGUHkLJg7FgAN7Y +FzCTMZqaHhCmIyF2dK2accT8kiqacZ3/cERF8kIFS/p+FSSMCRaxBn0EF3W SGPCLm75LH1JsKY57GKySHTYERxdXV+h8xrBTCINnJncseM703V1L9Ip9QU6 uT5Pr8jT9MqcseM3iB84dW+swWtr79Ec4xPH9ORaWzvpK9UBnrl+niiTLcRi XJS5kSnGv7J793GQi6GXQNELvcFHcoODB37d2DicyBbo5Z8aGpow7CjxHhV6 uVwUekkVCl4ypMLtJCdDPJkaR0tLh52ExWOuCEdMwAOTsEx8JaPjKzq2wlyS EVJGLp1grvS6dQ+TlA+SPm5LlJpEqYMtsQGXtF4dUuEjjlKQPgKllGlKcTp5 6HkrSkGxaZhSUoZSYNvG1m30eLOrV69ePE9GCYSC3JQQYFH9UuWMLPDvxfgS HMBFZNYIWej/NXo+6KZCGCVpCSbhvamtybhkN2CWqYiyTG7lyrYcSomQW1KB FgYY7mGjN6IQ8FoX5hf6w3QRDIPM9UIhTJWAM1XaZGTduu7c8uUnMcbV4szw 8MNAGc6WpcI4U29xJmtLYNYqiDlPZ4B/am3dd2nTJtqg8uoxp/zRH/3dk4sX //dEJp5LTGCFAxRtc3KJyB4l4OJmFy5UukYM2IRSTHx/vhB50XQS7T1aUnwx 4xYu3SzQiS5heYU+93gBnaEaotlGyKk0I9BJiVnZITpRBbmBxA5qkpVuHP63 /v6/RK7HlGiawdja9JL5pOCHxr3IZkYJin2tyCYFIsjEk1Tob4+fns2BEhig ceOTBpQJ3FZX7WpACdxAjnU0kypc3qFCPaHUlyGV/v4/frOt7dskJYpMmpu/ aslExVv82Z4eu1fH860QuOT6eC6ZQmPzPLgklBpSXJJyJ3W6TuaBgCNlKiNE KDdyZXj48HhhEHYatTyv19S8ageR7N//BKZzYhoY74lP0tmA/n47DQyVnhpC 2OjUEzI9frh6xXUDQdbHTu4K4jEEURU7WUSKqkgYktY2qvQze65xm7HQNlyl cnt026G32toeGO/ouP+17u5vXWhu/imx6bZtf5dIweQcFueTn/zk/5275Za/ o5P8N0kMHjGGp4SpJFuPGpfzZN4ETwAdHTmuGFEr8US7raddVIJCUGNrKCRd nBFCMOXdoBBVd5sGfoA+7DEwcCg3NLQvNzw8migHgwQ42STPq4bLxsZGGzf5 A17LXBqZ/shHvj/9+c8/M71u3fHpmppRAk5M49wJ+7KsEwYJF7UGuIy27+rQ SJLICvW2mbgmIT0be8uW47p3BNUrOyMjOj07olNVhBQHSwInWIL8DqpTJOSo KoEcqA9FAKWAHBnuk1b2cXWEHnXADrbypEebJPRwwiOs0HGeZn4EPVBpHQA9 0po1urrCrFFXd5xDVJ///IH80qU76e/H64i2p01mzqiJhJhjml5bAMhl7oES Goe4riZRFvI8u/POEXq8TkseMCPatm0HXu+yQsmtpQ9foI8b5kkf5aoMd2bz 5mamDzryvb33GfuSu+++lxviQR0ZXj1d41LvdhiHCl02KAq5Uld3eHL9+gdx JDy1Tq9d+8DMpz714j9+8IMvJ7KgkAWyhO9VMh1yOtPk8YV4arjDhYMyhxoa Bey4Y647iHU/iWl5FmjEYsfGeOw4T5/Y+WJHtLFWwg5pQLiEHW4aJ4wdhQAB 257pShMO1n+DvkiaPphGDHoQdqRUAzJaj81dQtXLBIdUX8jYSBNII5amDBhV BQsSbonRkLFYKG6RpouWC8mdd8QnsC4NDX13dnj4HvzRljncaEigYiKGNd5Q Y6eLJ4neIABHmaoquewU2jhuKuLQNbeqNqXII8ocPPwsFQscgTv4DNfnBukk kCOJOmI9lNTMPmPYSOoBaHBgxQA0IEfxADQunGUHkqCAGigqKRo6alDDFwpN svEJnFDxrCcUmijU8N37w/MxPcuuJV2lqjjBr5lU6LhIH8pzx459+9WOjh97 PE8ldemLX/zfr95++3+6unLlT642Nz+Ltx6Wqwo40uyw3tT0MAMHsUaeSIOt TcAYgSKN2T17Cp07VfMkDV+Od/wBxzsybrzDxDxy/f2HcoOD+wAbSdBGmQp4 vFpT027POJk49ng/r9nx6uqRKytW3Dv50Y/+kI9bbz07tXz5V3ONjft5mMrm zRDhYvDwbPxBQQcyK0levdzmzQpCoDNlNk8jjUhbqNED+REjuTiRbt9ej1xN Voc/IH1r1qy1w0kL9JFyAyBMHWi3hlOs4zwCNxL09i7R0IFmJgMdWQE6krpM FjkolOyqaTW8wr8WADKB5518g1+Dy/R0ACLMIAviu5JDJJKU7dM8p3Q2GgcB m5gXCcfGjafzt912JH/HHTuJHzBfdW1+5cq19Gps4EmxKCdxuIS+P7xOFfNJ mcsnoBNmkzVrtnGMpbt7iHmks7Mr6QKJGw5BiGrdO+dJIFkd/1i1ar8hEHrC wA+f8OMMGprzx44dh4lumSIQ0/zjmMqGa1J4G5/wJ2tqvjK5ceMjU+vWPQjy QKvVffTK33rrM7/9+Mf/6tyHP/wPJhRysxAKCbUvayAJ+ZmEgaSYJ9T9BL9M CDESzqAkb1bEkFB9OjhuLjx+cYlujBf8tepiN0ljwWO9uq+QYYkGj4tLly59 A+8MxLgCq9SjU4I0pKyGRBpu+sWShuICH5t840ICytB9OAwZ/f33Aiy0v7tv TU2OHz/NVvNCmMUXciuaLEKNwKpzxXfDDrgfDRcmehGBC2kSa/Ho8nfxL7LR 5NJ4V9cPptravk2i+SzwCft3m19xoxiejWUc0CWPQ1cHB4ezQpHI2+Ohwn0F 5oCKUCAjBiq4rUuCiqyqEOGEVNFEVQ5kgCdKTmRrbX2KXowz7kQ2lKva+Sqe QBOeELjwBJoom2fZajxNFJu845ycFcpXK1QAY0LjhDleefBB2vm8DN/aMtDP b+rqzl7Zvv2rV5qbHzcO71xK0tT0FHumEVR4OqCBVArmQyNHT1yBvXNHYCMY hfxI2Ty5IilHMD7CXFE23ta233JFbe1jky0tR6d7epgp6BgFVkx0dSm00C4G r9AeHkDBUKEwotxFiKlPfOJHubvuepEw4JFcTc1hEt3ddDTwzHI1XZVl02AD Q0NQQAebTikTylWleS0LdEMwHLkG9IxV2Ji0tvaZ+WuJUkNWIdNRrDHdNZwu clACl7H0C0Uhi4VijzKNF52dvfmGhmaGiIxGierqhrc2btw5vnkzwVUYJaYR IaiKRYnA7cLhg58TIMIABPpuDECoBu1sEUDU1R2nN+oeBoilSzcCIBJwll9N 68qVa0xwQmWZIjARxMJEmmFi2bLW2VtvHeKACTrm167dYIflbADXrbtZKP6Q aCGlohY2W4LDFIIcOXIfF7WCGI4ePcH+P3V19QmFDX5OI4NBha0qTjFZX39k esuWx/AJTaQUIkx87GM/stkSXcXR6CJClY4NuFUcezQH6P0/X6YR4e0FRGjU R+JarMrjTC7v0PhwNvI7To28Pw4RIikWlQoJo8z1xbjAWR9culbAhQonPXLr rbcCGRKVqlPEVXscJjVSJkBDUpDrlAANUiDAi89c/Nvw8LcjniSqT7S7+x76 3I8gV6tDE8btBL3C2OxLAOEJoQnJAU2NJg3ceIMNUegJLq5OWmPVRUL8wVSz uD3AklPJTVhNYKKv78+1Bce36buOPx6hiMcYLZqavg6wwG5V40SKUaKnx064 BUwRER1PK6y4cO+991qseAdWlQ0JuEoDwOCwhJgVSQpFp2nFIi5M4EEYvsoV ODCVFQ154zzIpd7eHxlokOa74d9tbYPufDePTdp7e5WvebJQMxoFBx7lquHB gMObiOFEwGHOjEcyHhyQ7TAGrNa7PSvUk1YUYhEuOCAeAXhIMjuopxyxbMfY N2tRknQs2wEOprwUQYqengNoAe5IKnjAP+lL0oaDbofVM5BQAAVugwlUW4yL EQhJJCfYl2QcMyyRZQJAfFy1xkzU1z842dR0D3089yeSvPpThA3ABxy/bW4e 1uUY5zdv7rHnmSUCUagSjXIEJia+8IWvMU18/vM/odP+t9gDvrn5CD2zfrZm h80aMh2BQBRpRRSQKTiQ5SBNFUJGJBAyImYCnJncrpzalZkqqGLnziaeAEeP ED/UlSs02PwEcYWWlhYzuM0UiKKsguQu5aAEbuE2+booodIjAeHNQXpzj/DR 1jbMvi7Gdw6jYjZs2EVb353TGzZUM1oECi2AFVOYr+40+ApokXHRwi0jNSNg OFOCCt4x/qtPMD0sW7aBG4lXcw5mBcIHs+o1KCaHtEAO1zI5BOOrVnVeWbZs 9OrKlage7aWXCM0omzbVpUird/KLVGPKSBNZnQSh1SZBSkBFyEuNB7wnOfKQ ya1adZg+Uoc1RSiSQAtwa+se0ERWZ0F27947S+8dV1PXqHjDBMJ1ra2tM3T5 7Natp5KMFB599B4CVujoA1Y/99GPfh+AYSCDGSOmmbdVaXLIOS3MFSEMuFbA ANVUW1St8bMCZggooRkjLv9hy0L4CSl3NNnGnW+5Kp4sOAMSJotAIgsVpJC6 VUpwRGjbX4IjoL7jo6OnZpSUFiw2MUa7txcV/v39iqXRqanc3r0CWIwPDT0C aUZAowRYCPERESyixRJsf1pRAAuT+zBwkVgs/GklwCIUy7hJXQ8hC3TsIFTB J+5vkwzu2fMi6MIczBfgDDAGQhbd3QeIK0YCQAUXTxydJHEeP3SIdhpC4cVN wgj4jEINN2QxH9QIFYYKqBEdQWdCFhlFHm7YA0e6MH3OHS3rTp8DdaAirKen j73dVcFnMN3VNQLoMOChjEr1oBW89iZCkRRKK8pj8x2BW+FpSioIIArO8JK7 e6RxJRShKNNVu7Qa2KDPJcfoLsB9AABIhyENUzJiYAUVovTVKFAGsiGKMrC9 HKLL2rN5U2XRbgHDLwBG2ClEYcWk0137Wd1d29k5BHBwEYKuBlvaoQhCnNux o9meUG6IS3DcpEo931y58r6r3d3D3Hjt6RX8oCfEcbC/LmEmvil2yKqYBMnW JiNbs/R7npheJRR5lpoQB4YgFgtNkTUMYabDEzwkXAyArSuXpkZaSlQTb3HV hRvJMBNoF2I12Q04+WlmSHh6xZMw0/o8HZiorm7gbpA1a+p4575u3abc+vUb piCd9CKkCiiBqov52rCi3CJRmCR3IBKYSIcqLkzVxR13DHFAIs1YEeRXrFiF 8o4ZfcTiRVbAC3YZSaTerK7unt2z5z7ut9q69Qi9noO57dvbkqj4pbupq9tL eN0yg6KVLK8+ty3Ry45jmo7UBIMZXhDLHDfGMkfKZQ4c9EzbiFJ7k7nq6hbu ljmssx3H8mNjY/ShqKc/WOHGrl3thBy9dAoeNjaI4yga0EdivQpmXKZvlcEQ uh59VHiT0MfhN9CIYZJ16x6wTJLUTHLrrc8YJkFuROpe0Yan0a7cVsUG9NP/ fDAZK+KP9yXsHUWDH7907zzi5cYBmRvm4pQV8ZzCCZM5OAWipDglPJvdeqNl 4lFFslgP6Xla+2c4OQfgje9EPRStYBTJPp+BJcXAov1ejecr/F51IME1SzPt tZKVbCilUiY84ZQQ2UgKAKIUPXBzLBZiFglw4nrFlqriUN25gQmMmAMAkwg4 QOJpeDlG57yBRIqJxTfEguPK/v1HkwK0vDMeWtzYyHygJZRsSRfsXsXZduHO Fb6s5Gw7ZffqsxHd4cOHr/T3PwqESeuc2vDw3UjdIpTPuYWepOIXnpyr+eVf Dxx4GPPsEkmMpEkE+Lc79YUNQjyBYypiMy2BGzCZD8dMuR0raaFU1OEYU7xB rMIfSQRMwDCOWbzvMhBMXd0BNR0dJ0iERulLMpjfu7cjkTUplnY/z+xCnNKZ a2/vvErn1wk6blPVnkCSYLK9fQhYYtDkV7W1utPk3XEgcoMCkSs1NaP0yTym HWCwphhE1Ky5ZlKXndNbtmyf2bSpJqNiFy5/mOw9OASxDGaBSiFD4gkZkqxm kW3bChPt1fy5LGMA3OvBLdFaijCHBJwBQX0FHkuzBkFDcSOK4RH8bHhEqvg0 rbBOSIM9zI/Q88IUXY0nfCC0sXbtToMldGwkCeAiCsMZEUwJ1WWUxVqv8s1N RSiaTQJt7OH0ndAjqYDHmjVD4BFmkoxNlaw0ZEKfZ+U94riY6TrRMKWUC5Sy SNWKvoVGsv7+o8zeyRx3iM+2tfVxLA5QsoBX+Mw0YHT9G5zg59W7jJpYui+m lLTAKmUFVgGhCPGRrYwmHq8oxzjKcILcGsGJcnED1LYYPuExC8MEy/QUZ9zY J8Ik68KMwnSSUowyW1t7wDKKx2vgMgofy5Y9lvBAJwnPtNgyoiB9kl8kiL2O nITMQt7/ewFKtIZjzAGURoFDQvfx7vjrCe0s9unyn6BG5hU5zPOtlwuoUq5G 4CFZc+m2224zuBJDKzzGTtGKH01jSONmpS4Qyd9dcUQWOm6uZ8TQ+o1rWtEu WIikjAJYGFp8HWvRyPLr4eFnlQe9qk9NuVarZhwft3rEc0no+Ulc4jhpGPHV HulKeM31Il7zrgNsXDGI/QUUWUdWPC4G0VEVncFJWYTr6ztM24F9XHtNsOIz q6RcVsHBlTAkdu8W+CRd6LK1b19SeHkyTrJKs8qM7oDRtSSWT7iytASfzDl7 V/MJv+xIvtABEzdjDNPdfS96NnmIjS4xS6gZeikMs5kmiRrv7X0Ac/QwyAaA 4mF4Hg+ySQS/uPvub5pQC3ebYExcVWwexzflpJMaIzKFRhWbBvKd6EwkshLq oc3GEwnSOBEiCdOMtoTBCJuI3XwAexF6//dxdIUQJQcbNxViKUe0BdmcvDn2 7u3lSXKEEbm2tpHpjo4BgpZBgpaBxEdVXOUiref1kSjj1XuF/raX9UFfDE5n nWtrO3Thzjt/8NLnPvfjRPKlW299SW0G00++4x3/x0uf/OSL5mirqWlvpDMO CtsT78O5xwP0XK8oZ3LNmvsjlIPv+eG3Wlt7xrdswTW2bm1IAnS45EPv1hFZ Ydrg9khbMuqyjL6GnaXrDKzRuZm0HnQ3wkZl8FYF04BX8NTcUXSaYWy3iomb ABsyQnzFE3imUuCZAGsZA0yKAQbxFJRQrlmznaFl/foNvkIPtyO2BLtwIUgm trHWZ5d6cAvCJl1dY8aUzOljsexSV9dj2SVbYJcckkJ4GH+e7FKp3rNJeqJg F6aWKsUuk2B7+n7PcGiWVw9DD6aQZQS1VCh2maZ3ZJzIkqnl3QK7JBW7gItw z+d5RiKv3kU8pmGXLK9lE5/61Omp2247Mb169QAR0062HgG3oHWKuMUAS1pH Uzo7i7Ygk25sZYXiFje9Q194WlMaVJwEDx/r1p0kuWJQQXLHgoo/VlxsuiAs +tzp0jInt4A/fqaPxLU/i+EW3f0y5v5ivs256gfRh/WOImiRXM3eXoJclsaS S/BzwCioxRx47TWiuPiCf1cWkwv27SXIZdJV8nhy8V0ygDSqUsnAhlfMQdCS SCtYQdvt1d7ex9Cqqp3ow8GVmFHCrLTSnN9ACIZ48eASUuQS4CL6qc1VeqJa ZFLu9XCYChSP8QWtII/kenqO2Zenv38fz40ZGhqhzwiBTJJBJnBBZnxk5NF/ GRv7duI98RTjRll+F4phvtV9vaAXY9OakPJCqcJrVnIisLJ8TbNtmqYYQzIz dFva+jylE4gLGWlUG+j+3ODgKKMNUuek4wAb2JnT6efU1fb2s1fa27//Rnv7 Ty/t3ftTAM2FkZG/8NR0Prrou5PNzU9NdXYenOnoGJmBL3uVkDiKlLYyAWUF rNEO9ZddpzMJTTTWuF0y9LFUWIP+LrjgO7cNIZG2iHHdXHWJSrFhPaIv8NPY u7edhFuVqMDAvqOjD1UN9Nlhd3rCmn3TdNDLNaoSQlyB0msrUBZhrQTX3KhA 5iFaG/VhxmLckXBMtXX9f6NrPZkpnJ3ANo0sSGoNNfDdKBSsLFbkQ+J9zNAP z6UH+agPwchvGxr6E8kLK1YQ3V5av74FJAQOoo0BVn+qpqbOxH4Q9CkvxHqY jKB7C4RYjzTUz9d8hKF+1dVjziDgQA/2GyJG6OPu0sZGU92qqlKM2Qfdd1kJ NHJDPRIaVWg0AmoZNPL02te3z4Z6srz6BCGn80uXwoMMswQ3pAXPEE+tIKTL 9DAMSVJhS0pApUD3C+GVa2kZMqjEWSjNSdwUNMavxWB+xYo1DiP5tK4CJxlW Ss0TkxZYKxI9PXAaGzMDR4GCowmSgwkNSInyAhzZwM4HFRxd1J+4l5lEeC3n TyF9KP5p7dr+Sx/4wA8v3XLLM5dWrBj49Zo1g5d37z5Mu6eR6eHhsZnW1qMJ TT703Ry05KO3OihoseSzVCCfCh2x2br1lI3Y+BqEtmy5j/51ILd9e1dux449 v7rrrucUCLHDq3YNi/bNNquvW8hlRNPOF+agmDsEignRybviKUZyEnFLbwAz egQxLsaPzDcq0CSbzN+JRbXXBDZbNAfIILEigAykqgTIhNRPAhlNG25IwsCM drDw2QXLIRkFMvBg248EEdvN9/S8oFgmQMWsuXf8G4Uuuk2W+4VdrmHdrYp/ pqHgiVSlYibLOEkiY6EeYppKIRGUiWeaEPvcqAuJnCCVzrr5iNNwbEbFY+5X Z/BK7F1D8/AGBoZANcQ8AwZpUFz82sjIS6hg5dZaKTiTEoIzkgWugDX4/Tje xPL4gTwS1riFtiWwJnCDMwZrCLm4jwCBaGNCk9Czoi3i9PcfoZ8IcuhUSbyH 6M1sR8eJqfb2r/GMwD17vkvnnu9NNTT85GJn518nFNv4ZvLwVGPj1+n3J1nk eRjPiD01zdHFY4pvXcezKOrE5ZQsrmQKqPNGBHUu02/4ceMwKY1VhWx8tPFY tunuHlXE6xu80ZGaniQG8QBrDtLL1dGBqc0DfBDoAHFIAvbRy3L00q5dZy61 tNBn8lJrK50L/rWjY9hGcDwhgvNRrEnFOx/Hav4r2FTnGyMbUvx8s6Gf6+ZJ P9foSLNDP8h0VTAA+eN1dV0AIANByRADjeawIwgUA722Zk0bOIjpx1Pr+Pbt tROkkxNcqFsIC9lk10Jd/uIU77L+Kjc01UeMmYC7dx/RgaF9/Ba0t7d7Tv4K ua6tW7dzfEgxVAFqdMzHjgXEz+Yhsk5cyMBPUoCfcqF0N4m1XKe3Ghruyd9+ +2D+S19an1+2bGV+9eq1dOfFyOPPE3kCAXlUkAlQ02aKani205iJBe3efQhD ldjHpNxW2Kw0nMM5LXoA+pzHwo7rAptYZGEno2BnHGOUNfDQvagORWgFnWAM 8KgaG28S2VLDOx8q8M4r9FsmnTJeU68uW/bohQ996K8vfPazL9Ln6KE3ensf nty//4kUeuoSwURn57PjR448+Mbp06dxXEbDbjDBsHWBzgPG5BUHTF8TtwrJ qYUaeJwCGj6qq+8nxDlBX/jBHH5XV9eJoiH6/67fbtx4Uod+UENj9xl6eM8d buhHp6xCzTn/K2GIa3STuCjJ/7rZ3pW9mSeU0QjtxcA2M6hHsxFnq3RzXGjw sXZ4cZuWLS+ppxc+r2QL7UYGoRJJXj1jk+L4x4ZQCthRGTa454YcyWrWcVy1 Tqo64oJmmChH4bIijtJDYmaAA+FoUNnVgYHDgCh3ds94T8+fmhJh3CuoKWCA 8k3F6Vudnc/Qzv1opQADJeJBocRTRkhk+QI7VQgslhWYSCq2eXvhcQ1nmedH qnjcBIFs0F8HgtgsXlvG094Tc6hhfPasavgpQUqh6qN4UvJdUsJttGU+f2jm AUlzDlR2LPMNKNGHk2tiTPyHUYmBKWn9+b5mKUkHgzQpBRNDQ6eIAh+Z7O9/ Wo8u/B7X7X0vEYx3dHwPjIQDlDTd0HBWWc86jJTr7Oyd7ewM+abYRJdmpEv0 olw2zUkZoe4mFZ/lCtUPp0szEnNYXIYsIwz3aW8/yb75OioI4/zf9PQ8eqWv 78vTu3Y9R+fTFzhT8QJ7eT9PRP7INH260MP3RkPD0/RNran5Gq319Wcu7Np1 Agd9kmj9uBD9WWLPknxG5jPxB+bJOlVx5Txqek/GhHuYdvbuPUpv8ajBHIR7 MuFoz8S2bfW0FWJfkcvEMaCcKWh5uZMAM4OSF2k3WVNi7JTyEGqM0P8RX28P 9yUz1XBGy0wWNGGbpEAuGYdcooTjkpBEOMou1ncJBwXG5bqueNmyffk771wL tqGbY/U4hAIDF+4wEtxQgnjWCVXx+ALreHqtqxtk1kE4R2EOUn5DwByS7N0o IGbSCdhV33OLiRNuTEdzpYg5SyzmBNpelt4CG9PJqMiOwRwXdeiLVFy08xHF OviQWdZRsR3/XHX1ofOf+cwfg3VoU/C0z4zjXRkefsLwTSLLqzpLG7P6cjWC Bwb21tQ+rUztwTw2zPNerElgz7UquGMJp6GBMB2Mw75vLUw427YdJD0E4gRu dmvMbCKkstvd6rKQfcr/VKyJlPJkhBhPjG2bGZbscoxOD4PI+Gf8V8rz/rbS HGNCQCU4xsIJp4Oqwv3TSGrNBTFRTAjJdeCYsBm5dqfURabeSbU4s/392PCO 8aBlX09QJqC53N39p/98990vJ1KFqcogGUxWTqi2Xdh53Feyv9sXnrMfjzYh 6dZoEwozVQiolI2r0YkEzm4QwkdBOByFwJlbz2DRxuPVf3Nw8N7JgYGvTnZ0 fBfmNtpaH+GgkjXFgeOMrzNe4tDoCOxM60yXY6xvkVZKDgZCObE029AY66PT Tp/BRNjx1Drb1fUAs05v73HiFHaZ0B7so+Yg+T5EKPwD42o7jVHNinf8q729 z4CDwD2Yaehpl32Y2xLv8EHEgxndvRkh+ZVStHPxyJEj3HUVRzvp0smvyDjC cLdUStEOTuTTXV1dl7mfTCAlnThDtbEhnURhjuE+kM6Vrq5Tv6Uvz1vd3T8g sXyRpOp5Or8x89Bu8vlZOmaIemhLTLxDb1BT02PgHT62bftKmnHHe3XPngM2 +PPBuODPmnmCTroAOtkLDujgQM0yQ86GDScwcxl/BP1RiOR4v9qypReMw5yj aefVdesazxOlMOeksCYBOmVCOmuhTmch3YQSGkwE8nUqas+evXnUtOBy9p6N ZxqXVSSmKdMucQ778KF5hlEmKVQhZzTM1NaO5JcuXc0YE8TDTGgqMs/gScYV 83gqaIMWaWNVy8fy5a0aWwKOzhh02b17DwHLKh2l8YAxJkLDqbOVZZpdHDtZ kV2uteySdAqNDbtkeU257OLyS6DwxdTsMLh8VMCXDK8B8OXnq1Y9Mblp059N NDd/E9xCEse8cgESZ3jlnfPklQohLXW9Tks1NbVzTAbM4vMKfumhw9ILZvRo grH1OY0Ah5hIR9P/enhpdK8XFIIwABi+/g3h58DfjSTHWfgyA1suuYBm+BrX FoOPJZdb48nFTWD9vuTCLU8lyEUqeJHIJaTaErmkFbkQpQzSMcTMoju2kc/C KRQd2gkVb/EQgqEt67f0DD++7OLIyE9BL2iZ0U4yqGt5tiRteUIQRXrOaec5 R3Q49BqUC/dXjrVKQJW3CQ+UcthAPxC9IPsDncFyAjFm3rDpXGeP/Z6eFwy1 QKPhCJt4VzyqhOIy8ahi3yvdxm+LeubDKcIM5pTLKdZon14zX8CTAKvPPBKY /AM9lwPcCEcsoucVZqa6ul4w8wpnNmz4MQb/wHWfTrzP5EnEFY+gX/igYREe vN3LY527ixLpbrYqKLAJuqvP42uRFgpzMvHZqlA0JRDqjRWb+DhJw4kX94nn ICW7lPttFSYlAEqm9+x5cKaj48BVNPZ3d3+PUORHJHY/mV6//qdTn/jEf6Xj 76c/9am/Jcn64dXq6ud9JhLvjT17Hrq4deuzHIXJAkfeJ8RddsWiR8o965g8 0qUvfenJJPCCnbn2zvT2Dkx0dAwlygEV3sucTnmFFIsQaFuBLCJxlKyQMSpz GMOYuamzZYrLXWpqTpKoHifG6OH5xkWzjTdwhsgX4ifpEqzhMInLGplIwXCh Akahx7JlGxgwMg5mrF0bjxlqVLFnCocZNRRwBG5+CAeas3WzFNqpj+j0Tx+n gNrbOzE+B2ChICOtAiSmLpjxIjtPyLhevQ2gjFl8/HjKRqHUJbKpSE04tcE4 TF3wJwtoAaBgqEjzyqlPGwJZoJDiFbQrGKT4RAEpLqKyhW87wTVaU83NzYAG Boclqp5X8UJTUxtIK9fQsJt5Ye3abxleMEmdO6DVMRGFRq39rhHc/0+8YO9T 8UIo64LnEQh4cEPxX2HtYz8v4EFGSNB4etV2shIeqJqQAh6YJmMRDwIhOyM1 GGupdbMzIh6U2fAG1HAQ2RmLBLq+BUhg6nXN6JlEEoBghhk7NrWWD7QB/gy3 WsfzwZwdzY63qk3apOL5IIQB5fEFL6EX63ohacP6zCEUVeMCr92DLiEY0zwk s3S5j++Swr8cOfLnEiDogAJKVWwsIxBeIC38plrX8bC15TFuT7UU+glV7Cow CSRAoN8V00Far0ND++iTcdgELAAIkwMDxxxAqDKjASdXr/6bq7W1fwxAmB4d PW3d6Bobn7MjeRobHzOUEFhI6In2GYTSNQoS/AvE5oAEtmGhPzolcEJWcHyR KlPmwQmGFaQwhprJU0lfl4Fp+hf/oZ2dZ+lU/zKxwLnLd9557tIXvvC/Xbzl llfe+MM//MfXV6z429/U1j4/0dd3MhEoSLjS03Pq9W3bvoYkjYIEOol2dg7b mIWq1PVdZkDoQsUuUjjPPrlgwf/z0vvf/x//4rOfPfsfb7vt6b+87bYXygox BjABc4Gv6AAxh4vbt29nLkjbuENWyK34sUxQsFmBV3xSV5uYGX2YILx+fS+J eTUHGtRYHOP+plEh4oxfCE1IuFCuR/e4oQmNCnZuMFhBV8xye5NhBTjxgxLK LCvcxUEB2FRkBVbIxLJCmcsKbOKydm01PbNG5gOwAVzwV65cJcUfUgIpzDcc cZ3uaseUIGgPvvHJWfhWF3Bh3OCCp1aDC6gYSdwiVMamFCNcgGlihBHOaT5g OvioZgR64PPwM0T0awmv3mW6b9ACE4PmhkngCSzempq6dYgB4NDNyKCP3+7Y cRgj91IFarASrgusQvmRJqX39OM8QSEEABIoaFVvTBS85X9ZYIWfuVdVhrCe W9FqKjkMKLA/yk0lQOGzpUHBxhHmAAVjH+qCgnF6mwsUoloal02w2ucJoFCu SmOnnb3p62Nj9yYLjBCtg9X84IMUIIzABCQ/0tqVxZnON0vfVukJJ4VNv9RS nBKqYiVIKBNegIp5VnZcL1xPSrskdecvAvtuRxQy34QNCPQnkkoC3DoYFyFI Jp4fP3TogVeeeeYZyRfOF6pkSyBEqMK1LByfmAshQrcNYjzwMbYghXNPBTOD T+vImyMjBw0nKExIXejs/C+vNzX9nxf37Pl7znMMDZ2dGR095ekpOthkmyk6 ra1HOY6QZkRA5MAiAtBApTRCk4JBBZoIJMNaKashteVILT2o4ZjCo8OsIRk7 uFgKJWRn+/r6ckAEdDfhoBf8rQcffPBXjzzyyKtnzpx5tbb2T+i9//SnzyVS /7x+/Y8uNDd/xxyv01cEyOA7xNDaeppZIStkOa7D6gEUVGY2XNPqqfXJt7/9 71/6yEeeO/eFLxwnpmJaOL969Z5zGzfWMidkCrEEm6XICLEE5VAaWKsVwwrR YXaGFdKaFdByc+edx0gUn9QD9LazFUp0nq8xo3cTGlKQIVWCGtwgg6GGlKYG pAzCdioovRqF/55DDUF++fIVTA7mWL16Nf2umB6ysfSQNqmNHLze8biotCBa KEQTGBlsUWkiLVRflP8uGQyNDPRhU8jAq5ejdVYfug7Dm6L1Ms4YYAcdJvxN Z2fnRdN4LBGErwjiIvGBJYgqodDiw4ogQA8XMQZPWRczQXAh9MaNj+CgEyLW 9OS2bZ2T27e34RjfsWP0tw0Nx3lAr5OYeHXz5uc+jnOTo9ChJuFGERlixs3M 16rkJvuFShhPNlMTGkIGxTApt7kXTw4IATxQjieyxfyn40khlHGYBynwT0wK SYACN9dI/TFzAEF0sy4BgVs5ifvRjbPulBczM+7Kvn2Pz7a1PavG5YXjBDgS SV6xNRsusriNb+URKxKEAffhPz0roEXlPCshrhWYKT5Oj6aiUdpCg832I2qg 1d+kF9yXyHDUK8899xzRz7Fjx+hhIHCm9OCGeBwI9QKXwIFQ2iBbGLVnbu9M xRHrSYrH+xYZ2afVaWQKemjiCVmVc8Bl47g5TNyfeuqpwpS9RPrVsbG/xs9m vK8xuseHhk79aiqOjiXkQQeZcJaBqw5UsCBw0YD92dSHo7jqoWyeNZ5e6RrP KB+ERgxLvKG92iwf8E95jkDQh6X/EtjgySeffPn+++8PXobprPdqb+8TBg3o A4PVu9jS8sJ4V9cZ/kjpD9aV3t4Tr+/de9TlhFBkYaEcWTiiTkB3uG3AvoIG AMNzq1e3MBpUFQDBhhOyChAAB5P0W5agpBYi+pkt0t0pMQADDJyDb5ryZ0vl Gxoa8rW1Z+xk3S1bauAdX8Yc4PN4Owyl0b22gRBAkFCgQoODQQaNAYGmgL17 By0FJHWnLWIHIIHe3n6ofzlAIMgr9TX7/0iNpu1HqRBqNH21jq9Y0f7mypX1 s5s27VUT4pTwI4WhxZ/Aolj4K+Yp/Neo1zsHXxcj/IEg/ClB+FXowD9Ht4W0 c9MSvTefekO1bDp9JjjO4SuzSChU+EA4YgDNT/wB632K+OfLk7fd9nXW/Orq w5d27DjxWm3tY96FnTu/SXezY8fzyCcokVfr+Tvv/LOX6duMQwf4i3IKu8IE wIH7981b98eKdP89CSvqJcMI1+rrucGK9xfU3fVQ5Vvfoq4fcvZICwkDP07d kzjx3iSYpHpCSoA3ppI8+s6JPZwD8F1DeNyG20VVCYD/azoTz7a0sMt5rq3t GWXjkHbVW4+7PUDHCJ3UjB1F4EqQuWtTcygpt2igJSh3KHPwOyp3nL9Z5HHZ i5XE6siV0dG7I2mRsIWJ8k3zIdsQbRyQbUmtPWHzLrGZLozgNtYD8TPs8PJK au02BYd7RsJe8EC2WLXmgX/mYwi1DsLj60xNKzI/3P9KH42E2s7jLHpfvrn5 NA/1okPt5DEPd9AG9pOFPgyj16F5uKY3wxN0u7x0pH8+uv0maa/VbU+tofsL hMxBVvdrOLqNI8nSHUC636J//Tu90mwbT/JNFE/6HbBgp1zBpuPolf7+IxDr Muh0ld3A36POXTc7G/hGU0euC7M/TlrbSMLiarLZsLub9nFMgadT8GxBfwPo b470dpauYT3blXdGmnXYRCsIxdmiC3NcMCEuo7fmejqcO2sWqpoS9udBCVE2 4q1/x37x9BirVrVzg6oZ4NLbe4iezTAXBNCjlOt4/rJldmfOBhRan20uX+oX rYzV54Awciy3adP+/IYNMFDdSk9jI99vNKBfiXXhPFV5iVZljM41qpwRVFn5 gKVcVcZxCcOX0ZyrdtxGmN2duSktRM7fqHIo1/8eIY7/IV59KDQu+0VNzfMI QiUvrFz5Fz5LcnBh69azxvccUnyupeWBhMdi7D1kqv8Lm95wv+ausD5ynDys y25fAo6fFXS56Hfcd/leWc/5dpFAgDOGtoSl+SdKa7LdcUua7Aykt5dVFhzB zeXmenGKHQ0lS26cYjOhIOCufFgBD8+sx3GZTtqmAcHouWNcEArMY8ysz7Nc UmZr6D4C26HGU0YoHu94dY/rrkNxE75gnkn7a4R4fJkg5Y57VTSe8YsHHvgm Xh3OVqRlCb8+XsLhmTZfCTe3NxLubtbnkHBhDK3vOqPPIeH8jBwJVxNofTN5 1si3HiSHD4MdJDcycpwd4Xkwp0rWp6Df8EMnFNoP9TaVez7LdgoFfEa2cbDf KJ2XqmKj8KmQCzl20rqvIF1oKTDpeDpJxgbfQ5vrtLC5TvKahqwZlb4CAwv6 /3kMeYFSlwk7bY/XAML9m87Oh+ldP4zjjd7eMTEKn5J310+EVfshdscUQu1J Xn2o9hU60U/RiX22MBYN/8RFU5jXiQY7we/czG8zOt7Tc0B7W3ms5WbaayAM ZYvOSFFh9GJDK0nUK7Gq+rkyd+QraecYy3hf3wEr4w0NjbS3vstIOf3TSrna avsk5cvd0jxJzatU3t5VcxyXMdEU3wW0mdTWDqAPYjc7pNZieg1PRFsoZOWV pqdcHwccRs8XC8n4Cl6zrpTP7N9/eJa+O/QM7nlr376TVw4cOHYBepkqaPgF 3eFoNPy3kH2c8uJy8e8UIulKwz2j4XwNn9fMq9u3v3j+rrv+CprOx+23/wzS fmHLlu+/Wl39QlrJeCPWiIyHtrQN6rKQ7UJIxoUttNZwdwttdVppuNdYdCNx PmuR79QH1cVROec7+Fi8mofi54FQsZ8tZNXtZVUF5Z6Pmgu2i7FqLu55jZpn 9cBQV7A4Ea6U1jc1eMinFwZxpVwpp1P1KZLvg5BvPeMV+Vhzd9DMMkFmnTC/ rbXLCPKZFf66+cr2EoFpKmJj53OPfsnKsn2tMAE+KXQRShNmtGyzthrZzham vhalJiTtdnxGI1NfC67haF7NCMKdKUTKXT9U/C2JVMEpHF5cRr31MDZWb6j2 vn0H4cGF7vNe7gtMpKfo82CGmVyiM9LFo0efgVM4AdA39KY7ZSrrXPVGILtK iJFr9Xb32ka9L5dW71BoXNpip2LV24+qd1LPaqN/vgI/cch3BdYUq7Z/obPz yUu9vSeIDo5AsVmw/bhuwK/ps5PWZ1bncqXR50hTf0V6/KZTCmfEGDpNf0go Rc5S4Zcot4c6m4lnZmqqUWc9NTUJgc4Kiuxus6PKXaTI9Ihmmw1Rxt66urrb CnFbWzsrL22mWYzTrL5pTnvTj6TCd1kl1oYCYvHcArWxnqTHYjnmE+8Mm9/M IqWOIj1VMojVY5sG/D3Q4kpBixeV1uJFQpZbazF9A44Qvx7NDw2dwJHDQTwL PaYv1al/BbNldJ08vX3QY1ZhXU8/BQ2nL+kEmlGkrPaN8VqMy7DP5mtkeU2d 6+p63Ogx/s33Q8SZURpsk9n4L6bTrl5rrd5hc547LMNzKmoZ37FQOKf9P3Bl 3AnfaL7FdIJMAxH+Q1imQxbXfyjIdEoIhKfiZRpnTiPVZtMdqqavEGRauyNP O9tYUcikERglZDo0RjUZm6T2sceEar/R3f1Dd/ZUV9djua6uk4iac425npo6 QZ/fyA47JJm+oDmSVGcECV44z2D5YmGHLUm1KRXDKT0SAQg9brks1UvipTrU RSdJtSlgQA4K0Wz61uoddtEAsrmkOlTp5ki12WKXkmp3j22lWsXKA9cSaXzf vtNOl0TANpoDAzx9TE/26GHLmF6ORg4YzZ7o7Hz030dHX0hEx3qM9/ePuEJN Z+G4qHjgbpCNSpu+fXYp0lLNe/z5VLj5Ygab15yW6PEBO0mVNfoi/Ys1ukpt tM+3t389ktIOINkXursfxgHp5o22buo/t3HjVx5avfosa/ef6DOJGwcPCmp9 nhT2V83NzUatr9IJ/63GxkZW64pCvhrbaDdfHWrAz2q13rmz0c7R8CNqXVtb r6LS8UK9MWbslxHqKqcBf+nSXr5LHewO75JXRHbJ3G1PN1mhD2j1MvpLig2A pOa4hUqz6aPWOYuPNNQ6KWi2L2i2lKleXFqzF+oXGIn/SCiciPUQ6zZpNV2G 1Z+trn7839esefj8unX3nKuv75ck+2O8psbRrkZfVnNMnThxYoIrn4pz1NfF RsPtThq/o50KXw9KbZPQKawxmeidWjPdbnit0bc62tvo6qf2Ub5jLp1VjohF YfGzjlbPeR9L5Kf9IXWxW+RutfrDpbXabqlLaDWrVkSrTeB0Lq0WqpdS0dmh RhXT8RIdUgxJonXN2s8feugF2+eediadd3cfpW/jsNZnz3R+/cuxY99NlAli 6pbLGZXJCuKcLoikDX8vmqc4S9erFMLuTh44aucYEudKWZwXsYilXHHGYbrX Ssw7xVgJq8nZ+KFbUhZE0ue4AaFm3ISoz6qJjS8zGm3mtrpZcO3xnHIdfXDg dhhboUMs/GFQls6HaFOxjyWbttmeUmxaB9A1/lZn51NvtLX9zRstLT9NsFh7 F3p7/yoRwM55srX1y9Pt7ftn29uHo+MqbGe7Vmx3U2zq0l3FtrnrVGFjbVTb 5MJDNWzJ0ooNKmDF1hO63sB+H6dDvNgLWbGDc6Oj97s16hf27v0abbNJqxPe 693dp63fIE/HSgRPvve9/9dY1Ante+p0ZpT7a6QuUOvfcmmxUuu3Wltbf0l7 7Vd5zyhUnFUK++2kEA1PawXfvn0souAImY3yPhy2gTiwPyZtk6Y6pOcYeBXe cgf5L37xMA/n3rGj22yvbR9asYxnzHbbyDj9ezkdy3IIftMxX0VXu3C4L3TS Fng4h7krcNwURD1Q0p6jdZaEfZb+UiSypdLzJaV1fYFQeJbSuq413dF1uArc n9+y5VH4UOduv/3u6eXLWydWrdqSxJSqtBpfBak3Qm8sdC7DRVALPJ3XeDVC 71r9hXLfi7EmIeofFqLl12uNR7WG0fggPsMdCo3PpfcxEXAl1xjNWZzh1g6B Icc+lvL/QY3/cLHGW6vh/xCv8aGwuaTxGcHURo9sMKXoRudLyHxoC61kvmhE +M8ff/zxkDoYjc8I0fL4EeFWL9/q6nrW1qC3tz9sbYq1Nw703gwGZy87vS+H yx+28UgbS8Z5To+9DaGXxUt/qIht8TxD6IuE61UKyOEJ+3Jp6GeVLP0L9P41 Iv3Q8ER5rEuRzxYGqHzS2p8VtvLx0h+40m/HnzvzNq27cAm5d6vWRLkv4VZs 7g+mfQk1QH6B1X1nYhXr/8jIKJvnk/yT8EPTH5vZuxfjHL6LcQ6XmppeTijt 91/r7PzTycbG52FWDKccY1Xc0dFvmtvEUvRISdsE1xoICJCOja0XheiN/PsF 5Z82dx3oCZ1a+S/SVaH+iyH+uuT8QmvrN83+nPCGlf9cXd0LLy1f/mMofIJn 2tCJ0bV0/446yyBQaGy5zEyl/5dWKD8IAPv2TKGU7ZIR+yrlaONu13GYwHqg NX7dum4z2EDH1APW+IGBQdq7bkOTGdrJ5pxmEBV9d/seL/o+D7HctWs0v3Zt a3716uqUU6emNZ/HYaNaLaL12MfD707nuznnXSrazolvtEQMJwIj8rNqyFob F9qnWN1TUPcZZMPpcFWePfGuLy3rVUrWTaq7UE9ervbn+erqx+hPvT9PGp7/ 0peGk7kVK+hdmFq9er2ZnE3fXHdq9qYZJrIJejPfpzR9EnsVo+lBQdPfNLnw tJALr5pn/J3j9FKUPSLnHE6vK3xCbRFbSM7xgS6tvml9F8L1zrrXWxx/f43u 9dRkErkYLlJzx18lFVoPOfHy73EpZ86lgvN0vK5jOyTpujuhqYSuC1XbRbqu I6uxuh5ig3hdD82lvNrT82VfJ0SNtGt59+xIyiGj8OzISupOG6cvuw3ZJdQ9 tMGW1N3pq4O1sJv4nlPdFwpR9wVYHVMXW0CXFl6RhbKcV8pyPqV6+UrKuS0W p69nRkiil5jQFJVzDvk4NjbW6qqEnLvR9bnkPGKd5bv3h8PTnwtX0fv7j+ip AxD12YGB0ementN66oBx4U3T7uNPIeU4fk0iz0KuDW0SBTUfsIMHSjSeY1Mu WefaTHkmNgTvmw19WMVhRs0Xmch+RMhxwDD0GhV351281nFXw5/84Ad/weqt xz/e7Gr4HxfOkNHBJqbHleuDkup6obh8Vqh0W8Br4O7gbS26r8393VFFam61 UnNsNdlZBn3jKe4RN5t4HLqmXNJ0aXJ1MlbTM+zf39Q0nN+woZN+1whdz69Y sZ4Fffnyu8q0nuNHR88zsp5z5FxqG9Nl6bNIZ9MHRgl7XtlHQ9bpw+HIujfr yDqdbnnglCvvyKS/rbS6VwjFbL4TjA9v2jGn6zS9hg/zOwKxz0PsU5D82dWr N8xg9gA8cuiA+JcLul+OlcX/+nCinWU/rcQfm3lbCOepdfzkyTOvHzt277mD B09a7343fP9hQfzfGRe+lzPu0S1znRJl+klDwBeVGIvV54URYgkj1kbQcX0L CdfI98GCni3cRxQKQh3m14SFnznlo8XCb41s9SiPUFu5L8Tw00KReyY8M8jl gOjIacUBgVsTbbOuKn4duDKHu7yEU1EJ7Z+z9kul1lNuYhyHuS8zZsZlALPN D5SFf16BABrWhn89PPxsifHU4sDIynlusZcIMCFF9auEVP/CGCXlWhcBIHQY wej/JaLpRIUqG3PFH+pbETsmwTdb+IjuF/valhU/PVP1ZoQeHwp4y8UKfaoQ prefPS9e6N1RjNF9e2HKkDbeRzkkqT1D31giY/fv+nhzcPAMsI8960jutef+ dHv7N+C5f4UoYKKp6QXjud/ScqKU534kgu+hQn4+Qi+VxF3RyZKcKnxj1zqj 8qEcvl/Ir/PAZ7bR45XtPaH4rPrXau0/cODEy7t2nYXWu2OerdZ/i089ykPb CL3y1RbE3syEdsvas4Lf3EJeK8wO3i2Jo63oPpaV5uZD3HAGgUfh+rp161Mx Aq935KUE3t20SwJfrsf51NbW2gE9HR09JLDN7GUDRzc4vq5evYaHHN/FO/mV RuET5SzxvonQlypTrxDUPa3UPUfvGE+ULoTkw+ru8+pN04s5QU9/EuZ1ZuPu 9J650m6mJeEvMxt3T69OXZyWdjQF3EdqfgqynlC67tF7UpOjlx4H7cv51YOu Xy61sb/OCnxWCbyblicetgL/5okT90+OjT2USPKK9s7Hz7e3P/nqyMgZOt/O mZ/na7xXCzzKPucRuw8JZkHdI0P53u2KPb4WpcXYL4j2mLle/Bjlue8vKNyf gQRzf3cI9+fWwev6d9mFTjGMCAGhIL8EAWkl+CbIb0BAC74b53cE3/7OhQFs 5rXs+a5kIbifFTggLcT2f4eRzlNKCnAfKQLo4yEI6O09RCfTkbQe4tPTA6cy 5W2rICDl+tnhwM8AA1UgGLgbdOzH+dEqhap1aTzhNb8bD4SCBooHfDcIgceW vO30w1w8c+YMUAD/T6gK8gwM7E0bN45fnDr1vfGhoZMmJiChga85zgkJ2Ax/ RjCh8WOL60M2/PhYlIXDCpdVzX0sKYRCAooUimzpXGfb0H14ztBmHQfQY3mC 6Fiey4ODD1gb/La271obfDowloddbl0b/GR4AiGX3ifjvfBDoX6t+xdhy4kC /DhmyAqd6p5ax2l9i17DHDeEMjOkXGZwKwlKYAPC/hYbrlOJ/0ZaP45/JbhG WBl9I40Znd76oj6H0WkV5yLOi/phcuAWXJ5/mgQ0ZIXmdcULWRMcICltIGU6 mN+ypZm25N3MB7t2NSIIoJxmtVOcBoTQOD+zzU8LtJB1Ku/chnYtq+X61y4k 4EA3d319C8oKdrKzLXOC24muIwJ3MSVUzZ8VyhUrmAw+U0JGsUJ+LlbwFDHg RcPwGnMkAQ7XlmaGMiGHnywE+wO6zQMABOABH6tXb2KsohcekDC7Zs06xoTU PGHh3Vi9CW52hOP8LH19zZHSKf5jx+6ZHRu7P3fkyJfpW4TVnz5y5MEpggbA +WsNDd9Mcq+6/2p392PgAZMT4IgAp/0/GJ/in7P7rVZdFjKXUR1sZrKd5BPz S00DrNh6mHCjoOi/dBXdPHzx/aVD96e+ffxvXGZ8a0O0IXnTfLwEHbxHoANP SBVkfi86EMIB4u94QyvQAf7terRE6CCUIfAFrdV04GqopQNPdc7PmEHFmgwy Kjow3d9/EHtDjPMDHThmt+beAQT42Zjdvn7w4NfGR0dP4RGg0FUCEDi18bbs 7zqsVbF1eWFSWBTWUFPbJ1ngXysQgCp281yntYSaxBe8NjDw48nW1m9Ntba+ OLN371dm+vr2meyAhAKmyC+EAul4e9q5UACfiahDbRwKBEJtny+jALfaSSig 7iMzOzBwgE3uC0n+A8bsfnxg4CHX5765+e+n1q//2czy5T+D1/3syMgp0efe TOeL8bn3hOyAXwAADOq7yH+LkOsvVxjgZgcg/AgYTNGBkSIc0sVnO1lI8hsI MGWAIUscT6ABLz6I0KhJgP/jXQtDwLcK2o/oQKz26zNUKEWQFor8FqkUwcSn PvXU9Oc+9yCJZAvtVvdw47oZQrNhQ7Hqu3v/UqrvXI8PTJIhkSoTVJ9OEdzE 3tzcHbDqB67q87F06YrE4jmV3ubwywSlz85T6VXM33OVnj4+RuuXlNZ65fjv u5Y0qNMr05F+hAMQjoHKr1pVHViRX2+i/InMPEX+Pbx6qFDI0+kHBz0A21rm jx49mT98+AEcBKlYM7N79z4z3dT0/L/t2HH2Uk3N0+NbtjwBr7iJ2to94/X1 TR8U4vwf+t3i/NGO8h3qkxhqcNcSf7sgyeUF6b7Z3LP2nsHP5rqJSmFzryU+ 5FHzieJnZWX55tKybDftJWTZ1QL8W0uvu2GPyHIowY/LK8OKbAL3JRQ5Tuys KDlzXqJTd0P7f0/PruvrO6T366jB55VnlDnZeiPRykwVqqwG2gXGogxF/TPt 7U/NYJ8nbdMldLhO2H4zoUhx+sXhErwJ1dxQLMnX64oFLcmvnTp1HzbiQViB p5ubv0Ea8nyupeUZYl+uaJrt7S0oaqmhe04Jno2ZC0PqJMdYqRPeBY1Eefi2 c8lzqBZPkGfbXifJs26v0zNoDkKS8cZDkhO+er0wd+bSXXf9t9dral6lj+4T uZGRexJzO8oHUUf5y/xISoDhRcfT6JA6iRfgwETtIb4TWnzpsdmans6lQ5Be I7x+Cc11cvRGc03hXazmfr+00trZFO9Q1wu1tKeE+LxOxl+5447jUNvJT3/6 qdnVqzt5kosaLeu77uxQXV+ooisltvjZ3WZrsc3qu0FtOoS2t/cgC+ARbVdD Wst66+u99tq1G+DBzjp7TV6VxQuub9Jklxk0sBmpLY+VWt+V2imCgDKrrIvi Xd+M45uyxRey6+U63L5x42nChUbeQaeVuJKcrrXimlXialLpLKtSPv1mLa70 ebPi6mHNsqYGjKO7dp2FoW4Ox8aNJ+hUsnUrmiF37GiaqK+vx5HwefUuw5MG jXUQ2RuFiPvHfseOuO1zamtIM8sEbb2h9PXGzPX4GeiAPpfzmf8+Xiyw1pP1 nfECG4qKSwKb0qcyPbDNFVnXG84obajkOezaHi6po1ezMiyZUKSQs5mRx5QQ Hi8xKhZR9mglW0hufTsqdsQOuQ/Co2J52JkeC4sB97/t6FD+5UF4yD03Oft6 yH1n5/3RHnUptT/ntBVJTMuF6y0pVOnZljep0k4PtH/t9On7J/fvv1ePvOWJ 9FBh3gM3N79AXxnSYa4juBc6bI+enoNzqXBR5nquMS7S+N+ICjuZdd+9LZS4 hBCHQua+jto4Qow9ckq4eVl4m32FNgo6Ip7GQJd/7uv7z3agi3736TPzQMiv fdeur0T82ll7dcU5b33Z/xXMAh6gJ+cXAt9WditU4PsKPSErtz7LrTerowWQ WtOYHhpQ7wta6yutRV2c3d8uUVr7EK1WbyNay/E0SWs5jsYR7VR8udv42rU9 b33mM0/nVq58ks7Kg6yw0vwTY8/m7m89J6odnX/iSm6ZMDVNy63Nj2PbqYe5 0+OrKSiO3vKxdesOFqxNnDtfb3V3SUF3S5app4XEd4VWX0d39bGT+95raxty 9H/S4Hqjv4lKK8AL5inAviPAupyNnqES4La2E7S5refXPGN3t+usAFfMU4Bv UgI809jYaAU4qWV4bOyU3d2mefX5q1Bb+zQb3G/YcMqHFFfib0wJAlxuI9i3 /H5NapwU1hIcMo7REvwl/auEE5lOCdKqR5/c4Uqwc72zRq5vKFZaPNwf8cUl XFhvFFQ4KUSfy4RC9aCgwm6qNqrCUa+2cfdcmC1WYZzoIirMe5QSKhwKQ5dQ 4dBeUlLhlN36DtmB7bpsHfFoq8JacV/v7f0vZsKaUWachzFpzR20ggR4ydlo UoGdMxg1qsKhfXKZsB1+j/AavF1tfREwx3Nm1R0aOpsMiy7LrRJddOE/ExVd 1Ouzw7w0V938GU75WinxDdWzzSG+kbK2kIdrnPj6QmVbUCy+eJXixXfBJD5c jrcMboIEPgamsHYfPfoTGLpG/dgRlI7zY9daHApAJ4u1+JUHH3zQF5LQWoun 6bKr2OoWtr6sxUhC47UVB626sWatx8TTxbHmxQUtNpln3ToeW4SOn3mfYdpa BXOY0L5Xd5ZdhkF6be19ep+0j5R0m5rRwSKM4Cf9akNoCJk0eUQSYXcImRFh 01nW3t5dNISsvr4lv2NHLV1jC4eoo+KrQsxebi7xTWnxxQA2I76VetPb1TWU b22F0UwDPS5WxJfrJ7ZureVY8gIruJXzFFxPF501NHTYArO0FtyBgbHcjh2t LLVZjTpuOHnBPAX3Rl4DONkbweXjyJEziawjsqhTh8hWV/f5ar9LBNJog+fX 85qe0vtfc2AGOmahgwcTn/n90sYch9mmLgt1hmvRXao/vglltsYimxxTV084 leLvnuf1lHgW7bxvmUt09b461PWdFGLLJURXcmIpaZDqRgKzYXHmAPSCggLZ 068UZk4JYWZJcZ1JZohYu/Ig2KdjdMMgdDY02FuldcvNXC7jpY5Q8+Tw8CNQ XePF+lZb27cjI9C/luvqOq3GhwuKmxSU9Ia4PLDk17oknEjmnyoFGVcb3Yyx oON4uZHf/v4/hu5io+uz5KI36kFXblV/XECKW+ynZqL77lZXp5fPP/DAA9LQ E9s1VsIxHZcZP7Y469XYwLMv7HdTupGBtNP6xcTrbZFnurJy8808sqhnOsLM c3qm9/WNjY+MHKD984HfHDhwAhrrvcwlatjumpgwDuhsolLpK6y5OE/HZqWs r4HRV+R7IdhTqtautM6anG5KqPCSdPa7pXXW1n9/XJ/r3PiyL9RzKcO1NHTW fPGQzshhx7lly1bYnZJcqH0v6S6J2lp7kPCKlqeBILrlkXFf2izFeJij3Dy8 6fV5ugjGfTU2NqGELCtI7qJ5Sm5QIqULw4CBgQN5JKA8vWoJZgFO8ooo9y7Y lU9u2lQ/vmXLtsVWidUcsCDa0DXrbHfzu3Ydt+obaPUdGTma37u3g3W3zAYa eBIa6+5iIZkrqe8NkWTu0aMn6f6gup4JM9NbiZIDklwdZ85t395Mu/ldrLhv U0lrDKOZaG5uhqiQwGD1LtLnG7rL2utjnUde92bsRpOkhfkY35Ot6sNpLuYP sRbiB+VbqCGcsnPp9fGaGQoXS5rpF5xSbM2Pawge6bgKhY79ufVzkrcJBTko qZ+BEDcuMQk0FFuV9DMyCRQDs2CNpqulzIANc7dcLWWGXZOM0knxufBocGWL 6RRrY4Bmwhf6rKX54G+Py9mWC2HwiIIywlQJCqruNB0dpQIVndq3716UANPT JvnUmVqzTXUbzOl9sgKKCZj6pXRLqIx2hrxQPWGnOod2WstxrZ3ubUtqpyfU VKUL2mnNUrR2snuDua0z4DPGC3U+tuW5gYFhOKn1qqrpYLq7e3Sqt/foVTrG 9+2757WxsWfp43Py5J8kUq8++OALPz9x4itGOJGjnSShU3vTrNVOc9AHCNo5 TQfoYryw5Q0bm+r6qMkBZxS4pKVpIX68SNDSb6uTilsRDQ2V5JTPPxxC9gsh 5Auo8oF8lmvPMy2i/FkznzgzpQtCyqHjFLSTS4422PixL9RHlVJRd+vKhiPq 5tXVbZGhmWk7owsFxKtXr82vWrWOR3bCbyUDSdWbRn7cqK66tmZpoSha0lXd QGU0lRU1xWvW1VV6sk3QUzZnWb++bnrTpi0T+DOuscJaVkJYjaXcypVtdN8n dImUEtbR0SP8J1dXb1XVaEnu7/ZypKJ2b7tknup6vZPNpf0s62pGq2tPzxOk qU/kkcCFCysmuGlhzalweQNJa33iWghsEtr6DqhPitVUxVQi3uVS19ST7e0n GiPT4hvdxsCFSgBDniNbC5xog85hiXW7knG1z5SQWFWklXIlFoeJA1eUVlZ7 up5DWYsaVEooK1cl3xivoqG4bwkVlQZtCCqacu/PSBDkU9+Nu4czQ6MxnJN9 xN252o6E0ikCKza4B4qstaSyp7fPM/nqeKrZsO81wv1J+9kbsarddcAY0NX1 A9LJ+zHGJI99qJdTq9mNItsaKDs2BH/te2MYwK158uNlNFTzlBYM6LSM8ufB 3FYyPXET+qYXWRrD5Ql1UFpSIf1RSYU0RyXVva2VVL9gL24ef1724oEyK73a 03Nouqfn2FRX10OwFr9w993f4w/US4ngQk/PX17as+c7JNOn3+rq2ne1s3NQ 1zx5rqjSuZ8vo49XrxFVnc8NuY1b47LAScJGRDRU8LRIKHj6k8KJpmRpsTZr CgV+PSHwmy1oKW9EC1rq5zo69tGOZo+ZlJUsDMoye9KEpK6BsEeVBmpVRLK4 rG3acGzNmrvt2Et3XhYX+EJUVeiUe52wT0V4eVOgpRV3CGldsWJFYqGSVh5a icvjpNUTSqNYWstZS/18ff0g6yc6sNatq03mN2zYEplxmYSgFvQ0w3qakfR0 Zu3a+tyqVUehpUm9Sx0ePsYp2uHh/fmdOxu4pUvtUwOdEF9njpzqfraKCh1l La1Qigo1nYKXDLR0iZOeNanYjC6N6u5+HGoKLeVj+3bMB6P3O5lTwfDa2nob L16o9q3QVXiQ8o71w3ECu0AIHCd59V9tabnvQnX1szjOffjD/5AeK+6eq1If 31DvDmssFzeFlDUsxGWF7wd/D/DfR5TUir6fasscSFKbqIzXWeMJNpfOhiLA ks6q4ic+99oqHQ5eJp1eFklxizc9Tj2x/YUv3EF58ZxM6JSSsYyZq2UOTOqw iTSSVzPzOrI5JUk6QCfZUTpGtFd14G5ScXDy+KZ5JlPTsSVNgbvRtUnpyjh1 De9XL/X1/flkW9u3p/fs+VYOIpGE1BqVVQq7T4361IZo7rBPUtdU6ZFa9s3O CFlZY3dKghcV1Vhj0HmIaijGmy6AoL2tJKqZeE9wk1t1ssYp12yk2BM87XiC H3E8wQdZa5PWGHyQzjhH6GaPX25ufumNhgb4gpLKJvzXOjp+CF/wqcbGr8+0 te0D8CCH2tHRFZ2bFZJeT0svXYaYr9NAHLINF6XX1D9lhFjwQkF6HeOvkrXG KrmVcmPBOEwVlFHchobdJr+gPnk8dnTYKm51dfXs2rUbEmVzSGx0oEaxxJbb DSwO3Ae2cQ0NR/L9/fustNbVNWDHSptHJa8oMCZRZXnFpnVThuXV1xduNBK7 QCvsqlWrSipsMt7bi4PCZvOa1UHh7dvvJ4m8N798eVNCqW1gH9rp4lEZ14j0 plh6K4pMv5YtG8pt3XqMY8PYtkJvEW3p7R2AxvLuNVC711l393qdkJmtFLR2 odLa2XXrunNbtpwK7V7b2x9GJpY1lnPNHjS2KhwMhrAmbo0LBgfs4q22qed3 7nzMqCgRK1bvwtKlLz25ePF/Z0FNF7au9iNcUQjBuMVJNeqTHWrwfU9IY412 8sY2Xfgi2NZ2XXTM/zb/ab9tV5+t7i6SdRfbW6u7dXV1Ud0Nbbw8vad0x1Wm hMhxUFp37enZDI5wtViqdfKFyHGJUZchCZMEWWdeRbnk6dV6h4v4sClq0qOr A7PjtQdMntRO19OaPKI0mVdvdmBgyDyQOAXkxnh9DmlrSrie2vUWpcS5dFuK J6vH4k5is/mFNk/RQc8e6hzwRhg1O01NX+dNcGRC2JXRUU5pYwNYQppD+11J mp0RWkaezbiO0G3nK81JoeIpXfhs8uM6t42T5ojhZ8qVZrdvyPs9bLv37z9o bLvp/yNs293S8p2Z5ubvzjQ1vfTbxsa/oRMLyzO2wdbps6npAS3Pufb2ftol 9kCm6S+Ok2eew4DLcQ206ypbMN/dHEOdJXHOCgVRCwRxjrTcxhYnr+JNBLRZ mqaRUtr81pYt+6w2+1qbOzv7ZhsaGic3bdoxtWHD1hloc0Zp86zWiZxb0+TW RUnaXKm3uuo6dSSne0gjelmLET1WydViLU7jnrka2dP7XS3ErMOVsWocuF23 OGaVk6ZS4P7+w1aBMzqIjALh1avP5G+9tS9/552b80uXbqRntS7pPHZo/6tr n6boL4QcX8brW9BknzW5zGryihV76V5H8nv39hkdpr99CGFkVXJmC6TMtpet xdfdOE8trsSazC1ffpKrEO4rdNkqQc7t2tVjs86p8KZ3p930ZoRk7Rqlz2/Q u/Sb2tpDlzZteoK+Ili9S6tWnb34yU/+J6iw6B6rFTiacK2eU4FDW+Gg8Gk3 ymw+7SEF1jtf0RFTbbFTeHauCpsgc6XQ7eMV9hZFgd0YEY42VhZ3/uh8LXKB xsJBCY4ucJrEaXAeMhsKLZeQWVfywzKrsrSmkMm0yyaCiNKq8+lh2urso00i VBUb+9Be+l1x2ddM6folMaRQKvasFRTxcKOeVkEDVlCPFZSec76np2h21/jg 4MO0055zwoUklZBJcxs3NBwteJuvVEq7WHyCrGVmCakUvLGDqFSy+4X/e/hh +6yW/f2D8MMm9vq2D4mkP6Kt7ZuvdXX92ZtNTUg1GGfMMWgjH7SbS0Ie2RG7 OyKKgSuKOHhwpVZGs3c1dUy+UCpcJmxbq4S0q6SMeuaEWyqM32/QUO64WEIk sWs1g53Ht2xpmVq//oQTKE7pND9iP0O0Bdn72l13NY+vW7czCa1MeNPr12+2 AWMfq6dO4SShayGZRZOlUB7sDpnAZdHJUp/5zCkSpO48oQeHR7F1LddyiZol veVThccslylBLiti5dJ3K5rwXgVuNLix8XT+S1/az7K4bNl6L3/XXav56VqX iYSkkEFJhUyyQqZnlfFWPR8dHQMcS2lt3Ruy+9CVSyyLvGO9qSCLl0vJYhmv Pm9RSRtxgK8DvUu9++576TjGophVFdEmr8pKmBKCwBuUHk5s23Z6cv36B3Ek kliT02vXQmk/+tHv/+MHP/hy7La0UthkVocv47KAEoqYLHzKwXp8F5G8iFOo F9Jfq4hqvFTqDmdO24UPfOCvXr399i9DFaviFTEUDi6hiKFwsKSIWSd6F9mW Gi1z7CNFn4hQYDgj78i4wicdr5HufViNVKMguOHGdFjYJtdA51sRKO7vv4e1 MV3QRmjN62Nj9+JxY7UxIm1S3VWkUKlwvdjcqrpTpAShi/Sx5L3lzJ49L/Jz ZYXMqTbdjo5H8iMjB+lMP0TfiMGgsMnE0780NHQWDTopWS25y6OEWmKjFlXL 0MYyXi1TUbUyMdts4UNVUiTTwn7SKxZJ60Hh/05e0mljE2UO2tad4j5Y7iRW Wjnd1vYC/bkP5dFJ7CuLSLWFJJGERsJzOJHk1eddKSmiUUhfcHr0CwVLJR2g y4XipEpBJV8Mnz9iC323aaLW8miCup6q651cuvSkUUdWRTSQkyr+ZufOXg7P 7U2kjDpCHP8/3t4EPK7ruvOsr+q9qgJAcNNiK16kxE57kRLLkWzLtmxJISmS 4k6CK7gABEGsxL5wEwgukrhIJEXtu2RJjmLHtmLHimN3f9Ek7oTp0aTZM24P 0+NOOBm17HHTkQagIEBAVc35n3vve/e+Oq9QtNPN73uXQKHqVdWrV+f3zvY/ 2IBHOJNJ15fUiAxBaQBY7jQmk16Fn/XVrw4VNm/ekahkQPpcmQTJJqNBAb/V C0BZKYCySoMSt0WivDkLktxmFS1HMhHd+fOPFG6/fXNhwYKlPPARxLzzzsUo ecor966YmBlFzHF6LyAmd+UwMRMZ1oG+7bbu/Fe/2lFYs2YTPUuPaR1OSO5j WqhL+ohQlyRhMxt6k1m6Zgm6WnkbGjpROHjwXtqO4NytDLgZJk+TQpx3NXPT H2lsHBhfu/ax8ZUrzwCY9Iru516rE7TeeuvTb9944w9evfbafxD9yWqXhez9 rZkGnVasNjjXJVbeXMzKQJUpHPJUqDPFUkle02evvfavwc2Rj3705fEPf/j5 S9df3zFy883rquL5KRl+h5++ENZNl+ZnUIuj+Qk/EnTjeh+Jn8kwrAtnlO8R M6+JI5oSPyuE0HBSYJPKbiqt5q6uFwWWqqFN8DNVBLdfu5p2Xw7cvmvLzKem yqxSkgq1JNkIRdf0m/fdd5/h1RidO+Ar6KqgmkVNKxnDY4FXBUb09+8uIONC kFUzJX2WMyJf9K2BgVeBDogy6mpZPzqtwR7VJIxsCLpwuDxI8ku9WNL6UdKy epVdCmdEmbPxmHVKnNT57UUxK6k8qYYd3/FB1TaU0IOZ6K0fNFqVUGGcaGv7 Gp22IGzl1MaN383X1z/Dua22tocKW7c+a6swFgi3BYKtz4x1M6spYXCyFoEa wzsuVf1bJRQuSYB9iS1PmeMUtvBDKo0jaiqWLi1f3gnETu3YcbdB61hTU09a JivCtKCrlunLoXLG0LHc+UczdAkwNBAx/2jp0u10r9WmBmnx4qUM07CC2DPN rcYR5HDpTKHqt0IjFZqJ7jBjL28lSUO3E5U5h8jt3MTszPDq5RcuXAS/0XSm ShCtCFKkVzA6/Utf/erBsdtvPzQ5f34LnTQthZqaTfT2V62qTeVXr97s6nAs 0+OaitOi15YJT5/XdG7x4j3G5+T0KLg5PHxfkntoWLOpsH17g+V7egUjf6G5 uZaR6Y02NzePb9kyRC/2DL3T0z7TEnKTD4OWF2666ceIwEqVRQqYTgoUgFut eOY0q2pmngwvDYMyI1+dtEGfNf59oQQu9YQE27U0tcXA5Vsf+9ifApcJD8Ck o/fxj98HbMZOI0iGnAtG6/mluSlK5kW46dBBixCbwKxhZwl0OqFaAZ14qexh lECnk5GdDp30V8gMB6FaT5h1RK5okADt90KIjvT1nYEvi+xjCYg6z50q0yeV VC4kH/caa3/uJJ/0pZ6ehxHGNW4q3FN6P4eV04VBd/uMw0UmfzAJmqqRjtDH 4MAu6xNx/U5SARViCTZO2WmNn34UyEfYKC0efSSjdAyfrYVSPagpyLqXRKk1 CSkialykFxGvZ1xRpGesjxn0jIFSXG0YyWcIGr+zYcN/nJg//9/nvvzlH5MF fokLU47wd/1JI6BIGN0HjCpf1Yfr6gnDi4yG8dDQUEmdwxlCEHdGmN4M6Pli aINKThNo4PtlAM5m2n7y2c++NF5Ts2MKQxgIlj9fubItkS2mJVnrDe+QOztG 3CpFy/KGCWUCxWAQc/36OhBTo3IJe2ZLGC5Lg/LduQIeswIetcdZMHikDzhh 2Dhv3kYQ0WJjmr1L8mDBx+kYqacFmbAsc3K2cjRHVq6sG0ecYtOmM/l1647T NkQvoZnOkWYyKxs3trBsRFNuy5bGqe3bt9PXAmsqh2nDRL6ckmvg0qBxTH6i o8wH+Tp1qMnpWxqkMmcK/Exqiq5e3cDsXLhwmF57Ox1iIkEAz8MssVhbu9nA M79tWwsmIU/Q+TlC3FwDeCbpgqkpSVdQO4D6M3wUTgOf2uHk1UAUm3I7Z+u4 R6SLZdXlYdO61sM1IF8NfrkYyIE0oY7q1pXAJgMzo7B56cYbtwf9pz5WqS2m BCed+KzEyazbwGpVnno2zKbhpDASuEijOBuPSEk+QUJkVOsfmDR1Q8I4QJQh go7pgrq07je1Q2YmsC5DsttYTTlvMek8AalXCgiUqpYlVH7Q8l+1z2kClUAH O5rt7fdz2e6wpxJ3ZB84lIuiIRh7BUSwUEn3eUZm+FJn54Olx/14dmcNeJgR mmH8WBx6Nt7AKktui0862gWunqaBYVG7l4YhD/mRlByyeg9qoi+HaSd7evZz AIEOiIbfmz09f/XOHXf8FygIv7Nt27+b7Oh4TLf3eZw+hi+5bdtDAF+WM5qe 7T/CZ7Q0g42Qgwi8aqGep0qo5/laaD1K9rk064tubR1eu+mmp35aU3NvFTMu Bca9tXp1DdhG3xQu+BmFZTVN/+lpYGcKeCTYGXl8svXOQByy+vS4FZXaHUSc ddEi5SbS7q4UUJcRUJfWqIPIj9FLyGrUdXcPsTITIFcRBlLR5JJD00tKECuS 0pEzhHTkLMW89+id5JqajubXrn2EN+IesaSLmNKQmKX4NkmvbQSKQawjpGbd jRKax3AlwQrLWK8Q6nUU5DwbcvkVKzpTebpWoeutgYG7mWdwCFta2phpvhZp 2rJlB7iW3769ky6L+/GayKzySYXXzM0a8BGXqaQkPEUQb6KxsZG4TNjjAp+9 7DmCf0lNwWXLHggomNTu5K23Pm0oeDmNKhqKjt6CA0Xf9hEDEN4WgtBWKyro b0IMA02U1TBw/BOf2DN+/fXtIQNptTpYuHOO038CBj0hzMrVkpUuR23u2YAL uZe2bzZ/giupYomeHXPE3iTcZYVgqqSSa5WiBs6rvt/7HR0nOaLW1naCoMdl sTntEdplsUj6AXm/Ghh4VukHxqcp/Siq+WhcVfqFlXQrPyi4gdqv4WpOWG41 mI2//7bvR28AazZPPiDdb/d4a+ufjOza9acw7DDrF5ub/xb/a61ae7IN6+rv 3HmG9fShrFgpyCmk9MdlyTNY9HtX0g3UqUir88ShX5i59IwfaM6PEvQTdHsD +nFlj0S/Kv1Y2h/qhP9xePgb2t/LXNi27Y03N236e/x2qbX125NNTa/AzWYN C4O+HTseLyB02tLSBW8vkzeh010mVGocPdbKP3Xq1Jsq6BvLPSdMKnHvhdLc C+pYd7ncw/bqpz/9TEb5ducXLKg/u2TJ2teJIdjeIDv/Jln4VIjAMeOESAi0 x8HZg2E0TCq1mwcdAnscnNHNXbVqDSvKIiYKt2/x4ru4wgYbWhevFhiYFhjo awbieVxtA8XAnTubmX6VKhRaWLhwETd6goO0H69MDM4UMDiDMZiaxBmK07G7 +yB9Gfmkz+GMhQgkIFitUDheV1cHADIEP4i1AuzzYtlXMb58+fap5cvbgDze tmxpZuANDw8bEWAthpQKoEfAIyzRqucmTRLxxgzx7nKJx6zLYE0z4nwbcbwR 3hIpdvFSpmuEueINF5foqDGFgrL8iuAPDuKKPEWlsytr8eU0MG3EqWRi6u8/ 8pF/G0GcZxCH7dJNN9V4xZQzDlrQRkgmQqJctCdgVOhPN+aek34aAUYI1bZe 5m9R8o1zlE17Edb8mGmwJ010kzwnR8knZe2PzJNSPBC6QZSnx4L2l3p6nmDZ XGnq+4eF55hRTHD8bAEwiINK5a5SMtFW2I00LbpzTwFAn4mXGe3vP4XXPd7T 89RES8u3CGnfRxQPxNPS7CmDO0fAvr192BT35zo69jL6JCUhjT5bQ9dCn1O8 Uwb63KIdzzh9pdBnjXbjhLQVqAD6gnqdeAm/GRNWRN68ESOZe/all156u7f3 z+ky/xXC3isFwl+ywHVcPMzVCKglNQ01Bc2WZhpmyQQNvNvXt2+sv5+3t4aG hjE1BqJ+mByTFHKGs4SinApBcT4Cw9imjh595WwVIwCGquAmdW7RoloDQvrS MFJ+QhYfLFQ8VKshIttsvwQVrSioTUUzwcVQEUMDk5EJLiCjURqCY6jJyJoG i3VQ1BSQXhWhJDw7X6hX9TQlW1q6A0p6mpK9vXvp0reDHrs4UQVKeoBjukww zg7yhhUKhyO1tbUGiXTSqy8CpjwZHFYpHL5n4/ATyjM8v40uueiv5xHLzPCa wjVJIF6Q1GC8/vpnx2+55fjk0qXNU6tXb8rX1+/gijCCIn2Dm+H5JTKMwhSd ur3BLMFkyMQRw8Q7dWmq9gCZiZU2E63gJ2+rV++l6/8YJs7RF12R5o2VMgJd YYL56rFR9k3xrSHrQDiLdb7NOmxjN9+8jE5YAM+LAi9rWdEI65zApsS6tM6u WMp8alJagLuoMxeHO2uAacrGnSjCl42flSaxrrjHQ0kNwKfbEwj9QInlgM+E Q0Ruj8n0scorSMeBzI/GOmdFlL5KqJOR0CbFLc3wNKtORhvsohQZclV0ecej 2Wwfz+SsxskOm2lveB9TLS0vT+3c+Z2Jhoa/QDlIIl5BPg1HL6ogDy1bSexd hZSLBpxzFjAtFNRkYukX8MwqpPFNIY1zMpXgn1NQE+HfNBK21WOm19LmH3Hv /PPPP//2k08+WSBCFXbtesbwT+FPh8gtCHJIqru7N8HlMylGX9Xkrl37yRE4 RJ/LfiPKBwGht/r7v/GLgYEDnPnT3EvMEQKfWaFO5vmQeSWV3feEDiCYt+H6 6587DRE3xbfz5MtE+eYEPiW+2eNSImwLgqLkvwbKsSmtHGvBDYFPjpVWCED7 gFBXmhKAltRAW7duUwC0pMYa3D76KhT6+wcKa9bUVOnoJ/HNeH50V6wpO/FH b7c84s0NiJdWxLvU0NDADiBO+4wi3hidgig8ZoXiSkU8Ewdl1n3KJd7roE4F r9mzNTX7L3z60z+6cOONr1647bYn31q06OBoU9PhcXIwiVz3picbGu7nkvR+ hpuZ0kenzoQNtjuE8OZMHd5ct+6+ILzpac7V1AzT1odkZX7TpvoLX/7yD43v h9BmNLLo+H4RwTvurVipbnMaFn/boZ/TzbHApZ8h5/t8s9Nxge3xWbP+21sf //h3s8X+3viNN25Mjn/ucwvokH/5y7dxtg9HIun6akXht0jBKWzQpLFfFaV5 aIf6Li+p50ddRFzGR9loj1SRRqBIg82kelkHZL4VmzVad0QRL14YwNSV2pJ6 BpgsVsu8tMTpo1WkjuNXIRTKSHS8Soh8Si0MyXAEZkxxJByyg4aQ+g1k3+zr +/FoS8uPDCnxhsBIEBKjRY3We2vrvcVa7ylbqtY0/kugtD3EKCglob1SoLTK ZHzbRywHlE6M1AJlVFzPAaUS16tm91RXPWP73wmO//Tss88yJB977LECvvwE yxz9bbK7+6Hcjh0vJ5RQMUacHSjs3r2HC3tbW3epEtNqcjwQJzuE7VJn5wOE xZcu9PV9L9DV27798fGWlr3jzc17LrW29ozA1s0SCmIkTD5XGpNBJemwut+N 5NsBj0zHitKMDCKjpRhp+4AGKEacHdUvek52MFIMWnqYaAJOrl27nospqzQj TXujxUg8X544med0HjPStxmptx7NRZ+5iDbV/v7Bwtat20KHLy3QMKNpaMnj mGEmDg2vFGpikoqLyLUFXMzy6oGLOMMMGzNCmvAGAY1ZXtPn5s9/6PwXvvAK o3HhwtP/0t5+hrD4pE8nCl2UjbW1PTMyNHTqnaNHj5KNwJr6GZ2RgURORsnQ QTYnyALeFJS8zGU4pu3cH2/r19+Xr62lr3xdXRdZgtraNmLkTvp/G9R0PAGR OjJ5u41I5Rm6acAV7m0cqXAR6cwou1Mh0lapw0MmFHvxZD64eOETn/gLbBc/ /vHvjH/kIy/oklFv/NprH7Ih6TEk/bHPf36eLaTDnpjkKGowOuV9JcBodzxi P5ZSnYGY2JCoq13szA/io9UuQ6ZjojRmbNrmQd+NjbLjqNxHT8/WNtUwd6fC 1kW730IPFrvY3f2aKYIxEVLJD3SeXap9qSgzP3ilUPsiccCLVHsoxRdV9dHb e3dynKcRGXc4kMRrbf0P7+zc+cZ/7+19LZHEOBS67O3s5Kmf+VCDFnmHJ2xK poKJKIGieiBHK43gTgnzx5JCFU22NCVNHYwtZTwp9PCUVL+TBpJxuD8bi0jf xFJHaHuP7jpy5swZss0Ex4T//vHjxyfQAoMnHRoa4qGcRse/o+M4688ODu4B JokIncQF1erY1jZAx/PAxI4dz5Nl/Cslh5eCFN741q3Pk+U7kUiNNzXt5nVg rLW1y64bdbzJjIDJZ3RktAzN9XuVTarTlGRGZgVSekK01BNIaY8gsSjpW5B0 R375hZaWXoLkVpa6gdzd0qXLuGVxsWpwNKBMfFAp0RlW5TQok7qtwnBywYLG Ako14S+CjX19g3TU2wiImo0Rx9FXqMxpTCr51jJReZUat2nnEMcJRFVTavIA Thd9Pgaeoy+kDn9P4fFNwiUQaeHRg+cIRL45f/7XR7ZtezGlsHipv/9RwJCB WKGweJGMxHn6XFmDdY5SYv0JnZEuKq8VYqNXKRfSUDG/bVsvncBAI9oZ64HF f1m//u6Ez1z07BAptivD081m2HLXI+TTTSYhg3NhMQnxkPf0ziOOogcaklX7 2Me+QQx80QRQAx4SCxNp5TGOz5+/1gRLHeMbgaATLS0BwWghiCTXWgKC9v0i szaDQVYlIChN/hIbKW00cTu6HnwJj5ADp+jWT7rd+qwOQ6BQSUGeVWkSg+cf fvjhDwt8td69CbvZvmHwsngCidSwf6XgDErjOVSjnf/+wMDu9wYGhkE1bHi5 evZnBo6f4Rs8WB5Pgjieaq1UVDNeX6Cprny8IvUDFL/obkSRXs410zT0CtoZ sm4rxK9DL2m2F99WKoWqYFZxifYHiE3S/wX6v0DXc0DZe48//vjPn3766X/B VyQFlNHj8Rqh9wpVOdWdOoeh1t19kM6a/ayPA7ihJB96LMgQtrX1FNrb9+aa mh5hRbmtW78HRTnwDWKvoBtdbGzZ8pzCmwe8kTfYg22kvb2jUiiYyQgFM0+H jmDJQtETId4CR7AE3pxg6XR4M9Lc9DczG2Tz5nA2SErjDWqrRuHMzARJ6jFb 0HPRJTKJbCzyqvMrw1mTBnvEuQV834ULG+jQdzPnEB9dsWJ16Acy64LymERa YF1Fmay7OhwqncdpgQs+Bbr0BE7x/Urb0IZdSsgLfiaWdamfLF786KVVq74P fy8xM4TaWSMv/jEFNZwZJf0/X6iJuUaHSevrW0A27fhh9fP19e300w5w7u31 6/dxmJRZJzl9etxWtNJlmRsu5WoZl3Ymason66LiveAhY/p8tUiXSDPqPEbd dde9NPaxjx0f/4M/WJEJ6Tbe03Ponw8dekKkW1Koe9E1f2PFk3njxkkX86gM xJngp5I2h9WXdlRiJJck/Or4TRlrf8a70+MmoXn6Xn//EJhGNofWZFjqEjhy preP6CY1HUQxB8QFQqpSD+CMMhOEcwXnrjKeemOWgR/Zt+8AfXKHEkm3dAf/ J6ypIrnW1ueYfmaqSFIT0Hh0IGA6nCoSqN8agVh7jHRKC4JbILRb8yvj+Yed Redp2Q0Q5kSaln/SfC5Lc5CjA3Fqc1oxjnmm2UdGTtXk0NcO7Dv34osv4i17 jD/P4G9KYf6Qp7WODAG5NBAMJCtClyRc/9HW1g3yWUpx7NIR7hT0iHfbtj0C 8ultIAXw0WmlPbzYyVppgYFPlWZgUCdzWgiGTsPAIBhaioGmU0IzMKXbKLZv HwqGeGAz/IPS+OLFS5NajAZd5lrclLfSXl+lPW6ZMQj5mD/8w50EuW103DFH swYuXpXbGMG8y2KtvjyXDpgr0FlmtiR4V6FrXyzc6cZdzyAPxLu0devWm0LM BRHPtMLceTrtgDUGnMYcvlcB5j7Lgt/n4bG/Q4isGINka2oCOUnaAXNMJ/3o RGtyaYbvOEZPbt26nVE2b96r2m0LwplwpaKjm9kD0whz2vpshEmFoAuLOYbH vat2dbvm2Nnf/u0fJzLMsdTIJz/5LPGrb/zmm1dpF80zEEO4DWZMClUmhVBl pdCspzlmhyoDjlm63kHwyIvlWODScS3nzPC2YKKy5KeVmI0l4cxxpuwOeRdn GaOSyrGovXuHxvr7D5rDFZSlHD9+3K2unGEBWe8QP18hlLZcJrmc0pbKabq5 jU6ZFqwuFnJV2KoEtiZaWr6Zh1JbS4uSNenufoB1wNG4AOeNsGWkwHt7hSkd vgQpox0jEYo/zkj5r12ucrmEGisOGvDpgFMullAqm+flUL9LG3tVtB8FqRSg NUE//QPijkntlOITQKs5eJV0nbYpVkfk1cPAjkAonvCV1OzSPhwzLMlr6leD g8+939NzhgGmMUbfy5MIOlkYQxDqhMFYwgfDskJo0heg9aQLrdjizkdCaNWV gpYfxiUntUiJ0U9zoGVmYljACmZigFhqguMAk0pNcVRtDNAPs3S4gyBlTLGL olW2iFa33rqfXkp3Yd26zXDOKoU4ZIWQsptxeSm7PF65BhYdVYOtjIAt/U0c oeN/gVDCtLpZyNJ5ilk/w2lv4o0zwzRcMPnpBu2a0f4ArjfxiV4DetFXhNw/ IIwx5muYbd7cN7lhw0EGl8rCpSFJA3qZ7e2NG+/GhIu0wtfpf/NvzgWn0dWu S8VIWhqPrwcUpewIJe52l7o5qt1ySZ+jGlyMLeWE+RduuOGbF2655eDITTcN AmJjX/jCxoQXQgwKHCYCVQJiTqixBMREBU8NnXdtC1UGxDhDMzN8bHTYhQQx Z39pARopARrc3VBRemJxtKDyjeeff97QKyieLJ7l7JS24MXNFVyw6jLza3OE 9oOqEr1oNjn018c5Fkq927fnThme0VeTiMb994ppZrZFR8duM9diii6UOf5K cA/nWhTBzBZCMy6PDSSeYxGBmV1Sok4VKY8ozZVKuztg6ZYSM6lsepGh4phj gR6T03HHS9ivhnUgPkoYS3gCvlJ6petCgy7ugjyo3C6UBe37+eDgt1Da83Z7 +59PtbU9pXXRkGT55vv19c/Rldu94+3tj5Lf9YKCV1Ln1Zqbe03gMaG9sEtt bWHrXkooSfGEXJsEtBihbe2wObm2TDzTnGBkPNMqrJb12sK8eYPcsgGOoR0B 5CCvK5GJZdny0izLFLEMxSwNDYOFVat20We8dOk6z/K5dLQxUS3QrFwX7AqB ZmleU3lac3qjTznWHbtIJxrIxa0HRKHPCWhLKrTxF8ygrVpIpX3KRRtD7eO8 +pfWr98DAc9gW7XqOJ1mUIjxRzZuHLy4ceORtzZsOMMjm4KoIrliO3Y8cCMM ZMiyov6CJdqF0jdztYiLM/kRRTgbVTs6jYjrTTe9rEGGNWtwZjaDtfEvfWn9 +C23LFY1l97F/v7njUkL3TPPbiLH9XK1ADJJioWhIVHHE1wni2LBoIiZ4WNL Ukwa2ZQRSCDNXagQIos6gyb0i8kVHjbUrowjpRpxWzSbWJMNPXjBfssl22wh uFiN1daENtzQciq4YwTrnkEZWsvJRH4zzRRTsyXoWp3Fx9IRetEF0E9PnHgx rYfeW/SCG2ZLrUR63pnhkCmL88LMNYnNYT+2atSt8kiHwitB7pUeEyO1bTDm KVljpDsMvewal6AL3Rfo5as119l51MQLdebsbu1tVaA6x2ifshhLQ8PfjWza 9NcTy5f/5dSXvvTjycWL/4zl9e4lH2vnzqeBryCASPxKZMAtTwgXpgRQPRGC qmTt5AshpYJwoUSptFARkhQoZUY33HFHP7k/28xAX60KpqikFcGCqX16HER8 O0HWBgY2hgV8ZpCptrYpibG9XOy/mmcvgUazhezXzDKZNCfMfrHgFsxQpcAk 1S3ug0nv0oUcYvU4x37Gp64CjmGS5XN5JhV2lj6JX5BfNUvIfv2u4pBxr5hA n9QcWrHi4PhXv/rC+MKFT15cv/4UuJPwLmze/HIidWHjxq8hDKjIo9Zzq1c/ Hwzo/aD6wJ1C/6VBvK80cpYWO1Y4sf6/EDmvb9269dztt5/SyEld+MxnnjG4 od+w+gF2vvKVTcDOW01Nz5vGZEd3yi8GD+KBJcDjzGiQvJW0UL0hZaQiHOLf IjMamE1ShkviWgkOXTh27JjoxRkO+aFzFfBPmmVfJXBorsCQjPverBpJ9xjM El7zrDLDhrOEMo/qeE/CCRuya5MOmWR4NNXU9EeKSR68A65G6O7uB5c8VaZo sGTmOKALWhd1OGyKyoBF+IKzKMomx6m6TDYJPpbTGx6yKRhaZJikh6fi1zGj V+65TGKPSmJSRq/9/Xtyvb37mEfoFSYa0bMfwmWeUcZEZ+E7y5b953c+97l/ +sWSJX8z2tCAcmOwyOOIIFiEKCBxKMvuk2fcJ1O8IXlLj7FdKVMP+uthDDBK ogsxJAr8JYlEVZpEmI0wb14v+Sv3FtasWc/+UaWWdoZel5ZyNpMJ+HdTpZGJ rd73bF5g7FNSD0Vob+9iPa/a2lr6jVZILq+aKcBoltCvJsFotgCjal6zDKOB gSHaDuf7+++hT/xeOoXuu7R376GfdHZ2+gKDrFzVP9NnB+gkZgl5qeuEGN8N KsaH33H7uQ0bvk6n0Oc/fzZ5YdGi11KMIO/CunXPGUktoMdTw2xP42yMRPSc hNSSgELquiW480cdKNkd12EpRpG25Nvq5huBWoKS2TzNpZtvPhVwyefVC7hE 7hrqyXTCHWVxUaYYTHGRoRTlq4pnlDjeVmCUUzUWyygeIT/TfcR0ZCoeK69m f0djj7iNjXtGoIMn0KFaINDseALZnhCd38XeljRPtlwCzRS8opnKRts92UEW R6ipEwstaV+AEbSkEopGmI12PGdq5NCcowcfJF0qmYv/8wcP/jBhSzazFdd4 CqYfSHzyLN9JzxoSayzSsXxK23yyJUsyYd92FE3mcKC4eZLunu8PpnpzAivY Dd3Xms/ArdugksSmKhXte58YjuIWLuvUne0X2tr+BkKVv1i+/O/ot5aW79KV cVfXUxzcA5GSvKbGGxufMgWFiWxYWWFieMYtchJSj4ZuUUmN5T8RgndaVsTo bDGGMkLwToKRGdRTU9NMblEbxJKDIexaNNkZ8mPNFzBMMHUTfI9MbO1EwA7N I7V2dHQEVPIDKlWBSleUiaFZCkM5SGGaOJ32iXi2K2GIRWRYUBs+L/kk4NF7 jY0nf7ZixX1nt2zpTgs8+gPFIwwKniBfaAwmVco5fTiok9AUApHwK//VV7Q6 297+yPk77/wBmKTIRKcQoen8pk1fP7tz50m6omAYBeE4/LuqmCA4CVS+yG1/ vs5GketE6cGKovjVRX1tY8GILABWD96S6fcClSoYRmlU/4+3tX1rvKvrZcAI LAJ1FDDSdtoBg9oudXWdebe3955ZQiF7UgjKxZaNl1GtZ5VVRC2weWwsgVLC /nRcTCKQ8bmcuJwnkEIqjZ8p0Eiih9QzJj1HteBzSXSTYnQzhTKKmaWjWdFx b+IEH10UQB/9w5pGpmZtWOX4seq5AbmurkHOWMLMsrFNAkVaRmuktfVbkEge 6+k5lKguDZ+gATojFLjHw8ePwmcc30VVJO/b+wjIo0e5gjxjdFAnUcRO99NW La8dJfvI2WIgtqdkjlQJGmXNNQDe4tknnvgW6Hy+qelvzu3e/d0Lu3a95jOM /Lfa279uYKS3I4lKBhD+dszE5V43MlePhdApWb7+p2VCJ6v8IDsWh80Ax4yz aWpqKrS07Cls27YDvElaPo/BTcYaZ6P8G84TGeKYti6wJl2COBs3bjRTbBI6 ilpobm4GZ5g4ae0NEXJ4FqxVnO6kjOaWiaKZQsooY6Gov/8goyirZzts3nx6 ctWqM/8yb97RNxcvPnBuy5YuAkExim7k1UeT3xRdj2EDkkbRqVol5IquEWJ0 17suEt+jitEFbympHvE6nYNBRC4djyQ7AIfTZ7E6Q5wmKxdJjiLHyhJI+qWA JI/XlEERkyjLa8WFDRteuLB79/8y0tHxXZtLsEPgEstHqCBe2kwOnYQ+0Y4d L+Wamh6f6uw8MCMeTuJw1TgjXUo8QwfQTM2eZZCLWrFKdHI5sbsYPln6yC47 UkK8TqqmYHYkgaeZwhu2ppsHUTpf8MMs2gQ1EXPKpJKdYTKmelY8lRwfKSMk kjwdsNW2dpQ+WuTzfQdMHIRSA7fpS9vd3Ut0Gphob38BA9nN1DMWePSYTGmQ aWLnzj+aQllAQ8OLRtCxMh5SzlAbKYJ3GZDia5msrNYxqjrEAvfoPQ0pslr8 GQJWsIcI5YFURsTDEuEIRtrZ9X1SgUSlqu/DbaNahAEfZur1r3+dDu7rjz76 6Ov0KyMqXQSqI+O7dw+Pd3fvUVmkhE8HdQ8x7cFz/f3HAlBZ3lHJGvPXhFDd NKAy3pENKhOha21tLdBHyVttbYOO3oUCiqp4fGUQoZsOS0aDysaSH4slL0dr bt26dTngiSfHFJOpXCepWpHJxOmYSb5FJqO3qciUKbS3Hy2sWfMQZAkLt912 IH/HHf2TCxeuH8VsNk9NicHRhJIiqykmtaYivVxodNj9xCPEs/fpUwS1yAbx CmcK9GJ2ZYUs05VCtcP1rnuFv5n7vY5CC8Mtv8y43vTQcu6uprQVyUj9QuCV r3h1/tZb7wuCeRlNrUWLHgSvzGa49V5f31P/eM8939YyDwZV9oDrXGvriSI5 H4FZ0/bh+kIgrwSzpMFs9mPxc7ndxwKzAs0NjqpJKEkLiJgbQGqGABVPCOSV gJSDP96zpTVVlMeyI3dz3PSICTlxAZ9KE2b4hWkDauQZuAOotfWpRFLnjVpa nsl3dR3RufkDvqIQastG6cSAsP77zc3fGt2+/W+RnmfBReUf+YZCIBBvzc2n 6cu/axeZflbXl0a+uwWEnvGdDJqsfqbg08zEkqlovkxWeLhqL+a72kBKMY9S Ofoxh2Oi6lvCyonoZRae3cBI8pgsGJlXGcLIex2TBPBeaTs3MPBshnnkXWhv /+bI4OA9zKK+vv1plUm62No6DBSdra19sZlw9IhLodii8R9dHoXsGJ1NITPi xaYQRrxAyWnVqjUV2kWyNe7JXUoL2SJfKGAwMvjYo2FRWmARB+USFXmwiDYz U9rmkpG8T1xdJoyqhMSRgZGO1lkwqijs2HE/7eU0QMT1GwQiguB6ep6aKa1u n6hUUBqlg47JLtbostQExsIQc7GR5aL1dxSZLtGbnzx06BAzyRfIlBbST7Pd cB//pP2t19F2EKFQHdYIhZx68UVuyI5vcylk7s4n3BqZQj9XdzWlDsyftKLQ 2Zqa5vO3377HSimlbAolkrz6506e/P4vh4efHN+37wS2UK1W4QhDLhlEGY2j trajEeOStnFkxC5g/9LxFHLCcGxkKl3PodS8Fwk7yViSeVHszBKieEkhwpYR aHBFAKBKAUCWFn7gJWWEPVcKaLuizExSlVDLIPBolAffxHQ86VmmETzpnp1U bteuk6YJShU9s+Dh3kjDThacMuLAlzo7MYT7O+QVfQ+8QklZMgzlGWeJHoo1 bSvi80ZOF7QPS9CKffJiWjl+VJm0wgVCVni4OYfQoYfYHg6+dp2Aqgn6CXE/ HOaMEN/zw8uPcmhl3CZDq6R2nZ599llDK/qN1rT2oohXF3p6HsMWcKu9vT8V ulCI94Fbj3/ykz+tQ6flQyG8Skr7/pUQ6/MEeFWoGnE71mfApbTqkwW2C+RE Dxboc8X4NoMuAk2xCn1KKGmQSh8kmF0lwCwTC7OUDTPCEK8AGmZjTmDv5YKs 0gKZ0/BUpTNOq1Y9WJg37zCoRTsgZtEOFi1al7/rrlV0xJaalJwzo6VCINmM OJJdHSapTGSQrp+YZCZpxQzzFcn+eXj4viBxNaPMKCEnuLLlBQPx80J9Ctkd UDbRpAZe7VxFZZf+m4C1SuVinVu8uMsuGgfSCGwByl5/5ZVXsOEWBAUTSUAt kQLWLnZ1fR9BwERWt9O3tDyQ7+gY4nEcvhbiEVAWzC2LCYgF9kOSlo+U2jHW Skncl2CbEwasdNHA+1VgS9vhP1PSreaAFLs9VwU8U7D2TfQ0SOV1dz9kuCYp XUhcKyamrMvr8K9S8LPmutE/GF56bGz3UxRqo1znomqh2ddya6EP6LBflQ0y I09IztVrANpkc/Mfm1DgaEvLt+gxIFgm39T0UJRgKLCAmIU4pFrF5XxTLeEo 9/qC65SdnmVutUSGqyWs8ykH3wEVzxwWDF0ucOwSs00ogfQiKb9ItJvdMyAt LYCtQh1qOyZo4JZIuoFBppunGAefDIhjzCVViYUNO7oNa+Zif/8JOGqBZhMR z9BOlEi15gGXrDr/25B+ges2Df2M6xbQL+Mo8fYUOjr20m/wx73C9u3tWoV3 A/p3OTwolUz4FvhMRFECHw/0rLoc0mkJ3VF63Bi9YsbdlWXirkJIbyVj/bYU BxERQAzpB3e1hm5bkactt2TJMr9MAF6NNc3cS41CUtYIOWUVAO3UGH1hsFYY AI7cc8/xsUOHTo0PD58eu/vuMxc7Ox8939Nz8uy+fbDo0wYa7arD4gSZVLeu CegM4dQEvF+Bzq7pwEMr3BOU2ajik05dIU7S/0dgYnXIRHb1mpv/9Pzhwz86 +9RT36HXTBRMZMBEsBDNoOAhaDixd++JXEvLs5qDXr6t7T5wEBtiR8p6+bZA U6DjWwKFTmCxBAodZGkUQuTiclBYTJ0kvzz3hXFoMSUEALMCf/RAMNRmAIc2 V1DeYphouMjqqH/MqtTPTHV1DfOzZIXnkqhrqeuWw0TH17OYaIy0YaKT/SrF RN0fhFpsh4lIhVkNrrZsL+QNCRg7d76R8BCYJLY9NN7ff2asufmbPiPR1bQn HLJarz6ZbIwFTNDyvKa43RGFFk4mdqxiCtz50kD7dO8hpEjPmudHFTgCCTkL m31eafRJ4Yoy0Je1c5LmbQJ87NSdPHkyw8Tzzw4NnTHE441oRw4eKOfRxcaD Y+3tg6/deee3QDYPYLM0BKYT1X1DiEOWgJkdh8wBRPS7IyuPngaFMax+FGYY rZKoKAEzOz3mC97eXCE9VhnLNj9vhSOxTdBrpE+pGG8qR5a2m6uwGbQpqvk2 1Xjr7z9IT68KNTZsuD8PP44YVli0CF1jq/hNrqAvCa1B55meZwqUjZbC2XVY PYWz8fr6+ik6j3IhuqpyBw8eyw0P358fGjo5deDAqcmhIYWvrq4n39y8+SUU tJ9vaXn83K5dDyeScX4cxyZ/9zfIkN0ZUilgWzzHcD6mXY7xI/S5ybFx8y9G sOn/Ftg2S4Ux+XpR+3R0GmP1wTgTxgTX3u/oeJGuNAYG7jXy1xbQeOvs3MO9 /D0qZx6NUxqqSbE8SAgG8vIVscoUnl3xYIkNOur08TFK2ResDoFpxmEmZlsh UUuLokrwvD4YEu0nZ868zGJNKtFYAVcY/MKGCC8Sjqxz0NZ2Aor0Oc7NY+eR sGzoNEYOV7XwAmwREmO3rwyL3oPbGF86ZfkT+sBdYaGslmJQjUP7bckgG1Iq aJ2E70ZelhbjHdmz59Fcf/+9asayxpQtKk+YUt1ani0qD6qosKM8aSU6tNw6 NxydpgikuHZDxy1HaH0PUOIkJUOK+6oAJ/uxEqGcgg119eXZMWfIxcdDKmP7 ZlFI0SUHk/l8V9crAZkyTKbU2bq6Vx7/1KfOD1sTex1/62hoBkpWFv6nEFF1 pRBVqaQBTbTR4MnouZOt4xij4pJiFGKNZGS1TNJSW9TPAMcGkw4xBsMwbYBJ YJKcrlSwYoLy5hxt9E1n/2ScHsuFEcCTHu/1LogA4AJPc0pDKmPpAZoajt27 91fq8ahdXUeITfcVFiyop9e/Jq3QBAcrQFO2TDT9jgo15lCliXHQhw4doifA miocPHgPkelo/u67H6BvD61JACqRnezqemK0ru5FoOmtDRueu7h27ZMja9fe f6m2dsfIli31nxIqNz5VZs4spgie0cSRRBdI0WBkSvD8PTfuzfcQRJj42kqf oHZ1RzyQKuBw2dUdv+ro+B5sTQGKO4QlqMjpcg7H2QKXkqEGKizPBCejhBL5 dDyiHAdpGkTZ5YKXl0YrQhQu0W2zHxSLzA4tkh1+rBIcoWvUu0LQEabaGgqN 6+AfGUQhapvUQdumpqeCsZtJHrsZn7pznktSdpISbEbP0C6OvyJ0sCINxEUy WbGSQhVaEa+vb2AKUSw9OMwS0jW+ls6/eqO7dr3KehcIsRDBUgywUEWe4KUl MHxDLce/8gT/KimEGqdBVzD+RGHPA7rQ/gudAfhVHuiVzKmQp7CPuBbriJPl 2XU7YJSEMH0xYFd6mDBmgDFo51dZoUUdStQOVurVRYv+7bCZrORjnYZbQYnH /6nu52TJUiG3Lpqe4Eq3DSvHpSAaWk1NnQG0THyQzEChpwfKFOugRlFKoN0O A0pFHykBZHOEPNkMXR0fggzw2uLRQkYODCOCbRkFFKrArSSQNbs0rdKRAo+B gSHtSgGi97BaLlyoTOBCLQ84VRVyKpjOHOtCsbnsAp00odQ6NHS8QHTCRscG KzrNHi1s3vw0HdpHyFosX34ykZpct651cv36pomNGxvpGcnpoKsxsu2gFRPr OiEQeMOvXymPn9UwSrd561qbYCnbJxKb1K0Tkv18/FtW/Gy4/38tE1++gpjt TyHFoc0M06u//xjTK6Wtr6EXPCpfC6FaHhWMYTaeVHaYrxSpbJsap9x+GaTi 626rXyq4/xx1m6EU/1YlxOF+SxVVBnkxjSptuo0TlQ8n+aby7e1HXUwlfDhV dl6OJxSXCkUKpHLulxHCg+xfJXGTaujybQZG+QQrHilLCLyDnz7wwMu2Wr2l 8F4JDQyuEKEtANTOnU9yJaJxr4hOWl3w3cHBwOFAGUcJLjn1GBKXVPdvxhax wGYziS4QWZuNjR3yX3y6gE/StJMSkBKqO1zHuzSkHB/XhpSu8EhUa0jt23cq yHV5ClLGz7J9rTpaA3/riMus2LLEn4XMCsKBKUFRyWIW/C1mlqdr3+vr7zbM 4q2ra5B5RZQoLFq0hDb0cC2bdrrIrwOv2QK8jBfW07OXpzU3NnYSVJhc+XXr tr27Zk0t+1rVAblmliaXbzUTF6ezjtBdtzKzKgIPa2lArhlCLksqS/wor34e hUWaXLyRd0X7Ba18eiNPMK2IU9jyNTVd/JboQ52qrd1mYp6JtHIvJ4hdY3qj yydarxAKOW4U0FVuKHBabjl5KjzEd89BfsQqGVP/VwlMoWveYCqNVZUrcjGZ qXlOKFClC3C1enpOAlQ6iHUfAGWpw5HFvttE+yQ+JYVgX6XAJ2UEfDsaFqSy rEbkYB8scVFl+UNWeM+aRxUFktOsJfkoDCTtKIFGJiuFOJ4nOEopXnnopF0V khV2/YEyc1OWQxrUa1zp5qE4tqoxZOemohjiziwXQ6mgqYjvx1UqiraI+I6h pLCp6Y+MtG3AIF0Jz55RqNN+EKIOpvBCwcc/S0bYBggcIvoux/GBFUmisJmk jyjFrOH8UkHXXGDzLo80QkTPj5bxjCq9pjhlpZRddmE6z5xyi1mq6OLs8PDx 84ODDwE0COmlh4NI3nWGLoeF+EmMsKwO3jv5JgkwVWo1cGEBdGzz5/cxYDo6 9gdggVeyePFdCfQ+LeW6waJ5HbZwrJ1OSlvRPZN2Sgn8mWXXUHR3380gwWDj lF5bWwcL27btZKwkeUVCaBuk/QgZdZMrVmwh0KxLzA4gM6M0ZDzdjLVt2+EA MmkNmZ6eYU6sAS+VCjIFqzkgMatMyHxIQWaqrq4uTydAAJnh4fs0ZDzjDjFk Vq2621N8yW3YUBfw5Yo4viQF1+hz8SE9iS9OGfx8dZvTjOX6RXZtoF28E8Bl rYJLVHDpHy4HLgkPdRJv9fb+cHznzldQrJxWgMk1NLxEZ8dxOk+GtEFJsYBO T8+hd/r7T4nzdJNCXK1S8FYsmDiWMQKTYB+SXlK2mC2Iy30sfHhwVyn+phwb KfiUer+z8zEzuSHhCV6Np8hCTzkI82T5b+5zSBOtpGyRH+fNhPdjoHBLsFGq EsZQlEcTVelodNKNoF/Ct1Rmu7qOkVXqN587QBIMfbQlZjUV4LrEA4Sjrz+n u7vgSEG4c1IX1pn6dYkajkpUMjaI5tv+SbnUKOpXppcZUGOuclKa9+49ebtx SFLDxcmfQ7HIcOsTfhE6JEEQLRnLiwo4JO/Dki5btoVM1gDXI4ARKLK76667 4ICwesNSFhh3OaGHZUjTDTNlcqJayAJlIv4HgJHmtcrGRqGmpp4sbL1+6WsL K1asIRCsMhN76WrPoKOyNDqS2j/BwBAkfVR5gkLHwABrIeO9B+jAcUBhIlqk rhAyQBI6rhEyQAYZe/Y8wNhAYfvKlUeSBUJGUnEjv359Y37jxnomxm9xreFY Q0ODnoKIyYjBtEQP6+/H0sJ3Amn0j0+vK4p9B/w8bzpwpO1eKdsj3hjywlah OK926NQgzBR4keE19dNjx75jWEEGQiWWW1pO0sfTx1Kgg4O79Xg7e7ZUooTz 4US3SvCi1FyOafX1dDWaGUAVRsaS1mgmQa7Cvfb/EFbdszxKbgdzor394UQJ 34MOxt357u49GI2I5/LD/QaFBb9VZorGiy0skP0M5YN4NkZwu9ScU1HcnIO7 azgZVvBcjbQ1V2NgYF8Bk/jom5iHvJEXOh+c6BkYeBXqRr6LDVNAIGFD22K0 zf4TXcWPIymhmOGDGQh0ASVmF6XYIarAFnscogYvH4hSQhAZl7BWyxaX8r1B doQJcgWv6RuPHDkS/ZLD7WB8WHFvc5koirP+6rIYonptFyzooOv3rcyNmpoa +BcVIjbMPItpsWGKByRszBCwwY22VcyJCrra34chFrSjrbRtABt4ei69BmP1 E2z2k0DFHFU7AFSMY9IUaJFRE3R5GKGZKmUxg5VgFy8+CGAoFTwWQzpElmmI DsIgZgJXMS889qf0ROEc7f6qMpHxASsZQx4GwyKrEy8DAyfpcD9e4JQLeEHA 0qjIExuxcaXE1drVoOt0cGMUH/ZVcfD47fgszMo77/yTOnN9YjUDBC7tbHXO OBXbmiJOz5LrfjjRsC18myxg9J8FfrC/UaGAYWTDGRhp3UOiQhX7ySz2Y2N4 YHgKwcNYkNHe3gdMbwquWFXMP20DBJv56s4QuOGFVj2wtNLUiagSd2/MLCal 9GqFsOBxBPmTuUJFgHS5r2x92lyF85W4TvkjipXUpXxElWB+nKLMUU0UpJ/2 YpA8xshjm+zpCQp2JS9n2nyKLWMnZP6jB8+5X6QtiaEcX4MVxxf8eKmv75Eo X7g628w8p6vfRDJUdJ0ByHAVHH0jsEEoDlrjAI75/a2hodOsWE+vpVoghUpP VBiRhnECVOGhhx4q4PoKM5Qs4oglBOn4yJmo8Uq3GWFhW62jXOik40Ne79D+ Auho5+U0VvMvkjmJrVIb0REEO7AlQUZlTvyRRYtax774xROTS5bsDxyTSiYM ELKUnRGrx8ZBSEaoU8sKGZKkEPGqEjIkRvYOp4zxUCp4VVXN8+cfKdxxRwvt m6mjsjZS84/2PIzLMoq3Oluotk4rJNnNRAZGefJaACJ6EuW3wGOB+tDu3fsK jY1NjueCSJ8mEd2fkZOzRAUT5aLpKoUmzl+bmoCMrgxobT3DAbCami6ACVgi TtdzkC+ZNwUQW4Jo2BwXUQyn341D1FVC4XVKred27DhxfvPmh89+5St/ntBR 1zobUbME5vzhNIiS2moVp7woo/6POERFygJ0SMwQC1eXECHydM4F0FIlAIQW YIvDJX08wbK/fyCRDMFlDDsS5xmrHyUCrkR1PLWmnZWkqeVMJIyllnoO00ir PR/cFJnlBzNu9L4dlHxIvQtTCWDqqLmtOAySKWSRE6RT/ylGlcYU3YYV9eh7 IMR9aXDwgDie8ENWQKwUtuzZ9JHAmdAl694v0jlkY8uJownYYg9KcdNuMkIY zUjsGXIBzKpkO80EQ7xCb5Pd3fsw+0GLRUDjyHBMS3B7yPmxr93crIUb8enO sFljiwuh0bVw/PjxwmOPPTZFXxfDLS9eeE/AVpHwHldrZCw3+9dkllMVYDlK hlvaUUo5jpIVXCvJrPfKZJZyjFLja9cO5O+6q137QYpVyOgvXryEG3uSvLou UCrgUpjhTwsuUFbnY6xuVt70vmYI2EoJ+ZisXpubj9CLOV649dauwh/+4erC ggVLufBg2TIeKugJ8PJceDG2JHh5DK8qB15Ll25m5aG6umH2mAywurrgPq5L VLmhNoUqrNcIqZoZilCg0wQ9PbNptiLU1OrVDfkVK+6Dw6QJ5bPz1Nj4SGH1 6r1Epx1Ep7oEl+alFJ5QmxfgqVrhyXhPDKbPxeGpgvHkmfDb2V27DgFLKQwJ TKQuLF36R69ee+0/MJsyw8VB3hlh8MxuTr1DnXZO56uG1IniR4BVdS6iTFjv P5WJKFW5lmZRfyuBy99rshBJHZAzqNK4SjOtPKZVV1dvvr9/8Ff9/c/EDnuy ZQ+MxaiKR5UzLq8EqqYddmuhKloFYBI99pg+AwOdbo8DSZDwMCqDE2poRAit XbvuhT9FtxGgUmCTKtwLHJ8Px6Zy0lJUEoS4SvCfJGDpcUzmobZ4jgOibKgx 4PSw8NghDeczZ87YukYsuedFkARVIyX/kDVDMnK7dh0c7ex8GdpFUHw1mntK ci9TJLlHd+eW6a6u3SZe66iuapW7CTrdf/7000//d9Ybi9fYKwdCegBGeCpE 55WUCSExWoeIIN2XIWQ5TgGIDroQii05y6kwiR2dwwYA0WnMLT0TZJ5yLS27 UK6FmuCkZg+4A2kgUCdtsccwxVSXKQvt+k4Se6zsjs0edpnifSQPPhKDZt68 lQBNSg+ZDXkTqBQ5wNEV0MZTigVOUofuDHAWLmzjJFFTUxdDZmBgsLBly1a6 bbkCTVrxJa+nzDNiygVNNa9ebtmyXfkFC+4hghxHQsdUSHd2nirU1x9ixmTi XKAKIUp3JzMmYzOGNwL6mxs2nLy4atWjCU9z5aabfvz43Ln/73RciWZ57gg8 nHia4FSsVzfbtQJ4+H/UV0Nl1kFHaaKUTH06T09Gukn3J7Kh4/N+V9cjYeOK skFpUzlrYk4mqCZ5OikhPpcSLK00LTAdjw9HLigyEcPCR1GxtTTmSBHE+8np 0y+anhxsaSvd09FxhMzpgIIHfcN7eoZBEB6AR9f312IPs+QMFntbVwsei6ce hIpmPCYDg1YZ3wEiCN2l7QqBoNy5p+dQSkuwtrY+akkC7VcSrGjS2Tve0fHi ZFPTtycaG7+fBAss6VWjZ6elVx/mGYBka3Pd3WGBu1bCNVIEakQnM8GHFMG7 ZFfPvfjii2bekmGDUyQvqQDpMRRR/VXJNykXC358MQD8EgkLwXf3QJlY4G97 KmTDaYsPzAbllPhgA8sX0f/5DRu2sOmr0jCA06HTNJYjEsrlpIUA2TQwqNBd oVaqhreenr2JSl0MBucDGqTz568gI6lgQJwKdHMkGGSE0JnK41TaMMjddlsD gWVHYe3aOjb8zc2tMPzwLCoFJ8MXUPChEAWjpVBQGUEBbZBZ9TUK9u07xhmi 7dt3EAlVPbXO07D9zwTp/eXKvxjZsaNvfPnyU9gSHq+pya985bl3P/OZ77OV z2KVwlpxlj1KgO3Flh0n2f9WwrLb2XrT4XLy5Enbsns6P46ITGjV9yqjnkGB 12hPzxM8WKKz8yUz8IgT+MqsZGyZNPua+t3u7jOJWdi9L1yIl7Dqkix33Czy SEmXZ2ds8P+csLDMNonTBrV0oGmsvf3ZQIXcC7TyHrT6WTiABXMfCWr5yMHw KO6+vjNB0cNHY/MvxZLguI63fIZodZiUc+GAnb7mL7vUKR4Zno0MWM4UHp4M R71akjnDWrJ7bGDgGE6DX/b1fX+qufkVKMdNNDT8BQ+O0KEttFYFpetGBzWq VNHVNUgM6VONKpUGHaaLBakYAMRWssFVS1I11NjVaHaWJqpRMB1NEOqyLjaC kgA9hoojWGXQRIh0cQwONDFEmSsEu+4OgVJStJSBoiS0fDvihQ0zWnVmJj1J FsF8tehsbi7U1KyHha0AU5L5RYvuYnMaJC0CsEjSNXYkrFLbfitDoyaHq4fX 1dVZLSsKJGvW7OPIFRCiQOLRuji3cOFC4w34cRpsXAkwlwniT3ziE9+cvPXW odyaNY3cNxq4ChVC1uQjQtZE4kMWawpYIGiio0KnTng7cOAY+Q3DHD2prd1S CUCkhdjTSl79S3V1B8dXrjwDKkwsW3ZqcunSB+i0X7LkBL23+fMfzv/+73/7 7PXX/71iRMQfqHaRwdmN29VtTi/KR0vCo0HdbLdWYk//6+XBwx74jW+TNs76 67pHMYPXCm41wUwzo7hmEQS2xZJgcWc9JANx7fsRv4rtP0kKkaYSUHEiTdKs hw+EALFbU+YUG+dyAky2gYduKAeYUjqRbwGEt64uaI0BGmkbJCYronICdKTi 4eEKGpDRvlqw6VJVMXMjiUdklPUax/svgxaCwJpDC2yeJaKtYUEfrxHR3hcR 0fbf7+8ffgsT3eit/qKz829GGxt/nEiCH/TRd3R8C+x4F9UAKv2GzMqTUWLw /vt5/71hwyOvaXgd72lUcKBMt8GUQIZzKVIGMkol9DUyjHZaLDK82IS+ZxwQ g4w5Qmhqf2lkBIVjbGFmhsgwMSojO6OnM2RHEfjQhwADnrihFQ0aGh1pHaGC D0D8CDZIW9PuSmmflQEQk/lHakTXGOvIVKrQ2NgDbDA6Knj1zSQGBJUMRBIS RaqE8NRMxZORxYvbxr70pfvJsT1Cb3R3Yf16nEIbNjQnoGddm1+9ejM2OtWw pvI1NZty69atz7FbAeT8TpmM8ZUnYvsgJv/BiDl48J7C0NBhjoO1trZV6tYb Io6RNDVRqMRa5YVMrlnz8NTq1Q/R+4bMiiIM0cVEnWwvpIgRt7mkYU/VoUrK 7nBMNBYjBSfX35WJFCUYwwPBDFbEzmddukuXgr2mOCyhshcpJEwNY/QQBw+s mWht/fb7XV3PgDUWYmCDczt2hOOE9PQ7K/KcthGDzUSifIEs0uS7jEAWbkxJ wtrEDHGYI4SZkrG23r3fNcIL01E0zrzv3PkseEPvmd5pRnkmtpilqUlIfCQ2 oZE6+8ILL5gMheiR2Io8sWRxcheXRxY/Shae0eBrFZmeniHbD1GpDGgxHDY0 YTk0JdgJqEy2tr5MnDsG5ddQsPO4zREkXjGbrKenz2AEHggXfWk5NHsKQxC4 kjLr8dxwNTulqNWvAY2In+GbjLoNjoQmR53tbOwJI8rTKWsyPK7UBiACDjN5 W3Mjx/LPahxTYfPmBjKntWSQMQeVwJHWPoemhR1BcqrCfKEqzEaGCWbRzxkL GSaZkdHI6OnZV1i9eq2FDPY5gA2DDpWQSE3hV/1sYkxrhhDTUgSpeL+paV9+ 7dpHeFu3bggEAT/ytOW2bGmcqqvbQQTavn17MqfKhtetWzdGOxjjI4f1o0JG o1pASFIHs5A6NwhZsmQw39jYzegAQg4cOEgI2UsHX3kq3Mu3I9fc3DwCaKxh dHij9PtYU1MTYW9HbtOmvaDbGX7Pp8ERzRKsXv7WW58GUQxVdBrjOsFtcYih AeN0qsiA4ZLkncWYApvOqrtO255iAaaktEY6iFD3GciYYq6J7u6hADB6tAIk Yn65f/+L43v3HscWnRL0PvKi1pQglOlGUtx+lDLc5yjJmkmD6mIRoy7tg0rj WNnN2aHbAstue07TFlhdI9zPqg2ArouuSFbFXlZNMh1UjpX9fPfub0c7LJ2C g9+KJxG/QaHFPkgWZQQScT49WyaEjNalxdggGJeKD/BoSc598Gu0bvQMEGhk YOAh82bh0wBC+J9rvOnMYUVOtEC3tDxjqgoJQQVsqD/wCsHpCP5wo1K8Iicj KCXk1SunR1BsPt2/PAQJ+XTfDnVFEeTEuwZD56VkcRfbmWuUfTDxLsOfdMgf SLgr8vDq55ua+mwGKcVmC0ErI8KYdsGxJyTXDYLsfIrl9CCPYryWtEZQb+8e cp02MHwqNYIWLlxkEIThpr4eR2DDLiUgaGYQCpvB4MlO4vOgy6Dc1q2neGtq Okre9y563025+vr6mWAOfWx1dXXB/IBKrBlFnglrmJHYaK8Q5NsIIu+lO79m TRO5QzU1O+jIdXTsJuwcYeS0trYDO/TmwR3WJM1v29ZCblUnvbbe5BTLI08Q qgEhBpHOpwBFE42NjVM8DByrJwApqYE0f/7DBkgIpGkg1dlAmul6N+wXf9Wl DsfWXCDZhcOJJhlIfyMAScqtqzkEKTsDIwKpUifbLY8HIELzpIZQZXS+z0hP zx/TFe0DBkhGACXrNqtzfU4MgxBIKzXToHhMncwgp9ul3LkF2rxfOHbsWMlg Ht/P4kPwRJ5kuIKC47sDBqkwG3zKvaN9fafgLWLTGIIjFK05ljywt61yK7G+ WBLOZIeo4rIKkbwohiSVGEtMk7ZBQx31ljJ2Zs60+KOlhifaJbXyhk7FFJRQ 64OGPknAR10K8dkYo6rp25EzUyZvBGTikAOcjKiG/GKvp1zkpGJDZb7t8WB7 EyUHs4Wc/UBp5Lg5+4/KyPEVcpCuN3LaZJTUCuRs2LAxt3bt+sklS1ZWBkmW pb8RbYzTQz8bfwmjCKLSLWQ36DMeRPgoMQO0kWZoe2XyZpZyeSZtlyera7rI 3E3hSoK7cqeUngMdPvTQM3RmKPS8C3VJg54PqtE1oxjqZrwfXyBRUsjpKxJV jC9fvn1q+fI2sEdv9YW9e/czfcjLYfqkVC0XgQeK5ziZm5u7gB6zjQM5SxR4 jB8E+NBXU+Gnrq4L9NEEUuuyZQ9EOfT2jTf+oIhDs0O32k69fEWdd043i8we RlVz8V5w+48vjz12Akdkj/rWpnEbhMLG+vqGuWFbz9KJjNIJ5neTvckNDNyX h7a8GaVjCaRAbMsrxo4JronYkRSdswJ2IlPlGGMzBGSVwM6088KlwJskDsbu mi40wnuOyF667pAqE/C4TIDMcBCngoVWBXTIkcWiyEKrmQYjekQVAoqqQjts MtiJzOWRyY7SxZGpKuyUGdm/f/gfDx36k3OnTr2WhLen8FQV4EhLaLKCAPwh qM5s3/41RpJxhlRqkZUEzMuxZMxsCgVSANNQyMhaOnPdTI4/fXkUiu1m0QSi 7xv3voFEgaTMTCEO1+cSqXQV2ce1GbFoRC+Sbej7LS3dAY50BA6xTbJuXRcX LtycSJL1XEf2nLBk0jYJDsglpxgSuThImUSOJ5SYVUXuxx03uvistrbXEIo3 OvWZTv39A+QDLa7S5WT0o3GHuNIYL8XmVbn+0Ryh6UXPx3mXDmfAq4zi1VRH R8cEWX8mVaXi1SgZ1oBXn1C8enPTpk1vrlu37jzncHhN8aAGo9acUr2Y49df /+z4Lbccn7zrrp6pVas257du3V4YHORAHJI4xhPKAEq+coVGbVdoAdYkYFSp OJRbt+6+gEPsD3kMHv/tW2551YAnyPVYanYRL6go9XPrtDAytQb8p5ZiGOHv f/Wbw8iJdKkvr6uqTN93bsr0VLoHMykhdkmn0D2gjyrDTdvwYVmBrq69CPAp CHh2NRmMajaeP9L0LYk/Tre7FHpLCfyxImxBJM7O0peKxEnKyDHCV/TMg1op wPWGdPVaIM0yOPinijwMIanFxZafxjUCPjRNHacSwxaDE6jDITeLOo768mVQ J36mdFDoq4bhvf6Nb3wj7FU11Mnt3PkKJ8chnNna+iyTp7PzRKG5+QGuJrCI wwfo8OGjIXEcyTNLTaAYNkmrJuBduybgMhFTqldlOsQ4cbaeEDHTiVqy7fiU QJkUUyZDdnLImf5Kx41Oq76fL1/ekkheuP32xoQP2oA12N5fsmTV1OLFS8l+ MW9yixYtBm7MlrvrrrvyBI1SqmR24cAMzRaLNwyFJUtq6eJBcYa8/SQ3ZKPq rCYoGuDwG2oGFic1ZTRhlARZmZS5IojCpRRbJrq7uwO2ZBVbxnCKaL7QbcyW yfr6+oAtn1ZsOb9t27Y36K+vw95n1Xpu/vyHLnz60z9667Offf7i7bffTUez Z7S2tn+yv394sr393tRkQ8P9dIo0Nh4ESdjFSfKash0dcvMYMSMaL4yY2wWn p1rDZtOmvS5sEj4H35Ytu4d+25vfuLHl7UWLTiY8EEeCja52NvkejqFp0hgA 8W02aaQmfuX7yGIzf6n2J5YbQLvPMCcpZIOkSPkMixBR5iQqo+NtTCErX6Za GPKKfCAgaFAXJyGWErSeSHVsacG2x+oyV7jOiQ0gRwmgBICc2JVU6sCOkqVe GcTd4hvw4O8NBk4Qoklh6A221OhHeuHQlzeeffZZbGIGSMm6efYzwapaojTB O6gsDR/OduCTlwoTJPgoG27t1JhqKSGkw3GTqATTCMLh9ZhA3n89fPiH9K5/ kGtp+UahqemPPAUfdn2am59ngVVcEUM3QvfoGgcRBwv6NQJ8cIUkwYdbJ6Wy gnK5k4zNkKXssgL6rZg71UKwrTuWO0J9wWf4zpUItj29MpyFNjZ//gCDpqNj H8fHCTb/Ulvb4TFr0m/Nn18/ctddGw1vJpYuXQ3ecHVzWjs2mjG6G+YyQJMM /Rnugmlt7U4YtNTVoXtlsZXZMa4Mb1ydtljdRqBhd4ZQUB5krlRd/Ha1ATBT xXTxxvTZagiTFvI812vnhS7OARkLMGkDmAs33vjqhYULT4/09Jwe7+5+Mj2+ fftLidSl/v5H3zl69Cg2+qSxeqP0SY0Z3T361NPod/xi4K/MDRM2mXxNzf3E ioPk7vTmN29uBzfymzbteHv9+n2KHYkUgmXDjqTqFW4MjN2OWwNAaGIcL/ZD cPq0leDFvyvBC7t64DJ5gdvM/c7zdFtnngz0lMN5MhVRXBiNFDqlDxlWkFFQ 156Ws2Fp9ktskGSWBc1+L9ppIs2UKUELJwwmoUq6nzQoky1ThQ6X0bc4UC5L wd5ZOZkgEMZGOAlGcCGCLn62TRsiOlcIxc9VWKsFCGStwZrFVj/CVV9wV7TB Ny4NNtAoyQY/fZbOg38i3+7tp59+unDPPS+TxfhGoaXlj3Eaf93TnTToxO/t HdKSZv1JmP8Uf/xVXASuZTNRAA3jDwpE1cxYtH9mfLQL1WrRlJ5D7Uw8Epy3 mywz2lUCCY4r0sFf6jLVLpkLN/PjMuBCO1nFt5Yt2zaxfPmgYQHCW4lMaRhk p+FAVM/SNs8ztPol7rd48RZW0kQAq7W1jU09mfdEVZz5T6o/5NHoYhyNEgww 9p+t/1Va+njTpk15OqrcRKsA4I9ZJ27gZnhCyuX3BApkePXO1tTsP/+FL7xy 4ZZbvj62a9dTKWX9x9ranjEEoIswZsAFjGMcHh5mBZUZSubrDXohgcBKBuvv CL7FVexbeBzIAhc2bDiS37p1wMvX1XXRF6G2tpm2bUDDhS9/+YeKDr7RYTHb 7SXUkL8cw4jo/Xapm6OqKz+6PDw4ISwJD0ojhUct24jA44i+vA/DBwhqJHw9 xwWhb4TAAQilIMxQ0IXPMArQyuIkbEU8ECQdZQkI9vU/7Fy5kvvSgDB7Elep +NVVwsuWLlWzyjrBpo3s23dgbGDgkIlVGWUBBSHGghQVU4UJvt2MwVNfYMfm Csn7GULGpDJSrwvblo0vB5NAYp5D6bPEJvIzNkhGaDv38ssvgyDvPfnkk3Rm Y+hyqkCXGDnaK/n3f+yIY/b0HMr39++lDbrbe5Qsg6ofw0ljtDGTEHZJFWuK 5XbtOiRpYmoDj8NqQGJSJuN4+9NDJG2/VWzGQdLCzHa+XmTHDKHXZVfoTkxf LvYldefXbrjha+9t2FAPVCQqFSbs+NSlFSvWjJJtnyA2ZIU8SMbKb0S1KItl j73CF794N/3UzYEnAkAsGehLj9sQm1qwYLHeuCK5skw+aB8BfODxyHpLAhQV zIm0zQmbFUkh2/GZEBVBRCrNqw9U/HTJksfGb7/9x2ADnaanEjMVG3higmHD R7FWMBJYgSuIO1W6bGAqfFAn27dvbwUOGAm+BkN9PYMB24V58171ldtghFTY bdDzJu2KY5wY+mN3eiU/UhINHTIa/uI3QAO3BVSHLLCrZWwWILF+sbPzz5gF GT18Eixob3+wMDCwRwekU3ZroAZA2rZ52CI6yJLdj5YXVQo5jxJ237GaGeEC n8NGVwtho+w0F6ClWkKygbG/SkBNVLk5CEjNEXLj1UJHpLb0ZshIrKWXOi58 9+Wypecu/KpQqgsm/RLdbYK2wpkzZ+gDhkn3Yd7fpeNzCXbzwIEDuY6OUwlb PRKmnZwE+o2MOyuoI0yEhGofLg1wKkCii/VZEj4MvFGPNHJdutU+GF1qy3XF mXt2gCM+Q3Bgs7Hm3o+ae9WxI4SOvNK2PvAT2i7H1uvCTlwovvaZzzzGVl7Z +tT5efO2/Wzp0lXvwFgmeU3B3qPGlc195l/B6G/e3FVYu7aT/raO7rUyIxj9 DK9exOAvhL7Wnewg3HnZDsIVykHIo/NFG3+6H6/GYWCnIRPmJKLfNAMEtv03 CTkJn9fUT3Dam5jQLGX5z2qrb49afIfuPdrQ0DBWX19P+MGamqDfYerZ3F+B NR3Y+l357dt30v872NJDMSutTD1MfJ1JLlzlBoc4jPgl9zZ2F107HyVDp7o5 KqjyA7Wj4ix2SggJ+fH1u6Kd1xL4bx048GAwMyVttTO3t9+jFYT7MUTDBIGM vTdXvVndFieYfKMg7BhsPUdP7GIvMS/FSXRXCVEdKRglRX+uEOBQYUV/TAVT aH1mBFZeeqy28k5/tRF4soMfM4XL+2ohO6CMvmfPI4QBkxIEkt1Xk3hTxubb io3CNNxKlOmz+TfbiRMnAAEgAFf6uOJ/k75SSXCAdqEcysOaBWHICETQF/we Q8EroAi4o+PgZEvLCxM7dvyZhgG0V2wYTKIL1sCgsfEZ0/lItyntLgJDpGdJ AEQS3wRfyGpXCFJbKRkLo+pLVJzJLoEFJ3zU4mKhdLHUvBALuz/ykdfOfv7z 5JgoF+DcggUbzy5atPp1MrLY3li2bNmbK1as8BQhDB2YDTqLkLfLngwhoE1l sgjxEvUVBbr8LdTXHyxs2tSDOYqFFSs2G1owEhBFqtSIADYMIu68c2G6NCIC JS4JEXM1IuhaPEBE2kWEXcIrIeJN+mCABDgGiZsFRKTU+iYBIECEdg7YABlE 6EHymM6LCYo8T1FP7R2pq6sDLBgYGawpnZSur28JnIMUr2lCRhNjA9uWLfXA BqJHfphbuM4lR1Ex7hfVieF0JjrwcDsTu4uBgoe8FkeOhGfXP+Frk4nlRsqO E6myqOjcFHLUdaAoxdBQQ373G+0LI+qLRGJChZH9wPnXVaYcNsnIFOG0dAmK RMeoM0UsTS7RcrhpXDcUVFFmyOgKgTaWQHA0u+mQIBWXE2DGzBEYI6W2PQFX 1YJjMfN/GGOCIcNxjNEJ7BztPg/JJeQFUgV+7BQZTsOXhMpPeOAMMIMN3/bk FFtfCAUHNbkdHSeRvD/EsipDIA3TRjkilWMDA8dGdu9+ZKqxET1H3wZ3gB3j gSDvhescPaLaUaLWGqI4RyX9eXtSPH2/8MUxYSfnAy8TOKZPJCHFnCTgVAkx p2YBOJzCTrJpSAXEwT82Ogv5xzRs0IZPfvJpUAfMgSMC6mRe5+4GAxzFG4E6 vpCzmEbP0aQqABs6QvT/vkJDQ1th3bqthdraWoLPFoLUqlVrKnRq2jgjRBlO Yd+ZBGEMXCxReBEusxVcpjZs2BDApTIIQXnFqQpsFzippJBhsMJQ+QMhVaHv dxFfgAhafkYfUICWTyq0ACsY0MtQ+ThWDzpcicx4Tc3dE7W1zZNbtjRhe3vr 1sMX1q17DrEl43E4MxivkkNFt7hw4KollxtO8VOWb/NtHzbATYycyp+VxxTO OV8OU5QfExH48m3fxgw70bPlvQA1+kurGsPSgYR8X99uaL7i1l8NDDwrtdQZ VXLL0Jt4QingiGMeLWnfcoDjuADSqGKOVV0pxKpMUMy+wvWFWJUnxKqqA8LM ji3XjRf8iBDGYdcsIUlRUUwYmDwpepWKJ0zQYx+nO6/oVBEQBh43Nsx9R06C 3tR79P8lfjHFlBndjx4ZNrbGq6HT6QS3Zh5iqOwNEJNUbg29k/1wfd/s7f3r ifb2F5PgDAcS/sJUVqgLIm6e53HMwSQ5FNtJI+iTYV48YIuUF6+MZYsXZYsd 3jJY8eOx4jR97AyxMr3S4wp155U33HDmNCGCAVIRYgTw+NfESKXVzg6M8KgX XlMFzMjFgF/WFeE+O/DEC0udAp5UC25LpkyyzApT3wFZZvBaEUS2du/enxsc HKYz5p7J/v576ft6BAnDN1jdZHq+vEEuUWKOkMP4mOCmfJLXzKUVKw6Of/Wr L7C44+rV941s3Dh4cePGI29t2vRwInlh8+aXE6kLGzd+jT0SQEWXO51bvfp5 zBxhxHxAcDA0V5x+DJcrTuzLd69J7Ngo/93821FMMdz3u/rZ6HiUYgz8D4kx Wt/IznGbXLjAGC/KGN2Yx3qwGjEmDmFEJS1NlnBkSXd3388HB78ljSxRPXye bd/xndblMY6WcErwMy5zYImEG8dWV5YZJZsj+EGVgknyBS+Ebc+cADczhaf0 BJCxqzRTINfsf32+ZFQ1ajFQkpbLomHCY1MHVFACMBkJp9qrywHCitkAl4SO lQEuYIvmC1tg0CWIlZksigqYVRiyoAjjYkvL2Xd27PgPozt2/DUA835Hx1OQ CEsYjTDLc8l1du7lE1LVyWVttGAzqRODFk9IlpdJlrgkeQmyOBGyHaXJ4tZW 1ag730h0iJLlfAxZkCh3yGInRCoEWUfaW6V2TCyi8NbdjYloBwo7dnRozRCM yt0EpLDyu2HJHMUSsV9jOpbM1CzZvn17wJIqXj0ebdXff5D7gFCCmOdZwQYp 43Qi/WT9+qF0PE3eIR6O4ksXlxe5FmsSIPk9Fer6L9u23fOz1aufvvD5z58l Zixa9Bo5IGvWfBv0CDYw5Mtf/mFS1UMZfJjtND7SD7pcYAZ8wcUIf/QuRkxa nP+UFDDiu2cKp89jdFBe1edOcYLcMwlyo/aYEUqlLIxES6okjNj5dVh0M6Kk q2t3kSisHlGCn99vb39uZGDgedXnpjRGHAn7fzxw4DUo9gaRsJmClU8JTgXv y05sRwTGnB1UCNipKjMMNkew7ZG+PNuVKO4IiGBndkCNGQL4rD78IO+bEfZc FbfnSBgsG1ZSTfZHBrHbllAqtS3htfBrMY9VyveeIZIBi6eZom8aVZUZ/GT8 SWqesPenat3D/EuEKbTbvbm+vv12DkYHxNhbIdv8hGkSSgIqCR94+e/bt/+Y HnZPgRyfAsQSjOaX8atZoEfXePT29gVdQqb/UUfCDFakD6cqFisBdWOT8RnF FDM0+HVVX1icjNezKMqWitwYjxUT87KxYuqvLgsrltx8c3Nz4Kh4Be57BVIC R8XTaFm7dhuhZW2BXkJQ8jtHcFPKRUu1kF3J6jT8wMCQwQqBj8f/5jdvPv3u 6tUPo+fi3MaNA2fr6toSElxu5NUbx4lIrskYmb5RlpMtTqp8yPVWEP1K3KBI g59x2xvsxPP9Ks5t2PD183fe+QPQh7fbbvtLMAgEOr927fNATULPla/Dav4J iRScCZ8PERI4MzZxdFG3qdaQEMNnTZuMmG/HIiZlI4aMTCxf7M4+wxdEz6bT uueL/dAvGYyIEVdC8B5F+qyH0tb2LUDGFvHA/2CMioulzYB3I0ps9O6lqfUp wVdIxceTnKlJJeDj0KsqLiQ2V/jDjPj0uxO4SguOxdyANjoKB/himlasj5IR 3J1KIbE/pzRtpsqgjeOWSE3XFm3M481j4aIADnmVgma/HPExoMZJdyvkqF52 CzmeQJsMr2nM4KLd7DZxMfo0D48MDj6sNK/Tv9i169+DLgiPcVdqe/t30FYE 3fvDdB2NAnIzocto5ofF5BiyYtwXHRXzbGHJCGeCj6UMzqCITszul+CMExWr iw9sFBd9bRUgkxWSK148ZJyUfgxkjCQ9kiraXyEThjVtQ4a3DRtqC6tXr/EL 3DAfcAY0mS24MH6ZnNHawxx1dbL4VRovNTUP05OdwtjeyTvu6J9YtGj9yJIl qm9fKZZ4byCjQKgxoFHlvukJfMTEGLMZ1lQJnR8fcH0Z/qmS/5I+297+iOEK GIPf8ZesQomUW7EzH/jAPx/wQgPkmMsWPg0kdnQWowl//5Pp2QEOlGKHk0bR 7AAnIprDTholaM7SljjX2bnP8EOX82YhZM8NXramFjFktL//BXBD90gbZtgj 1h0Re0mfRBqnLmlcRes742QeKwQYzRD2JwW4ZsV7ONIIV8fic/To6gAequ+w wvbcxpubvzFG54Hx3oLUUoWApgoha8/1BZXxxLA7M5SPIbV7WIgIxLV0WAeI QDRrkl4dBliZIJdFCYc6jllVCXuFN51KEaNelYGfsvu93bsP0dXAvXo4QtbW bePzjEAxhfxLY+PLITBgYJ9E1Tl7JXSqZsIakmh8K6GGp/imTDhSQzItIWLT 8SUI4US3tpYmhFv/1fAbEMIT8iaS/C/tx9SCwQVBNEuxwXZDtpCFrqGHkz1O ggizglx7ua5GpZAR8QVXI8trBWYbMhXmzTsMKpB7sym/cOF6ep4aM6eEvhOB wPwYFOk3btyY8HhNjdbW1gadIR9Xsa4R1PBqTND5xusEfTZABtOiQsimzC3T P7lC3e91OltMmEv5IZE4FweuPu8GszhI9eF4aEidpb0hNOye8W/i1rmaEjoH 8o7SjvgfQ4lM0H3dFx13IqjRpy61t38Po05G9u59LJFyMcHjtLQKfa619VTJ vEVS8AmmwYQriyUVdlXH23vnfrOEJ6oWIlpJIe6UEeJOVwWYUG6SD4jaKrgw fOQoETDoUJMBzHV03BdWElUJzoWpPbPzIZnLQYWsrCGQI2MLZJkmQEMNOnf5 Ar1AjwM8DDrScdTQR0b7GAlPAEaVcjJwG/76xtNPPw2dG5yk+F+xI2WzguWF MEeHmMF6WdjQptTZOWCCrWjSvLR79zAS7PTdYc0SmxIqIVcSECbOF8zftRPr WQEQWSFUtcUFROkC4eZ4QDjpj18XEDqhbuvDd3XtdwDR07O7sG1bPd1tZWKm 9huMBwI0zBDiU+X6DRUCNDwNDSvtoaGRKWzefLqwaNFRAKOwYEF9gYABaOQX L66xRXkDefgKYUJJhtfUBER+6f0qnAhQuUaLAUOY0UDFF6CSEZIqMwVH5IMa IHTOBADxlfdx2s6JX+2yg0u4PjcdT/xoCp0ZoqJjsu7IK2qXcdqIAVeyQoLd XIbbmREvnit25CrgSmXIFTj8/B3V9cKIXBm2JLzwShHiJeAKROXxPyvnEVsQ sspa487hffBcqXisTKuwK4nMm4HfdkVYRsCU3dDh0GO28Ac1s1FuBq8UwlVG 5pdY8pMzZ17mUVnKHfMudnV9HwjBNkGbMooQ/brfiB5DA0uqRs4I3seVFixL ESYVH74qkzA+B5JpL4YsOT6oqkgYP6M5BVRJZOOxYjImWheFwFGtHA/DEZ6x rHqmPJxOfFmiD1VaHSrmRl/fXl3T0Zd25Rb/cXj4GwBH8uyTT37bpQc+v1h6 JO2UuR12KsEMJ+xUGzKjLHnEXWViwxfqsVJCeiMGG7bQu/ErUnrt6rqb0QGh 91ThrruWc9/JSgCEIVIdCUEh1TEj8DrKBUhW6DBMaoAgdx71OtrbjxbWrHnI BggBZR29vlX5JUtW5JYsWUbcLA8ks8sEyUwFEpMsYYRkQpC8a7LzSskqdenw 4ft/efDgibP79t1jtEycumHtnRjPxM6yvE4nVxQuUpYkWjasFGzcdhOHL0XB sL3q5ihWvh5PlTeOHTsW0KJcqnA7Y7pMrXilbeKxmiEhBPNJgBA9iNFIxruX kR5PKiGgkFV/DHEsoxavQWKmlGi1eJsl2FjwZBq1+CB6VRHPD4dHUq2UFL2S vBmNEzt6ZVSoVEacpduTGESovDMeUGnMIK6nFTVA0ueicvGgR9T3KY6JRV6l VcIcvZ9duFUKI1JxloMRZVu9EVrfR8YDgQ76uyKIbwiCAmDscEJlMoLUfZA4 0fJSJhESkiSSBal0wcK5eTPdjZwVczQTGX0oOzqOk280iGbIBGtpeSFXjALK +YMHf6im0XsoIR5rb3/23b6+e3DySFyx5O2jFcROAr1CIExG6CLZFEsYIXuu BeHrCC+mPTGRFsJW6TLxUkqivamp17CFt+7u/YXe3gE6lv1032W+gJZZAloq BS/FCyETTFaUIJPh1bez6LyRh0L75cw5h7Pmzz8SQGXx4jUs07WCZxSGo0N8 YXSIBJdryoRLSq12loTsDMNl7MiRo+8dOnRyfHj4dCLJa+qd3t5HLjQ2PnVu YOA4fWTFhcSR0Bff47rSiRK3UnhalLgjGPe7HDFAeuk354iTV/eFuq0SiorC CJKgff4XBw4cBUtwCam/9Rkjq2iGy090dLzIUlnt7Q8HcxctoiiDykyRKrf8 0kApiu/ZQEnHh7OmDXtVC887S7lDdtgLV/9SdZXS4/VMbAuMwaYbb2AVJzGL UtlEtWrXxIKMz25K1BPKCp7QVZcHFicCVi5YVJlTJcAyBoogT0L7KaDNBCYg 0l5SYiCj9PSmWJgRoyNhaEeLA426Xwga7AUJJg0an4fa9/TsR+sTAweSUgyc ZAicX3Z3fxf992iJVMBJAzim9oOlP1taHsTkzBlxcipSY8k0pAmMxnosl6Wv uOc3x41xIkLccJojqct+Fy5sKjQ0KMD09OwJALNu3XpCUDFh5gSJkkohay6N r0oKXPGVPpbdnhjmzL3CsmUPME4WLVoL/8QLaQI3hTmSFQa7SzT5HUWTybq6 uhyxIceTobHqLEnu4MFjueHh+/NDQyfpe4jVmxwaOjVB0IDw7ltbt76s2ke8 8y0tj58lehiX5PcEb+RjQq6kRKjLSZ3cpD9su9PE5YfTwXi34oetmQJ+fE3v pbiDJPVmY2NjOfxwsia/OT8cRd5AwV3P8MUXMK+G3T1jNHj1VPiMzQ0zOsT0 kekhUp5NANjDEh6JE9EqARAHSLPiIlozhT/Mdkum2H7PEOw3K+bq6R6EiQRm zYQR/VTghoTURB/dAc7FZwX8XC1kRNJl8kBlRHzbcLM2ljpwvA+bAfR1ZjfL sCBP/wcthhJbSkDAVPfaEBDy554NARh/HckyHGDHprf3iG+5b8BBd/dBPf83 zUjo7u4z0S26Sjk92tT0Ay3KArEu8MDQYEolVnAS+loI+oAdRxTVtkwwDqKM LkTddHoJWjjp9LWhXzJ9wdVQPCicsJcEiqSQLZkRgMJSWO/t3c3NhhC22Lp1 J5wQJkSFwIkrAk5kS/gf03HCi2RJBgaGtN+Boq/7CvPmtbG/kQkIsTzwNypD QgTjoCRCXKcIgaG8BfpMsNFxxpoqDA/fRxc6D2DjdN8DXh4/ZmGlJuvrv/bL jRufu7h27ZPcdbh27cDYpk07R7Zsqf+U4Et8Mj5Q5aAhppz3D6algzMgd6iY Dnjo8+quUuUV5mhF6eC0dKfDKFXQXJiOp4MkyFs2HRK+XSCD7yXrc2mhJAcW KR22ois3e8BHKhiWys9oDP2bKtBcDAlLuN0d6iFDori5YpbwB6mPZLZbZcXx qeogPqXGb0SHsr/b0fESq9OrtIbxII66fOAC0j3GT7GbyKM5lGlJgc6J/qzb u2HQkBSo4DEVVD8HPmPsQ+ov/E1oUKH6PRCPMjSIJDd8GwmmXUUfL4+PHzGB N3IVPEaDT+sAN7Hu2nUUrYajDQ102JkLKcMEeAf6PBOcWTVMsuTE3GQYXuOL JpsNtidRKbAhLcSsai6HDYcvjw1OJj2WDbpFHarr69dvZZcBqutLly6boWkA OiAOBRpcJcSlMoL/kFI9HjYXsJn5G76V8zD5jQqNgzVrdsNXYBBkFQ4IAEsD HFQJuY1KAQcfVThgOQWDgxTWCqaAX6ire76wbdtz9PZP5rGtXHmEzoN16+jY 59avbxjbsmULtoTHK4/jBQ2YCB8RXIYb4rlQTm3uZ9Wna/Ia7EnIXOA/HSje C1zRZwUuzNRRJzoyhg0E0OJaK4sLgb1PC90cJbjgcKbKjTrZbEjwMA9TBtPa ympGum8LawYF9s4oD2Uk1RgPXbz17uDgPthgNhwlUOC8qHjJ9uk7AqWAk25E x6zBQN5kbuinmBS1cR8cqrD74M4TR+iNew10+WgACdtapTQqMHdQj78FfSyp 3CADbg2Ymp4TYuoiY7cLskeheTHJNROKFzmUFtEhfV9FocrLpnvxDMF7CBgi 5S+yMkNUj2GxW4HXooJjXm7XrpN8dPURhtE/mGaGZH81OPjcVHPzS0Z3a2z7 9r9EoAnsQGbN0/5sW9sJy589YD4EDFwphQ24FEXYsJPp02AjMCGrXWyULsA6 Go8Np1FwGmxEUh0+Wf2dhS984Whh06Z2RJnAiQQzA1mQZRoSxo24OgQH5rTn AQ4/yJV7pXGhvQeyCYcj/X7wHvoACQZFhfYe6OkDXMwsExcf5tWHG2xwwRt5 DglFDI+JsW7dowVNCw+wqJ7avHlzGoiYJfgKN8aV3MppCMfCs6PAEUUXA87Y 2OFiDOD2p0tj4B36jH8NDPh2aVTQGJgW9jGt6U94Zu6fsf5Kstdjw9/Tc5K+ V/eEhfKpiZ6e4bH+/oOc0MwKV+OXN54jvsstUivr2GtJ40rbeqcUKTZUlPDR XGHb+vEwyRqdsHuAw2Q9PYN6pCy9mb2o/rSth/M2JFvvC9VOvrLPppPCsruO tB8kddnGp1SkCDYev8P2gwGjasLz/yxbn7JtverS0Ib+wvHjx21Dr5/LGHiO HyV1FEmnFtjcq5iSN9rffwptfqPNzT+E8ddKWO82N38P8SPtlbLaosKuNXGe LH6/F2fwk0qlpDhyVMLMO5GjlYKZL62LeL9g630hz5ApYeultDYmv27f3lZY tqwhiBLBLyBLy8bejzX5mFi3OoeN9ovNE8JI07gLSR09WrSomTy8Izpfrex/ f/+hwuDg3YWamvWJSmX/aV2OnhE8W2KukF+Q7L/KVntTdXV1tv2vtEz/qlUP wvQX1q5t8bSfsGFDHew/tsTVUyqPrf0G5TWoFZLtgZ9w8+WlFpwq2s9GmaDg XiS+e1DdHO31fgq3zlYcOI+jcdttt71DTlgpDjhJhF+TA/Y+sKmmQOVG/PTY se8Euu0ZLQvU2PhEob19GHrt+d7egXQIARSbcMWo1mu3jbGpgU/Y83Yiht8x 6HOteI+kZuhc/c8Nr/4D88rxng+7DRGo6h/XlUgJXZUZXL7jkp3Mus8mPY2K zLGBgUNBC5i+dOcIklSo6scmgrkRLpB7ouOdtK7MUd0Z5gF8e5fBQA5pbHgJ q80W31hjX4jyxFptdWUeKKDRW5ZyzkbAqr39QRPsUUbcV5fqsNqOwpS23lMt LS9izJdfFE3ky3RPT8zt6+u3s/Mpq2zKKBdKcZ0qQSDKFy7QV4SWe3rpwYdK G+3gAv3yjLbH3dTbtw+QUW4m87zGE+x2Vttt3Kaj/okPuHZ7Sm9JPEdKiPUk lVp6nPGG7c4vW3bQGOyBgWE6PSGa20ivFAbbYx0qpLdhtGk3V5Zpsz8Qifgf PHhPcK0+MHCmUFv7FBvsmpquZAEGm812fv36xvzGjfX5TZu2/pa22XSdPNbQ 0IBOiUQWc5TSasASJvBFFXCFAE/arlC9To/Tw/9zi+0wfr7RNe1cSfChWIOO M+WQbNCfUDtyioyqdRqAPpWofcek61/HvrO9vgz7bs9fMsllnpajLvIzge6t btrmdF5f3yBsvRElhLHHAB4jrZ6R7T2CO6K994RgjaR2LgV1suGVdBDUuSLk h4m6iyqyatA216QaEqCS0hRS7tp1r7mATCgK+KY2nydSQ14TPs6HhQC/JxAh jVXZ5AqnFxrSsRoFDgP86RkgCafHFbWanO7lMoBxOw0DPB2x6e3dVxzwh4N6 +M3BwddUEFEJQv1La+tfFurrn2IxKHRCqFA/rVaE31y8szswwHNy+4M0v+nw s4QGxexvCRI4fQ/LSpPALRN6PJ4E/z9xbwJeV3Xle953z3CvRssTM8GZE5IQ kgpDJZA4TLbBsyxblifZkizJmqzZA7blgRhsjB1jYyAEAwWEjEVSlVQqlVdQ XUP7VdFpd5pXz/V1fYm7PwLVr5yClm0hWdK9vf9r733O3ueuc3UF5D2+7xzk qzvpDr//Wmuv/V9ncpXAN2cs4dDV/RLGCrClpSNbU7NRsH2ZgO58gV4Zt6u1 3+y8efi/bFy9QhZrMgb9RYhORhfjqngDHdAhvArfU5wCZO66q0dAdw+tNyNq l/H6TpIALOYvWLBQygC6hRZczqz1cuSfaRT3d+48QMxP09nJtrc/RlWaJUt2 JCT2naxAflYhX0QRZKwryL8miN1n4JyEBFwZR/9rjBbS6i996ZVaPSQvSWen Vk9RpRhbvpFWW6mCvq7xUOJmQz8qE3tztQC3PsFAv1SaAlKN3wB/MbNc64b1 HehBuEzsxE3Zi0C/OLyDYP04yeyd823XJ1wX5ucu430erPM6alRTD0mB6vkj Lw84iqrCSYwUmJ7nnBRwm48nrPlwM/im2ZJBM+k4w1clBbit3tQ2HOzUcjKb Nh2lfIBSARmXYlR3IAUi07mW2cAWqwJyICi3xVnvcFaaMCb+Dy3Is9k6rlO/ UFnQyBdRgzgXx+sAKj+MDliPpTY6QAfGESUA/0k6T4UIaLNZeDZBBvB/2lQp Xmu81CQEWhBg2KRHw6ucQMQjePFTZgVHr/AGGsDtTCiN1wCrjnNv+D0uyNrv 26EMBHvfOBlI09njJEDtd0vn2MEi5KytXS+4uFIkBkuKVAJgSAD96141YylS vzcTAvERoPP4okWLtCxADjg1mD9/NW1YQwVfJACCy1u23E+D9LZlq6tXIgEI qjdGMiCuR+zHkkFQ0b+MqeiXMBoxXWoEveu69yel1n7b2o6L57UP6qC1QTyW 0AVHisN4TU0oDhVMkvApOWwVA1iDCd0uztOY6k6Szu6ptrY9p+vrD5J1+Z13 vpySwqFzBXrTy22RoHDh8/Iyaz9CfuHYlysc+JQdzy8cJBo4xO8nEI5If5Gr +4YiZrRxnubRPXCMbHimbNB9yD4NOdevsfFREUnvVo60clXYM8zMISDiX0Pd 3d9QDh7aM9DYLh1nZs5pR+5+MK5sxDWtTrOvR8H9FKNspK8Mi6WgbKRbXSAR RvVCqgQ2hW+j0lFPz4OAH9XDrmGq//FS4aL6b+5VlhvNXPx4Sbzq2sxVdanq 0a0Tmf1xhuWFSQTr0mcrBnnHJtWnQ03TMOv+iVI5C1Cc+y/1928d7u194Fxf 33PQBmxv0V5+Whtkf66fIw9YhhEvdkqVirDssnXrbq0KScN3Q73OWMMtZ7TA ZSpD88J8YOKOH9UDbm2CdplyfhGd3agQFCvPPdhyRy3Bm5v7smvXgnxrBNqr xMsQVoK0EPgFCoEvMwQtBONhVagoUIE5c9Dh2SDI20PbmkH+lpbWMP73JerH TdRfwWw141A/RRWCFixoyyxatN9KB5qbvxkg3jMQb8X/pUH8/8cM2B0mHXDV ebv0wgDbz6xefcylAas0IG9AJwh+mCAEnC/NJTTe9hvsvIFq/hbq7a1n8mPF u2McVUGEuX+Agz2GkcTD3tqClrabRE1bWI70ubawqdxxFcC79hlvbn7EoDpN RNLWN6D6eHv7vje3bv0zacrk2l2W/3zgwMtsw08e91er5jOzwNqQn782FG44 iN1eZt9WPmdPB6t0IDhtbX1YNfo4Okswi0bgP8HNnD54dbwGWN0+ahkBHZ7j 6PS8P/Cq8M2dxqajXJq5G86Y6T0IAT2EbMnN3T+WYvaPKRNxvYxA+RflKGVy jJJ+QvgF2o/1fnkNf1p099SGs9bWYwH9RRiRle5gAfohIjjwmTVNMzT6YZoR j36rFDQnP/rtrp3vvA/0G7bdekydnCwkfVVN9Ks0IOEEeYAsAwH86QLxn6Jz yQj+LR56SDw9wH/8a1+ry86dW5+tqqoj3MtyzyIr2FdLtcR+TymAoj+x/ypm KYBTgFKck5m7735AfF0qK8Nuf0/JwM6dB0Xes4lcylM0VCmI9FcHMpBmIv15 UhBIDNrb29+orn4k4ZxbsuSxhPvm0qVP6Mmoj0+b9v+mQ9AHb3opH6F/TtHZ 3AXAg55qR/vzgP6I+qSYvT4K9EEpaGLQW8sAEdCbHq4c6Dl3PmsngZvLfZSe XPUEgDaD+UWE/KKLXV0Pw7F1uKPjeWAflNOj70A7kF/11Xvan482/TQ3P0HJ AlcK4vYqm7tw85WCvNhSUM4U8NiS0BXMfajnNN7U9IQi/4O0VX+XjEA9LHWa 5S8z3LfWB5zYrWIuUE+eEqiYiiNpOxNdkDcP0K13ELO7kfNgP9bsuwDsWysH ebCP9w7oD7EfkZtiZtXaCZvOtAIg0dKluJaWRwWetmNGfCIJCZAq64D8g319 j2LwakJuNXa0twUSNqHyuex3mEb/e2z25+/Y1LbKDPut+o/Bfr0gPG64aRvT f9TIBt9ivwr9sRxQViDq0/I8VFlZeV4co5/97NNjt9/eL2RkNVWVRDQPvIel nAUB3Sm+v65AnBfJbhwK6AXTcQgpO6hhvmvXQ9n77x8gmBfJOXmgecBxPwjn F0p6DzY09A0vXHgYh3hXcXZH588/NHr77SczN9zwI4Pes3LpbZdjJka3tYFL uQ9F7SEemTS1rRp8HmrrXn25CMtQOx0WYoL6vRtL7RzvuxG5OYbuw5w2rEJ1 /3x39yHtImHyOwluRfxUaUOOtt3GuIboc5xoZsNlcaUYzoBCwZodtk3h+lUT bjrulw4PQVy+LYjLZWeJQ30pkV1fVu3pylhw+yZlcWhou1kZrgvJjG7RnRDW XIMmV8/PA2sN1xGyXJ8crFHe1434+nGtFiMJa9eEdbg1mF4l2EOMyuaBwCGV loJ7e7fQ7mW87gRtuZ5beqm7e8/FlpbvmBOz9Y7g4YaG7wzX1784vGnTsQs9 PfcP9vRs5ZZyHaZ0c1fI8IIs7H48OYzrvh5dwvcNR1PxwTMcTU2Mr85WVi4T ITxq7JPEuIeI/dJXv7pr+KabHh/fsGF7ZtMmZAlLlqwSsf/SpaszxiHus4oa 7VGeF1wvYirzH2Iq86Vx/qUOBespszxPXN+9+wFx7Mu2traJLEGzPSzVOPKs 43Pi+2I6e0M1NQeHKyuPjyxYcBh0F0/nYdpMjEm4gvK6KpMwKu/Bu1sm3y2r 3fKz8jIdvBPPedTTh2F6+AEJ7raHx//DDP5LjAZ9hf9EEmdOABymml4UVtN1 IZ7dAJxmbjtZAdCjF9R4atNUWzvXUWOG8qgjS6FNm340tmnTixCDPL7aevSC LArJhxkV52irv1WVuZwhN1e9cQus3iSlrsRaNFh3INcIXNOxDg4DpBI+Iwv0 x3O1GjWSTANc89/LBuWaYT3+wA9ZOmn+E9eN3s7APc5ngJ9iqvP+5IBvCQ0D fAiyAXxcdLGvb78CfioAvm7eB/h7e/tgBCHBLzt5xOdur0DCz9WuXzfg/saN L4H7SYA/4Q1v3rxvWNwdjqGurp2QAG1jymmAtZR7R6wGMOu4f8EIgMPUcIp5 AZjI0nrFimpVu1myBHurEHxjoxY0oEQpge4LjVOCIqkEw4sWrbu0Zs2eTFXV 8czy5QfEsVO8tNXVTcnMypXN4kZr1jSMbdiwAYf4UoqzP04190uAuhaAWQUK gCs3W43Pm7dVh/dUt9+164B4VLRxOqQBaOpcvXqN0gE3u2rV6vFVq1bp+swy wr471NjYOFpZeUzI1NHMggWHvJD4GO4J6icouJ8iWRytxRDlqaneZru10arC TuDoMmX3ZPFeDT2IuvkcJImJA7z48rS2tgYs5gYhFMB7Mwmwblso7x3GDohz KQ3Z3x0YX7s2+zF6Rxtfv9XZ+TfDIomGR6ku5GjTa4Bfu8tt3Pg0TFqMh/DM rVvBVt8rC6zXqHlurx8/fjyudce8nhWRc1u4LmMel3YVqNk6MG3IcRQwUwRj IxfK96jpKONrO0XgNnIZZg2jfXJIAXXT9SbH5Xgf1cMp9+waPfqT9RFSO8HM ikow35IxkoAGcAu4nES4YQEn6rYzkURQa5DqJzOWfnFFbRdk2EIklCeEVglo RKat7SHTEwJeQVodEg5JgyNCkW9raUgk6eyIT/P9eQdEJ5lyz2xJAd3xo03i YpXil+9dKbDnSrtYNzVtzutinVRbAObPXwTlIN1IKvVQKcSk1COtFn5FRC4e ZyDT2Ig580JDxBuwbt1ekdF3ZNavX48G/XJSDue8mr8pp2+q+QRwCK2srMQh gnhxVi0+w2aZSOpIkakjdCxdWkf6MW/ejszixa3icVsDDYF+YNUBGqLrROvW NY83NTWNIZZfKvOG8+LfEJGRhoaGsfr6+vGamm3U/nqUbPcOQU9IU5J0djO3 3fYUlAUHKkd50gmris8LjVIRSjj0fyWM2qi5bMGGPyO7MBeFcX21U9hq9CmO bAt4D+JjVZsM8UHFaSLxsW7LTVooVHzkmgMc7jB1oVsnH5i2EAiPTDqKtMdp sPaHipQhRFR9inHL9ngBolrRVXFFJ26C6LT461mAp70EVzB34BkFKMu52gnM IHZEJUb3kWKFOOFJicGaiS0xEQOgMWzoVbWmjEo/QnOIVLhFKqopVn+RG68p ZuGnQE2x6kyFagq3KFCUqyk45KfONzUlGHHd1vaIw1sOqT1ome7uXsG4E6Zd BMSFZEUkHC6pSmq4tfWQVhU68OZ0d2+/gNHWEyhK8E3/KkOE2L6hv8kvJ0Hl qdjeUUYbZl3VOKrNRKOu1S0t7WgSchkp4RKRYkZKZob7C8ZtKXFJSpSL6Lg4 HPpQovW3W7wfbVCSRBmkZCa0I0WS4YwICQxyEM5QNJKDjC9ZIlKazLJl9QKq 4o0QOrGXtKKurl7kGGtkn5A4r1lTD70QH4JeHEI3NouvHu29HgEzhXqQgszH OQkJ8aAfrpKOxYuP5EjHXXcde+sLX/hrLR+Ul6jcwqolfcbOQSjHuEp+FPaH wYW557c4XjOsT8gWefOoZcT+96EZivujitGEziTD/RnvXx+4EQpWcUuu+voX +/q2az0A+7UOyP5BP2p3DVkY7+39RlqZRdqOpWQYqdZcLKdSgPrqAktPSSZ9 4EpPblzpyRhDEJSelIvdRXO4sxumI3je1OKutjrprWbYW8CmHsqm4i1x/9rj B/uIMVlTBCq50uDHLS8kgdQ8W5iZBQnLfSKfPiDRKFQfaFsaNy1OCoIXFQTU rpTDlRtVBVojCUcSHQkkIXAQcv69u/vlkY6OJ7EVOaGcJIY3bPhLWnOAGpAm OJRauFoI9EFa4DJVp9smA/9/iIe/texQEu4eMLcPw0lavNVy0RhO0rCEU07S qTz5g2CrtoVj8wcO+rJzyM8AcoZ9dMaGP+3Na29vpwyiWOYRI7W1tUEeMYvJ I1wpDe+g1qJ3ksmV5qILX/ta5+idd24fW7iwBSIgEpY12f7+LdmBgQGkCiQB yTBdyGzY0AH8U1d2ryv5P6TYT/yfI1eZzTxC/G1CCcSTr63dTIUpKQmxwvD2 jTf+XIsCKlYqp5iVm1PkNI1eb8sHZZW2VEQrXqkCpeL+3Jvjdw8wUlFkmMwp uRCvvjwrtyFDKnwzpMehF6NLQoWIqoulGrGTdgpXDev+IhMScCATgWIkvNDm mgabvNvc/H0RDh3C4bMO17uUw3UfshTO4Rrh6tWMHsgylmdiHweVvWYwmqJX uScqXc1gHktJhzUlOhXMiu6FmRkqVXLspPjLVQcSVvGRSqi18lPitfntc889 d/Hhhx9WTkEOvrtYtxiX4z9z3YY+WIWQmYmHNCaqEnL1gttMYGxXzrsurmTC fDJ6yYKTCcN/aLy5+UlBtkOF+A/prWvn6+v/VqnGSFvb43q1WtWnXKxam1mE C9VIeEgkdIkKB4yF2CTiK/b3Pn8X0j+FOqI3JGsdsXzjDB3JyOlqq7ILF/Zh zTpwmUZvkHaZTueIyBLxJHB2qFlIZw5FBYqI2n1gzrbRA9S0kJCOJKWajGCI uPiADQlFEe8uqcmwqSafkmryhqDbGSzPEsbl+TVctmLFijO0iEHn9ODHP/6D 4S9+8fjw17/eP7po0crxmpr1WLwWf/MGoRxNaZIOdPdthnJI9ZDn82YOcWeQ Q5RI5UAVKlAOmVJ4ZjUKx9t33vlUwoFmJJyXr7vuXwb0ngN3ILckVc6Lwafl +2xtL8svH26B8jGQe3N85LSPrbkzoYhZGomXD4+TDwE+8bsksM71uXK2dpxi 5JmJwCiGa94f7kfuXktFXa9H6+tfyKi9p7RmecjNrTtBNdQ2aJoA1y3trtmJ n0YNKqehibyxZ8Q3ReXWnfTgATOHSTF1J+mX7+uJabCj02UmpBFSE4q0Jrwt Hif75JNPZh999FEog/aheBdfxBKmTmRML9PPka0x5bFBippcc5YWekwOU0ey 1jDceN3AZVo7JqMb1LQaoxvKU1v8bVs5yyNHWx6R1UWSzi5WNEYrK39E2xTw qVJyode4hUgkPFIJd6inZ5upEElmi8IfMwKR33HuNP3om5YVOPSqRZl0qnhX fIcFr1Zk16/fyHlMo2IExptaoD2mJ6MFHs4pwD8J7kvku0NqHey8+HOA/RSz FnE9Q/0UnYtOLVt2/9nrr/8rOm699cWzc+YceXP58iPDarTMSF3d4wl/tK7u YSoLPSC+HfePyOYV8aJ9nckNyhnCe4rzS5bsEElJD5bd3168+AFXwh3LDAHc HQbuU+wkgN45RXZrN5lF9nTUhBoXmtvUI1QnbdjHU323ChfMjqaiiNXce6a6 iB9RF9bdqkXxfLc2nSk7I3ORO9i45sUz3cw+aDezYVZ9rqPjz7FkaJlVY4yB +PKRsYBpLiB4rpuirLkF18aWjFwzvAcDZzLs9+MqRNOYClFa7YkzK0QS455p Wqrt5/Tquslw8cUTFBfvz7Fjx7SP0DvaAbQULPb/p4Pb2jRWKLjpoUuYztdk uGmAthrIBqfcIpJnOFN0de1EeJ8w7ImQMyG0V7T2zzU0/N0bGzf+xZutrS8O dnUd0dRORpafcTcpGdsP9vVtMY1CqS5kYHpie7n/Fk/oc4KxpTJ8H7z77sbR 22/vzjY1tVLffmDnnFRbw0xGo+izhCv3pwsEtWOsHOug3aezZwbtOIZkzi4/ TIrgBHBXYnzQxPhnJcaB8NfEbwngvjwD42duueUljXF6A5qbT3rDGzY8n3BE EvUYxhfTCOMUneWXUe34xVGEXWBfCAL16WGxP5Wprt6XWbVqewb1nrVr28Hv TE3NhrdXrBDvIiDugdrTbUwTkj+l4mFzQ4GFac9c39Vojkbc9IYz7nF4qF3x bLZq+27YbeqZRXWKRJFOyxAb3M0TYnOOclEEU2/qZBGc8EzT6MA01FOGQprC sHwU5DWcoy/098vxItdO3DoUW2tJFVhrmcY8Rjq+1kKuM5EdXNzsmdeeeeaZ SCDvAtKnX3zxxbfE794Vr7DktIsfcRF+RZYFTOtPMVNk0ZOvjh49Gmxi49qG Yov+4n0zcI2f81CcWlkjFLfK+bEUT8oFgFwcp+NQngTFuWXhdGgZoa2FxNuy HWDWtkJwGAXEz/b2/rV7trn5JwnfZLfeTQBop4nZzj9v374frKbay635WW33 Af2r/L5HWY26fUKG0s6F2bO7RleuXCsQu1R6MSflFOFcSrtMab7QSDqpAC3C 1QDQaTq7UThrV1mDzThQok98IZbHqdN33fXo2RtvfHlw/vyfDNfU/AAYHmpp +TZALL5YNMnhjFC7wHJhWoDgq5mY+jKKqV2KqVes2E8sXreu2wWQBRzWrNkk LlqHA947Mqz2TJ+GAW3gNp2venzSxjS9kRamHbPpM7o+Q+/xwyGezT1iOxg8 p5l6uhfbruOZDC2Q1h6zDSyVh9Y+cx/FuWVzTWzl/+nC31njGh6gvoqcYfHc 1gY7KBhwEarh8ya+QXt/s2fPDxIfYppsYgsbqbjCxgwm0i5iChs+Mwqe89gv pb4ZsNgJ42SNYPGeg7+OyV+17OuasgGYljJlce09qej/B+avxdX3zF9rM1cs f8Ndu+Yfat1WhuEp0Bl2O9h1q/u3qJAm6JvwCb+uhd8Qu292dx8529V1gioa N4VftYI81/7vPOQtVV2XNTU1Y62t94vQrlNwdoUe3M4ZKpsrpD5T3E7FYtiL Gi+jsJ0okeg1Y2Og17XDYkLuF5lKhkSu86uamt0X6upeHISJ5BSJ2Nf27t0b IPajAWJFpouB6ro67QRB71VqXbOurpFiXeDVU5Bdv75JgHY9QXb+/O94TO2C G7j+yVAig8sssqbM7VP6KsH7Jw0QeHOE7fhVMVNcjmepa7IUZCs1wtSuri6q ShQznScGUKN3aQIVP3P+aMXMzWmpMh26J4g37hu0nUUcMuz1LR9NeCmjFbC3 t1/ZoYlnvBXdHtojJr70QJfpqFVTNtYL06IsN0YxUoYoZsoQCrrW7BSHiajl iF4X1P31yZMnzzz//PPAq0FbVCqItqazWy5tbUsAm7YU9+eh7TAwaNUskgzt Yn0QuG1UTv4yBX57XnaA5t5pHtRSFSaCWuu2JbZBAumMWig/u3nzXwKyMs6l s4NqxXBf34BA7g5VlghYu+Wmm36lB14X1p7yZi5odbFYLSWmCLR6D/SGDZsE SVeTPT1jXJyZN29BRo0oFFTNLR3Hk9Y2OC6XS4YmXfX0nDPNzc1AKYGVw6ur lgcFqYMSAuFVzX/C7A89bVxILc2JOi9YPbR+/XocCZ/OzkhdXR3wSojVReL1 69sC0DoKt+vXt2Y2bNgo/lVPsIXpmB/StlZXhrm5UkRbajpXjL1ZvX3iJG6Y OCljWYnpBPnZy//KJGbFycdPV+CnK6TMmtzFR+B47sX4BGyVj2Q1jqT+YHC2 6goeUx5Wd2kON5wAzhfNmyeZLVSePOuOeBzIacbkDidpXmkCW5kfK6dj7Nbo zvb00JZa7X4MgmsjfBx5ahhx80oCkuq5JhPVMCqYxyhmahgeU8PwGEUoDYNl TW/xETx27FiSYbjPM7wsdLoP7pza8fNAO5812Xn5EciNRLUVwkTLgx80vrUg GXML5WVlvEeCWql+9fDhw6f7+p42kO2dbW39/tmensff7On55nB//67hnp5g HRDoPlVb+5LOd2/MT2+7KeTf89BbdpOn0BltuViIoJEGBMJmsjj0GyZyw2Yy SWeyEiByg+EpJmb240lOA6ZULVmSnNb/5LJAZA+d+5oIZQFsFCSA8D8KiR7U KJKS6G8IfAdEL5cBs1kUTlyPcxJsv4rBuiexLs4NY6tXbwkR7oDe9GO9dgNO qGgZJYlZNr9zpoF8Qr5lVnP4lRLSX5K/AshfSai7SWXl1RN6Y1oi2GFUq66T laIQol//5yQCIQiuNzMbCEbw30x5B7lbmSJSoKsp/fFSYJWktRSgyJ9HCsB1 KQXUkQEpwIGrcLOtPKZSre7VbAaJszIuZm6eRw2iBgoXN2/+ph6BbqqBuAxn RzvqGCrgwQATnvj4FxSBNo9y/jJXG3UTa/IhtxFJ6YHlL08R/TQmTShh6iYu UzfxmLpJMSMAKn4fOX78+O/ET8R+Ze2vXT3h/XKxq+tRGs1RxpQ9krYeyOVR Rg9SxhYmDXtTADi/Slwvb4HEid2P5JrXi6tWp+I1gNsiy3ic5ZOEV4Wen9q1 61ElCSktCfqANIh0ct9Qd7d4sUJpePzTnz4zoLL1G2xpyN8v+I78opvSgOqJ VIWiHFXAzoT6+vbAhQxOBoYJcaAOXh51MOP8POqQMYvYMs73qZLS14e+/n3i 00uDd96g9nsZygsheEMtLKqQ3zWL2BCGCqZG/XEm4P8ElMEdXrz4qMieqqr6 hqurm3AMrlzZf27lyn1nly8/iXKJjuDNYVJaAaLF6I/HK8AXEwGdNbVF0hRQ PPivaHIKYF2PU4AZ8plGtyXJmTY5hgi9k+R/brtIgOSw1v0/BP6Gj31QN483 vXS0E495PdxWg198wCX01SwsmQgYrsddXVtC1xiufFMSwl77pbEbi8zxtfnK N+Xh9c4Ba0aJyCrfuEz5xmOSibTNfrOjBHE//o3YH7+XG6VQ6JGFHF8bferk ByO1YJUsd+FgPOChgPGq0/wino+tD6759+G5ccb46Ymd0iZSjAlL6u9TMXzG 2dLomZysYmBwrvLT14qhjzObN2OyLtV/TOUQl+HsDfb07NXbln5VW/s0VENP Qppt9qV9OpSQgkzTLvIqQh5pSfU+oYHe3GyhZQRmxkJKXKkiQjdIQUg/UlJF aE6JVpE0k2N4jIrMULPLzQZzWY93yMpeqAgNt5IjrtD+s2+0t/cbIu/a/28t LbtV7R3qEVEU56xIjc7jqxwUjCL1+A8H6cX1lF74g5WVPcNf/eqzdNx772Ho x5s1Ncfcs6tXi+8DSYnaRaT7wk/V1x+CRT0NHL9cvh2WQ6XSEqsBXGnJFxgt 8cJsIhu57BVTD9KT05fZ70Ff8FSfyNUXXNytHt1sMveZUpNfoL6UGOusSl+0 xrDTc+OHpQTt5qZ/vnVbblLKBAoTvZ5emICVQaAwZlrhhkuuIjR7VkSCz+h0 Qpssh33mkUqQmQjoHnWu2lRSYLWp3MhCImsSVrXJYapNKUbAvFjBcbTg4PKE HyzmSkcGCA2ZKyt3unObN/9U+/LLeeLi3Nr68Hhn5w5ASGYVCT+6h1S3QSaZ vz8Zrzy5W6TUoBRl0cYqjxssLnix2uKZ2pK3LJVHYLg0pRDXnkhK8qpsgMfZ 01Wr4BBCk0iTwDgQGAjLgNHwPMsUlk/ECguzujsqIWHuiUXJSk/UVesN2DGt vF39QFSM/ATrD8UkJC6cd8aUZQIEpYjJSDgtmY6zFg8IR2/vbpKNlBSP0aqq x968776jZ5YsGThVW9vCiceNarur+FtHRO4xhGYLEo/rmOTjc6QbafyMy05X V7945p57fn725ptPnf3a1145O3fuz85WVv4oSfrhnV258jkUo6AcZ+64489O L10q8nSoxxW2cFCV8GMTCgcH/98qMSG4JxmBcbOBIAT/pQoUE7U16RXzejPi xSSaVj0pLzbb4vHh6pT3ajXoTEpMkuFSBS8hXINOHss3LR9G7sJKSO4Ilshu JyUh5nqFup4bbSkiFZHd7Ck9nFd7PEM+gikkZE1fGnpiap3A/7kiVElcEaqC SXbK4txwIkWoFFOEMlp2Iq3tQcsO6QI9IeWaQ8alEQ0Yb2x8JgO/K3EkkjjL vvYcMwG1spqbduVRAW7JYshMabjEQE9jnGjJIvmH1QhufZ3RiFT0dTqF3lZ8 JIVIiC8WVEOlHp2dJ4PUIyWVwSxQmcNXg+/2R+WXuGDzNTr9J1sh9KKGLxUC bpPa3k9og/QADxVi9cjChVWjCxYsSRSRPPhaHsYiMlHMpBwuIxNTVcqR2x4v Uw6hFaQXaTr72dbWB7PLlh0T8nP47Tvv3P/7O+988I2lSzc42KLqMRJyA509 9DSMiXwDRyAlpcwyx5VBHiL1xNF68hrtgpC6c6q19Tj0BdoiYkmcXa0xp9et exKJiC8H6B7BzfR/MSUu+TYGnUKkOEpd9JIVowZQl4D0XiJQkuB6DqMGfni9 36ojkaQzqy61eR6X7ncKzpfnagk+kt/KvRh/Woe8a05irHpYKm5p3JQYswoW XRXnJIYzdrPqVnkkhhv+wkkMM1Y4Z8PXeEfHdjlUgLKVrZFFEAcLH5Cewe7u byqTN8eUoGAqSm67p3RnNh5rGlMhK2FQzVXISpmkqDxemKwKmRSmlJkA4ZhQ lMrkY5rFMJ2wWRolR0fCU+UhrVF0iJduvLu7V9qzuWY0L701CxOposg6SiGq xK2jDONO34MqqRkE4rHS+WUo8LSON4PLkSE9UIxkKEU5ikM5ilIhnZtYCsTl JrMUnwpqiMoaBDLlJ6G0Bysnga2srzz/xLv5H/PnrxtevLg6kaSzA/0J6l20 auKPkbJYRS8uUeEUqEIpkBC+QIE8I2+xFSiVra9/mBTorrv2YdJv5u6714/N mVM9hEEwafjuJKVpAgx5zoufhlauXInjMzKZGcG3UymR+Dzg7ECNgupYkVSl 183q2Iy4fIeUqlT+VisS/i8STzmdF5Mc+9V0Xk9KErPqYg9bVHpkbdOy9Mg/ aehCVukINCXNyBCXvOjNYcz1BszrfZx5dnJmdM6u3Lb3LSvg+/9IWckznSbO LzS4P4/pylXuOxgyBnnRXVdu2FyFLQc4YBUnbX6c3+za9bPBHTseeePgwYO6 BGaVp6SoeDq1CbZd4AtSwZTCygoshZUyjyWVxTNLYWSJRa2cqqVFcNtUEE5A Koys5qIQTD1tUmU10mY/ohiZ7u5+oRp9eoxYVDZolYZbTCliFlNKmYTAK3Dh 5D1JBL9ZN04x9LpRPsUwJQ8HpZdaMdJSMU7t2fNw3pzFHZCTYPNJhL20Ltdw bYmgnQmelIhLTU09gUSYQ0PF2/f26tXtIlC4887GhD84f/4qiIU+kLaM3Xff QketjhgZS4ITDy59cRjxmMKsmLg4l5BaFJNSzJv3EM2EF0qRnTNnRUYc4/Pm VcK+Uw8QKI6bHeBDOq6T0jGIhlktHR4jHSlmYaUib0IzE79NS12gZZOILlj9 tB9RdFfkpcuULqjJ7bMmAr8SiJM515vJ3IFKYGrNO4hU4mhZ52leEVpxaYrZ XZbOKwGGMZvGv/hS4syucVhykGQKWUo2rMIT3ZbbBlGoX7TiP2ZLRjYle+ag GhxY+BCRk8C+uPeense0WQ/2G2kLIATD4kNDIsANbjR29WohCP5Wc3BZOVP0 KosrepUzKcwUY8pAbpUrOUj8/XfxUgL4hP4ksxNtWnwGMdTc/INAD/TweTOD EFrggCYkBH162IC54yD4y+Sqh2dKHY4hWjZlVjo4WaAaE2fxGa8DbKELr0y0 IGX1+sZqQhIXqfLXRfMWSgk4Y59ACUpU7rBjx5EzW7YcMxbOY6tXs3T+cK0t DPl7ruhUYQvD2YULF4q/Va5srFy5JmckhfjkZ3p6+sR7LuIiEgbnzXvuqdPi IJIzK58gHSjOowZmKsGpQTmjBsnYVMKlVGLRosNaHJJQB/G0hTZkRDYxhk0g DmPyXMSIRVkgFjPCRZNALFKhWARNvq4Ui3f27Xvo1PbtD5BYlObNM65UOYX4 EERzCq7MFe2P+nD4fgfBvCUfXm0iN62QkyldRgpUEjF7IslQ6YzVCXAy9yni 95vkVa1eLZdZ/kgzvbrG+nY0FShUS5hwvkAtiehQilkUIcnwmFUQbrtzOshu et7t6dlB6iE1xNF7Va2FeVNAuAllKWOR28qdKpjiVFmBxaliRqnk/blmcQrh uqxFkXPmBXEFePuQ2zM20HIKIicle1gj1wqC43xr658mkuMNDS+6hl8+ZKOz c6dQjS0uSYeHTCK6PKx27HmmEOodHxN5xEWXSbhlCq7VylQK/MztzTOFJt+K RkECwjjD8X5DWAfRi+RlcpEc6QSERKcU1GnFOYBdwwhH1LstGFUVqseMUD2e EiilnRxJueH53UWLerT7OSKAJGQjxSiGqkANLV684ry45Qh5QDOKUcLkD0lG MUqZ5Q+tGGrB3FCMInG9I1R4UqlEdu7cKnGvWK9fBMkYh5eRX6BkXBZIRpGU jCGhW4FkpOns6sWSwQceOHBh796Hk/CCo3DjyJmurkdO9/UdEOlgvhTjWqUa 4lNQiGpEF0dINWi7ha0VZu0IxyuBViS830Z+R7SXHwfH1BgtF1aK8hFbLujT 9UyuXOCj1hQvF5YTXJpZLZ9hUFdLgyPPTL+uXTlKMnjX+7TRMlSANFiP4TEt V0lmMcOPrWL5AK7ehCGykp0wIvrV449/O80IxEym9GN6cEaLa+beDm7ewJQC S07FzONW2N1XBGO1rUJPixkhRZGGzzCGC7bvSaHz0AqgBYLWaJqavpfQbbtC KoJ0Q11G6YbUi/6EL3MNzUg0qmqhMPUvEIrQhI5cpf14PWAWIyajB9aaRx49 GGZ6uayNhxNZz70mXtJACqbS2a2eO/eX4ouarVX5gpEqTNwCRSc5d8o3YX9h zpymsfp6qhUR4BPOW4sXt4LyRHrJe9fk/YUlS6qcdwjRQ+LLG5SMihTygXd4 DpnIN5MEDvkldHZN5GOlu0TlBAsXPhLQ/d57l7pywLzKB+TgF58ZPskVkK7D 2QXgxVMVb8m4nQ5UjO/e/dD4wMDDmZ07HxnbtevwCGw+cWzd+tiba9e+gE6p sw0N3zrd1nZMpwhmahBmBh+JX23gqkpW9UalBdYGjyss1EdxPhCinqkkXR7P eatrN/K4VJd8Vj4ga7DREA97a4GBg30qLOtEgf1+BMC6XqECYNhDB8sOEuw+ Zx96TnxJi8xylVnv0QOKzXIVR/zpTKTuMzUll3mMUqamNCWuplTK5B5T5R1o vJvmGxzi4d38rvjp/0F94yp7lx76ZIH3sY0bX1RDe/U4Rgvn4sXdA28f2rU9 Ic5jdkejeffo0aMTxf3MioJ7cXvoEToB50dMtw9uQcBl0C2foqt7djXrPebm +ZyShNhFyG9PgzEC/QKxPyvE/kviCzg8f/7qMcxmFLTH8kBpGNK/IUhJZHcl 33U4H8v3Ujr7ZkhPh2J7SaT2I6L3RDEx3aE6z513tiBaT6Qk0BGpRyd5TQj0 D+OcwgAvcQe7dz+Y2bHjEA7xIRTnJDiecEc3b35iZMOGP9EET56rqhLprZCB 5sE1a9ZThH49E6d/nKnu+BOvDBA3Z9mXES8Vw8lLgxw01Da8WTnEjnTAFjMA TzK9TDMLBP0seQe5G7afyUP7OnXn5q4Kh1lLKIqnvbVgy1WC3Fja+9GWVGZq jC4M5fOItopH+TyiubVts4ikWergXMoQnttG7TFFH9qSWM4UfaYUWPRJM1Ii O5xSlIMYHUgM3T1Nd1SBcB2qzMgBNa7edgfCo8sopQDf3r4fWJelHbU2oK0z t2z5ifYoLdj4Loknz7nKpcLFgJxdcrG2Svm6ZGOYra9nFG4KdbfDduC8zJZZ +kR2dJHCvurzqP7Up576r/fcs40K9mUyHD89d+6qV8W36zXBWDDbC3GtQ/K8 uDbCcRPXxQaudZGlSOF6zpwtuqiicS3i74UBrkuYAguH6w/RGb5G62noInFb nQcG9mcFs3GIJynP7e2PZWtrn8muWHEiI9KA0UWLjoxWVXUmR1esaEwOibjz E0HAff17L8Xjpb9Ovt7WfgaT1/wmtQGTqj5zvTw0n/B6lzHXc8KO0+C6H8r9 i/D0n5cXR8031st7tbqCHKagX4wz17gzOW7nuJOaxv4ctK2K/ySgTb6jnPtT iqmZOCqCPnLkSBCllzAMr2DqI+ZM3ui2cvMxipm6zNQC6zJp5nGnq15WgSWN 8VHx10ZidFoPdhmVkIvY7utHjvwJaK4PHbJjbEFLyxEjZHdNokMIXBvqeCJ5 /fVMqLPmFznleTMAj3FVytlKna8gM3noF+qzh/ciL/RVzj2JNlC9WzohrZle vv76byeKZXQO4p+6776qV2l5V541/Qn+XliRCSL2NCMBZXT2rIhd4T+RVvyv qVkbKbI72ZaWXlCfyF+Ec0UI/GDEIgf8axTwW1tbA+AncS4iwnsB4VHkEQdG oIhP4/Ll4nUar66uHRPR5hjtVxiTvaKC+UPqSLg4z2QC9xsm1eqZ06YvgWrP TnlvWlCbw/iy4F3OgX+teQeXMw/EbY6TCWHOGsELPPzXTQb+kX6gyMAsk7eo sES1gFnNdc1gOnRtCgo+sRuq8wwXMAstwdOinEAt2I6q1kxJT6Y6U8Zwv5wJ qV0mdtf6ZFZnipnqjOI+atl2KF/MJAlqd8Jb4klqyAfTFcXP+PeQXCDI3eZ2 hbGiKq4DD6WgOiMXaOV849bWB6k3pLNzC00HVshHlUbjHiu9ka0BNPSlnPHi o5yBq3Uo1KP6Etezo3o2g34ffbn2oJ6w7B5P+ZyZkVR+50Z2TYB66h+MQ71u 1Cu8nfPzwZebMH/q1luFzoWoB+AJ8ql41FvRfj7Um9G+Rn1KoX7BgnA91VOo 7+3dQ9vM5s9fmCiWoT5+hgcTMb+CqcyUMOS/SnZsZsR7qMmf3b37Acl9l7i/ atW3iPuLF+9zFfJXrKgLkD8NZ59I75wXjALoJeyDoP+PJldlt1YwFeWtnv73 RHkMd8lt0ik3iG3dSO2mnpUwXPo4sl/Nk/1FeXHUU2lNPNmtWnwBZEcrDFuL L5Ds4a6B90N2y48JwX4pkx94DH9VfG4t3ZYzjC9j0KvyAusxKH9QthfwRNLM s4a95KvP+IyYyAq8OyjO74o/a/DYsWPovEmGmNfDtsTLlpsfKMybz/1CZ+ej lxobX1It/d54c/NjAeblQLIdchS87MgpNlmv929rJwzsgbjQ1XXsYm/vN8on tt6bCP9ci38c/tkRBJFq/KiB9MCytVD853mecfg/g6JCHP6n2/gvoGlT+nTC TTm75brrfg4JOHP33esR4YtPZS7yfSa6TzHIL1eTX3R0r3DvKdrPm9ecbWzc q1ZVJe37+3dlt27dll23bkOiJKD9AtwFuncS00Pan89H+ytwTqpKzs6dB4JK TorODsX4y5c/Bt6LeFfAXgX5mepqEH8NEf8qFeQLiGHX9WBTU5N4G1paWnyM JbghrhyvZ9KaHVFTceJK3Fd/YNg3F1pZ7FtNNNJw297gxfVmyuu55gYvfLS+ k3sx/oTV9Ewmx3nteU1lbgPKGtaCqgVzXlbfXbMYNIH1HjciIQb17M0Z1Ftl nAoG9SVMOcVhyjhcqSjNlHFo8XYKw2WfeSDpx1qkUT8qYpWseGLZo0ePYjiu xfpSRj4uY+QjGe5r1r00mU2bjnpBlzdF9RTZJ3FOhjV6jXzV/p82twToMj/u DyPMxzo7d3Nt+xH805ruJPGvUX9eLnzn4t+Lq+RPgve0T4F7YoaPRbBZ2Al5 /4a4jEhfIXl/RA9fxH/TQt4X5GpHJzV9vVaQM4ju86Deiu7zoV5H9wr1LqG+ KDt79oBGPR06qAfq29s7jOAewxQWkmKoYxzAn8nU8znszzTq+SK4J9YXGcRH dL9s2WbxL8DeFbDfkKmpWYtjvKZmzRWS92A9mvNp2sxUOXPmjY6ODkCf5tG4 OH8kf9fkLFU3MzdWzNaKILdJ5MTSajXd2r6ltOCGiRgf01Op+rKsJhyH0RC5 KGTPwvmufJZRe4ga+XBmmw0OFGxEvJm72BrpXYxiPgjn4zEfrHoaxfoPkvH4 uYxZX3UZ/npMyWYaw/iiWEzaJZs0oyOK8a8fP37cZnykVE/RfTremchkvAg+ 6O8G63UjPRhfzlRtOMQb+kQ92NJ3Rm/v3Bbw3ZX1m6He3gc1xt/o6fm7c5s2 /eO/dXT8g9rkpb1TLTu7jo69411d20KT7EQ6zs5OYz5fP4tZzncmQ3m+ks/O ZZgk9Cc0LzKg/474IEehH3xdK2KhH9d383V5ixsFoY8o6mvivy5IDc4T61NM M6XPEH+K0T+v6zhJOTWMIntdy+nv3ylQv5165reJ61dXr7RL92GEj0NcT5yv YMr5HO+nK943N3cGEX5ardWuWHFCPJ1tIL34uUE88AasJbiA/Qw7sCfEf4QB vSPPr6GeE3F6sGo8jjyfrq8/eGb16mOYe5PwB3L3RZQzlCVCU2bwPlGvlwkm Qr0q+Fgtnt+TqDcFCb+v/uBQb9Xk/fguSl3rMFFvVn1wP1wvjMtUbqTfHdMm X8LUbjjY+0ztZjoDezkqwEfsqttTUP+gkrd4jBLcdVEYuAclmxkFlmxcBsil NuPHwXiHGO/h53OPPfYYeuCDekg5kx9clqfmZE1HA+h9Ijta/rdh4sNb3d2/ FFfeuPG1ZGhRioqPwXRPZAGPmUYOsCtNTOhQx1XEixiqG6Ubfblen+WoPmHl PsmE4dxz4aatJSdJeHzMxPN+jfq8GcLL5H+SznFz5FfbCutLJeTPMJC3Oirj IZ+isF7cC3XIL1iwJnvPPV2Cpw0W2Ovq6mniL5AuY3lfQX2hcSxA4f5KpmZf yuC9QuI9c/fdD2Q7Og4aeHdEGP8gYX3lyvUiqBFMdwB28fxralYHJftyJqD/ YlDAiYBdbpKSJD/V1rYHNKdpZkk6OzAj1fMjNd1rze3Sql5jVfWv+aDorhqC ahm615p0j7hq05OQng6eGS0EtaYYa4blPPnPzp07lyW/y1dOzM7HAuCvg/e4 MQpx84Pj4Y8nUc5kBg4TdqeY0H4mQ3u5CumiQK23n4J9Dm0rcrC2Od7U9MQY HDmL4kXFquDMjKvguLGGP0T+C6jWyLieziA//v3v4m8wbJ9z2/AjAmMIUTAm Uy4w53j9IPoXUX5u5E/FfFnHP9fX95yeVz7U2PgzqASif70BC6+RpxSCMYdT ChHjDOeZ+21xUBldD5KMKe0Xog9WaV9xGv1LnD7kbcjn9IHujzOKiwgCavus ICjPnUl08MwP1SAI+Tk1SDMhv8eoQYUaVQA1uO++VTQKs7W1PajigPDz5y80 Vmk1+GkRYCE1aYY99VcytXxOBUpVkL9gQRuUAEegAj09u6EA4L+QG60CpUx4 fwcT3idVkC/Icqa1tZUw7yrYz5//HT2RPZEeyA3lS0J9Nks4qpxv7ZW6/P2R f1Y8+Web5L/Mfmgivxd+aII8UX1oXjG7UGMs25bJp2X22ONAZT+PCvBNMAbi g8p+qkApiJl4MJHpW65dNenBFOYWnFcOlWGulENJTAEIvPll4OvqLaW6XO0Y PYxyy/oWtjNHZxcmiGfGlXn8eM8GCMGQLQSeFgIIBJWQgRLOWbOMqf/MYNIN WffyTNuGMfkC9ks18GT5B/jHwHRtYuS8U1//j+J59/T8nSZ/wpvQ5a03zuVN SQB1Lk1CAvDyRCUAlwUS4Iflfc9keVDB4Ur/nB5w8244Y4YI9lHiZ7FfFH6D C+zmWSJvgUpPbQHYt5IADvtTVJ/+bbfdn73ppoey8+atE9F4J1VyBNVpmdZX lAfzDaeDa5i6PYf4ImWntnRpnUZ8prJyv68oPzDwoBCYTqJ8ms6OLtkT6dNM mH+f5P2FVat2DC9ceBhHwqWzc/Hzn//p//7pT/+vRPXUQBDIB6+53Lma04ep l0xV+Ey51/tku9riOmCy3XBxttkul499c/nYXOX37E8FSc8z8i+JuugslU/J 7M7Re6YS5cxKrZOnx93ktQ7xJ+C63iv1wXE9sieAi/iTTCieZuo7V4QR//C2 bQcGt207oYew6NrO6MaN3wmsycyeFmAQD5MKQ/yg1nNZgbWeZPxOXAb0DkD/ rgK9rt1w9zdhj/+M+P1hVi1Ier+5sKDXCwFIA2T0j0rXNjTpU6N+f/+PIQH/ 1tb291ABZANvdHf/LS6Dy5van2u6u+0M3N3kgK2cES6OsVU3yv/SuMJ/Ehf5 TOO+H1vu/0BEYEJ7t4gI4GBFIGWLQAE9PSvkLaxKUAkjAkVM7O/GLvB6JAI3 3PA0GaLV1jaL4HuDuHTJklVefNSvVQGTlmnC8kLaXTs/yASuZsr9nEykpEyM z5u3NZCJ9esfclQP565dD9Gq7549e7OrVq0pCpUi6OhxmcxgEZ2Lh2pqDmIw JjRiZMGCw6Pz5x8Sz+thoWUHM7fd9tTbN974c5R/VDIwK1cw7KKLUgtrB1eh asH1ac5Sj8FIhdXYI02UfBP5ulLIqAR9bJ4PVcLcZrtYXhxViSnvTSCsBYAU s9YbEQizUG/Vj8ieTanDMO406kYzkdUzxf9cuV/31pgFIBn/p+GnhlYVLQlR rwHXjvkNk0MP8b+544yMmbki0OVxRaAkUwRyC5QEl5Eip8CqkNFRGlSFDFOI cHmAzlC+/vGurh5dERrFON8klCDh6YqQ1gPogB6bcHHTph9oG56Ea3g2KNs2 taUXnm29OZ5tkxUEo98nr2unH7tmwK/wFtoaxK0TxEuDa0oD1gqmMOpgJPmT cVtbJW9mrQhPIBFBnpBPIubMaRQ/9ZKnQlXVQ+LYIT6ZK1Y0iie1YkWTQHND ds2aevGvdevq1Aav5curcVArZnUSeiLuaP78SkgGHUIuMhCJJPqBrmHWD8ri /JnFO2mmFXotQYhFEmohnsDu3XuzfX390IxEUVBKWjO+atUqvZKgU4ulMqsY bGjoG62sPDa6dOmj4tMpFEJ8Yu+66xg0giZdchUjtTyg6zMUxkfabugySySY 1CBWISiZUOMvZ5m/MFqCA19PTgdekh8n1m5hQa4YwEGNE4Nk2L+vBYE1K/MY uHPCwPl2cvsBkgV683A6cXVuPylKHbTIeg2eu2SVe66394fQAPx/xNivamQB 0vWcKyi5THh+OROeE4tdJh5P2tCnvp4I9AfjlhgKLf5MY/IP0/tNQ7+IzqmL W7bs0AE/6j5kPnr48M9Ofetbf5qQIwxcmHLqvtDQmtO2WZOMd+HLqXkZuPqr Tb4KjbBALmVKPTLUf+PBBx/ME+ozNf4PhOfWOkGBPEepn+O5E35dC2zu2RCi vLYAlFvtnPEoT2WxTXbjxm+QRz4O4HzdOpCyPlGs8C1QDriL39cLPlVW1onb LVu2VlwXU5BrMgLB4+IYE1AexaMnL5Gnz3BlZeWQ+EkflzOrARzTk9TZLxcB BHj7M5WVjRT1y2MfbexqaNhoZgDr1q0fr6+vJ3ZLgrvnm5qahhobG0caGhrG ly/fn8wsXXpUXHXx4iMU8Euky/MNN/wIUMdygAT7FMnCaPumaqyxWvltmNfm wDxCauXFMIu5Xi7q+furZchvPlO9C8Ei/w/lXxSl/r1SEGYnpNHfmT/6oxdO z559mOpEUxiHZYP8UZtKyxzfZdYC0gz5ZzC1pUk6sFn3d43ROhqlfKRvX8b9 KWBMx604Bru6viti3MOZ5uZvqzq2I34+HsBfrYzqoN/a5mvG4FfE4tiaEI+f HYb6Trjei38PKfKnGYVxGYXhCkCcQVCKKQClZcxPTm1GxC0efuBXTzzxdPLV 733vewkPOhC8aIL/VPjXe8EMz01tzpZIhcZsuCvDmM2iP6A6efqnwvK+ayJ9 JH9T/4SVfbcw0qO6L0mfskifkBXcAimvzGyt9dxihvLFTMDuxG7JTQeGaCLd okOZo4nL7882N3enCfSp7MqVG6mZUiCeDgPyIpqk+gyBvrq6+pI4hjFVq6am 5oL4/6D4v1BUEVCnhui5jQilCso/RcwqgUS/q9E/vmRJA0ifzEBmPEH01gD2 OFavXiOeoaZ9c2bDhg7x4eoVEKAMCHPLwH1i/wIZw2sFGKORlDi7SgMWLDgU aECSzi4KQHqY/cvXXfcvatVgNhPfW82df1hJmG1ej1yRuZ1eUgO86CBh4v6P be5rJbuHLi6apfYsDKjj1Ic//HdnP/nJvxy87roXh6+99tkLn/vcZnYd+D3o QMB3TgfyuHN+YNrAuXNW0JpxHjMd8w+8SlaKTPDhuNjc/P1Mff3z2c7OQ1AN Cn49pRWbN28XR/94Z2cP7t9l4vYrw6pQ2uS1rgaZsuCEuQAKQkPy78oVH6/A AlAFUwBKMwWgtJoHk7spy6XcQigCDoipqvloSTBrPoEstLfv13KgTX/++ZFH XtRyoD03tRyUMWWepBQB6MFrTz/9dKx1Typ2BeB/hk7gkDrhQSeiFm1RfYjU /PWAPbOgk0cfrCyA0wftlyxgblvf6926SiBIH1w6+5QKSIVYr9RhlbisuogE Iq0FYjRGJCqgEeKpYSqjSgyECASSEVR7yumcHr3zzu1jCxe2QBXoaGnZTHoA SROaQMWlJBTBJTnwxpuaNkMS9CEy01a9VKzTARIET8rCeE3NNqiCUgacPVMf 6LjrrmMi00XZx9H9oSQP7kDu0rLaAWCtFBjeTIFw2CIxm4F/LSMS3PVyRSKy Hcyc7mXNcfxzKQ5Ra4c7g8eipGDA2OQGgXjzYx/7CcRBpHg4O0Of+MRDgzff XB1rvZy0Nw1MJBbWOkIRA3zya0gCzdzqwQft4F9hbyWg4n4Zs6x8VVhESr3Z 3f2LkY0bv5Opq/sTOgx5UB706Jw/aq4rY42VttKq2cOw8DdrQha3r4wrKqmV BHj5BBvDONHgTPy9AgtIhmhEW1atAlJKTSTOraZInVOigQMFJbx077S1/djw /RTf5m9FfD9zXOJUs665PjAZzVBLA4O4mTYCSsdrhrnii5+5fV9egasCnI+Q YQKhdUNchrOjPYFIPkqC+Y97fiGebAHNot3yW20tGBcx4lHCJBdJRjyK1Y5g wfPARL+vb2dK+bgZ0kELAgLeSjJWC8lYmYRmlJBmeEEFSeiF1o5EEuqRcKAf F9SRuEyKxxurV6/GhHmaNZ/EOYV5v0lpCjd0ww1Hhz/zmadH7rhj++jChasy In3J9vdvgVxka2s36PQhRYLhwJtai4XOJs6b2cRdTDZRhLPPVJQom3AhFSqB mJWbQOS0lF4uIS3+pUSB7Jq4BQCpArz/j84CErLz6BV1/DZ8YGapgZsG8NNc VUBq8XX90FEZSOOcev/ctygey30Zk+vpWfks/HOXGLhdBJGNyvSvqUb1SpX3 NfKtEpJMCDwsHQNeoP7wxo0viQ/H8yLkFdwX6N28+WFQX00fCZvq9bR5SXwP k+YxsEW3clJ15Op4IP/6qaee+t2JEydiAc8ZPPsFFooqmEKRAvwwZNBeFnbM QpFul6fHVXBPyIqR82ZPz18N6z3BvrFEoAnPmMKhFZcIn2SCbq4f1GA87YyT c/ZytwSkY5cLLKtOw1P/D8J43RSkGK+Nf4juRSHjz4jfvrV58+YJmoK2yK+z lSCkGdeHUqYzlGO8HuCuC0hyoK7MDVau3J1dtKiRqkNY/a0uB82TALkDiidc nQPoPCAJiM8MGf7a+vXrieFpOvunli27/+z11/8VHbfe+uLZOXOOvDV//p7k aG/vgD9aV/dwUjJ7vLGxO2C2w1SAvs4E/KUq4F++fH8Q8Lsq4IcR6IIFD4h/ bctUVze/dc89z+iAX+8RGDAC/lm5AX9OL2mkWZ+W5y8z8J47PotqOqX8714J Cc/E9hPh3UpGfpb7fPFJ+pq86myjGqSD/pevuOLXuiIkaS848OlPb79w880r CPsenV1zjRiQ9oFHfzJwp+59ru4T7wTnWSu6dt9pcB902bQwkI/usbXKPFfL sYpU19606Ycg+mh9/Qu+AfT29gcpXPflYHfM99WD3QHNa0EeVevHuiF8kof3 7duXPXjwYNJmNbXwTGEqOKkCKzjKOfTUs88+G1RwimNbeFhWmxUczerXhL7A kM0Ys+Kr5dztmteZri78f4vD+7vhiektdIMirh9qb39GXOeBsg+Y2nICYqxf Q6GdOAWvBHPc1gY+cgnA5vbbKEHk5/aOkNu1+bhdJh05zWZOHOMU+CpWt7b2 ROyUU+Izuy+7YEFzdunSGjoqK1eKgHwlqJ2YlpW7r4wAPJEP4DMkwBGABwBP SYCfvuuuR8/ccstLGuBvLl9O06z84Q0bnk84F3p7HxN51mGaeuvL2bdvY5lc b9eiTbs32/E2+J2oYIo1ckE3lVm27OGM0CIR1ndnVq1qET83Z2pq1r+9ePED CZcp2hh2PQHDKxhOTghw3EX+yr4atT6LuV6teb2pBd6fCv+j4kAhPof6v8hF PaL6r9Kl8mV4fMqU33FsH/7c5zqGvvCFurxsjxTskwy4iz9A1LtR1HOmn9OM lQRNea5cIynvaMLjSEjEu5mNG58UMfsj2d7eLQJtfZ6kPIoymvLofL+WiaZT IfT1kFv4rUmbTbLmMcE/lSnCpAoswnCO0WQammaqLsYcWw70uHs4b1pBOXoz 5d4vWXbp7t6Gn7Slm9waV4RtXxr4gPxIc/P3xxobv5PBJulNm7413tb2iIrT U2YtBoemPcr9LO2L4s16cucb/oFB7+BskP234lUmsisrtnebm5v/qbOzM9eK ba/6dpurupzRsoK7GZQHcE8ruFdVNQdwTxkGyqtW1QPs4l84u+LaK7KLFy8T /6oSsK9SjDcLLSIgINKbhfoEAV58KWpqakB5Iv0Upugiee8iYAfzz95448vn Fi58wZGcH2pp+TZYT4Qvlpyn4pU2YijHuQiw/zBgnwTnZxLiKSAnpFdX78us XdvnZmprN4tnvnLlRkH3dW+vWCHebqK6Z1J9QC1k6hjZ6sGMFDlo0V2R/EZC IVNpUY4KJpJt1HI3yjNe6xXzepEnScW7n0tWRzfo3iafxyzj78TxdEnJvySK CdeexrU+Bm+//W7xcc3BNmomk8S2BeGIa3PO0KoPyI9fARyFlijAmdVYT1eS LmzefDRSfEkRyFta9ot4fSdWYcHxrAxa4WNGVEfhZbCn5yiIjkj1Gibu9vKM KhQx9iWBdIrjpzM1l3Rcz3850/NfwlTR3TBwDzxr1D5Ws8iCAywXbyc9FnZX wVLTMmDTXBdBvCqnY6Tktos9PQfBdO3jBjcHDXbs6QXUoYqw9Ectq7Nz93h3 93bxEFtTPNpRXqfuJvH/Dxzt5LrDDc2aFMsjBfVkfrSj+IJgHq6cIdoflF9k q97Cob1cjjk043ZgPaWoPn/+QI4tPmzVNm/uVDyXbNdUF4fgCs4OEX7ZsmUE +KkM5lMS9hOsx3J0B9kHv/KVvxFX/yHC9nKQ/CMBukuYOP0KFafX1raC28Ru j87geIMmOIx2ZGjumuUVHDNyMYifZ0yAcG7bVB4aM+0z7L6r2bmSwG7lrTWv J/1arSo/ZOgvecBLo1a/1ngNEJOf/dSnfjE4a9Z3UsT41PCHP3zc4vwXv7hq +JZb5g99+cv3iI94DutBxTyst3j9fljvxS62FurcPNV+JNpQNiVoyk94r6MX RN31YF/fN7CsKj7i4Ltn8R1HR8f9qqDuC8736iI7DtRowHnlZabN583VVCvm jh9P6+rRV5i7DSxPZ8o3RXELtBF54IYClDDlG5cp3ygVMMs3URXA9UkJWlsP qYVnN9PYeNI05ZGNOGkIIDbwAv44IASmAHgZ6ezQ3n4AAqAPCIEKtj0aRB5R Abm3LY8EcKY8Gvf5JaCA8vvkFMHX5XeowGnxAkIJQH/VlmMKgRYMy5o/VIYD EhbWaqsfrwxm0A9l8JQyzJ3bFFjoO8pIX3orbydXnqqqak4cXJylWaczLs7j lZWVoUJQjb4IuiAXWd2RiChMYUo8Ps4VMpinhFUH8zdKu0zMwXpHXGVI3CDh 09kZqaurgyKQKkxTfZh1dY2BNrhKIdavb8ls2LBRBPwbtD6oKN9BM+aAju4j TSy0XDnDvoyCaVsaZjPEtuJxvb8uIQN883r4d6AC6qFqmfvD9Wbp66XileK3 5uNOz1UKKNsvci+GUvyxujiiFA6kQoDqwx9+CVqhSjiyPweqYSiGO3zrrfNk RcdcqCW6K7XQC6vvQS1cs74Cjhvbugrwhgua9u1Bu5Zg4FdTGWmawhR4royV P3e8sfFxastR+uFCPGhdtj9Yl03K9EDEYD3iJ/z9W0FIMoqQOYJvwt3UCSkT fnTOrWbxdKbqU1Rg1aeUqfpQcuQzVR+lD9FeG0MffAzYwnPSh27Yx2sxQIZv W4PVWVkIcn7f1/c0terA9icJpUg42vrtfFvbywkpFL7OFIKjq2tXpqdni1wR 9czyv60V4hkLypi/IzfnkvcvF7l7ffMs43IZw1uoVkeWYrUonKbKX15ROCS5 YKULnChMsT0bqALkqKab+fNXkzeDdtuHGigLZlKEtWtrRT4QqMLixVWBKjhK G5YsqYQ06CM5Bmtn0olMVVUV6UQFk0kUxygGjnJGMRx5fq2jowOyQdJRLgVE JNr7AgH5rBQQjNfCUEWauDVNzt06X1tbCykxRMUzRQXH+Pr1bUpIfHFuJyHR x5o162H35ofrAMHbwhXMVSpgdfMrLflCfqbX6rtNhloyoPSErRXph4+5v+C6 eq9gQuoQ6ZbHZCdKS6KJ01/laglU81Z1bbP3/yMf+XuXtCQ1+NGPfk9rCR1a R4SGJHwSEefCvfcu1YsBImO0ajH6oHpO2R9KMBxTMOLMRKcyPUhTmGqSMgU6 dfLkycBGwgnlb7ytbQ+UguLfnbQBeGsgFbKShJXhvt/39580hp04aF+JpBnU MJ9noO4F2fNJNDHxjJ+nMQWm4rgCUylTYCpjCkxJpsCUlssGZoEJskFJkSvd ncc7OvZZ5m7Y4yU7eJzzvb2HtRGE+FvIIA5KEWiEr6pJZjLR1bUjCYGgnhnL mkea+7u6qKRXiB2m3b84f10p6vocN6Ql75JBvDt0yhQNHINoExXiMGKsAUMw kFiQYPh5BeNIKBi1BQoGsohx6bMv+zPvvLObCkx9fQMYyaLdnFFbWr58hbFq YIsFpRByvIuTEfcEkSCh0HIhUoq8clESkQuzk7M0rpFTTrePyoW1ePDJMN+A ZJBQfFTKxeCqVa3k8COORJLOqZHq6t7RNWsa9fH2mjV7IAlnv/KVX+gc48wd d/xZBMw5TZpqCo81ukVJwxcZlJN/J5HcZxKOy0Ko61tJqNMtUoxcxNTFfkkX 84YON+NXum9fwB1sJ75LyrtE+Q996DmiuyB7SoJ9+J57Vgx3de2ZEOzlDJmV TZDpDBFUdcxRL5OgO9YJ8tM9R0cI8FcxnaaOfddyIiSI7odLvINdXd8e7uh4 HnUPovhVqsNG3N1vn3jiiVG6i7ASNLo9HIQu56C72CalsQ2sTmUKRCUFFohK mAJRGVMgSjIFonTuDq2A4mFtiHAu3dg8cSdbMKLFNmsON+5qxzcNde349vuu rh8FUDcD/+7u7Y6E+nhPT4BQ4DmZC3X8PEmoI6TPC/WUsVhQIMU9TXFN79FN mzax9E7npfcx+S23akBeLL19vV2LOjDvu2+doHYtTPgdRexVq9YisidWJ4Oi T7WmtiQ2XRaE90R21IBMgLtxAKe6ULlcFga3NbXlsnAJMds1mQ1WU0noE0wI /0k6+8Nf/eqzw3PmPElcXrp0/+DKlf3nVq7c55xdvfqFhHN25crnUO6RqwGq 5bK+/hAmbBmozAGfapmxHG8Ujv+IwXExU/fn5uKWMhG4grW1c+qv83D3S8H9 BnF1Iq2KNJ/+9MnhW25ZRqTVvBWsfbOv72XClc/zliLcCXibY8uWh7fWBqfJ +jFX8I9pFmKsLvnLmcoStfwrmx44KegKfiLJxNeyop+iCn539zep1R6OzC0t P8T/yalZuuwUAdJnnn/++bcFQrNPPvkkZtxmVRMOQG3MMXdN/uHgunFKCqzL FDN1GXotVN3+orlxVmE5WpdRWDZjfvF+0TBEQrKuwxjtltp0DQjWpmv491vd 3b+gUk5Ly6OyHOMEoXZ39zZBdCAZxY9+qokwNRi9QUofNDa3NH8NJtpvVODI W5/z58Fl6m4GxcMFGFZrsuONjY2XmpqagGJU64vzkviE/EpahReOxBXSN5ko /PWvt2UXLVqe7ejYTIWVxsYmCpgrK1dy9PUC+gaFlYQKn8cXLw7p68eHz1YL ZiyHi1XsLHToPIICI0626vLXMXHyZ2Wc/K9Llz71mzvv/MnZm28+JTLVuXN/ 5hKNvbPLl5/ULgg4Ti9d+oyefVWLs/6PK55QhEzbmBSIFQgHTBCnGMBeE14v KL8XhcCepa93uQ1iqv6/Spfl+Buoh37185//0yDs9VXw+7nP/fDsl7+859zN N28f+spXVqt6xnBdXQ8wjN397xXDetCtPs7iXcljn5zPHZNrYw9N0CrsIni4 tYqrbVzOVMKVkb85IIsOOedDMri9/f4Igx10y1D/o3iltLujZvHrR4++oE2G KVh+7rnnwGHxpRAkFh/lgwcPBoNn0wzskmrwN4ikIcptYyqNq3gUMxWPKbyt vfSTz61y4CtEIJZjaNPi3AfLMjDXdL7Hni98VORr4GFrk3Y7IBO0pibxdyvy 6ngY5PVlMHypv3+rSV21idUsfAOyHG+L49lq1bdVLMt6n+nZJ0hdxKcpClZU KwBcdLWX5gXrt+T3zApx3RCswaZSGeK6F267bdfITTcdHJ07d5N4uCa4Qa7I R9PFiysjNJXla/FbQdVKkLWIAeoUph5RYdQjol0wvoxtz2Ov0N69e4fENwVs LWPKD1fTECkQVcEUAS/+qaYG0vlUa+vx09XVLyrA4uyd/drXXgFqz1ZW/ujM /PnfJ7b6kq03AiwRtlotjFPty6gZXV5PpvmJ9GxF1FcS4b5P/B8ErU0EhmKz 1NUoEk7KanL0qgTciBc+wfZveNiq+scR8XKcvuOOIwZs/bM33XQEsNXHm7fe umv4S19qliuR7mBDA8W++BLBOyTSskIMnBLP26gbMYWghfJWhcfc/v8JTSfL mKqy2tnK9S1a19MDp0zDYo+pSzhq8JUg8nhHx3bdw+iElQoN43O9vc8oI0Yg 6fVvfvN5TDJ57ZlnnqmIx7GeEYuahvjDiaZm4ULjmCoK0UZMs5JRVmAlo4ip ZEg6u2YlA49Xmlu4CMAcKVxIThPmLmzduhsGZXiByZ1SC5SAMxz91R5c2ssE KxoCtj4QHgtAp4jPsJ3+hm5PT8TAuYypSiTDRvtCgmGm1JyOutLg0gDULS0t qhfF5LRcnsxP6qdDUgchsMts/5cNKT5IPXTLLQdG5s/fm2ls3JxdvRoOkLVJ q9ukylhXtAsPnjoD4OK3GRyLFlWK/1eKtyyG2FSAmJanMcUhTnsj+LiITziO EfHngteJUgbWl9kxMFCtY2D8G5fTNYro7Gtk48DPwPir4uVPhVO/I5TOqUtE dhJRQUCBeq/9K4qZ/xd5L1EHlhtDor6qDkVUxySq+BfOHlH1lltah7/85fsA VmBVf/hBhIA9jtzaSF7nu3Z9UzN2CoNH1ftxTvz5UY9fq6Q6SY9fC7dq7/0g +ui0SyRn35IHt/RcInSyqg8zmeds7kkNysASt+Odnd066AVjHQBWubrgZbPk Ro2MAmj1als+0qIwwU7rSDFcowbuKUxJoqzAkkSaKUlQiSPJeHkV55YkDOBa UXqJitJVHo/HVG+GGxghCOAa3slk+4UgGAGwAqyIx/cO9vcfwwKpBizZfhUC 2CSeZ+xkcPkLP/iF+GsvYZW4o6NDhOVNEX5eoDZWpiG8KC9On5XfUGtlLg9O B+fMaR6ure3NrFz5zcyyZccE93Zkq6o6k2CqwGRl5RralFlZKbu5BRpFqozm DNDTATrFU160aGlQR4iFaKSOYODUi+IUHBWhBCbUOpqjRNE0U0+Ynjfwna7C X/GpCIZme7HYtHN4xUyrudtmprVT5m8lM816LG6iZm7caDDzVRWRqhUvm52e JKhm5+Ddd3coO+ti84uOQEI7/g22tPxouLHxu2NNTY+Pb9p0sDyemxM6I3Lc JGfEy5j4lYNiKfNArhE/W1DkarB+SOSAgnKcqS8u2zLU27tbb3f8ze7d3zfi cwt8csOiC/BhHDXgB+BF2IdfWbNONbp8BjEuUwhQO/VfP378uL2FhisEKPbh yjb7wtaH81JYdppmJXKGnmr8RqtyhHk6HFNzKegVx2dDG5sgoNRbKJuanqIO CdBOJf2jPT07wTzta6IHQalKK3W5lTMZfwHM41vY4Oo7LuLDjNF9AAQChRfI oUty73Xx6AVy74UwjAwSfieWe86IePTxjRv3g3mJJJ1RYejI1NU1Z9eu3SDC ynXJbE3NalUJEOxTbcs6zSf0JXFOiuBxaQWDvXIm259hRJGX6urqxsWfM47t t+JQxNNZvrkd3SLeFGZV6zNM9Hi5Yh9mTUfYxyX2VgA4xWafsV9Rsk95eZsj 4XTQGN3W/VklSWbQ6ODsMPRLKfrNnXt4uLX1R+Jj+ayOGPG51kquLwvIJz/c 2GPngIBRS4/3hELOJJazCJmugNVn+ANOkowTZuczmFqpz2TnEpSe6RmL4809 e/ANyqWkE4aHQCGQKL6RuYj0mehOIXIYjx9BpJWclzK10vICk/MUk5wrYlJF WrUVaGLqzJyI6TLha3HudDdqPZAvzeuHDz8XzNnTQ+KUT3hGDhna4qlesN7e +zU0cShogp8CYcfzQ1P+4bTFPbJUpREq3khq/TJLp8i2hfr1Xmpvb5fUhK1o ExLwC/ohEDmlGO+PdDjuISBoSM/vhlFjkIRz9KSt4Mkx8vYa6+zcjZ/oX2iQ 20cl5e5sXd0mIFQgQpwJogk/W11dQ6tUS5ZUC1wuFyFjFdgJl7roStSkUCqu t2HDBlivZsQhnof4YCcBU4eBaZLO7oW9ex8e3r370G+2bDl0uq/vQAmzIvUZ Jpa8Buc0A1DVBBXdL6EsV62uXcXQPfwt/l5ebCbvuNX1DEFdydEzN930Iq0c CYgmigie/tl5847SDqm+vv8MiJ7v63sOK7BuWHYaaWx8iWjpK2Y2Nj4+1tGx y1yM55hpMUl9aZCKs51MfyjPvFLmubjxabfF2+lMldNsSNAcTYVTdDRLZet9 iVqCUxD99cmTJ5E/R8GJcJPAyW24c8PYUsNJr6jjO55j9m2m2VMKTLMNYAf+ S9PC/iydZWtw6gzbBKdVdWXAicdTrzvtI9EWel4Yaiq3ji3ii0ktAgAo+EkM lV21JSZFcaBvwrTt0JYd4h3Zq1b6fTP31pEvcOoymywkSemZa4KiXqnizoxB UHYspsrBz4nLOJoysegPmVg0Geto6p1fs2aNBimO8b6+ndQJwQJVsHT16rrx qqqGS0uWrLm0dOnqsSVLVohjOShaOTMOnlTDnC6RmREvhZ5gIO4VZwf4BDxx JIigCULoyN69+9/du/dgwoVjUvJsQ8O3hMoJagbhqFtgOKoW/lG4LCAVz6lg lk1I0+gt/iH3YsS2n2Jo6kmanlq8eGsQiqZVKVPR1GyfFzHCX4hv0RNmKGph NS2xitb8yJ5kz8QgDloc8pjwzmFwOAFKdfhquocGFUzO/4JDqReXrHMlS6N8 yrEzuAOHiWnT8uFOvfDCC2eeffbZcydOnKBP5bFjIidjUFrCpOkuk6YrlF5k 5iZYiMyDUitrN2NffX9qsxzdTod2RtZOyDW2a1vPj0GpnDgmX3d100sdHYdz UAqDDLnfrWS8u3urRqlQ+CP4ZGK/m2mSoRGacNWSf2vrsfGenvsNz7pUFKX0 EqFXjxDH8FQl9ihWjItIdJTsFtQivYCpQPUmJPeXxB/pMTz1mZpmKi9PXw55 GkSnHE/leAF3WDypgKW9vXvShFKPUIrUvqam/lJlZd1wZeV68U1etmx1whup rFwlUFo9unTpCvH/ZSNyXtiSJUtmhDwV8ety4mkZE4xOZcjqKbJiivzOnQdo WHAyQyODx3btOjy6c+fh4c7OJwdra59XXadnmpsff72tbQDcTHDlzI/Fp/QT 9kEpgFo7BfIDNB1GqXpSECqef8Vz9RMMV1OSq6fvvbfrzB13bFPxaRxXU5B+ fHaFTj+OQxftRxsaRCQVMhWLzmPkTyzJZvIwzgVuUjidlAtcCZPX+/HxqMXA aUwBlOBdZIwBiECUeyAN0bfk+s7jjz8uotFHH310XHwEfydQCoByKzRcjuwz OXwxk8NXFJjDe0wOPy0MbfWidKI8zOEDfnLPr0gurZv81Hm8rn7q2+sQVg9+ xMA0tYVA7wkb7e6+H/wEO9W+YZf1mMCuY/G51fwkerqSocPGmpV+KnkZ6tsM zYSNTr4uhCJO1S5C+FM/GJb+mfqSmutDHEuLwjrp2NatOwihxTImvbh48TfO LVzYROj06ewOVVWtekew8MKyZctwJDFlkQAqXmCzyX9KuKk3MH/gkvtyO7mX JFVnDFwUFCWe+nSGE/SJ0fXrn/uPtWufSyTPVVWJ2IE6+1esaBmurm5KfJoJ SD/13uqjVPMkmFIR1EaoufoDbhojkoNhayrzoDV4/d9fhqg1mfoxhqnFKlat qmoGV40F95TJVKrmYx7qU0/9GP/Xsetgd/f3RDjyOJVMJVNd06wGTT1u4Vgt 1KUtB6tWubRQrKbiekmnMU+tKHY53Z6ppYZfYY9ttLahsfo2gnTCavJd9CV5 vxX5Pn5pFVMJsB6T3KeZ5D4dEjAg5VQmwuWSe5dJ7iNuPyZRgSFaczKIaiX3 MUSlNXTHDkvPU7lPRrBw7wnGKba1PZRU7gyGF7N2ZxA0exA1KOKr4c6gCRu4 M4gIFZwNju7uAcHYLQq0ZinVBK18pgxoHeV2D9B2dnYCttlwsT1jsDbq00MN qS7jucCVV/NDV/rdemZBAAeAG0zGXbNmDRJ/QmwRnf2h2tqHzs6Z0yu+1e04 3pw/v1mAt94j5jqDy5dXg7nv0HRaOnvisuWawUBwGMhWxIGXCgNlDG5VYSA7 MLA/B7ft7Y9la2ufEbc/IULahQsfEe/zsmWbM8uXb8QxsmrVOn9I/EniD1u7 di3YS/y9mglpP8uUBaj99HI+KC3lyWsv3XOTjCODx+kavwyxa3aUflTe3Opz KpPdThq5dDQ3/wQhK/Dq0FYZiVh8qAVST2a7uh5RpQDP8gNDB3tHR7+qblqc Ndww0aY/ac5OyiGNa2BKxaX/ketVMJVUM2LWxPWYSirtZBThvtEQRT0NObRN OMAt/o3LdWnCgi63YTXJZN2KwVh7jjLYYuvUAqsCbnxVQEe/FP5NCaPaqImb 9fxiGGyu6WsGa9ce1QmLlRiNYHILGpChbRoemm/09/+M7NPq6/9xqK7uVW13 cLGl5Ye+EdaKW+zM9PZuFRnzFhnWKpxqxMrwWtoJRJv3Ca+RBX1gFv++RP1r NlvPy+XVD4Kt0pTKM5euAramJVvfXbKkD0QlqqZUYbW3d89by5cTWxOePGu+ Aq84LlRVrRR8BiPB04Q3JMAJqoKnOEZpZHl8RGs1PBVL73qzQoCjiIjqBUQV LMWRqawUXxqwlO6mbmz16tU4EiV0dkYEXIfUIcLvXNQWMwHvjZOqwNo7S+UA ELvTf4YJYN8c1mSCN8JdCntfle8au091FgPfChXzHjhwkhwSySKczmka0abi XYBXb3fJNjd/GwD2FH83bnzaYPB2wd++BAKWHtrpGW4j5Va6zNWlCJAna1lJ 98SVZznLgeJ4Pk/YYFrBPGcKqbnyrARysHcWIEaEGwUxqgsE4kgrwRsHDx40 vcIGt2x50ASxlb6nmfICNz58WoHlBSe2vOCa+wHQxTnFaIPPVwEhFrtqF5bi H+Xz4v6SsVsSPBFd7o9Yz2g/Y+ya2Pbf+/peRBAsoEcuBf9fe/ufDm3a9EPl YCldCswAuKfnfpBqKwE58B2QLgUWnNUqnL2zKgbKiIERC0unAaN1K/ArcBgy p5lSg5+XzP85JLMZ+WJTq8gGicwX5s3bNNbYuFfGu4rM/f07366rk2QuorMD Mp8RoS0FuaUThbplDJG5mq20mmSi3JTB5FWrvkVMXrx4H4aQizeImDwmItyA yVfQ2dVMPr9+/XpYTjo0PMR5DfWFiCslU3PwrJpDgmy1At94q5BbYl9G0LRQ 7Jg7oaJxL11dNRpE2fuhePS+euLEiWBGgyvPwUqtmqksq2zpbHf3YeqrFuCl A3aGBnY9oq6rKakXrvz3Ddn3bNxVxDE6rtRQwUTn5sBXHfi6TAVXcpaaOH/3 2GOPxfK1jOGrXIZK6dFF6FPCMdTWdvJiV9ejI/TRYDpUfabQML3AQkMyttDg mveH31cAGn58ccFsBI026JuBLZ67aS+gLbwkR1EW3wa/ZG3jBZIivsXP58Xn ENYC0vElqQLbnp7tYChxNElnRwS5RNIhKmYwnBdcU4R9V1yNKGp4rVgUzTNJ 7w8AVbXVUa+FaZcAT/J0+Gtf2x1Euo469/UNZLZs2T7U3r4lUSIj3TOCp68K fuJ4TRxgq0hUJoh0S+K4SiWEVKSEsHPngUSRKhc0NHw7u3TpUUA0gY7ajUlJ UYHjhszKlevH0SR2pYxsRZJSdx59BFhXLJVm7ucEn4JpTB7OHzd6sRbfc88P apkxSrP0KKUpYZZvOp+r2dVWf7/NUR3t0tueZDj6X2yOahxfMzmO4ittclR2 HnqIXomjkp8yZPVlyCpyvi0X+vp2vic3LDcvLa3C7KRoqaCYr2owhanTmm4C EXhadVq5/OUCnnqGdPbAgQNJhp9TGX6q3Tzo0AwmA4kXPAmIirxbdS/RLvnW 1kNwnGJrBj5TM5heYM0gGVsz8MyQNqgdUP02KWd9xlYMomB9Q46NoI+ECVYc o0YAbloIqP4sqhgMC2ygagDCah8t/Pz7jo4/p4EdRjOBilK3i48lhalmfRZA 1XwXT0n3XqE/QLULUIkA7QJYsRdfas4ONxm8BFy9IM3UC/ID9O/kN1bXCzRA HbW9VASktLVUQRRlAgHPHcnM1q3iI/rWihWduhqrY9NTS5eu0SwVnzE6a6ZS pFoRctXVgarmanF8qGoVD1wF15aWjiBKTSu46qpBVVWzhKu4bMWKesHV2kxN zVrx1orzTFU2EAwCYAmr1+GcAk0vZwoDyl7ldH39QfgSnrr99r9IqOHRs80Z dWp4dLRMq6Zc6BoCVVxNuHI0/d/kXUV3nV5VIE09WRb45wMHXta7XhJpufAr QtKDGfQeAp4GQmFy9d/7+0++H0NBc91oUoaCRUx2X2QEwfmy+/Lwerr/Vm9H HTV8U0SOl1t9TYZBKDg6TkEQjf90odwapKeff/552fLlao6++dBDh2jyMdW5 XXJYUWHoGJUSw455EbaJ8GgHMOoxCb/PJPwzYhP+XDriyz3DXvEyCUtbNjVC SsPiI7W97ghHJ3GFCS6SC9aZxHugq7fWvgfFYsXUXs1RZPyJJHatGF2CukIl xx9pNxZFUuKopGkKxgHmKtepp59++nfi30bLVVBmRYyqWl3t7fsfNEBP0b+L ag14gp2DCxasRfg5umrVbqTwgprikyaxqdN5E5tmCCq+fYRNIPMNvaI1lc6u TvN1RMo1FfgMRUuZhD+pKHrvvduyHR0HDYp6WMnKLlu2GfzMVlfXZWtq1iWw eWGtQxDFjM/VQcI/hQlVbwxoWqzaYrfLPaen2tr2gKIuMBoZ3OyHQA2i1VI7 h6f1LEVTq/lV0XQ3H9yezmUpbn3F5FiKz/tgf/9+YmlKdXejiaat7RviE9uX lfFDEJaOiEwNxin4xEumcm1XpZN0DIxYUMXu5eeAWhy3nMXVR8uYblZJUE+X S0FNDFUbkbyk6+vZmf+CQPTKMPQc7ut7dHDbthMJJ2gb/t6IViZXvZrGxBsc Y3p3UTSNd5k0fmZsGu+Z8alO301isjEpQ0xiiUFMK7XPQ0zdRqqWjXKj11J5 D3g939y790H9huk9zQDlpcbGl/S+VTATASeCzRThEW/JXoGvb/762LFjvxXq 9DaV28KV/QCLpUahc8KRCkVMTu7lJaLs4vERUj6liDh0772NwwsXrh1rb+9V EET+HUCwWELw9KJFdQEEixkITs8TO6Ziqedq6mXuuecbOFQeLi7uF3BDC+xa 8dm14LYmZ4XJDBXvwNmV9cwzIlp/o7r6kXNLljyWUFCDa7Wee6mjxFozSoxA jQCWnhTUEAn+H/Li6Ix45YR6Iwc1THSIQE1Xskao2VF9vjZtOipy7D3iK7iD xLiPgkZKjiTabMBJ5w2V3RjJLHg0CSe+9+IMZeXdJap/dKL9o2VM3l3G5N0q XnwXDsM25TxQDvHiBdXFRGiWbtZkQULRoCKeTq5HKLcOXuLHguZL2SrkUYho eJ0Oya7G3Ax7ZmyG7ZoZNn4/k7m5Y4SW+stfYq9JD8r6bGzjAAcOemgNObWQ NGr8OVY9VvwWqYLeamwakihplX3+Ogj0ZEpNw407O7deam3dMtrY2KUAN9bc 3IzWJVpeL2dqkKkPhG2/kt84sK194cLqwXnzGkaqq9dx+TAxrYKB2Aw7ktML Nlwk5zBMK5ZMyy5duiF7990PZHBUVu5PqfS3r28nSEZM8wOmFTMR2jxZTBxs aOgTbD6MQ1B1wYJHhDLffvszwzfc8GMiV1rya5bJL7nmkpPlqolamlPG4C+N sOgtfp2LMIBvRh6ECRJEKoY+PnAaY9qkDFUrnYGBZh0du+gQnx2PgOZlOzt7 xPeuGyjDcb67+xDrx+TatDD97iyL5gL87qxq4iSpNuFuTo5q5fI5mUsx4+JR L5GnTBivaZLJuIqmrstXwtUcE6/riaAa68vWRkRn2j2fzWEvm3jRmhY+ZjK3 dZjcNQKpi8jVfSZ3TTGQUisOp5555hk9TZ3NXSOQev3RRx/VXZ+/2bnzp0Et xd4QL1s8e3u3qDUVpZRd2dbWdrVQ4r0rIrDfd3fv/Y/e3iMXurqOUU8lByvO ny5PcGalqwpgtTjnAkyFDPhK/+zznz/xfy1evB3paCkTgE1l2HWZEYANRQIw l4FVWsFq3rytgBUd69c/5BCs3OzOnQ9nsR1oz5692fb2zUVELQKWzi8THhN+ 3YOz946IadE6K+h/YdWqHcNLljw6PH++SF7p7Gh+mTHY7NwYLKdFnRhG5Tib XCaicL3/MxdoCOemTYpctMymv9MglyNdv6j0rqglggOc0Ue8BeCS8FIxGTzQ xCeN0CVtkYrgAGTiR5uEwBwE47dNfMUZgXyQXnIYDRsgqjQu/yxnHmiKfDhE X2CW+EO7s+K7mQW7kgy7fCbSkxOjUnhR8CLo49zmzT/FgpJ4AQ8ZEdnRICJz JeHGu7u36LFObM55+cRLx7G5phuXayZBBs5PJA/X8GhRrrGOcIpr0kVJveri dgCSYfSRMvarU+s62e11dJhAK0IA9nZ7+2O/6+v7rn5VNR9p5ait7RGZbnJV OPWqRQFn7ujJA7gY5yMVUCBaqTXGpiVfvuGG54oYys1kKHd5vgjNMyM0vbFc hFoSdwsXtgegw4G6mqbc7t0PoL1mLw0JWRNEaamQeoJ1lHiKvCM3XvuqjNfe 2bRpE9CHQ7xmODvvNDY2goREw2KcsePouPjwILATOFRIzAUjBXfK3cjqqlGh nNXgON0Eot0P+V95GlZMjoZm0xpoKMcyeOObN98fxG8yhhMfDSJgerSj4yHY Iukvtg7c8IUPC82+6YyEJhzt8FH6wRgiBXU42kLJ9SmWFpiZljAPpDJTWjLE NxrfiWSW6nDEQ7VqAQ4OmntpzD9A1uF8XU+idKu7+xdjeC3q619IAoRUg/MU /oxdK0hDXSaNvDz/Oq9e19Xss25LuyDLw8aQvDlnyjZ2M7EXOAcFzYtlcjeO 5pxONJMh6oKNO6qzIEAdJsu2t3dmm5t1c0sRFhRG2tvv//eOjh/pxnEzVx2T yxVSQBobTwqh2jmGCFDuC/e5BnZsPnIZ2hUz+Wj+UaX/LL9fsw3SqZYP//Gr rvovgN6pr371AXAPKwwg3zUM8K4Mw7qUGdZp1AWYc6m/BWQTP86dez/xDhsQ d+/ep9mGSRyKbwKIxDZxXnNJRXCJPy6QY9Pp7FFsJ2AWHDJPlSi77baTNsr4 GC+6GuBPCDeze1u9yjm7EcvfH9w8NTEeXzIDbJJrqfM9PY9Q2aij48803/51 x46/psEXTrh6Fti9eYzdGxeVKbqZpbf3ZffmM1FjeVyzYEl8v4um26iM7ije IrohY1X1t9IgOU14ZkR3rqPjz0cQuziYFy2o2NZ2HEALduOJyC4RbsfbmVGD erQPD9YnL/T37zLXg61c9AqcKxTazM7q6cyVvfjqmiadmbhaFTKfIZ0bv2WG M3MzwYfklWI8o/Ncb1MMqNXUdCTT0tIjqNeq1gs8UA8UBA3xeRzp7Dyi27TR WogX3ShmYtnmkDlFmggo+1d8M1jVFUL8n3MXmjwB/0V+Cc14Tze9zTaXEZO1 gl8fCtkXbBW8Km+wNyZupZ2DskuWNGQXLWoRn87KyjoR8q1bt4lSV300NGwE +WRA52bWrWvObNjQMdbS0jEqMv8bC+TetZJ7Q9XVD1ncE/ltwL277jrx9NSp Z03u1RbQheLZcKMWP5t71jLrf8vlHi6nO5/GgE5uQfHMnFbDTqCIElsK5VQi K3IMSmJh4E09rIalELA30tLypxJ08ZZCY9IA3NjE5zLBl8Ngx2EKchPwLdpu MuGmwGLmcYtC3L2rcedI3I2Lny/BDFY8C7xoXKeLjOMCD+/BTZt+OLxx40se gc8X39unCHyhQw5gt1V2C7sj3d27YRhM6xUCY1fHl+esxdZpTPLqM8lrhHJU 3+LKc3kod/ahhx7KuzGQoRx5oMt+oajTRbAZsKHhpDgOiBdos9krkm1paQPk 1Lg22pg9tHHjTwl1anomOv6ol1rW+4JQT8NOqAjOqBVsjey0fi/ws5Ld/PD7 1xB+QdijErcbBbRq1ZG4munDu5bO5dGGktFly6ozAnJAnDjWZ6uq1ogXaTMB bsuWrVmRogJyjorsVq+uywJ0DQ29JCjwPBWMECLTfkkc4vPZ+rECwfcJWcwb rK3t1NATqJNnVdwj/CUlBH957bX/FA3+ZuVC0N4JXTgBKQs+Q5fxG/NUv7TV OzIlnopm5hdQMS2pKM69QWnPl1Qc7eq6P6Ci6piARcD5rq7vwwxoIqO18Y6O /jijNR2sfRBGa1YgaVbx8vXrFTEBZzoWjD7AOCJ+olZYrMOq/j1uEUQuwbpI bjUckeT6BEhaUhRR5S6amCv3Bbt4pbWF+tkHHjhxNZPWlto2FmbsZ1GRDHrL bAxKEsQ7s3EYBCNs159StSEaj260MBtrqCnTlIIWemDxIHOc9gB6jY2bsps2 bSboSVmANG//t66unwN35/9/2t4ETM6rPBOtW/9SVb1qsbxhQIQ7cMPEEyfw xGPCDM6MgRAW55oJBJgYedHSi7qrd6m1tSXbWJYsy9jyBpa829gYzBK42cBJ SK6eCTfxMIxH2caajGM5jgJGS6ulVnff833nfOf/zvm/89ffBvw8Vba7q6q7 q/73Pe+3vmvX/h4NkQDp2XRgX9+dTOFBWnASdq2BOSWRnb/CjWrBPx2yO2pl nAKdSd8hr50nsNub8b595l3vuufMe997y5wKfOevumoVstnExEYMUg2TAX0t XHMNJDWvv34U12aPqtuYulSGsa1bHRgquBieWb16+ERPz/rK+SX57BJWnCA+ i/E+4Xk5uP3hL//yNyptU/kAtsslJWwKiV1ew15il8McI4a/LuCwusBhUv9b 1W0V4XHSLLPrIz5TAmZU3cY0k+l7sMHy+KwGzbN2am5k5CngNWwJzZbxRHxT xGIWnLENETY71xamsfxYhhS/SryVBnkr4rxlBScfgJNEo1F48DUgL7hBbKsJ LMZorb//pgVoN1RXslF22GFrOAzcvy/S6TWnRw1TXlLAWhMCVmM1wzkMtAzS WF3gLdNPdnRqaqowSG3INIZVVjb+dgzeNaji29W0iWKuPsVcQ+pCmPRNz4HB oLkYWItk2/Frr/1/f9zf/6x2EoN7rdOgdLZNUZddFwmW58ZnfFEU1i4Eq1Eh hf1Y0GbnC+x1Ed43jn3oQ+tn3vGOZ2YuueSRmX/3724//b73bZ39yEeGVLQ9 pn7xrQogO9X7oviqqu7UJ6Lux5VYG1SYGVSqFKgL/vAxcE2lm1K3zWOKxtpL sti7BRZLDJddeeWN6r82z3zqU+v+8Fd/9Z4wgeVa18xGGqfZzXDYVP4ZQHF/ q7/sz5alQQZLOYPBjbpETCqbe41W2nWlAYQYkBf59gFhmZAUx3tx24ICC/w7 yhaIzcNoWqa//O02W1XUO95iu83r2iLGlinY3NuSkrFpXfi5sUtlcwKVnYD/ Mz9XGm8TgtWE1jlC9Zn0mGKyjM/orWo2J6rGx3Z8fINdmlXNolc6QeDDkKLX dpdysIGORa92MKIuRK8C5bE6rMNiSZgBMeJrvdmm4TMgykgz1fBDkJkDA1Rn xckwEHIo6IaHJ3kq0/UbRyYk91vK2P2wt/c7mBFQN1vsJj2nyFAbjVfdRhQ2 Nxfzk+E11N2LZb5TIfF2jkB/OiVXO/He926ffte77rUUeMUVN5/+2Md2zm/d Cgu2rrnmIfWLr1r1sBJwT+Bt7dqH1HUDDjb6EUCRoPWvu27X6euvvy05umrV LnVEKap0Ge/XgeK0MqvN/NZv7VF8tgNswGY+85kmcNvMpz99HfCbVmi6wyPX D1LVROTskw0zGjz772RGi4OMlkiMRkP0Dp11ajqjLv1XpqZ2kp2R6Tqoke5y FsWYJTFK7ms3BM5jg4MboUtOcdlINU9lbGWBs721KqTZyu6F4TMJRTSjqazO qQxuQGNAV6cNlUlMVsvUX2FrnWEy/0fMXn/9Y1R0cJhMv2GbjSE3tMtNqLDT UhqEnOAHa7KddKxktQYv/NTGrzHnEeAPKS+He2c68lQGNykILaCyaZZj00Go 7iGp+dwFau3vFfxx5IBvBTCcRT9kTtddNrBViPWZsbGbQLHS9gL4Nx8LqwJr UdbNEBY6JRjnGaXexjlnFVOWE28WU9acpawVAkddYNauKIlmOerSS+8/22zu NtwUASepC+F+ZKMU7qvwjeTwxz72eXUFf/KTtzynxBfclAJX922HlO66DOVW jHKLUVE0c801CnEz117bP3P11WuAkeDWEBTXUjdkRCIy5OQ05rrk5JcK/l5/ 2R8+rZYnJ2wwCpNTzIfZ4WLHhLLZfA2NRNyoHeZdaI+KMbaK2R4VJKcYRxIg QhzhzIJ5rp98mYqb51oaElk6QEz5D6LCJnBOLFAQ6/iFZA7OEXQLgu287G+w Gwb134BEDIVfICKgoQTek0RbUC9AdzM0zasIEXCGsvUNmiRwkImPMNkwcakQ JjaEMLGh+YI2M/NQsZLFirUsIQY9HsFFU3U3OKQg0N+pD/9/StHKGZgutL1t dnofbuoT3H50fPxhKJfTxH5uvAAkELGJNv9D+eSrH9ulBr/666ISvIvc4A9U UGV5kFlSUD/AKmc/9KFn5j/5yS/O9fTcr67wuxtIJxEwyfTVVz+oycTc/9Zv 7Tv86U9vO6hCvMobkFii7/X09ACvwE0d+nCPC0dtfPdWk3W//vp+4BjkGc02 CbLNtdf24u13fmc1ME7FUM5KTjmm6ZXSTpiRQqbAPtpiovmf+OXE9wldBZyy 7KfILNmqC9oropVwaveK8N1Mik+yufgJyjOZEScH3jQRAJwhdZMlQn5paclm sDRLBQVY5BSxSJurn5D1ugWtdJ7AhDzjD10omGnD+whVnzFaxqawMRz9mjg+ NvYAr9fCe+srGCcwa2iy4XC3AdoSIUBrEwI0Qzb+us1gmTERumWZzftJI29E 1xST4wKKAarhM+bQxn8U1iXp/Yj5OVCdqo9Pbty49ZUbbriV2hFNwWaGrVax 5US49uBrEI3VMipCcXTTTTsrvHvNUJH6ePNRWLU1DzWsrlkmtIKdr9shjv/m bw6rE+POs2DIOTW1u25YZ2LiTmCeI5/4xAOGdeLDv/3bNwPrwO35a68d+0Ug nobANEtNY8O11w4Q0+BNsQwqG8VWwDBT3jT4Ks40mkvqPonAF3k31zJOOW6n 6mFNQzZ8W7169ZFrrrlmqbGRY1QDb3YqsEyHG1xxpqFUKgRURDN03CDPwJGj IKW+5izdKLe3SGq1WlZyNshU+mCV5Q/Bx0r3V+V5RFsgxbxpH14HqeQCIb7T 3BHzGXFYmY/0kWrWgGQaBDvHBga+dmx8XAc9FwpRTt0tsrFdku62jC4h7MG9 x954ECY0qi0Cnzw7ZN33tBoI/igIZTJfCtQhkKL5e9N/WjDTTT+B9lbY3g1z gZAcGRy8yZrBGTmiKHkHyBhcIGA4wEoRvC5eHwdQ6yLXItKsIs77KHZTf/zZ HTs+iyRAVDA4eA9QAZJA1QgQRgXqa+r+PwRVSHxs9eoezgGJoYBVq9b5FHA5 pwA9llNzyvoM/kgHMv7xof9L4//6nTt3Lijcww3w323wzwak4dw0+Idjysc/ X4Pl4x/XHXhLd+Z7e29fGB/fyBZExIR/mKHOnLtzFDAD11F4jlr0dMzHJpoC Ylor/uO7774bFtxEAgvoqUFnJRq8G1JYcm6whSA5ZurQlhiaTRWwC8JCZ0li zLiPjNxBbZ1VYAxJW7QJYIuEJRGkqXgU0y5EMfUQb3jpXBQK0gwOUxV+I7uj SKqMUJSqmAdVofMlKRHKCbNhAipi2sMx/zLt7q/AdkdGcBXZUXNiFliqAYHR 6Og4ZxYIB7VnH/JLBM+DfuITAwN7DbOkPMqBG1nmeoRyrhUVXn63IzgBDYcf 5nKRT2p4nwCr/OhTn9oPfILhjGKUSoJ8EoG4sBmT38D7hB5DrHPwwx++sxI/ e9llz2BHkN7vkvJcCG/9cWnC6X08bBjSJDmeX7VqlYpmFFFUoh+pe5v8aDe8 wTp+4FwyvEHDyJw3fDNqzhtUYD8zMLDH7mJYu/bz8/39t+Auhqqzi2Fcs4i7 iwE7xBe9i8HNbywPBiidcF3S47hDAawdXACiNdlWqINDwAKBC03y+fvBeJTi cBjzVrS5Dj526OxniCyjbPYYBZsOsCSu3hdqIwVSUZr67mCoUhMQZ9jFMVEs YBcnbClgF1onE8yIxGGycYagNdmknBGNFINicB/LyZ4xHEO1KYy6vLlBJ5rx yIY5MOBzKZyxlyuQjRke0pW7GBkHu4wo0Qt1epJAwDjq2F+9+gn1g3t6Pn9s eHgHG/5LJAby9cxFrp5BHuoMbtGC/umbPeZBPfPyxz/+ADBKpaYZ59DVV09a xnkf3CerUM+s5AM3nYJI0TtYUr91mrIjMvFgqvZF/FrCp0oKCajhEhAVuSUC 0kVucfudcxHrClHC1xzj6zSbN5iANbakBPmCZnMytrw0QSsVjJ1ADLPJdKLD OeMVvPk4ssRLjtg4J2vMQW7jBGQWR5/ZvXs3cU9lmaCPqiF9JKVGElaJ95ax gpqBUAfSIaRgINShNhwIeTTlYLc2RlK7du2CmzQ0nArBTywEPx1C8NNRknWi UCxUgmYwy6JpBnfO5unFKVPDyxsFhKcI/ZmSF027aelmPz3bluo6wLokszUr JGn37NrcyMjmH65f/02oJPFqEpJMAiRTncE92CfGxrZ4xoExj6KAZTyS+bmQ xmkITNOpmebERz4yQHVripym+/vvPvzxj9+GHFPXTAMpW8s079ZB0151v8rc 1M/Fr10C9/SPWYN3OScjqSJ0gaYUXrG2TTcuEzmNg/rlsWwNTwXegv/+r64y Mt2CSEIHFUlRUAUk1XDbobFcXSsmJr+9UCCmmC8Mhtep6rSvUtD3YRLNcJO0 N0HzVMxXvwA/IU71mpeEJodf3rbtjkKCkvYlrBDIpV3/JbRg9BguFHG3NENK RsniTbl9CdWSmeJzhNQMposalrLA8W1kXs/LbKwCQykgm2gLNCP83fgWVIGi pA1TBVkUx8vP/MHOvG+nEHbVQhQld9Eg67RmrJi/HjyHnk4thf7qeipSV90F CfxHS1Mp0uwdr6LDn+8t9Kd3zhyiWNIZHNxB3YzGglUx2cSJdeu+wWdQiMNQ JsVaLM309e0DMkNCQ1orx2NvF8SStG2vTaeCpz/4wU1AYXCD8nZq9NK2bbv/ pa9vB/JXQ4jQfsnqJW1d587oxVM2ubuSuOqNmnB4QwwQEacosyfZOtbhE8zL G55C7jKpevxv+uev4K6WMdWPDFOdUreay1RYYSpgKmcRe1U4kQ1T4QnPmMqs dwElhev1Qutd0my9y7+MjDyhg3S8byMtQZlEmui3Gw7WrbsXasFdJTcbcBt7 +osaGsbOann1b1gvD7zFd8tTiEbs5bBSVXhtKTl9jpBDSoVwT5MZRtAwrguj bMBjL+ze/ahuAkLqkhYnS8mYRIjp2oVTp1NYRFVAXS1juihIXXX+elSeAt6i EpS/KV7pL3hLYoG5GkIoJ7BU1jLj6TT9UKQoasJYt+4LUueh7sFOp/v6Hp2+ 9trvkPSCGA8uyhTYKtKqa0bH41tOjI/DOh1kKx7fCWx1sctWmKquC3O8Nd2Q Q4KLM5b6fS1lzd9ww2fnd+y4sdIuCK+3lxReb3GFF4qtt2RqiVRUtg+qsi37 Lm9qZsaclrqYQRGOp1nq8tpuUl0c95kMA8X4Z0Nn4gqDSOAvM9l7ZMOGL9MC A5pXI3nFOC3i21lMe49eZKBemc+ftVxkgMnohqu3ZjG9rddFnd2+fTstcxe3 HrCAkRJVzvq/Ig3GSnE2aVUT4kfGYjwPiCzaZllsmRAjskK1jREL7Omdj7BL iBElFotZjHiSk0cUnFZL+QucUY9y6SqC1DaEiUBXdoVVrrfQGx6RAsU2034o WN3ToIZ5Xuo0GtAQsCKwyBCYklueKXN6fGzsdiKv6euv/wP895o1X02N6GJy C3isOjM6urmSqENoEwWScHsJr83CLaJ490soZ4DSUqEJKIV7zFOpP9f0PM9P Td06v337Z9XtJqCwHzWb2yttQqbqzVZ5fVTgFyN9cekJ/dPNWarmV9dD9AT/ jxT1XwV6Mnkpn5p0pBjxHQEVKVfVJoSEkXBZR1muioMJp2tTM402NLTRro2q a36yvllkfaNYSn3+D0G+oBILk7WpYSWzN4q7WEisFCyRuX9LzPenww4nzVMx rVA/YRoYIyG8k3JbcVhwOV1AywTqwz7ENsENE3/VDktMS4TIUOqgQaB3CKFg dzgUnGVtPUWhoFT5E4gpPqEug7zRuS3eQzgIRFEPcxL1K7YYaMtxkrPwXeIy Msns69vrmWRuNYPJcGFtp7ZoCgQVFz0DfIScxBNaKK0UIyEraW5K1blrx9Uo KBQk1r8VJFYskFJk5jJIYr3//VMzH/7w2Gxv76jipJuBl1Q0A+Iqevnaa7fZ ToC6EB2uKCm1rsoYzFqXxwIFuTrL30MnkdZ/E0hLV/NSIq0FQ1rw1UPbtm1r CN1ADU0yjilWAVHxiNASlRmblUJAaQ3AzLp131LPu49LKGkNwFx//022tTnW lMXJitoagQbMnkzOHHAr8nc4ofkOa92iUYUUEiZZBt+lrmUCxZnW6BnAG6kn ya83EtRYuyUs9Y0HH3zQT5Y74aEEbC5U3MDYDQ+7w+GhswGgbHhYFejM7MYk 07Az2WxYxPsGiGgc3cYFovdzyf8nWPsLkJuz6B2fl5iIGsZph4a2WDbzZnSh /sfYLD66evV3X1qz5luv9vY+Mq24LJ/ZmlIk5+gszmO+pvr3VlNp57GE09ex q666buajHx3EnSLXoYfwJiAruE1PTu7AgLDbSqdPBaVTzGkEvr+Cc0/E0+yU h3KI578LxNOp1dIRRjz/rD6wAsIRvABFwuExGyIaINXI9o7AuCtfKcynLJUS gvv0pdHR7+J8PngZmE56iNW8EX1YxqRH9KW+pPOzlgRgFfJTkJaQY293VQin locYpUR4xmc2PIJxwrNa0GtR3LZ+6M477wQzMOAY4hYnaGOHvw3aCky/nS7o JeGgzeEWHrQJVtzOWDuRCNglsDS4UrWDyCGSlivgkNMmyx6UZ40Qn1VZ36SU mEMyMXEaxWg03gozHZRkemlw8LnocE/P19QpuG7dV9TpuB9ppGrIxBCJlkR4 b2c3JBL5jwjPNp4eJ2PYl668shfIQ92umflP/+lqdfvPRvD8y/r1NxQKnqik 4Lna5R1J8GCL4wWcdFLe4szJ5n8IXGNaHY9+8pOfXGg2m4A/AGNN4Jq60DEg bcGWjJEj4fV0VJcS58CNvOGAcyJ3mABGVO1COEU/aEGAntpmzH7Nmv18RBVW HhmdkxuzvyDrfz5y2223+XrGUk/NZQ7sUDpHYDM+UVYUaS0RWKxNSG2nAuvg O+15tyLNtAkhmBRjIPSkZNBSIQRLQ7xSIgSrZollopfZbHPHPDOILmyPTIpp 5iTZFUqySdOMs3CN4rBQf7aZxAeHQsoF0dAFnHI0N3Z4bOzblQQJJnm5r+8x IpiZ3t57UaHUNKmoS3T781u27JVI5YM6s3LLxRc/9uw73vG7f/lrv7bt6Ec/ ej0QyOlVq9YghyBrRNC7iLywRocyXIAAsqNMgwA3kFvoRY4GcdbXmhWZq4RF ZUBqr6nHTKOU13A4xUu5EojrQmqmBSkUvp6e2krV18anx8e38xUP6K4JL2OY AeYq5nt79+PafhpS53Og+obe0MK+DUDheW4XNGSDoW0xErig4Z76QCMiF9RY THNUhYkS+K3kMOB3TPUSIaYx82283dK+HucCPZWZvLJ58wFY4U+4ARXgrPyn 1yWC4yHMUiGEKaADIYRx863qr5l1K1Z2bBO8Z9RDTDB0Uqi1O/olyAhV+JJk whfgAQpZ8MldRhWNj0+Aqejf7NmD7zGBvWbEhML6sTVrvjjTbN5cqWuMK+V7 x8FVq56suPDGu99AmE1hXRu2b3/zne/8/Lc++MEvVxDT6mtvecvzU0L92x79 17U++jGAWOlgXVhY6DbnaKwnL33gAx8ArNOVwDCfnGaYh9tpnW3PBxr6qkwO KuTQ1QO3FhOZiTWdMOZksPDAFJXq3IHcmfuGZRQDA3cn9rC/34e4aTFM55pN THIQ1impsSI79KlL0HTexFAJmmVL802iknIXwWhDN1aXdnbHx3nQd6KNAuhL 6REH+mbRNLyZQJbw5unxwkoEzXI5BT6edxx2oo1lQrQh0UCSRRsxYs/MR81b L3OdlVARxTSqAz236W+jYB2F8kqKgAyA7xo/lmC0EXIttjsVq4KEaHeDJaIM 2jTe0LRwuNnc/8ORkc/yeIJoAUHt0cKHDKp590tHhv6VxACrsvMeDnTKdjIC sM7gbw0TwP8QCKArO+yJBMyBncI5t2Bus+aYgGuxAPv85LBWqhL29bxDDG8x x38t2/MQ0aQK9kNVmbfp+vX7EPbV3K4HBH6iRx443qmJRAA7ttnB/4Py1/MG VXiKlJ+slWxZ6RayCe2Cro8FXS/5FC0X8F1159ZpU08VIZ6eZnPEaLbT17cX QmbMLbBkgj3llwuiPwnB2xP91ayH7rSKGeezSUgX6rHwembWoWUlJQ7DniCO qmaRZuUQAfiwz49p6gfHVEpGvTcy8qU6Yj4GzB8eHr4Hbq+NjNyoc5Ix/Oez H/zgH02ZJhAP+R8RkM9cKizyP+Oe+7xK65z7b2ewlxrhflCM/dcuv/zy1668 8kpz/cUc+3PqA2sIut481Md8eCw65h+fhbvS2+qQoqlouH6N9Qo4NeBqMgC4 3jA1Vsk2L2w4tnHjFtTdyzJ0v6iw4aOb2tF0UwcuFJCUeiOUK2RK/ShcP/DU DkGpF8DZCftXuHB+Ye/eJ00yNaJ3AM22aJyC2V7DkiSaTebCPRGE+3JBuIch nZBwBxhDro/tmMMcIDRpTI/jtuIgjFtK9hIwRr/IRTpoOxuRo0zFi1OQz6lL 5uDWrZ9D9KbZuU0YrlTxPj06MrKTiqZwgxD+3p//+UPoIOGh+f/W6Lq8kvPa wXP8cgHNUsXSHuLv0KDdmh37vDPsv4exfOgjH/mIxXI96yMAX7wFhcF5dasJ VUkBy/CeFaw44AVxuLFRxfiFXbu+CpcxXcq05WBsDFZ0jWlh7m45wD7NJSWB LHVdGZEOiKSjX2yDaLCGxiKR3inE5wb1fHZZD+x6zFgTRIGZIHphz57HZyYn b31548avV6ou6pnZfcR8p4wFtDTww1IrVqmfIyj1gqMcPk3sdcjwjkk5bMqC pBwoat10G8S9E/RL2TTOWe7jnL118N8FC1fy1obScS/NJDLoPweyB2WpgX5/ /9MW+gnew4L4vQT7L/zCL/wVg7I9UGUGWGnQjue3l64vKhNeHAQ8PKLg8EbR ToA3SSlqllrAJTRwnwiSXYA8Gw6UthoUQR6eemJo6E64jk9nZ7i1V4aV1DCU rOBfSbIFBzBkQgsOOkuiX0qvd2REhUu0GfodVDeE5xbYJTshemdoyNhDf11g E43+FAukGzZ8DUyTgQFA9WTvVmQHPjLf9xiOfJs8UzcWnNujHgdyCtrO0fMa pHl/fz/vDYBezOmxwrZzsU+hrFxvhXc43w2EHacr016BLQgO3uXIQxgYTP2B QfwkFPwjjf3nx8f3A/7tTbFApYHojwD9+y+++C/4Kb6yAPpfKT7UbVXulxyM +42UiHFTfrOK3ABb4zrhTZBnzWGu8a0uE7gigcZNOY4uQoNuDVWXHpzxOq7I zNsqjNelvIoHNzq2SKtyN/Vmc5KvJKCDv+qin8Z/27LcO3RgAwMA6j0CwOZs BHFn9sfMqr8dUCkm5doErYDPlaL0TiELVxVkfV2Q9Qbi3HuO/NFne3sPpHbT i2ckzEfLvFKI0xq5QgjRNUZr/tYzi3c2zkZ4Z71AMces3uC/lXa7+pAvK+1b QZ6l5iX3YsnGM19h7MxjnHoqAeMJYLwqHO91DXBQ8a5M9xD95ewYLlFee5eD a9kL3K2ydxTB3MWnngqDNQl4nMPtTNb8QxDF+KYA3qj1W8PbrceZ9r1TzeYd NpcE1lb9/bsrNNjRbG6xXYka7ImZ8x+l29HR0QPUicgH1PjaMYA1wFtdrHm4 twsI1oVr3OZIQAXQLhUEf3tY8Dv4Ze66NszH3SRSXF8XKnqmTZLb6MLtVE/P 0+i7Bvtpca9kagelNsFeUhPx5iP4FYKS14jP9hwC0pVyZ0k3OwEGqv6YVdQx hxsDe8sxNUnPh8GeOGtGirLxQcRX4VeSyvhtedhTHv65AwcOpHi0R4eazScP Dww8hlg3Rzrl3/mRfnnBkf5FV7kHq23/lkPf3SVYgHur2QtwnzDcQ+xu6s41 92BoObzFP6AC3AvmPTGt9aCR+USY5YrsLCqOzB8ZH/+SXqXDsE2VdI5tON0R 2zzK9rDNO3vhdC/ANoxjFcp5yTlb7x2KuZwH8dQRVO+OrSx4iB3v6XlGsR6a hxHCnWoFP+uree9sAL/UHIErQAw8cUrBBTg6sIKUhyPeblROhHA6gPK4pIqP wijn8/ZwO2mT71JLHzvIqa24wL8x54uN+l19xDUN8INTU7f6R7oD8Eg40p/M jnReQcN3tIqtMJHNvsE/73aQ7fTMfF9AdrtXRlPIVjhS9xK202zZlx2fdtpb s4xOEOBtgm6PSgLca7QB39VKIhzoZnEPOiA3m4+CmjUHOXrFEzw4yCWMS64z +m2JT5uOELotFQR8R8ke3jYhZDcY53qeYVxoQU5o/BTwDX40c9dd96hxcYB1 6bsJ43CLsnPc86NJsFN6cnIr/cYo0C7Az6LGFTz6UKjfDnpf5tBgiWXcDcSL pgNmGdQrBViXuvQc+S5hPc5HCUy+t3RtZainX53bFeZgjoeagnkjg/nzmzbd rrPxr+8cf9Q9x4PVs/c6aHeW/Unzi+1e4cyiXf3NrIumIrXNxvKG4NNZxw0W 3vn3iAzqPwEPRILA12dPzFN94DgfPugbfDQSxiKBEgAtf3Xffc8UnvPLBBHO /xw/2Oa7dLrCpNCyxVZyWV4C91JUjwsetIV8TNbxwAHg5KJNlOHo/QJSABzt xkDZDLEk5LNHbvGYc7kgW0sUaK5HmMOOmZQ16hO4zP7yIK5bKvWIpdJcXOf2 rR/T10T+NVqA20qQgtZbcUpIYb1TY51wzupvCcf6KiqiSfiu4rhyREe6P1tj j/X/IIIctf3zYZDbitriQS4N/iWnWGV92gC9UgWIF8Bb2jvkJIciNlziFYec 18N1WLFw1muA1+Dcgo576il5acOG504NDn5Vff2bPrDh3KfOGgeIBcB25qE7 BUXfxfplQ/aaNjxf6mbkcV5SkgZmvAjOdvL9PY1lSS3de3v3zo+N6a2UOF6r N2BFwHSuKFcnkPrDD8GQAOwrYKk16mGv1Fu3xQdBzZrn3IQ433TeAsXTrhJP 3B+D3y3ojZMmC78HbcZUNevC+xQO50MTE3cSSC83NS8Pn48Ez99cBex9Djqd ZXNmw8klAjp5KL1YdEoNbNMMnXAko/5GscoS5YRGeiOpc5Uj0RHcUgdc1YT5 IBwpY64LZRMGjDD2MUmA/KeJiWePbtz47VMTE79XXZiY+JZ6H3fsuPOsUrtQ KIPD93xBKPM/36lYd4ewV94e0omml2aZc5I2YiRuZDbNvJCL7Vndx6vN0qDf B0Z3wBgN+GliYtKcsejzCOAEaEJf67kuKn+EySmW8FayGptW2sISmhDJC+V5 VMqIdlLYiwApb3KRdHS+0q2DAFdHt4cxi4eDqXZXlupDtmjp/0MZUAtrWB9k KJXazL4nQLVNUMtRSahGwpCZaWs54UG1Ljy9LqhjCbTSOIpUCDd1dACtIvsJ lvaODVhvmlU39ag7NEjThampZ2fuvPPhI3CFKiX80u7du2Hw/HxBEAfBapyh vTYUB5NdYUEMEbGPXSdKXpaN0rvPvTADKz14uq/vAXQ25B6t69ffQK6Getlt gxsaksMY+U+DrsAm/+UCeE0O+3RfXx/NhIBuxsu63RPIZVDbUiCHUSuO3ksZ VUksSwimUnqxWI6znrbFIHg/frFszerD+jW2ZE/i/Sb/388OxV4GSO/r8xrN K1LbWV1QwgVQdpSwtESobqXAmLGk3zw3MnIjlNNvVNSnwHv61luffnXfvscB tpRGM+jlfZxO8pn/JK8v1JG+EoS7bXuqFLWyXjYf4M4cmMlV810ZcDupaMnk sSLuRqroC+7RhZQ25MNtodkcAxAbf2U4bwm7cO4uzaD7orooGXSjU+pqOAIp L2iolxrPWihki+oW4yUJV8j2UJW8vqpCDIw/MNhXlv3UVoJZHCaBNRQkmJe0 hu4XXJUcrDb9pgNav4Gk4Oh1VDKB9uqrry4DWkcls7QtfQ3Aa6ZDZ3kLQ1V4 SdN5OqvurYZOwhh2NLT0K+rXq0PvCxbKIJmuHrWwYcPUPCRhbr31AIC3LoD3 HEHrJgJ4EyEh1SZo5yUl20pZ85oNY03bivRcqYVUsoMHcoH9YwBt5s836Zte oOOn0ivHR0f3VCLBn6+jJLDpI+LdKNUw2MXNNoKtcMthE1N/4sLbx76w5ELM j7b0A/SoIJtJaw9jH1ZBLQb792UnMIAYsF5Yl7qqkAP+QuCAhlCaig0HXHnl lT7AHL0rcYCXpsKkC9tYxw/yAg5wPhDjUMI5gE+QNYJKHObzR6gvZgEyeuqR cxAQADNB6hy6f43xyqF9+/ZZ/EveeDxM9/Dv6O8C/LdsLJXchr029aDLr+R8 Y7bpnDSDKGijlQL+axrws4ODO8FYLzPkbM8Q/vzdd999BD85F+HwdaclqAjh DW+/TBlIC6o81zjCIR108ypS4mFIO+bnoW6TonkT9R4tBuT3uAd8sAz1CQfc vJ0EntqWvYr9QX9UDHh76BcAPp8fFpW6hd9xnWBEwADgqYSNq9+0Msr3nGmE JxLCaSMthHn+74Enu4G4Oobwfh6Gkwy8TTuguVLVFW3xjatRpIA6EdR4m6DG gzbe9WJxDt+Fk1x02F0hoD+Gewzzw766KZhV4SZ38MkcHv4iABnO7bobQgfB nC4GzGFtXohtVr+KfW1egOO8LJdc9ATgwhPLTouYvxXLctu3b+fALVrEexfc la0vfYqj1zWWrOPXEk4A9nvf1o93ak91ofa0SAg7tSdvVxxCuOZBGP40UJF6 z1k+2A5AGDPk7VlccNa8BsA2MYhV/znt5cyd4nSHAOBuAX+RINBrgkBvhPHc UqAnYXg7i58KrOnApcWFdyXhbWau32WiD2qyhwJrKN1lYywuIVXmVxdCeAfJ jng3m1+4PIcbStj2sCRvOQCShiW5n+M+nnnPyTt5W0lyGnjLl51j3qEO38cf 01aM+0Pqv8ri/nPBAztXt/odB/UOspPiY9/+8D8IM4ATuS+SAQTVjk2dnAVM Fg7IgreYz+m8VV6po/+htNGNL9ZXrzuPRy28VHVOn7etUvBdAgdI3aEFHOCc 6XVBpJc1xI6FY1oH6Y7trTW/lg2XHAqJg5MlsBRzHM3iaIMNmMbFLivApIzZ PV57bXT0CXyLzFsnFb8cMtCKP+GT4JYMOuyhLe2OTMvL9SDcpV5xSa6H4Z7w xH5hAl0aHGMUcFR9vSwF7M3AW1gRu8bBv9NVUnXxj19LhJf4QwH/NUHEJ0H8 p/5oGBXM+JyE+VYGe+fLAH9vlgxHg9UF23CPbBTtjSzip22tEATEFvKGhGb4 pYOXxzIB6NjOJYXfdbiX4u2gk7WHxSgYb+f2UkMaXVTtEp7R/NHwDgJYnee+ XzW5PcKAq+mb5QMw39+3b9+P1dsLuDVlGoAt/C/AGWCtI5uEy3YXubJUd3Y+ SMd4zaI+3OMtojMv1sPNYTnYBnPp0igIgy2udlaqvQxsb9Oxc4syGHwLoHc9 B29CTSdkrxMErCTZFwfY3CwnRs6ejHbRKp3xiX9oIwt7eAWDOtIJhFdufOMo /ySo/MW1gIDi19Q5owN5neHiEhtux0xioE1Q6jVBqYcNpl1YRgIsg6au0grG 5QI3SNZidWPqajwSAdoV3SJWA7VOBonwagf379//4o4dO36kExZ46Zzu7++3 efOlZlyeCXO47DvC1eofKJpoDWaRCNwBz8x1VTx3W8lxyUojAPQsU17QVkbI RlOcEsjeJZymUhJtHcN0TQDvc2HwOmo7FYrbqQxejKcF8OrDMw/e2Ax3QWYL wAfuk5BZcnHGl6dJuIWEG64pZH42TntaKsjs5QJudUYreWHnzq9M9/fvh9ux iYnP6r9KkNYSaJn7sou+ApRKfoCLcdLyQSs4aTUokwnDGOAJ+MrU1E4A6fN3 3XUXAPUUrEQwc1Xw30fUK70IQQ0tWjOA5UcqzEJ3wnXOiJEA7Vsjc4QK6M6t P0l5AqyVZA5DUnSUl3YnlJviqAJQSzShfDY7fUtVs8xq880ZtO38ZFWA7p8I 0E2F8lYt2JeSO1vbCo7j8FwmJjsAsgvmdkqzAwTHcDXExagFtaxXrMLjGHTd OPs8AasmPUVjSuCOp84icLCOzqxZ8wSsRJzr69tdMYctnL2uZpVTVgLsEg47 m/ZaEYZuy7B6mUAFhktmWWrMnLcpL0IcA9d29TYdVZcmhbgGrYBkK/P5isTu bPSCrmZAQGcYDPDQH6iIOQjkutXNUjuYFJEGdXOyOOzOCBP8ZYc0XoMf7mno IhTf5J60wXLVIEdvwtFrEftd/VKXBBBrD9swYm3SminkxBlZag3XmH9MANvq gn7pzWwCVr+pNbgGePOYZBXpYDgWityRoKJrgoo+12xVgVh49+7d+L0n9VZZ UJU6aIxxDgkMno0NpnHBhMFsCDvPUrO4X6cuwLuA1YSLa4t3aVMipsf0HsUw op3ViBrR8Un1sRGSYd8YQzKcxYjkmoDkLrfZBNM/ncKZWrUELHWEFvSdEWQx QpVayBYpkvOlKzOvNZt7gXpr3HKFXITb7XBXtlo1zMGbayQpwK1TlCqBW8Aq 4ZaDpBC3sSBnjWI6wY7d2U3QGowxKmWjW+JVagatCj+uLqjnC7JOMljjxUzW YnJhB6M1AGlsthP3999Csx0waC01gybCmXpupqcTHrTaBpEgMEtoaMl7oMDu 6OzQ0BA0YkNDdkXCbLuAWbI7MroZMdsFIPCS/9ihEzxrixu4gx2f0r7BAgFd 1PX1egS0WIIyYEZj6xJgnip5CI87OPa3D/1pGMdOsFsCxxgOtpXsGZGGMSJB 5+oIquZj+u/VUQQgnhNAnNlvSAUqzH1dpK89aJA4tmnTvQBVbidtvRDj7CAl jFaqeI9FGV6vBVwQUKFxk/DkNGW6mMvViqSd4gWurMH+Mq/MLe0UP2uMTed6 enoqvs+G+t73FSy7BdRy9yAHtXrJGL3NcCMAA8JFAPPGMEIrzydKiA3q5LIQ LauTBYjGHKKglbtbo3RrhtLCKtFGJ9B1FgVJEE0EiVwPQbR6Wv9FBU2arwen Tv+WEa8Wp/j+C7gMnPOYlm4XBPCFcK/X4MYEVThJZ1evftzYKvMT1KAzhpOU LvlprP/nD8PzWiMrGNGaKBsOXve5UgjbEARvlcFQnZTzGQwjbjBMXfKSfYCD S93nhZvSXx0ff/rUwMCDiqG2axFc42ckhyZmDILQlKQwWucUnKgtBXC1JFwj mz8Lt2thzZx7p3e3zhJvCh6bueLPZgeTTufGnywSk7lZCsRkuwCuRYLQUTC6 rpPMmH1gDvA6A5lpBjxHyV6oI0/uH4FLPcbHH1Vnxn7CXk/PPos9szaATkbe 1uCMGJ5vw0OdlqEzi+YcpH5oqdjjjDVJ2zo18FIuWTngDN7mOd4wnS75aWi/ HOuncXRo6June3qeRscRhdn16/e44DHBCH9P4b+lDE6jWMgWHotpSSG7KNiV ELLSqUugNHUbupUA5UYXlMHSzZSDSKeX4o/DiHSEbD3cIwUHmh0iZkEn4U4c U5SwWQ3pTt0VM81GGjEK1a4ywpMQmG/UW6Fgqs46uagTcLqn50vzfX0HYBF8 BX2uEovCzdAiBOVIuPRj4fySpotZIOi7WJV1r5S2BUgGdsfUr3VGIZHvn11Y u3YtbqXEgr8QlGpUJtATQp7ccNwBImlRPq7LVqic14vyEZrq/Xlwbnh4q7pg N5pCS8wvb0Bl1Y1Fs6u5g1VxIHHgY9EZJUpDEjVeHPjyKasSgwvGJ8sHH6Z0 u1ojUEeJ5Qsz21si0SnCREIRphFCYjWru4hJH0fISmN/VUGgavylllA368lE wmCXkJPqDOnRSgIXHgcjRIzGbwqdGXDbY+ZBlarj5g5ni0ezOQkYrerufdh1 zYdxKYC8MAS1VhZULTM8kntFPQPnNCzCQ6svs1HSgHNucHCQWsdEFwsqFymQ qu/u07DU9wRMBk7ob75VvQU30E2P/8QcAQyfP8l0grDgqrVNdaBz2azQwZ/v 7MKOLV2EGw1zEMXsbQmIjgaVq3tIftaBprMo57liaNpDUoLmcgFoiwRkXqxi OGFiHOdI7HThf1x/LS9T3+DKMsjeQJLVJFcXGBThVrWLrfzB1xg8Zk6Mj+PA LVzRFwlA6sh+Ka/tVwRhywalTkGzpkEQ4gkJ2hVAKBpL4FtvjnYoER2bnLwH btZHZv36r55du/YJhsAUl9UxBM4PD2+bGx0dx0vZpM5zIx2QkpUOsAIle7IV /sI9DfnJP90+lFfS0jJLSb1KrcRe1xGmYbGtoQQ0h9zTs8h+8Vb9ApuyZ3Dn pu+EAeqUVYJnp7hGtSxo01z5xdQ72txoBNPqps+eFmKdzoJM9+BF1L5JwxSO SoIo1EASk2WFpYlg5gaZHIXN1LTIDg1tBViqwGwKAsiLBFgxSPq+Ls65VC8p WiVIxi4keZUDcjVn1ceLkIxZidX7UJxQ9Vwto2kPPKEUxCugMxWOxpGRTdX5 0dENUngWtereZ/rV30wmITCvX8u2EUk7J8t28gfhpz40M5CHOOxonXMdKHlQ 7glCEb4t9fBGQkBZAMXgNlO3+0CCYr7hCN7adqG8ZdoLaG0k/JtQcUS9SS4O PTVrTs8f7N37CPUPgJKtGSHb23v7wtgYrn2p6Cm0mOzY4AZt6xcJuGJeS1TG LHJaa6lVpeXsUYbJU81mEzFpuvSojAFYhe/ryoywzlXSrwabfJM7YnR4+Ivq DbiNsMkPzZGRyQiwieFbtgjCWKj47pfSsdkmoLoRBqggUd0dzJjwzsMzsWRQ 0JPPaxy+Oi0CXX8GusJCxx0O6Py2gj8SQFcVBGo73Nezz4+Q5s+iLxZlPB1K sT2333BQZtK32AzkoUzSqDQKB+2zgLTUeJNTaGjWKcNSJUIbnIDTw8M3A9Lg uJBEKU8iUx2ywNkMTqJCUarRVuNog5uANF2pUB/uNBYW4VFxpkr9TFq+e6FS oy5FXKgOOa11655WrLMfNDvueYT8DZ2DCmfod6HeHSVQET30tmMdI1p05zwM PkgZVwu4elCTup5FRYArIUcLzlenK4DL0SIs9gQPwFyN465COEqDZ0E4eqVH ZkRPG9BEOVoSnSRFDTqFyQX90puyzcn048g7A8OW7iylmvD9UeBNeFa7cmhY GlcTlrHZQntXcWkh24U2OzS0CQYwTQsBzXrgNX6BADvBnAhEo4TatqzNx51N 0TBNQBcDNFXoOg7w5B4BDjxTecycNU0KbmVmKI0yXBRGU4bLFD/saQgITfVR eHLDhs0+MrlChWudt8jjEEsJKObFabWkOJU2y1Sz2PT1gdETp+2tsbnWxWaw 1HEvB6bbEGBQeYmASkeZFqCSrjHsFJOUaRpEZeyjsl0O0o+zRY20AuaETjM6 qETni25BnF4g7FytZsRgL0YDVCo/OrYEZvcqgHRuaGgc86wjI/sMULlJSQVz rR15ZLawFmqpXs25CzMlP4RiEkvoEEBPYDubBqhTrDTEQAAV2hcyPxLTXjgH u1c1h6WY/hoYuJuyrgRSg1H1AYK3yBTHKE+xWowGmuG/8IUvWFPtgmHrli0B uMexzlr/uHlQRSqeSC1zBo+gVxeDx+uz6C9X+MivRf28iEqsj+glDSlHJdyo 5NH5k4NRsJB2wAii14CR16UsGGsCGKnQxke3uwUNe4GwNdVkgOBHzw0M7EAQ JizD6tkEqatv/MjExDOsKdb1+7tAQJTZP+H7AKHKXRJGZcs8Ty1D5aFdu3bB 2IizF1wdpSd0xI0ZID5+Am952AQsBlKhHBfrUlrQ+a078JCsaQDC3nZYmso3 txxVFyBc3dOY8Q6fWYA+ijxE9BVoV37eAa7K7lYs0K4t4RnBfWfrVOq1Jc/H Aw4SHUee38evJRISK10CDI3NDb8+4L+lyn5JJMKb3i7XjhCJdQGJZmMat2p3 ResbhKWnlISlcFc7VCgIptnS8eMjI/ejF8+GDV9D2L1BwIj5jWgUO2jJEfTa wX4eD1U45CyhSht7xNQRR+Fih6BDTTmDEIWF1pptPrpjYWJi4zxEzPpMA7e+ 7XyHuLeGNNdlDiEgQKkVjBzdaWDEj6kWMCqrOkO7iVwYeaqzrTWqPuOeckUF iodFYCEOl7vYxP97RAYbVCuKwMY/YwAbW1Nk221qQbDZ41HKijr9TnzjsHnu nEHdsezXSbi9YqEoPU8QpbGcS0LbvFg4D42VDvfKenl8/I9mms3HAKNwJlYQ o7wHwtn3vySEwhJ6tCpg1KidM729vdgArnAKQWW3O/KBsWKnEIsaKUopI0pw YTidsAYIbQGAuwsxr6xwqxM6UJLaxNeHewX/wjZz+OieeuopnIYvQHCRDDUG mXn4piFVuki8Oqq0BF5/x0VasITxuANWp9a/JHsJm5A1M9P4ffrnQRnAoFmL AOzPLkh7xiQAs1OVyoSVtpIAxufiLnEDOQ7NQvl6niBfEyYtOWyHhjZq2CYa reSwA9enbTRTeD02MvLUD+6449HKhQLyzNtxkk9LRcJ+kw5Bw0pbzTTsUv44 vkqENnCbkWcINKkzAY5vcu4QCeFcF72Y7B0fvxm0a4WG1Ai9jolHtDA8PKZA vBExjPXJSoMYjRaQUpve9MDAg9SVXgm1pRsoI/uGzeLEbleKeIqhXELQSp2y ErJjjeyDfJd/ozWyPy3AUqqTfJEhWzLSaXdfR+8T1I+zZzP8o3VyfIknhLuF qqUxoINrzEd3wXb9ILxtrbmt4F3OwVvzLLWv2/kHpoqtgxZoOqfucoGgkBNP IWd9vDEg3aZ3h4Y2RI5RD2L+6Pj4w7p9LYZjCS5omsM+X0BpgUGP5O4htcvm R0r0We0tDbK7SOAMp5Zdgjzoalt+kaJfDfmG7wECzIQmAZBWW7NmP8Be7yBF BWNz3hXdthij+ZZCPdyOj43dbt4peJfg3YJ2oxI98hHBHnR4EewFDW7PjFaw bynAuQdICdjTstCysP/t4IGeK8l8Sb/AZCbZeVsCW/Lt455kPA54axlvSzcY /LYAPV0ecMPJp0WCHvvnCfSsfk2fpbOY3UvwcNDDV/RuI3ZqF7UxrBBEuTTF bXy10Z0Lji4jyAHwlSrAXf0e3vGFPlREOGwDg4GQ6A/iBNHYeCBFzV1CNxNt OocBAegjGBgYqEjbTPhCFeKUZZlYt9jHrmZu+0cP5q4g69dvBzc95gqy2dsu DsbWI6dGRz+Ljp+jo9+tvjI4+Oe6r5da7m25tlW7vfpgq4B2U35jx78O5orV Oh3LNLV2krff1kJqXaoRFYBbUutFOeTfcsEdPNOfdZDtF1tri0J2crmxvn3w sssOWMFegHBxe0fY+CqI8MIOFb662b2oY45w3MDBQFvUPbFCkO4SMWlXgVQp 7i0AZbqBagcg1wQMnyNAcJEeP86od7cgCeoZpGmriQhpM+fNj2QN6WqLLcKS 24ezpCEVDnCzPXh2eHjzTF/fMz/q7f0TBYg1a76n3iGFbwA2glroRQRwS236 Ga45X8MNU54dxdLdmnoVrEcTpHveONO2BteETFmjNZavyo7dEvWgrxciOsoQ Ta/FEU2HvsmhNVYaI+spczv4cz/3Zy+/7W3fOPaWtzw5/fa333rs0ks/WekM I1zcxyW5VDZCxd2OguYUDmlTj6SO/WNwAachVX6eoMolLyHNOynfsQI3qFD+ zZ49d7YJAC4w6XEi7wJPD2mJgnioCwCGnPY/qkvtef33549Z1vVIDSCVLkGP nyOc55nth/pBsDzYNeSTzuk6hC1AeK82m98+vWbNN4+vXv3do729/wXwfHz9 +mfT0j3/MYlyEuZST0ZbsS4vg2lBlycnveIlb/d3akoFWrwI4r/Z+rhGWH6L g9ttwTBLlAjVmhwEZD+qn3s5Q3WlivcRoXvmzW9+pBLjfXTikkuGCydVpXUA 0nY9aeeYhPo0C6+lc90q91ggAVOt+Wf1uyzcf//9P9LbBxGkTjePpNiXZ4e/ dQiQKt+SP29VEAkSOUgGPfx9sedj2CCkpYNf5JIDGw3AbSqwSQWEPDwnFY5r b3gIXwyP+nNDhJDv4DqrS+zWKKQNLAGACDCU2bDhj4/29Bx87frr/wsQwo+b za8WzxlsZnMGjnAHEtAHfMwvF7hMOsKa3YmnpbYs1veRcM1eBviOTi8B/I+4 Z3tRFez3nYOdYx/wLh3ijxlW4VCPMqgffetbn0GQ1zTU4TAv3ANeFuqRAJu2 ENSr8NFJ6fYwwGOQc+CSCSAHl2rEuJRkXy6E4VLHZ00Yz40EkmgXQN1dAEIe dteEdYeS648GdY2/o3ADQAN4WbezXY8EQIfvSx9Q2BjE7fKRXASWCwJCcgXR mgBW3GywriCDgxu1BEjQEMTEPoD+l0ZG/lRdSwr/leiV9ev/7NiGDffBJEPl dYwyKAYgSQAXhTTa0x6W+dL4e8v9i+ZHB8YbHFJIBMFfb00KH3LVQLDU9m1H DdCp769PtA9/EoN0jf9nL7zwv4GI5/ifeetb75n5xV8cylaJx0KM9xMDXl9j tsOh4RZLWkDf1tdefPjhhwH+8G/yfcwL/RWC0JfmMSTzMDKmUJeVxX9nhv+f puOPE7LrCAJ7fzjmpVVMqfD5RKGo3W0ngudIu88lyOOqqjozDhkaGmVJdwfg WDLHdjqAuempgyGKhdczRAHpd3PC0wVDJ3xnqPu6YI+qIO1jX9oX4NhR9fXW GfYPZjguLKzp9RSVn7fHdWWVueFxrdV69s+v431KfTDUZEY4fyos8Pd3dPwt YJ2hPibUw+3Ye97z4cQc/6zATuU3vWMsEc7P8OkOH5tUbZMgrmP4mt/54kA9 CufoRLMPLuelBR7SJnPJ66vb5Py4Ia/U31IVYv162EVEkPMx7fr/J0hNKrhL yK8Lp3XYtiD2aylLBOJYKgiFVNgTp10KarDLh2qScANtD31CMGpSiRD3yfG+ vi/bpnh1qiP+y4xoAO4jxH10dGpqyqbsOgVZT8GX+pR9R4PZ8czgo1DWG3cu jfxN2QY3Qr4j60sg//3BE9wx48vWFlfenoH/AL1KbcFSwEr6QabIPmUeg4+o Zo+z/+hem+RF9ji44WPepF+DenOQl57RpLKKsQbc7u3u/sfTb37zw3Uki4ST Bdym3/nO1cbjL/YZQ0eXKUcH3KifrkOgDBrQ4tVXKaefBMnDPa5NzxaECEAg EDJoApFihaVCrCCtw0uEWEGyG1piXo+bhrUJWoE7jnuM4cQKEmN0uZ1zR/Ay dukCu1sN8zktckzIedF/Lm0bDBAKOMMJELS1Q4301bFNm7bhmAfId/UK2F/I tt0SZ9CuIrs0pcXUCKMNGqRE2ugKhwB8NlNcIFIyBNCW3Pn6XSqEALXWBHKF SyBB6XBQP/ttAiu0aVZYxVmh8dNiD6n/RwuP+kqPQiDUOPyOd/zBkbe97etA JalRHx6VzPzSL62Z+ZVf+cSx9773P6o3OEcpWcIqkShFHQ1BPsFL1uMTJ94w fDLL64sG+g6kjfiAvKLlk2oo9lguxB7tQuxRYF/mkJlkQqh3iOBuAJgWhRvm CkzeAZ2QpBxDR5g3zvb09FCSsIStivw9KbLgyU+P0yTrMiz2uoCrce6hXSWv Dg19C9t6y0y1ADUI8QQAWYonqtnHUIYjWoUXLTjCCS9KcMSv4Rcd38CCuqBe klf5VwIDdAhMUf8pMMUbs1+QbxTS3UTx5byu+Na3/nkEJKEOa0MTJieRlx3v fOcqxRMfq1RnLrvsNyrRife85wrMWkJzQlXQtbFMGrp1XGNvhu/HoRE4k1ri pBHcc+rlFpzeQF2ASIg0nn/88cf9xmCHZLqFyIXtFPKXJjlaWLJPO0fgDbMs mkxbuCUTjLOAHdNZmBKQ/A+ljfLtLp/wKRtyXfhr9XXDC3kbU9jHLrlDmJBG 6kCU3CFKmrqI3IKik/1ONMHqjPesWXP/wvi47i72x3vU4+H9rLphC3YQFYQt OLJKYUtwgZkOW3LjPQVk4kQsJcjkvRrvLSuQf6Wf/X9WLGVYeoj0PYQvCts6 ZKmutF/zH3c5p5Haz4ZubPMiVTgVzwDNaKrB+zoQztk3vekAJUZm/vW/3oJE 8653/c70ZZd9JNE8Q1pE9x635hSnWYnm+YAXGK/UhdimVkwrFta6uSH2aUWK bLqFyKZTiGwKtuiLzY2cUXQ0EfvrUzSppOTzRjdo6YVqgZQTlRbjNwR+If9h xS/w/8Ax8P2qzW+UNVuljGmr3Yisl8oGTJIFDaV78snkGgU8dPufW7f+rp1L StmaDzOcZWaSNlbYUBIVUeFWdYMdJBsd7KT8x1NOBYSMZMcqLSn1BhGcDAnn G6mpqda6xvGrGVhbFT6/r1/grYahBIoAOlhFPyipWHqRHvezoBy/y+pp+ytY dVOpIdvElm0uvngCGKam2WXm4x9fc2JiYhtjl5izC5z8XcXEQnUwuC2SWBx0 67bE+JS6zIFYDkL8r9gEiWWp0PnINiz6TCKZyTkxzXkuk4AWqcR4YWsxArjw kgHxfF/fLmZPtQE7qaTkCBv99f2N+agCiaEiOxxYFxTab8zt2unp2FElJUck /5tamC+kDlnwucVJKDI80HyxhW0XiRZGRsbFMSjDG8/ffvs34Tp54dZbn51Z t+6ps2vWPD7X33+bUSoxj4Lghmn8AuYommXIWiYa4TiniCouM8BvVQ59gfNE yiUH3AC/wAn1MD04sH9Ta9j7zlUM9iQ0KnUT1fzKr9wwf+mlHzh92WUfrKQG 8x/4wG+DJfcLu3c/KmEeEBXGfMJr33batCYEKhLw2cYbG6g04L4KmC9RXyF/ Q57d8DYk468ueQgU2NS9sHfvk+oCf4hv5CD/KzwkF+t/lQqITUoSQ01Adlk7 nrK+djRzwcu1kjtPytbYeRtTIdTws7p0ZhhJ4b5nQ0MbzAaUeAH2hgFZmHkp /ZYnULulBAvxg3oBXEY219Nz/9mhoRvYJHONf7wkNp4zBwdFNc5cRJswFxHs rSoIaYp449KMNwrLr3+tn/1z5uECMRzgxGAI5Du5x61syRhux6ahi0uuv/76 g1ddtYnRRXL40ks/d/g977npyLvfPWJpI0baiIE2YLUbbGCEgFMnRWN+lcJV IjFHxFBv2MOkw9x+S7aK1/Zb1otZxO17RBaRQpFOIRQxSQF/6tmYcOapR1NF SksKgC7IgwtootiDy8p0OIKlVEaUkQMUYXlq1JmOaGN1VGIC3lzlSJEkHGJI 9RwnZGlj3RdO4kIniet+TEGUA4+FRE6crSaxWwP1LpbGwtDQ6PTY2C0Ac+jE gr5M+Dful+3v/wrCPtGwhw17c0NDW+aGhyfNkeLEGCRVQN9JrVTSRlkWY/id 2Q4BSDFG2poA3pURQFEVFr7/d5wDoAqa0w6A7jZ7wOcoYhWniDe2ZgLHu+up jAmeu+666+BmmKBGTEA3YoTZSy/9dZMCtYwAHxuwtsl4AjlAPP7Czp1fsWWS 7mJaIDHRihb8VRYSLTigNe3QEE0AN5yFjw0JolsIKQwj+JbZfBWuE0YYRuAW KGi9sGnTvScHBh5NBc2A6xRwnZAmgZqfk5RqIw4BdIQxDZMVhYZFSShmkBKZ bULMYMZHhCJ0LpFJfIB8inIsyvv8gibQpBDNwT7tvr5nYFKD2jRBD6DH4Zo1 Tyjy0EJs/fqdikym6KaLaCkPHehX0dMaQU4IRQ9lOMEJJkpwwi+7nBAUBYc5 IST8sIcb/H+lQ0Y5ioU3t2YAZ0GY3q2QcAaA2/NXXHGnUgM6W/lv/s2XiQ1U kAz3yT+/+929wAZn1Q1Y4OjY2IPk7swX2cF/C6bPcDwU6ASqm7YihOCSN3q9 WkYwNtroYISg4DK3CVd55U/7DiHQwGNXiizaBMmh/ZEcszK4nezt/RL2FFiz Mk8zRNmeJOh1wq2XZuCBvANDHGFdprsEnOfckqD6YZmBz2wVxQ0dQnKhXUhG JkJyAatEkfCDTNoGLgvMusD6RGNQM2cyDGx9ImiSyVfHxx//5/7+P4VRjume nm+AhIAL7bSKGjRRpPO9vZ/jRKGevHFuZGRMj/HF/APUI5s6EmaNGUAanSxi kEa5JHJwIoa0dRHkF/GLTkUV0BmoqP5vhyJEqBuKkHIRi6EIZKknBZEQwX3M +MGoBKWOkSWm3/3u35x/3/s+dlydgpiOz9ZBU3hHUTbxAts4DT1E951Vn1jW 4+kVR4PM4JlFOjsz4EMSmMGPEaCiQeba4hh2uxBLLHXLGsWmaXpzUn6XNOyn VawQBYzStJnhpG5+jrhRGi0xAKvqUB0UeUEaBGM1Xqq3ilZOhiGkrfmOxpAY Are8SPlGXTiOeSwBL6br6TkTHrgmgByQImt6d9zx0dE9cCWBYKDZrhOjow8d V3FEpQZMAFQ6havmNs7rtMOEs3/D4J9KSbzrwhJAOIAo3IxdFwKIpDUfXNxa LGDm8Yh+9lvMwxmaKTy4vML+MWHEqtzjSlCCs1DtCfNC1157raWEWN+DcqBK JzBDw9DChz50J2wQUgLvIUjsvDo4+EcQ8cUZCdhUmyl6EwHwfSW8ywqLovoN LeQBf3eO071J9jRc1ZsU4z/cfvvtLg90CiHDUjf3yN3ZnBc1bonkziawXgx2 D+j/5Fm0GRNTZtGWgBvGsY0bt8BqwpPDw8PHhoaGeCoRCABTidJehxZGUTYj UbeZBik90CFEB5GQLdCZ4ZhHB/ATqkLOVlpGhR5YdvkcNDz4Y1wnxsb0gAfF B/zYV5iPEPAQJeBxQHEChzz2ZOUhL8UH8HS7eSUS6pJ1IT4oAfl3ZBKgVV3y VfMKbj5ghVBLSIXHLYoYNKnYfy4q4ImLsj+AN13ptYzRXhZcqLcDNQQlH4Em KponasATto6vPmzgi9nVq7/06vDw1013f8TPzUo9U9BeZ2OOLAAERBbOIiU2 oFuGLIR6BC6Ln1bfBcI4vdmuj5BSEU5EsczoBvVjjpkDptIhaA5jnMONHaEW p+OHBPqUkTm0ZEC6MMY50WyzuXG2r29Uaap+sdpwrhArlPWtqoejBsfnrT1M IMJAp0sgWLUhoHrDqWYonq+xMkFCG9AFhKWUYwTaoO4QeNdoLozSjMAWilUV WUCRAigjVsHCOEUJ8KlF+QhhFjs43ZpCGXo4qq61xdDD/6Vh1LIW+cPFckMe 850VC/zCZOMiyQB+vccEMqhpMjj0q796n40iangfcTKg7AIQgbqc758ZG7vp 2ODg4yaKcAr2NTeqPqv5X+QE7LI0nMA7c0V3BokT2NoIbwIDr5NThhPg3+0C rhtZLEHNhmQvm7eOFA2YY6il853g5q9f6Ou7E3qR+ZZCdZGPqChjSL0zAwtr 166T6ECyHigw1oICok8HLS0H2DiKTVd2CXqiKkQMpohLaX8shJq8EbTTejs+ EkULo5Q/oFUQlWqWl8IojF89C9bRR/MCqAnNCxPa7kj/PlT8lKKGQreQRCCF hhAmxK1J4W0ZKUiFRisYfrxIUoBZ7XzeoAsh/fqIwG9UelQggrpRBZ/4RP+h K67YwtIJ0eGenq9ZItAqIP27rVu/A5x+bHz8TiCD44ODj8G8b92UnmFpJ0ur 6RXkeRKgmqRIAtJYf1uYBBzBr0nAbgDjRKBrCVIaYXn2Qj70pWiCnkuOlWzN eE3pgbvwDQATIAh7m83R+fXrm+rc66erZH7t2p7pvr4d/zA5+VjlDUJ8vwh7 rgarS0quP04+oEvoNCgAu83nM7A7kYMe6oNS7nhovut4fr4Ldpfsx6wL4B/0 kwK6eucQ5LMjI1vscJcQJzCQS3GCM98lLVhsCKnCpHUdgboFStQWTywW9mK6 kMPeedLrgL3ZxAqpRIJ+pVPD/vmPfnTMnv9VAfZkk2M6yPjXzjSbuxeUflNH 2uft4S806kAwqS4Um1LCwiRbq2wzi3GYC5wgoYALhJHMlDc3nTZ8AEFDm3C4 18PBApUz8FldwcpDztOPrTH3k4uTCgXIDPpSSkEczPX1Dc6ob0O/Bw0ZmP3u 5GIY4gi4LRUyCm3hcMHpeG4IzUmaMnKmYNj6TtEWdf9AM2vkZmSRINrd0g0G hAht1vFFWsB2fF133SPq4tqtLp6biRugAGH34FNBwwAeu4m4r4ozxSUxQRvc l+grWplBv7CvaIZwT0/CJ66A+0ZJoB9YHNDd/iKGcnu4L/EOd4Vsg94OKAig T6RBHyCcArXjphlEBa8PEMIT1q7OHCnnwazAtKGC6PMB7pQOCgDuKH4J4HxY 3J2RTPkwJgd4QwBpTRi3Wu6+dGZ45JHD+cJz9Z/ZcPwA9foDDfSBgc1KDowr eUumewmgHICPIYEKEKCXQ8urNwhAXaz/mDRzLgUD3PuawK7tVmIeDODsvqv9 Oc6dNnAP5/pZ+sdgi5GCOZJhdlbcuzAxMWnGqxDilG3U54zhI4PkDOKVVPJg gc9Nqg4WyPwi3LP5ohLVwVn9GromkGsgyJAeaCAoaj/2wI4NBA8JYF9qCgLq Q3ju3nvvJVAbhU1NXlCpVVSqF+IzfNt0OAFcg3uD9iCJqYxHwj3Vm3Y5lOGW W9vhwVcYca7523oh8w8QPqEvf/WVRlizS76Bzg85X3hulNW5oOZpzEUsUM1H DDhd6OnphbAdZHzVugiO/Xh09M6gi6DkyxBAMSCNUOyE9CZz13ISkvUs25Be v17MVT58epTfNKKeo9gR9RrFTp0eG3pMp3Gz+YjNAtMIE4xokHm47i7eaJJ5 ddDzBGhyO4WXOzE8fJcC+40Gz5IRCxtfkvDsSPgSeH5Ddo4XVvcWCpH8nZ8C kp1WoAeDSI4QyXR2asBFf7Nr1wNQyUMYJwjjGsAY2rMW4KZ0kx0pg85vU8aB pV04caS7qcPgxXkyKeW+jAHJO7wdxNaFkzMNyurYtxuU2ojPF56uL13kJfW3 Dc9Bbs1iN1LY7VHYbaq3ZZjegpMjI7e5wwaL9zhrD3cBOlKazxLQ6WpwCdsa 7CkOm80yFU0Hf1hFB6aXaVCIb0bALIQ7KJQCOudGRmxBHhQ1oBPfDUzPVRI4 JM4AwtVrQfM/uKZUtIc9LlLiEDWGKXmMorgu0Z93fnbItqq/aYn8Mz9mnSac hvvrkdb/XEnMJmb3BAhGdT0D58E7WzfzFQDXwcEbFyBJXMtgCkNC/7B9+30q GFVPlzLiHULTHW/2p6Y7swvAWVZiIDtnIHssKxa7mEuCQjnnVRgUzNLidRMX wK7D04ODg+rs7SFHIQtadQ5TFbqSZF6FIA7tGMDg4NfpTCnyP8vDOux/ZgPm jrCGdnYqSShfmiXUaXpH5xKrQBBmxeZJQTa7A4Hub4CNTf6kA6u6QWe/ir4w 40gOx5Clpe7+18AISZ0Ypuo212zeBPYobA96epL9eKsR1Acr9de0CYo6ap04 P9c9gYPVNHxwzUH6Tz10dhprUuEXYytV7everh/n5M8LcM9TEKfGxm6uIe7T sz09D5wdHNylLsYtSipNACkDBxilTRSAviFKv9fcldfUY9dVzAEWg+ew7hmv ypbngFpQaBc6HTqC+1yWdducLTMmOyHzgauzep3SjX1zAwOjjtmhk+ThZocK 8Lhs8AIBnD+J7VlnyRZcyV5haVZMp+K57WrOLYjVmyJijnO90hxHBPjj4YHQ lWuTYQR5IESjZuCKmR0dnQKI874cbNMAcUh9OWbxKlkiJXnBTXBnszwS3B3B XQLuaNZrfAroYPe3Fbune9viMD+1KMzrHWY1Z4eZ+scBved21BL0Jsxmya2U HGPpBjbqM+rd1Fo9Ptvff9fZoaGbwIUSCADa2tX1oUTZ5MLw8OiC7jazRMDd wGpuwx2eLN1hFnBO4nME8Y6J0ioQgLT1Iw5KdsELURLtmgeQBLl1CdXACP/N ZtN2oDWbm3kHWuzan2INOdaM8MLu3V+zy0gw4G4IFBBrCgDF7XfNO9F2Z1jV O1RR4LAitQ1IO+KFPboOI7CWeH/EEycgaCuCV2c18lG9yZ890d//9dPr1z9K pADn/6menqfndZVS3+uqm+O/YpzCE0qtUaldr1kUlqW2w32JJpqlwukaqJ3h 4zs5C0ScBVp2ypRmBJ0MqPltcyEysNLkjpJkYNZSkvJnRYgaEQLczgwO3g68 cHbdugfPDgzswQBgOx5dW4AYkBw0RaScItA0UNEDdFrpMzKhCh3P59P5+drQ 0KOYcIEPWKIMyeT0XCF4MMIBBAPwBk7xSEvIWpCHfVzQSFWmr4MPPvjgD0H/ eBZIsMBwWk8jYdcytrKa7hPyVwQWQYvFyLxfxhoYtYx63UPQqH+eyVbfcsst fuYSAolZfx6PL2xtF9IF0rJ4HPyTIgfT/f8ai7G1mOCOcC51JNLaH8qbk6LB cgyf9YH00MDAdpr1mWfvlgkoapQYoNb+0729XwZ18eP+/md1ez+6ut3KCQTy +GDipK1bnMlAviBAqsW1CwFFtTWzdGfMUliaYzREtDK1GFpZtThacQrw8EtJ THLn4phEKmdyJqlUZ/THTNoCeKQqsEmiBYf6wMYWms0JaObTPpr6J8FQLVKH /lpKJQNgKcwI9fffBusgpBREVUD4uUL4EYdYhDsyBvL8nDakrSXSDlWgjUO3 3XYbtut7tIF7T6vC2Wx6XLGmOTKChgfGojUCYMB8IVqzUmqTe8QsF2BfYOsY coXzbR1bhigF5i+oRRxWwY4J6uDxFnpkJXrvp5pWLpwI4kNS2ZYBDOBAqvGB gdPXXfcHJ0dGDhjioIGBuxl9bEHfl2o+OiHu0IYvQe5wopMS3KFn9cqW9/Ap 5zgMskogipWcKArWB1zOH7dcPw6EDpAKkk3akmQiTjKiAcxd+nFO2w/PVhiW KdAqCFHLMDHeJ2fGxrYQw1AUg2hRYfjJsbHdx0dG7p9RehPMt8muF9BC0p0Y xVwFdskMMktopLgqsIChloMPPfSQvbLNJmUoRNghImlbe1WYKZKim6DV1JKM Wl688cYbf4S/ckYtZNMkur833LOb1qO/csMNt4o+csskIJrXFZYGtfSR6xZa DqVwJ+gImz0O35luSyfyH+qzC58B8jdgJWbZLYwWUDholxXUyVOKHOXg38Az NFWA1AJd1zdUYP5oE3nDm6VoNTKVohiHuEXLJoFcOliMU1THMJvWyxUXz3d4 ROKHVa+fR5y0CfAHPiZuyScpX2/G1dPdGY0UJj0NjUgdmA6NJJpMFMVvMhRy A1CIYZAfjY/fTwmPo6OjXwImmVmz5hvAIpxBYDXFvB5b1Axi2IMteE85g8CN kH2BEHVIxCEZw9D+91aRTVIysukM8wisZrcOMCbDCdNKvkThfrU6QusQSEQy jywwo5R862gPQvZ62HjcwncWz27QE4ZGp/nKfqkBoSG0EbH1ybZ5QZplrGWq zYY0Jp3GW4sglDG7z2AxBB9AAKMa2n02D8McZFqT6J2sYFpFoU2Wvs0uex3i BcOZIhLRh36uGIqXQxULEZHNl9onXahfChuUpTEBzR7ybIEpyORTLLq0yv/B x0dCluUC/RpOK+K9JSmjKsQ2kUAZNR3bzI6ObrVxTKrjGBX274QJZ80MeB+j v+jq1V+eGRm5Hf7bZEFeHR7+fyiMIdrARBhMPGe0kfD18EQbprnXDTlM5oMP IGrOiErGMQUO9E4co0VBDCTx/N13331EvdIpq1Uj+M+jJsNK1i+S3aXkjtrS 7lJaacJA69tdOqFM2O6y9ehi2K7Gvh4e2t1ZeZzoXvQeLvDxlWaaBN/iGpAK jTsCmby6desuWrpVMO6QLgwP70H7K2hxhlvezsZP3TiI6AoHOEVsoo/8ktXW NzMWCfROmOUm3/G+950QkWiyiK0EMSRSwCHOkrR7ghyCbSU81UmRSyJQR11T h1IbG2fHxjYhacSaOtS1uuP42NjeVyYmvlRJdLoDZMarIyPfmBkfv5no48jI yO83TLTS37+bhtxhM562tUt4pyPc4OPTs8MNgSI09GIOPXjCCoEgTHKB3AXw idKcct1NdBxBFJiF6erNhP8H4oDXbg+fmpIfprTO0SEIqXzKT+YSrnjOQsal AuFIwQk3JnVzHTEnHCDvrowjqI3Vxk+5cCXJ+i/od6C/x3mwzpzE4GEHARwp k/BIQ4zjDMADZkRUu9WAnfb2v9u16y7by8VjEV6GxVikRKPj/wF3i6q7/hxH vyAHjAvdytw3KtEqjuNzssdN0eOSDO8ves+VOMBpvwqHHgnPkeJg0q233qoO ZHzXTqirwBJAu1YQQABnxscnST8A8F8bG7vnpQ0bvmXiihrl9Cj+gDWjxyYm 7pptNm+rNEzlzFuDp25bzVqbHA1gi8QbhEDA1Fud4URjIMTxBtfuOUJsURNy qlJskQRZATUDxBvACmJMgzpCCjAQH0sFIpBaIwk4ginLDLxZHhE4AF9mA4y8 6xRzkEl4ptTGGgby1CzDIS/FGpJVHODQZwBh+rFOlV+SEeSJgQsUV69+nAbD Bwd3KcBvYmYyOOxIe9orfiABl60++hMeSMAN0S+hfhFV1n/lYP7yVtDWa5CT VRX39H+RQRdgT+qgUi8J8X36a0IZJOYQh6usJlQ9unQy4aj6617Ztu0OQrQJ BHiND4BtSqVwqENeYWFg4Fa86V52wHfDwTcMoKtTHjtlzR6b06xe4IBSChDq QZxH1EKFr2RA7mj+mvB6UmwQuSDHBIIEchaT2H7OAr9LRygX+F2CQ66lAPJt 4XOKkt9lgxnV5TEvRgeJ742AKQBGAU47NByhjALOUiOmZGZcD1MAJoyIAkpM NrLEJi7do3VTZuJJz9YMDW0gvwadUoBfwNq80IyEjQDACUSzAA8A4IbVjYwA 5jMCaF0M1ebTxjxB7qOmlKbADE5ywKCaM4OKeQLol4wkP9eaAkjhSxTQqXU+ qP6X1TsCQgBuUBbAYqbiAPi3bklI4YwH/EN1Ajjg7Nq1T4DHaBWIQLE0xG4m TlPxm7v5VtMBbbaya2q46H8j/BS9cSTmo4jYagV/haTy64JE0Cq/xuUAshiH eZQpfPh/gDp8X6qiSqq/wNnWUf3MifLw7bffzjqf0Yny1dHRJ+Ein+7v339y dPQm60TpiX3JmmFZUOznMM3w7jZv0bnJ99C1u9if1t7O+bdAwn6UBQB2HkM6 /gNzUiwugXeETWSk3LrFzEpNLIyPT2i3pwYYMtDcPbyxf7lv3xenFXBn1qx5 crqn5/PHhod3qHdH/S3FzZen8f9bVTbJkBqf8gucDkQx4EA+yajhO97jeLhv R64qTPsnAjWwKRDejSW1SCxhQ45GGwDw6kFiQG1ApHBI6UaNtgQ44ejQ0Dex wKBus2D8R2blKkKzwqBqMoXAAkNDm3BTVaI3VUGpm4v9NwpA1hmAhI9Iwffx qJDEfSMo7jFjwAsFLP8H2h54QVxggGvFpBgfE5jnZvC2HZWm8selrDGMjGn4 Dz3d+vp2N4TEnwR10xNRNNEYdFchTPG5cQ/iqMuwBtkm0BplO3MzVp15EIPQ oGFH9QigtKCtii4tJNCSp4C8gcqNUAanzVncYAGQHM+sXv2EilEHBvZ628li LvMB2z6kS5YXL9GgMp6N/GznYF5J4Isy0FuQMm9H+89FAuilRmwBzPC7Saf8 ErcmgPFyQ0Byhy4cwhFPSCY0mwsexxNe2bz5AMH5tLrhOiLYvdHT8wDA2fDv Vr5OYmRkxytTUzsrbxLktl4QEhN04VdiIbmjwhvC002iDrqP/1ndeGnPgWxD UOYFfo2OMg/7NSYc0LQBWncDG7c1CE69XDVOGqBtCo4LhqzWpPWm3hQkYpl5 vNr8HlILy8gVavOCygVO/Lecl4x0OcaJKrT48dAMDUyJtUkZg0ZbsEqB5gJq NkDLlGbzd7XHpYbxjIrqp0dGth0bH580xkUx1+kujKczaNA4YesCn7YwICdn B84sxf4dc3sxO2Jf5Kh8c5gNJPT6K4T26qcXVfRwCrAupOA1eiMu0BU5wn0E CPaT3ZQAOTE6uk8dOgrHaQZj6DldgJmp4eGxNDuEAcYQQYHYRySbSBknnNTF dQJ+g3ME6d0mnNj1DLcnJiYmeLMxT6aLC8klT7QCn1VHZzN3RPXdu9nWtYgW DTJPNHcTizFHpIkHR3jHYQTnG5OZ8GUlN6ktSBLcBGg8jSXBLQEaS6bSg9sL B6a40YkdmDKb7JWAu92uoaplA1One3sfw45E05dIATqCOTH3vb33zgwPb6fb ibExiIuwBndwx44dtgaX4fqEORpLldoudfDsHKftGXBXEiBXZo8rzJ8b4Pom hbcXANfsWEDIFgCXC2gC7vP33Xefl2euAZj55NOxjRtvpRAbJ1Zg8ws0fVLf uOkZV3geBzwbVZ3tgIFk3ZsEgJqLbR7yiLDBd3OgB6ddkNJpBm6aSKKP6nRf X58Fd6egoxEgiaCjkTF0or/28saNX1evfg+3RbY71iXjEezCl4YVY0EJryju BC6DW0lFu0738HpSE06cnbx+L0D5sSZhLIFmmrhBUbM5qXGb/sv4+P7T11// +zCGcHzdut+HYxj4sAZwjWaww13dT82Mjm7WKNXHMF8FDgnzDK6vIYYWUyB7 t8bY2ysWd/YQrWWYtXg0abXLK25aDb9/oXkN3i9TANLv7d6923blSiBtz05X C9JI30MKzIIhZiqTXk9vbkhO9/c/APDE27p1D0L4qz4O6KJMcJetCWssUHUG LAYPCAIq5NXeGNbQVIhRLzG6oC7NZYKGbheeHofhSh38L95yyy3keZ6Ha95o EM8myWhQbxlJrVeAMRtEextmNMhW+BnToJhbkcKvmoSR62jmrqyu7XfO5R1M TRKAQ/U4/qx8bToN5fClBwtoxWyl5gz++8I7SXNEsDbJ4FUzmEErXBOAUBwc uvbab5/t63tiuq/vKURrJZ7p69vHDtcpmKjYXIlPKPlM0TDI5+L2lqOLOW7/ vX623uQdrzQwJKlcdRX0lDlw9YrfmFfCpzLsOn0qe8LYfQn+IurikbDbJijj OIzdQ+o79vU0dmM0WFNvJh2siWl+Nmcra36OCb7qNg4fk5n6gUSY/Ul4iOnA FfvT6SpZUL/oHERpSwURrdtNa/yMhhuBFnrhafedHbsxAx4YNHQJQtp4AnI9 CDfuEpo3FI6ydQGzzeZ92Y6q1LpabaRluqIslpbyM0nvD9VINsOHd+7c6bMf 314KoCxQxvlUdBW+JNWuNXBrPK4giWwjcKlzpWqy/7ADiM/wwCZHz/SDa+Vj q1f/gZJcNysNfUCHv1U8fBMVfG0DGNNNxc1gjeS0wHoVa4bg1rWqX9MIHtfP cZZn3aa/5jjimKTS9z796U+/1mw2ESYNoTGkTVC3URaWEgD5wWnBh40mOKtU s8MG9pisRPZ+4szg4F1QaqJJXDgmXbCJ6eIUWd58YGfUVQNnJuCvW5C5Wqra ldcAO4AYwk4eScFry2EYLpXpwsfei0i4LKW9mrqnvu57ch6nPqj16/dBr63v TsvcernhjtLBYxI+zxPkb0d2iRNGRdOMVJC/TJ0QPuGWCqI2DZeK4Gt+Y5nU QCrNwbiNp9S+rqCobpM6u6xX/PCxOspGoblGf//vHlm37ivqUXsAmia/bA9a mM5K9Cmr1MxGUsWuIv6n4Ikq14uuECGJMN6tv+bkebszSL70qU99CiHUJuR5 G4KWjYVMEe9lIC2rS8MwVjJBhqNzIyObpPMwMsNAo6ObgOSgzWumv/9hGlgD AVi5KNzOYV3uMjJFZiGMkqxzxK2JJ7+/b98+CZxsziMvTKkv+2bfEzO7zFDU Sj1gGpcx2WFCNArBE+VJoDXZeF/pFHBkdW3mfqVtLJKT4+Ob6ASEG162ZhuP M0uGiKzCryaFoTUhfdRgioPhkNdtJYHrgNGECtJ4ibNuq8V4id/yJeWj1f0Y jZiY1Xox7S2CNDvg0vhcADwPr1v3VbpNj4zsBZhWDUzXrn3IwjRFmEavjY7e ABBd5Z6ZR1yMFteAft0BqLPsalcYoIeuuuqq1z72sY8FAVoXBGsSBijPCFVY 74Z1BMYjVEMUumE3EkThBvDMrEPMZAeD6vf2799/kXCC1lhh0JU8uCydkDqL qxdDGeHQrIWDVekcbBO0rGdWx10qBXuJ2Deqi42zBPepy1Il2nUq1hCdHRra BJeTA9ELdcXFuZr5KekY0tZYmNoCncEkbwE683Ma0tJobzAjOO2ln5uYGf3J 6fHx7X957737dc3Y5M8Z/tT/wX0yvX7951XMtAcgCAUcBF9Ng+9lhU/bV5GB 73+b8HFRlZvfYCCUGp9uEZDYxdTr+9//fkCjineCSHTUq4TEqqBe64I3t17a AW/lVm8x0BbSs9CtSoUW0zKNgPzhhg33v7Zt2zYA5IVCytUAUopByIaag5J6 laSuCKmVmSAJIaWuuXYIYtYknODH2lZmaZLCYBA0AHd3Sk0LP+AP2vcN7rTZ WwymsJTVeGXbtlukPe7cr8G8C3AsSemeWkipxuFtX1IPp1Nx0tu+WPRZdjwq vzBae4jXZoFHmIylbpHDzebvVWoacEf6+x9T0NzNIXZ0ZGTnwVWrnrwcYJJB 7H8FNahwvl2pETSWwZL3GuwMA+ulD3/4wwgs2DsmAasmHHGpkJOpsqOHgIVh ptmnCbv2LJrM0QZHWgQQ0uhJaeAAXuol2DlkUMR3lnso4oGhyZ4bfWQgdFov EclDqBaGEBxw/zg1NYUQklzZG4ICXZbpMvtLhhWoNk1qNh9xTJNYTnXBrCVW X0NMgdcq4AncEeDKulBIzQiYgqta8kBphFUnz6gWdgtKrdHsXDtryOz1DBr4 nYbCqFFKz+U2S4dHR/+wbs62vr6njgwN3a1k+nYjJWP15m0HqE0pjAHcMrT9 vXugtVy8fJUDOL894LMacE4SVAMuRk0JgDOgawsP6fH2XYO5hGMObtjz06Ff g8d6Zo0tTOJMnBkf3wDKsYJYU4eUqVFQcEez+QxxdlWxsBPAUZKx+SxYlHHK IA/+3RAUpTeGwzr0E96hjySA6VDhWKoLspLZlvgAdGQlB6B6BuwJJyPTCrm6 UD4m604lJ1M43DYCEMmQCA+3Drm2gjU9yZWkEZaVPvyyTr5gs4DU1S9tUWY6 srCVt8N9Lt9+dPBzn3vC6sdU60dA2mGFNLop2txucizRX15zzQFA25R7uP3t Yg63jxdi7WYBa9rNK8EECx1wdMhJgKsJ6rGWBxwlWETA1fU9j7fBYGB6bAwN YOFsA7DVXbDBv02HmqsSE0ElxiZvZohVAhwtxnC29sQC4gLN8pHwqyCIpECO zfD7iBOSoY4TGP7e/f0P2O4d1wlMt5Myh5G5ZnOce4hyBEKKQVp53pBBidUO yWQErYKkDoBqSZ0ZtwYoDxKdz7ag9d4546U0jIf1l/RCYnxDnlOf66GBgScM Uu3JSFhV/wf3ycvDw7er17RFCxCllSqiNlplQOvFgC9kGG5dtPikg2Fe7Yfn N9yXwqhwYxjXDqYhPxPCdSqIV4NrXtOwR02nEAnWMndF9MZmH76jJwkg6vS0 wF4uCNdEEK6opChTbtA8rTvH8z+omqHZX5Hj9NGmwg+XBGktLGbLWoAJjgbx mYGBPZibgb68vr5dscmkghGLt4oGV/UrWB8fGbkNQG1yFWjH5pU6HCzUs7Nr 1o2ktXc3lSe7hKCyTRDA9TD2qZ7BP37nzCyBfT0VLTy3APvi+HDeLSHmYQcb u3kO+A0E1djYF0T4J3gfHxkZuR3EMdzu/fmfP2SQv1JG/veDp7dcHvnPHPyu cVdNIBFzMdvkEXuuwwYd2Slv2cDLEUls4MhqzQYxzxHBf3eFiaClw0CHQATL BDnNqmW5VCFP2ptPHXJBwAsn9A4/+FrKsdhqEqYh/ApSxofRRsgRMOh1cB6j HO8toosWUrWVlO3ohj3Orr3qhcJoTE2ATcTeLIJ6ZxjqTv6oLkAzsrXO8AIQ pzaKC/rCZZFAV68wY8O2nBNi6RYb0K5f/4gFbV2Ddv/FF/8FaespJ5r1AFpc G1nlIMxp5mE7cyw62fJeH51OgqmdFTnNea0uZbiPqKbCexGcpFMi6PG6i1TS 4t2CFNeb293SVyJEoroIGXOkwn93Cxo4EuR4yo4a72p3wGqsueBDhnonlVEK euh/oB7mntkFAa/zJ0m7Oc8T8r9RPlUEVfZEOKSZ7QD1AFYkn7/zhI6+mnBi Uf8/36gnGZGg61BbCKcyEQvhUrDuUijHWzXmSw2+fj+DdwbDTYk3uI/hPLZl 0MHBB9r0YQxHL0f05W7U/JdaPYtVl8CO3us4QGu8M4GnuhDMiZDrmggDmyey SgM7FgR5wy3TYEZriYDqOBPitmQm2Vx3Z6jmKa1OQQ5zMzHnk9evW+MwxlyR +u1h4b6fLLb4xdY9SShTji0vshPf8S8ots8VXkMHDbET446MTCSZg5C1CqO0 H7cLa+ke5IF2drSFe1CHIKtrYQw7nqgFslrAsNz5W9CnLy1QlhoIfRhTfvm5 AwcOKHUE+I0Itwjbhg6kOXh16Jwh93tBxSwcyGudQ5WaFYwnnFtgxaZ9+GeD ANQ2r3aqIarvTSdgK6A6WrmRlX2ofkpAdYRyLAhlA1RpHb2Td9biOfV7Z6nH iMoG/GQ3EIBWowVF4afARzYz1nGWviwpqYH5cMDNxWZ/QS28QjixpZPGlH4d sx9qP41dDzCsNLOm3le2bXsY8Xa+kP1igSYhmSo2jmKWfDo6BMUsoTgOdQdK bZICbEMCWmrYD/YzoZ5mU7AWqzWN1UMjI/d50jk6+JnPPOFitRKtkoPdP3cP 3ZaVoV6GXnakUlBc2SwgtSFo5bgkUiNBK7dppP5AXfO2IVBCaiQIZZZAttfy OQJSqQXhC1/46kubNj0LfjpUYHBCWiqlCyqZfLAW+vv7xSVNkscuyuFUAJck h6vsPHYQzlPuAmL88wcddGgu2qBydngYUqU3ogmGWcUNGX4aNBcFcVEdlaes CtxzpLPVSVmV1cfSAL0A0kV36HttTdKPbnNLuM5Rq6Db0Mh9fnJyj0Vuqu85 cuG2KlfK/fPFnLUDGq2jeJ/yxgn+2C36JR3riDZBBkuYZYMuhFvCrCODO+B+ uW6n57oXbqR5GwI2z3WxiekmAw+4GmnBk/qZ2um+t/f+s83mDVkVnoHRb8Vd 6O3thXwSJpDODWlbcq0KJJBdazw9U1CYkD5HeL1wCzr0aE3QHmLaRWysaWI+ jpdtvYrA3MrfxBJ0p3F+nKR5u4RibgEuW2reMC5zPYdZvVdqqJD68aUfGEAj 9Rt2aDQe3LZt56Hx8c/xshFHIyBxpRuw/pmQPwqWiIY4FJ0eJnjM1gyCpY5N IRJ1ksHBY7MK58RyMwnq4fA468eTnJ2dnG81OyBphpL6dnH5jXGthxXs1Wz7 Opw07OrGDA2Hpgn2cYJFqdwF9dGcUleu1K8hKdsWWPUf13LdIqtwWaUsJX30 5Zkq/I6Dtwudm7SkgqriJW1exEkULmqlZYpdYVHrwNR0FVKxj6PG+bnV8jDl aabFTNH4u1qlKRoftVYC79mzp9KN0E34QSrklb4bPDHles6og1S/IWNLGKm8 cFsaqVVhCqYd7lewkU8DUFCyHQI+L8hneuFIMKoNt9gYOBoLppgvPgVMmpb5 s8PDw+DROgderQqDGo413gePeV51kS3cf//9AE06ofNY4qN0RSo2Lgnu5cLr SYUT40PkT0oCMEXTgyXCUEsBEh0h2xAaLboFIZuGkdiy9hpGohuuYi23bId+ 5L4AUn9wS7rX98ntWUz2t7JUn6KBGe4/diFYfFJucPDnrzjZLOCvLojVJIi/ lOMPbiRUO3RcCYcmaFl88HIXhSRVO4RD5Q0ZCk9MTm6HXeIgTU1GY4bZKhrH mRr5kdjb4OCWuYGB5nw2Q501vI/bVcQ2S/P8448/Djj8EWRpmIDN2bfjtlK2 f9B1PCuxXHyZcLDWBYwUrNcVNzFxHCJugg0EUsjYLUhTsmlhQ9iENEea4sWe 6Gx4AEuvs/feg1Z2OrYafimHpW+7GZsyZZJNHFHuMhIJTjVBeKYGTtdcc40H p8SHE+CnYrAEsILvY6VwRVb2sOGzBCS9WaRGC/nJmQMnjJW0RGv1hJ1jCjXz /f0TKpwbkvw+Na053QQcOCuCx0/i7+MNrvEsa+2zVNCTjZL1OcmiQ7L+amXR 4UH1pGDR4fTSLxGEpQSZpCRkqsHkqdwcLGWVF9mb33L4hbYAHzhwwNYylxSi 8A9bn2hZGmabgz+nB0FD082X1oTjLA3mS2OeLwWsdWroESzh3wQ958PBecg3 64oEn+QnzP3L4OA3EntcHVCH1Y0L69atpz9zYe3a3jn1J5xRmtEkMGq5c+fR Rx8FnB158MEHKfGRBwmfWisSimkQqS4qlgqv1win+PKDU0sEWLULeRSpY40n hIsML5YKKjEJw6qsSixqByhWiSUwxVWixCWi5xj4fHmY2itj6vfck61lLWK7 AytnL8GkAKtUKBjWWsPKVYcx/CdH2zkaWXABUrqdVgI4F68+1FIazUev3PHx b4PbDGyrrTKgrV4N5/OkSVOmADQAnlKFo3jWDQ1tgiHYJJzYePHhhx8G3MG/ Ne68zGZQEJZ1myGI5FxkSqQAYuH1qCuJG0xgZ1s4N+DmRNIwxpyjqwBjeX1Y osemVRtt2Rb6fM9OwYzLS7DXoxyovuUeVMX1gpvDiNooICoRhGK9dWGPCcSE BCKHVAUxhQYK3UEkNfiRRSkOkIYL69ffrKTg5MLq1RsthNasWQ/yEGQi+TgB jMwIxunh4Smf1B3dFguwWt76NArqxbJ2LwUoa6mHJHMHOhlhVMYUCbi5wyuT kw/kzR1Gc/1sQXMH7DuVHL01GBL+S8MNDxQpN1ItWUzgAZwT8i1qCGVZIYJ+ N0NQ6zT/TgdBzioOqYklEaReTchcsPUclCk0CELHA0IPfF8fSE7Pt7bFy1+G et0q7kBElxTt1f7I3OrVu+AAojLZmjVNBabtcC5VqgAfbKGEc2gD24kSnR0e 3ogbAyYnt4oW7iZKAjEIKAJxGK6Bl9CDYScV96rvFvRggUXKjNlWl0U6KzLY SKYJMKElmSagcQKaJuQlYYE/iiQJHXBIx5UBmL9Bz4xX5o+8YBV9Ec3hBUpQ HPbIHVoZxr4RPKUcPzOb0dB7pyojmWLkViLjWVJjb5mzKpCjBzTB+cTPKp7o gO+bBCGmCpw2R3heGHM433Syr+/Bs2vX3mj+0roF2tq1d6CDAVxDOlGPYMOO xypOOYMT8g30ugSEPLBY55ZUD7OqL2xD4iKuiz2OXq8jrHPy9iNiLTxnXoAe u2YZ+vS6dU8DrM6sWfNEhS2Uw0oibhAQxKC0TW55WAy6C5Gzri+n8RQeVICk stqvFbBCOzuKXFvBgqBc2uIrrdMW2Vm2NwgyeK40s5QIhbAWIKMStS56ZRlD XhyjbDw+a6kGnJ9qMJ2K6o1jCIPOjtfwzc8dZfda23ewgh8cvHEBZnJT4x4P G6YVzuAG480mXQ3pQgAYpA9JS0mnj3MtSPVnyUBE0n9dgv5jGxClngq778YU f+Fdta/H3H9+uG3bXdx04Ojg4Ddamg5g16YgCIOmA1IFOg3qw5j/US3w9rp6 qzVg5D4TqfpVkId9TT3ne1NTUyVA96UMQHS4tcrY3+lAz69BjwrQiwUl2Qgm 7bHIZZuz2rPCl1+XxtkAeq5psgyunHIyi2KNWlxIM79mzdDs2rW3Kd15nylQ g3vagfne3s9htDYyshFMFMHTQXcnJqQ14QZdUJBWqUgoXSIgjZlJ2RaE5ULU J9mFSPqyM/wWtOx8kqxBzjf1D/AWMCvJyVvAIrTAW2A0N8ogeQtwV5+i1EYa hJu7iSeA1uASqzSUfA2ep9LwA4FR/X2H1H+VAONTrU/ALB9yTyEMRwQYRoLM bAunRKCH2e9rdk5A1ktpn9udpRz9JRjSSSHNsErrafi2buh3Pqvd8fTVBpVq zyxXXW/o4EHQZLFgQpvjKEEDyRrCE3SNAD4P6urS09a/hxqrca+MFPC1lZSp 0ko4byViMGdeF17vPLdIwr0CYOVx6rlLMa8A6nejP0vyCjhHEKZSf0ctNI6w yG7Mn7BLuuUoA8Pka+pSKpGjfCI7IEsl/u/nsHTr2eZrzo7wSDgaJUzWs+MN poD40Sg1V0qYFBubBEw6anBFhkl/5QW41NhV3qz9jlxr8YgcHNyhjk3IyzTA sRZQSTeOTRC1IGbF7eSoSKsAS2mKqI1dYaN67VqRB09LXdshvDMaoKmfIiRN 2ya8jPHw4DUVuJ0YHX0ACCsVzkizp4P+Cg1Hoep9rpCLiUKglMUsPx7h+8Ee MKkaV9Al7VfJg1W5EuAEBdsCnI+5B2ZxAWG/iEysdA/rrznpz6pQkmtj8SJt 9K+7Jx4O0UqiNcriRUInIdMRrZJpsoTM5WFkwiTPUTMw62fY5tavv1VJWJ0p BR9pg0ZjpaNPzGZz4ujIyNM08cbd6xkauwVENbKsAZ/tlVx2OgQwSxKWAdc2 pgRMObijjiBb86YA/f1fAapaMNvHY+G0zEwBttBw/tmAKcC5gm4tAGa+ple2 UF52/WpBo3S4n6VgngFdcdR7jqDsLoTmIxk0W1cmHnKg6Rhr6NmElEMTbiRi O4QMTt097xCRkn6NhQxOl6BfpZE3KYw04+/ywu6Yr4TRRtHu5wqbjQmX7KQk iyuYRIVCCPjYgVs0HpQGGqBWbc9ztwCrOsst8BIX/P1hH53WYlZaTbckn57U Xan5p2tUJjSjAT0Hx6iJLjO7vk/2BchXeZJTo6NbuC8AtD7ThK4jYSVQhkuD FlPBkqDUxBlUtMGezrL+AgyMrojN0Pdw8GB0ahaYN4VHPioCEEHbxK8lPgBB saprIo++Wr7GB//dJhyJBQB0jkRpT5o0a9AZzOMkfFeETck28sEEfg7C6ajj yXpuowMg0tgAwGUsAbJLAFOdkTA/v+BaWCIc9tIKDUm8tgnvlAEkWU+QaO0Q nm6GNexftm7dU7Nr1jwRm5ZwsL2lvf98Tytkp3nyy9/7f0FYsDowqrXuJ8OV yMEWT4xAJV9MCfBSH7XUjFoCglyqBnI7D7TO7WTn4ZMOHJ1K/aCOR/d6Z2GX gMRULv/hedjIzkN/95MDx87sPLRXST0MR8lGMbTn286a02RcyDvD+8Dmhocn Kddjav41P7bECXGTf7V7G4xlx8vbt99Fv5szpSCBjJ/SjqpaIvzBXcIfIila yWed2QKQXBOfayAKZMOHp1Ldc75AEDWwTHVZFq1JX2k2N9gY8nw2WFQCknmp 6v2qBa1rr6vrugCw0ikrDT6IgIWvKcCCiG0B2PuzxA8doS9mak6sjDzNYCvZ bPTpo5QnZeEGOrbSJSR90nw5EZI/COC6IGhTIfnTIQhaXuIrCjE9rwuWkHUB TLPd+RNOSrhD4nELT9ZWXft0ys8mGrYv7NnzuJ3sbQvD1kEdPyG8tIWzwUaS 8dJ5LYlfaTHcsuxytMXOAjOsVzZt2g8Ipv7A1IheFX+qGHzHvI4JsOx7Znh4 C7kQ2LXLUo9AgY6Fw7MMYlvWL4NxqgR5qRNdago0DQeU/qFztbsQpfe2Plaz DJDuMDDZnlzTQJv7Uvh/n9aIXWkmd1eanwoIpgSRk7rtFFCcZMcwff6EZDqG HVVcgGJHFUsoxutZgm1g6ThLNhF+nISqW2mL8ehVRy3JYN3wk/JqCu18gANK 11/tPjja8miA4wxgSBEn9U5KNYExttNGoi4pNyUJZknLGBDDGLoPYiHFm/AP gBSzmQFLTA48szMYGiIfRSuVAdFQroHuIlEqV8MoD0nlQpQHmxx+4pbycE+C A2sohxpYr5JhvS+DaKmqy9ccZPvF0NR9NTrKzRGNspr++YQmgcvZnhuzpSre sHz5i89fccWdlHrqFrAeC6ctbaMwZRvu4+PI75qA+3ZBfrcLl6wUDTPvgcJt 5VKrqsQB7JKDNlro8qtUXV8TAD3kWGkaim+tMkG806cu1WR4fsXpl5HMLMuu lSuAueRaIuSOHZjDzXgouDDnHgp6xXp9YXx8Iy3IoVIX90+4QMhP/f/EvQeY XNd151lb9V5VJ+TETJAUJVu2ZFvJQaLUmvHnICvYskYOssRmABqdqyO6EZug GcAAggKzRIIyIZLKtBXWtjymxuOxOV6tzfVotRyPV8T445BaDTSkG2CjwQbQ e8+599x37qv/fVVNasb8vvcINKpep/u7J9xz/scRH1SNt6sj1qAyoaAMF2wP eAr9MuvcmzaOAOjJ5S5OGR8KDXDxac43ComvgEcpSThv3/+Ne52z7xZ0vlfv W7Xqvx194xu/OXfZZZ9fuOSSz55461un5q644hNd4AwojRcfIeyRNnpwLtQJ thF0Lomwb3VIAaqr7QTWAkWAbhl89/bbPytnQ17lXDNfjTMfIKtLCvJRnHbX kQDQ6ri7HoxJKxCuo/d69wdNHdsEfvZu2ILB+Xp94p2o9HRu2AKN4aY/0WxM NWyhUcoZVVi0F7v13lH5ERblN5W2Q9ky1fWSSHpMXPmVhfjfmTHb/MToTzT+ YZlFmaVZK8K9dXyBHORHM/Z7hP2U75UnzjvvPz3/hjd8nbgvJXyvzL/xjQeI /2jhcAJstUttPX3//ffnh2MGPn8NpN46wabSBRaxm4Al7q8+foJKyerQxi/6 rribGCgKJvE0XwB+rp2GwUcVUiItimJD7eKjMYK6lbooTq+qzxuA77r4Gh17 JRvk83P5YQoGdTtMgQ8KpvOa7WfGx2fC2QrWzqfa3aDLCpsVx92FcBeULEda BAK3IlrSWNBso7kms17M9YGoWcdnUX8WWHaNNr00BQ4BjziqWXT/9pJLnhST bWyrRfctb5lsUCvQ6FbiVYuEX34EfJB0awPodoCtAFXiOvv9wr59+1CG3CNb cB7b1O1LADorsu+NkOWEYhIiy406qBdAB4TBEQk6AkDTVwpGnzQVx0OCshvB D9YBQCG8fJHhkIWdeWAppXFsYuKLpM8OhyzY4o5U++me3y7vmxc0FQBnvKWm Al2H1XTKAiCUruIk2q3LsbzfCiyvWFjfw5Jn82OZlZ0NPezKdy6++E8IUIY0 dbb29a+/f+HNb55deMtbJube+94PI22fCjCMBbSiAZ9B60A7oH8VWJBOp0O0 k0n5CqbD0TnSSrAuUNUAEk6QXJaWuHSORdBPgOYMIV3oGvCs0bhQB2/jSJQa IM660omm3w6JaTTIG8DPFk1TMBcDazPgNUo4Hpua+oP8JAXOm9nzrCRvXbvi XjPqLmgMfFLsJjv11wisLbjJBR1AckalPefSykKA7fz2ZZ1V/XuNcVUqPvLy y5+w9PY0psMqT5xzzt8ffcMb/uTlSy99zBnalOk15Mp14p3v/LhXu9N5sjIw kClAuAJ85XaQJ2sHWwJCuBYivKjE7AKEVwIfeRX4dTvvaVHOe9TnQEEqUqkN EJbUuDb0BQgHPnIb2DqQvoreL5ntHML6dTEPOY4wOihqHLFQr+/QhpfQzo9Y eGlyUk83SjWvdNlaz7jj3BrfzR1n+vcC0pumx2ToUqMMX6rTY/5Uupj0G0Nn uvi8668DUy1lJPyeq2zcTE+tUabrqUsu+Uuima4XL7vsC6c3b/7MqUsuOVKq WBdak23+Zu6J86YV1nSJFa0BmsvAfe4ANLeB3WE1sDlpRnNeP50ahubMxzjV tQZQVUBz4Kghmq1hrGma6SNB85D7/v/23ns/Dw9yZHmwKAEKb0WLvcWJKU1d 5+hAhvXgJ8u+rCt88hMYbB00+8wyF4UuSv5bbhNJBoo62QbsMzO6XcqtpSpq Md1FrDbr9GullaFpi1GuDYEu85uje0WaahnRzsITrOszk9zSCdbfKFZR7Yi1 xEm3s8LCbErAls9u3vyw+S4Mr+xPG1Yto8afftvbhhd+7ueuWrjiig+feO97 31d2ArQ5ajkCdEs2yFgjA4yQrQEfGmndxUceJHklZy1IKTZ4jT0iQsXr9LtH Uxrs8q7qQ2gNqvU6anRqRcfWog9PTYbSxOBU+kOHGe0LURVBfcweTjUKzWoZ MI9SWutASqtgTgP1K8TmNIhHLWf2sp1ofcF1jc41/Vy6wHZZzoAW6iHQbT5i fs09D1FxwMRCK823GtpIquq60LoWn0DZmYCuQaFB56XHPkrb1lKV7wnZVyKW rsXXve6esjOqP/uz1y68852/vfDud3/I/HboXpnv7n6/ZKqg01wFzJbB4XIH yFK1AafZmraqrFLilIRqictMdL2iUfW/chCyBgvZsotbxJABlEMXA+yS+UKX Dh065IxdIh0Doq9W5gkrCRVC0jmM+fLup0kraACSmuvtN6rofJVW1T/LMfDx zAY0XwXIxNdoZsPL09O78zMbuGO5BkC1ooKJdn0VqIH1VKDSm6Lp5biX7Lea 6JlRqy5yQZtSPpHFLvKKQoh5Xok7BBKzm09Phbb3/4qSTLRfaUl++Gd/9kHx kEttlmSm+HWvu+vsW9/ae/od77iyytSmC+9//+/N7do1K6Rxs4EN7aqaVLrE Ge4CgNYA8G4JUco4n4QK5NjjU3dDP3it/WnrMwHa0DmZe577kqmbwayTM+aV ZEbFVjqnTzoFpIhRtGucQgYLs7AhQgHqRrBRIC+3DMhBXm4S83LXApT5C7Ii glW9+OiikQz0YqQGz7LTZWDVbDha07DQJZARl0WQFdVdRiErKLls7Np1D9BU Qd+2o5CwXVEziU90vhPwla/V+Lh9Ws/v/d7vfesTn/jEM29962dLHdZevvjm N9989p3v/NDZd73r/XSdNtepd7/7gxXmLCHOFiYnbzgxM3MdWTGbAE3ziLGm 5wrAVxU4rW6dSPHkMe5TAsrtyP9Tp7PeY11n+dKK+2pIA2qHk+ah02bV0LAG 6luQKXdOBpE5s8VH3FyfAAcVbQDReShq6FDeQT26f//+hmCzmYOKXP+CmQxo hAfsa9IUrgxLJdmPWBF3San1Ie+Stlo4vdhiqwMqx1xUaeOiVgfEpPTaatc1 khiayZhsfobzTABkfoyJK3oWIOV6urv7jlI7g1k5+va3H3zhne8cPXvFFe8z 69BgaXZQAyZxufA7v9NHVM5NTR362wceOOyo1DUQYvSEyuA4pgrc0tUhlboT IaCyHQRVqM98vf2Zi//J73JIUkrUv9fW6Vd1v8EPduz4zMLU1I2EZTmbYiS+ pysJrGhFGtelRFmT7brVD/mi52QGrCETuwEgncSQxuMd0JSUpiKZouzcbLxD bnitJhL5ntKMxHqUBUQiql5LKwMYAoyJ1BmgCt1XFCI4lfmPrZ7C/BcNYljG 9LuhWaTL/LLN3fmehODRX/iFfXTNv/vd/yZlCpPFLVsmiT5anrQ6pQrYzcKj yzlTic7NEo0rQV4nBS7oKgCj6i9YcIEhxY6dwEVDRb8bst+g/22hsn7rkbYL j/98112f5eNAau0zTM7V64+RO6rGsFT0ICM++p/llObuLEkCPs85Ubc00T8K so1Iqb4a80JVFtvbWY59C6anQxfebFJe7teNfxDkeOGvwJ6oIMeeaDQvU+yJ zlnvovG9qBIJeaLLQg47phECJ0LHtPh05NmAvWDyyW/bj/30lVdeefDjH/84 s1fle4WsoA8DE5fWUSjSxZbxPe/5pQojSXJ4E4vDw/fygbWrkpeARgbFWkPi 7vv2Pfbcvn13sd+6CkCJugxWZlDmyn4D5QladSvAgkdFgRuyBewXK3rv+W5N un6eH95665dFx4nANJbuRmOkHyxVgWW02lAcm4j3KgeJwDeOD2hpGhiiAS3I c0WC3AXDIxo1AnN2V56n9bnbLbDPz85+kvLMiwpYFvgGwJJNhcAW1AUHXYgM bNygNrQFcKN9GqcycE07Co9CVF5FH4Xw6iwzbxWfj/Fv+q8BnYEkzEcBnW2W zqc+9KHtns5K5qsKmeZvdE/n3/OeD5PvykHlNdfsPTU8/EipvDA4+GWDmsGU fl2MaZXXcUqKK8dd7LU4MPDpV+r1g+K8IjRR0W7TinyUbURxIqrcZ1ajYyly hB6fnv6mDMQl33Wxr++hpdHR65ZYAilqNWkqBR0fvDI5uV2XFfo96Dxv9sox d7Ua4xhjg6ZLNBVnSIDhXQMwrNoZE1Tl9709e76upyCeGRy8/bT5idiMjjtp 1FpP9IWhHvX2Ype1eSWvKzh6ebpRas6mf6rEX1dhfmYkNIPFxxjPQ9DYdH4E gNbJ95SyNAIaXwYyAwsj9uK73nXV2Q984DdOjY19qpRYqE6Njz9kcLmHKjtK rrOboOJkRm/vYyY4onuFwCqsikdV9h0ZYIWV72jqKwKsDSzSDWiRgvdeYL8i bnnZv/9zL05P/5kkSCVEZFVvs7iozVs0TLV+qdVumHFtI6xXGmQTKVy6IOqg huOe1gFM22LeKYKOPXjU14k089cCyiq2BoAok4L4hSCDZdzxvr4HiDaVC020 QSPwyi2V37Zwjhitl4/LGoa5mQo4Vmwv5HGQbss6kfj/AigDAZjftB8TIBnH Lhsdat+UgKw5k/fRjx6e27nzPuKvVGEe01f6+79yavv2exZ2777dhIsPHRsb +9/FaSMdLh5mSURWLZenBwfvMj+ZPfmWtTyXiKOYAIznEuk7ochR1Z3mnNTC GRcBs3ZCk21Jm5j42sLAwJdKfHzoRI5ouMUS6f+JgmlGpBc5Egn+E9u372Un jc53LohbtqbOKWrBRc5pQQ8BaskMnNMq2MBswUIivFIlLbWkiuy+cQ38WGAZ zk3a5zKce2xsh02zJDpeJForqo0toK/AXW2VXFQEFOl0QdwGjmsxt/1RO4rP OY7ZB9Qzf1dXBPyGfVqQ0Fll3VYB1jqnfK8StUfHxr4p17Ht2x8hgq2X2rY4 NPQ4wyvX6Oij5Lm+MDn5TTI0tYzb08PDB15hoQbALSqmrxVz66tk25fHbaPD GpkGHZ9Nk/7zzTffv9TX97nFbds+582IG7jr0dUzaUI9frMEDjKtvA2szBw4 H3wWDHNCaAfZYn2+msOzafF3FdhjNRJDNL2lNYUE90lowrkPyImYPTM+Pm3P 4GU2t3JgfeIVqT61A9LY4Uf9Ka3WyQcwJiC3016Y2+nNYGx+wPFSlEQC9kOA xDUugPzIR7blgsWKJrGU2Lvx6b5CyIkdLRODxjLs2nX74o4dtxqP5vNmq3zs DGmBVJ2D61CUKwXhYxlkdqohjVEVps6YcVDLN5/bQdVnyLoc27t3b86EVuV5 p7dvv4mQfMV8z7Qkq9n5/xJNxxgbmyxV1XgoqmIRfW/ox+oZGK50B06G6oj5 saIIpfclTlypUjEfiSFRfQueHT5nApaF7dvv4nw6ieobx6jq5oCoGJkvJ0IH 55ctoxI2bwRRJSxqJotUrQfZG1QTV8zdtRlDBacawQS04wF9+fP+DwD6Nrjk 6vveN/bMv/pXO47+8i/fWWpj0lLzpX79O7fddth8M/cIXmZ1zczsNxRMTBxc 2rbt8SUK2UmoMjR6dJXKfE9fmZiY1QPS5uwPOKqMH8vW0N85W7MyTkvwvBSs 8PXZog37TeMRZVU/YNH8Shm5zG/lxTg4eJtfjKSwPzExxfjl/FYt1wL91k5l E8xiivqtaAoNG0b0wymYchHEXG1ga7K1gKlW06eI5ni9/qj51q1nKtbPyrZO uwkgBpdsdq2zg3rEBV3HqMMKqSx1xE80CFSps1tuybo+gIyBmtK9+Mj/6tA9 LT7tOFnI5K/ZRwWZnk3uyHF4ePhbd9xxx1OHDj3+9M03fyVlLKv0x2+RSTJx wz/ccMN9C9de+6j5fg4ymeWl6embzddSr9+3RGNvHZ5lxrMWGMKRkVtN6H/D 6fHx3YuTkzvdbKdUW0VfoJ62mEhdY527RpSQUOEGsP8XTMeAeVXQrnWGEB0b +yQvzrI3iffIMnU1AR2cVNVTMaxKGNdqk+c6Pz5+E/HKsTlbXncOqSX2ye1a C76+DsA2iiuR67CyxZO7NmCALa61vNz+C+Pjf7o0Ono7CQk3HM/S1J6EmU2N 4+pnusshiLOgQW0rF1LFDyxfleS3k3XJd5VEEc35sG2FxF6Z2VIRImt+EnJK kxvWCLwvim1FsCVGzXo29zIha2zszp3fIGif27dvn/lueQbXiZGROwlguk71 9x9Omd+2pcHBh4lduijw9+DW6zeatXkdxTG7StWT09M7NK9i1lyZAdbDD4lF hdEoktR1akWubKrAzAEM6gnC57kRQwyw+QXLtDfW5k/dkIzR0QkaXaN7FoMh GecBw6hGY+gioDWZhx1qPSHPthP8nFblkpfes3UiboEKkiWzLV9AT3PbSNZ7 qb//IaJTToEye2qWu/3ejfGayUOpSaNPvyJuN+lt+VavVkXAUcE5iiqDFE9b YYrn46ENLT4qOQtJZG5/pUUSU75Xvm14IAgZP+4DrRB7xl25+uo/YPlXa0D5 fpZMqFmFS2Q6RkaurzJ27YsTE3uo8lVXmdNvt2m6dQOAowC2wLohzxUpaxXA FkDh9lUCbcn8dimlqKbT7MxPpzH3qcWRkf2kt2/BQ+6r1vVXyYg14GtyZ7NU AhVaSF3LK8UPYLQFt1cAi8r1Ci6fPjcw8OXFLVsezWZYlImxsqqTzzFG7ZWU XGbGkuXXueYd09dSbB4AxiavuDic69aWddjBt3LAVnDe/8v2Y8GJx8aYlcux VWs0cIRY5exVV32mVKW5P8SYvyYnbzFO657yEq1DOn/bYXyRncxbme81oo7q 6+jiaWzNkqSbYnSgyk3kjNZ8YHg+eIeTWjthVgUBtGTX5rSyVjVaTT+cmnpI BPAJHmn5s+Ffh8q4OGi8r6drytGBShf4opCPieSKV2NnCzWA2AIg7vyi3Ccx RQNH7azRhCoXeDwF2TEDU81yxLoC4+N3qoNIrwvQSnXqq60XF4b0FtfIUS4N UyvE6rejhgqfRfAthVBxoNiZPc9/tp+1HwsyMwi0ir2LF8mIddp5WAIY85Xw PTVr8salHTuuW9q5c+/Srl17zN93mK+dEKsJXoLViYmJAz/Yvv2T0SzneVls FxweiAtX2gjcwYKJFcEaVax6d9AqOlUlcPCQkbUaHd2d+JFNO3LDYiqiasFW gG1B2dqt79x55xH/Oc8FVlFPv8inSiZVMyOKcZEcfsEQiuBnsiZbvouSvWeW 7c6TyJhfGfXrphgyfaOj+/nbrlo1f5rAIcrWdPZvz++Tpw4fPqyTn5E6VYI0 XxoeyNYV1KmectmeAD6lqSPwNXqJkLbmhw18aw9QC07s2/hjqX6Yt23vaBG5 MkBuJd+rr1DWz4Dmr61bP2mcilvKZ4eH9xiPwmyHjrzdhkJKSsw4+iqL5t+M OzVjYr4deYl4Mmpk3C4A68R6i4HYE/15I3AOdbFaDr3g7GwTcDZtasF3+wfo ma+/4ma/GIONZr9wcOZKjYg7L055LrBYjrhGcYhVwGmMTohA4ZljKmhYQPbR GTh67/zg4EOE2Kne3sctYgnPW6rXd1PUuTQ1NW1Ne0qmXSjzWljl0GFkZ85x ph1GuuREsLi8NDcENDjU0wmRKkiI1AoTIh8utmoNJwt861KoIakMJf6M4PWv e4t9HcVsOfZSzZ74k6W11pc8RevDoCWcVZmzNmMBdi7NzOwkzkjplwgzvuT0 0uBgfamvT9Ier/T1jfq0x8XNIzE+rd7Uoj+Foi7U82cDJN+Kf8Z8RwTWWfqN l12QYJxIP6jFGTeRanKy7xU5R8gMnB3mR58xkIPltd0eHipo/ZXAyUQ6kivB N4EgQsp0a7PVKwUxUOfdnTFQusTLH2zffhOB6EbaJ37qmdN4Lzt5Z5J4D41/ ctw4MkIl1dSUw94oBWWqjZhAaSF+LQXfSRxQ5HZGAP31ENDiMwa+rbaPcHPK 8kUwZcBmGgaG7JIqNn0+ZWN4IEFM0rXOJlGO09Y9NjYm15mRERP+ORtYr0+Y 39nY0vbt00sjI8Rjv9g7g/Ho6W3bbjw5MHA/Ld7NYAnlmIz6mZ2Zc9q8zb09 dCzzILoGNuMgTxJzTJzlLtXcURDHehByZqG52wiyG7pzJ1eQgqaqoOaIpr6l LviR53FhzWp68bngJ+xO5k739d3P4wXlMsCVKkBS3ZJHbsyEkEe7k61cq4lw K/0/X9Ztj9ujBabL1WcOqroLmAu8zWLmPpCh0/opAd/WavZSfchHb2DrWgVZ mLcC2FzykrYK73CutzGeJs2YC7pXDG3biTXmreLuQ0M7zTWx1N/vVRbP9vYO EW2vDAwcdrWolecOHDhANU68LC7KIVSYeWx1JsJ64LDZnEdN4xcgaLngWEN7 TTL6RAI72jJEtdHJKTN6SAsqBU4ml6SgrqroXAMUuKnDeXkDHGSwEYCpTrzO DAzcxsOvBwZuTYG4ua1Ip+OPSSKOhhi4grT0ufHxf092jv4mKgW+vtt1U+j6 7nzFaM4+8tfOR6ldOQ8030IR5FWQB1otzKv8WtQDjRm4TRqyioYs77qKNXsb 4MtVvHz7t37rt5759V//9efojZsAXwndywqogYEpY77qMtjW/Lq2Lfb1jR8b HX1oYdeu26gozYGVnJiZeeAlKigiNS4D2IVg5aimmsIsZBdYOQi1dSCFYk1E La/8JKidsekNv8X6jvwKwEKOtLWS6jpglpBMORop0gG8zdWAXeRtKlk3Or7L zJx9nrxfSES1ncHvgr9fzvNUgcmz5axtJ+r1IwTZ94eG/sOxvr6n6P/0d8rN ZJNAucuS/Hd7oqK6mHTxi+piQvWfsS6m/A8ZIRjYu2IE+exs+ScG52kOa1rE QrIrftQHSmyus96kAMjzAXp6es6JMWhildHR0bODg6MKP6qH32aclrqxZ9vn hodvK3N1TIXKQ42luJc5tBXb6dzevQeFRiEyqCDJLUnyxnzAsh54mwXdAFB1 DHhtYOBTqrGUKgzbJL8SsIe0VXWtRa5RD031QMoxTV3MFHzzudptdtP5FH0T ABUojusRAWNj23Nmr8rJFmP2qSR0cXDwsePbtv3pS9de+zeuJJsqQ2USkB8M lisRZRqTRgeUoCwvU+dYF2QHBNboXnzs/UvLtnoXBWGdrkKhF/4cAGwt3cvE VtkpgBu8ZC44tHXljLMz5qswzn+f9xu3bh1cvPba/a9QppKAMt/0sZGRB3xd dsXe56amHibcyPQZD4Ei6coz9957L0rx+59ke7a1+dNP5G6uioV3a+MGAwkM n3WEnbK/rWgOPwANTbREoHGvHjrOXxtzKFH7lXUoE/0AeiMSSUT6wRauhnaA 05wa8bZtR46wdk7dTkz8vgS3x6+99j+a3fWLL/b3/wVB9sORka+5ek/i9HpV eb3Tl3vmnEuFVrz6Ol7j2WDr9ElCLeZuQtJaPEm4JPAvA10KZMdc4wI7ke97 3/sYNQScNWzVedrxJU1CoA0ODhJo1tZWjT3rJUWl+ZGRkZfMD+bEwMDtC1u2 3OuQe3509PN55KhAm0rLqIPM/EQYOQrpQlenI4sydBnPerCgUBsq2zXkW64E mDndyTPkR5iPn+BvPJ7O0NLAcIY70u1GQzScnlKgmFawNQRfS1yBLYDQdvg3 msP14GfGQZP1eZO8Ar91Jjs4s+Q0vAm474+M/NVLW7d+m8A7NTb2IE3EyQZT J6ohkrsd3EEn5agyL8J+7nyNNZ/kIc3EjrivGcT/SCGmFvc1I7mV7qjhKzhw eF1AZHCM/vYstMs39WnPspQAIs9V5wkNJFKmpNd4lQNEolm9/EMyvv/M93bs OKLxI/Seuvvuz32LZqyV+V759v333y9upljBAEm0XKwhSudzygPs/q0F7qdO UBRFhCiRsQq4n5XMLVqkahbzwyFy0UQcGSulc5327K2qP43k7+jTtAP/sy0e vzb1PxWvOf+zoacx80M3AMiRbrfLx5K5ZPX9TA0gUN4nZ9Qeu1SP9ff/DcEr ltO87A4qiGFwy75GoeGY4rQEGbtU4+6yqqyDORsI0jZgJNNCSN8dQtrCocOP xQlFyc2VgNA0ajOTOfMDInnBM/39/UsGS0RoGxOaPEfL8a677iIOiUouuq4B KquWSsl76tgHybo3LcNXRsH7q0iFsyCtH9io1dEAsaq3ak0qmjS3HpAqSsif /vQffm/v3m+I3L6sNRbkVUr+/ttBWVwtr092F2VE/QPKsQdEZCz0zw39HpxW ognqJkhen9AsVVhWvyJHM1xj54SSXx4Y+BLhuDQ8fI8ushajSoUZrgDU/Ni3 C5K2ADQuN9y8zLqAyuAosJjKd9rQDx5LROQN+fYTik10XP9TANAVwKmtxqNI AnR+fHz8FDnJ2UlD7ylD5wljWksd1n4SncQi89iVUUmua5RKpAim8tGyccNZ IiheWhuLItHQKTfwIn9KIWlStwefcRTOZbFX+Dk3AAwtNYGWPiXurZZ+hbw+ ztvX69c5PfrQ2UWyidEBGLkvp1XRtgJdfSTuHWyc7M502bwv/ajmdu7ca4Kf fcQnDa72Kpiqp5BSOBXXT+k6IfxsZ8nkEKW2xq1ycnJyj1TQSHlpOE6+uLw0 X6bdmMXJ+bZpYVLn56O+bcxsWvRKwxnZ+rwQgdkFwKwBMDfGwTxjwKQiMwaz C4C5yoIpUGonNkjlMC+1MHcTJRHl4FvtOkL1Xm6aRR5MVxtFefylzCSCItOq ZpE+klPVp64cEY1Sqvqc0jfuoD7P0JqBMM4V+ht92lT/PCS+LCHhtgp4BqMY DyXCX0pb9kvxR3jWqAWSqvRjkL4J0iAS/RknlLVkkKSqfUaS+mEUjlJyqnAM OpN8valMsTb45Su8AwSR55oUIviO0EY2nfrEt7dEKSRc32wpDHI+7cB/bQcU bggp1OMOTxlf9p/HxsaYwpWWwmdokJlQuCZOYRBKojP4CjCPqa2mbPRS14PN m71UZXhzcvreLWWVyprHTUISHaZKtYnkUvfseVTU9LUwm8/Y6xSHuU7btGJj 8KjiUv+tbAQbhdbXD75H5KGiBmVkQNE0vAI178b5ZpXQ+NNPQh0eEmWGqVt1 QTcHniQeMDX1BNXVVJRXGkQJTYZg6JJuRFtg8Ippe9uyDd47AtTyXfA/CVBr 86cYnQ6wD3/4wy+Zp+uKmAAw6xCTwlr/iwawZ8z3+/e33XYbT5JYZUGTCJER W9dizqYDrCE0TScF0WEXyN+gvD2KDpF+PmNY5vx5GH7ISEZzJyDJMYUDoty5 J3VCiHC3NNLStu+ljbIZF6VU7J7PTLEWHXh4dMxFKKlP71kP3l4gqd90JGU7 +IXUwC/EhmS1fKqI25vcruQOOircDlqvb6eyb4GR8rYEYthd4XMxuuQbVZfm S76DyLCd7rXwFEOR1uIpxs8HpOVHTLwRkFYDriVibl3G3Ml6va6nfpJRe8Gs imc42ezaAQ8dOkTUMXkrAX8bWszOuNljoqRPvtp3Dh58JAG+DlKl7QQraKMK BRsLSXHrLT1UMjBuz081bvw7pu/fKqbV6OvU+vi+5Vtr5GtJbm6rcCmmICsf d2YLhfIl27kevB2J4zBqkuHVXkV7/Cct3UralUPzo+iTe9m4qrP4VjKOpY2l vcIpUbDRE87oylWpzfPAXpu3niOGFGO6gLuRL+xVRjIvb47auYJDi3dpAEPZ iB/PAjtPX5qrRzMEmt9EI31r6F4m+Ez86/Djh5YBgglAcEUW8QmGpXOiqZiq RlB2yCxMSumXOW82IOPGHhJ3E3o9HcDz3AQWGYr/kDg+l3/bF6eU/CT8FkWv hIIoxk/J4BN/J4aHP+tl8LXCduLnUsx4yTOksH1O3D8U1PhdBaw19S11GiqY UYGlt4OfMtdk5mSWTw4OZtr/xBodQWY13FxNKnXc7liiQzNHVaXEEvU2/WBy kr11UQx2tdz5tqZILbdrVI26mRH8fjLErwXj1w3Z4yP8N2Ts+aRKAsK5lYC9 1Znl46GcKqly0mBI2Bln4ECpWoydt3znFydaJDhw4VJNZuP6ivre3sPsk3GU EGcOKHk1F5/oAKs1V5PDVs61ImoE6d+c8dPJTUlwniWZUANf3PhlUvfsYqJz jeg8CniED0dRNPUvkYhaZ9zhDyozbXF0w1Ek70zOH6fMrq9Xq+T4rNd3yKzv s5ZPrvimribusSgTlbnJVxVV7S3BYA07oY1jLbqAVawUYvnjWb5kWecR/zqA M+jGPZ8/lm42r+xxg7bp6qZ3pgDcig8OVwNcV8VzoAGubS3ieqHFldsMBNeK vc/v2XMLVX/PjY9/XrIbOoPoFMiSs4ODN0sJCJWEoFgRCXqdA5biq1TOZ2rd e+cdtS/Tb/jizGBW5WuX9N+SY7YSUd50ir/OonAicMeOPUG+XX+ZqOe+QKs7 2MBqsfeieohO4LKin3lakI0th8gHuFKyyv06TbjI9eGL9fpNz8/MfJUaMqRG HNWHm7dSNSr1eTpl7VhFaoMZJeevE5wfVgrHwLyhuRnNZWt+GZLKbzzXfqxb UVpK+Z7Qx4hgIbUC4kqE68piXJ81OxPj2hHHNUigXsz3VMeVdM1df/1NpTLB WqotTE/fLVOhdBqOw5Nybkum33GZ742ZEEqztAMPV6llRBtlc0JqQTae/t01 J50kVq+//npSzhc1boqF6WsWz4DSNm5ttgmy/gAtM7PMqhRVO3Vu6qmiTyQ6 aEhasSuLgD1hSK8b6Y0XyOkj/x/pdQe+TU15uvIA9hbKruDOWEH/rZtdt+zb qWZ81as1sO30I6Ca8leGhx873tf3Taopl64OOQPxGt9Kfz9fUK694IKCco1v 4AVXCpOtrwvNbWtHG+8LCA5UMTa67cDZV2a33RL8xDnn/D0NmPnuFVfcQtiu A7SuiB9tBLR2WVqfI5G0HK1BFugSvieaVjKqFQY1IVCprJxL/0lo2LGpzKlt Uy0DX6wG3ODz4ksPWRvgBjeMvGBjsVLB+sADDyhYkx9MTX1B3HfaZNyKIk55 j7E6ZDt50IUtD01EMJgu+lKR2JqDcl5a83JHG4WuAfJ6tZ6U/GRWAK+3og4/ w590YwGerT01z7AkpwKlr4g1e5LVKHc0unLY41u3/ofTg4OPH+/t/bdiQ4PU kVbcFw03pbifiI6N+Lpo1m8H8HzLhSheGlrSFs49Pqg4RDU464A5beN7hWB8 /vLLv3rssstoUsrmzUfML/tNb5rlhinichWgsyueoyU65VyktKpFOl+XRarc 5EhQWhtaWZyZuWVxePgR0gH3w3e1zXT9BhSlegGWGlh4qBULRaYqfCPhaOTj ZilHJx9z7J577iEeaQJbXnGbc/1cdSMJf7OaTMA1rbr+UhG1oevY5OTD3PJf IJ5P36nPEiM3th28NyrdvQK4sRXgxtawG5vxB+W/0zNDQzfq4nS1BTGO0mv9 3MTEX3J1+pYtf/VKvf4IubkKxyQICwyONplU1eXpskWpWtfAvTXLtgt4tsU8 bs54bPF0xM6CKQ1lNlUf+W+gj1pbWHmoq+u/zF166ecseO5++eX3LfzMz4zP dXf/BkwUdRbj5/OzawB+XSA/+3prHKmWlboaCbnTJPN9lvRJSbzzJpEK9pGJ toxCoFnDuYgn9FYvAEtPT7CIaej7RS1FKo16AHzw94L5boVCa4Br2gGmiwpR c+PJQml9J0pKCRFKXMqQNj1kRqyHfD9AdsDXcfJJHfJh0ZDHAunuxlkXuGY4 KL/hiMFVAugH0BurqgSdekfIQjqvQL5XiVrKVHxunmDoJP/ozMTEnb70XKXX MoHvRL7zHIlBf5ZZwSuIxOKi1AuiprDgaOQjAX35KoC1GZT01jv27dv/8G/8 xl84c/gP5577lYWLL36ESbTmMBEe6Trxznd+fAUoxWkLS8kpuqQ+K0TlumIq vVG83AWYTp9qbtu2L5D8Io0aLjGaZSLTeHjj43cs9fY+tkQCz1ZU5W7HJN13 SyceHSqjKWEXxoJIVK0SHW0BO0VSsawvmtcSmjTZW9IzoKe4KoUB/nKS+mw0 rUhwVdiUOIu82KxVIhTqRlpwFtFE6w0SMko+WCS1LX2oH0sfGUku2PoCDZN2 bYOv/Zz58gRU32HLCdqp6ly+QxkWoHcfXXlOwvusIk2Vc6ryPNPe3+Wlhycn PZZB5XlwhtkZ91kjoJ4XgtqCjfztQkpXgec5mP7ummtu9V5sle7lhYsuMu6j cEu8GmoNrZ2A1FqLadsNLWJ6WYgpN5BSV+Lw8MGSU/1e3LbtQbaixKulNmFq KfVJ1A4NXVd2ST46qVaaLNLBd2J6elYK/YOVeFE80ow2IBZJ68eHqFa1m6yB 3gQgcyr7BBYd5onKfgq0v12rkmBNrjC5wFr+Gwnt66I08lyR/HcneLsLaMm3 Rzj7b9rhDPvlOhtTadSdojQ0PM4dFmppIqHN6gd79twqu5QdFm+z4pRqk4y4 biSpZHGD9HgJzlSiLvkgXKIOEkHFJG8K7WPL5y4fC3jWBQn0qC7gQzthuBe3 bh194mMf+yLzXKN7xfF86aX3iN01tpjulYW3vnXwxBVXfDRamV5tMc27MUvz CuIwzXuJq11QeJvFzZoZ8319n/JjNa699rNOnfWBxBE+MHB4qa/vzqWRkV1L xgbbdGBNmuDlol+TmNPS5jjNSLu/qcdc9UGqe8dJs1CI26doqSDZOue4M1nj 4zuZV1Ybd1XY5puYPD4y8lklClmRcW/a5JL6a+7MKfUC5KrNRQRUkdfbtNEE qc+y6DhyhxlaWyiUatJ9andl2AaTRfnlrJ7YVy5KwXp//0O+YJ1SbKpgXUpq Y6M0KE3EfCaFBysbmpvWXDroSo1iWJ/QEedQHlafmPhSqSOzq9WFN7xh/8JP /dQoX8TjO95xzcIv/MLHygvvfveHUNtW2mLy9pz4UUuQHrrYnYyKOjLRV6N7 2dpXDx/pkZedKvno6O1ic5emp/eZJTxti1HcKaLutDW7C7f1/cOBA4f84roY GAXEIupiQm4y0uFQ0avOqJQJUT3HQ55bzdI//gw+Pk+DRwOQwzhH49n7+r5A K5jWMqeXOCGWi1dVH2h4DqMk7Pw3tEJ5xzD5pL/T1aGra0tYQ6R5B0yAS9wZ gmmPTa23UlDhzlgSjmpagFS3N9hKOjSxtjLVmSG6OCuUwbU+s4+tH5RcHRAZ iH4k/LGqlNCKp0wPoX9PwXNZZbXT2ktCdOEnfmI3w/m2t1218HM/9zsL73rX BxauuOKDxlwaQkvp3C/+4q9IPleEsPKGUiWREp3Dferee+89r0VOLwScdvC9 QrZSMJXBAaSwvGRciaUdO/aYa5f5M/mBlHbhZL22kpIjvCTmnrbq3yLtUqSq VfYcIlkSlwnVMaTIlrMc7WySmQBedwZCsZYCIzVHS1YajQcAvdlhwS6SlWx1 PEAb+DmuCfNK85aJ4L0a0cDNzSFqRw9niErRO7m3Lg1uXKJ9JNir3FmeKiC1 gUpV2R9xKkq1RwsoXRsazRbOULYGiAbVCEpx3IvXIaHVxL0OHLM81Nn5nxfe /OaJhbe//ROllAA1dtUgSoDSNd/d/X5BM20xvXshwBKld88PXVieDLfSurCn RkZmG4YL9PXtp7Tebk7n7V5yRTxmOx2vODjr9d1mVTOUetjoJVHvNbBwuVkC hWsSSZ47g0suLPFJLq2XDImN2QhUSBI3WSA3m1EOYSj6lCorgvXExMTd0ckC amS2ACs6YEFf8Arg5q4Az1um7LmEpPq9Aqp9BUgW52C1ga79HEF3jpy70PmN qp63e1s7Gk4gB6GS4jXrjAe36UzSwaD1ZDVwSIsTR30a1KoUHdAbNe1pY5aY /rlmP103QPTPfuzHbmLLaeGke0UQnf/d391qc2QFtfEBnBcXw+lt5rkgvlxt o0yD2DiLUjooqwxlx9nhYaoxmWQoaTty0wq58sYsbEoQU9VRWdnLokIE3tPR bI8OlRhG0WcAIBJV5UyNKz47rQcO0AyusO1QJnrYgR5sM3QHNRcotgGeE+Cr Kifdfy+rYr5qXB0vrPJgtsr0vBR4qDbLk2ii6KWqgIjK5F1VQXaGTadodBiq S+UnJqZaGDTw/Z07H6I5IieGhu6IOa4/HZpElYIpGjEVZnUGFWzlDMucJHLF S7GyZ0q3DgfVG994Yw6q6sJHP7p1wSyDuZmZ3frABGVhL2kRo00Ao7UhRizC NTw8VWOMamdHRmhowLhHyTi85hewnUYWi3Q5YSSZulbiwejkgA6wylCBrSOL sqpE1otc8wP8zw7gItb8RIFpP8mjQlxVsiwNBX5B0Orapnn+ckE6KBjOlABf FAXGrY4TUBUXqLA+bxrlvdaxiKZcAxjpOblqvlNjY9cHMEqhkKuL130rL09M 3GpnDyTEIEWQMiursrBly2OlCnE4Z56YtYAVV7e3hTC2YPbs6Cl7IlrezDGo sWKlnpLtR6HL1vBRfXtJ/kn+2clOVnQtgrQyi43U4iClFcBQ1hTT7373rzHN Cd9TYfrU8PAuYxenTg0ODsJjlcvcpCva3HNAB3nXDSCWXG9jSQ20CYzM3VrG CltGQtpcXEs7bnCYnCTH7KCVTLdYP3/TTff71XdhMdZeb38DWLm6j7MI6wRg vQKkdzoAbW3hkAKaG0rFtPoskLaoWgg0i10WDCkIdo4E+KuoWhEJiTURTvfP U0UQMaA5aGTranV9Gvq+XIuurselFybOTVVVYaTvbMsZquwaGSMrRpQK56lo 3sk6c8nk1q2PM8aJhdkY1k8ap3+XEjwPPNifDjxY61IGBybP+jnYBQcm4xZo OTk1t8PyTynfK8+6jzHtDkj6+5PuKpWf9O/1/7Vnz+uR11Wz583K6y7ke5ve EIKdhzYO839n9P00EvqPPYl2tRm85z3v422g7LaEX/3V35GNgNTTUe738vjx KpJPCPaBjWAfqNg7GXjaDNyGQPc2sfSnh4cnF4eGts8NDd1K4pqs4D49fbcb pzA/Pn7k1YxTWJ8dKHp3E1W5oiyTNG0eOXKENgaqYIKHH53A9S0Y9EuN697U t4OdgXNaVfDQKvCnkY776pg/jUaz56RQMsHMnNFHuV+rTZZqbRafA0b1YKg+ 32wMUp/vGsH1xIXj9fqjp0ZGHkW1+bQzVGlTqCyMjhp3yoQoM75Komx3Bp2J 6gl2hjSzuS2e3Gy3gJ2TMTwr/9RhGfb88sdKnusleV15qXFPEG/D3OS18rwe /Tq7FzUUY1Twh1eW5AmZi1C193+gI6Lu7l+l/eDUBz7wscVrrqG5QG4nSE/2 9/c/Sx4B/diM6/kt6hNsdUdYDdJZ54IdIXH7Ag0Hkx2hzPf09NDQTtoJFgYG dtFFO4IT3E2Pbd/+CE1ZoU3BS81XgGDEufH9IZjUFp3tgEJr5wtTYb8v8Jfg ocGPVlNSfW0+6mbtBDsAGsRQAe5HFTj77eBzLHOwQ5E2ILOt9pb8/hDksiL7 g05A672IXudKm2VryDqvXIsdh9zGrTLwf5PbA8zGQF4Du/yyIRiXt7//LtoV 3LXXeGQ7zZdo9oTicuLlnh3tsA/YlDH8pPxTl2X4Sc1we4t7Qi17nn9dF9gT bCteg8RLBX94pX9qfk+onPqlX/rA4sc+9onTW7b4k6bFrVvrJ3t7dxqH7L5n Jia+lNJuYH5v9913H+0GvCNcAvaFTpDmXgVSAOfZfeG4+aX4faHG95Q8hcXe 3oN0LVx11SPGEdxvHBizG+DREzTzhfYFPXoi2A9aGD3BRyrobHgloIL9hXaw H7QpE5tzpQO3PgXoou2BP3mZd4WKyBU2eDG5PSI8gQaeSDvwdtaA5zURy0fx QxaPZD9Jv0dw/NAJBN24QcHtCPrJtJu4vqEzAwMHg0YFapO3fUNtVLilmxRO XXPNk4v1+mFqUpjr7/9S1QUQvb2f0ZtCmXeF6tzUlO8IkkgizIMv66xqT7Al yHagUK9K6EAod7v/Gwwlsgh2jLYWd4xqtmN4L6KSfbpZ9elm3Wvcp+vWj3HO TSBZk4CP8cmAbfqtHLziiv/3yauueuDZLVt2yVkY7R3He3tvoL3DQDo4+PVS 5ambbvoUOxS0jSRuMzEbgt9MLi7eTLyTsQJsJheAzaRq73SCftxcL5l1RNfc yMjsfG/vnW4/KZqrQS2JcK7GBkCBFYRqacyGVjUtyk3UwA6jM3K5SRxNEwes 2IYU/NnnUSNv/XFZG4g5kHb/2ljMgfYL61Ok+hDAZ2j5GTUQbLTF9o3wAJP+ zJGW66JgEX+7Z/g+Q9ovJD9DDRS0Z5CCP0k4UIPNqf7+wyW7aVQWhodvkQ2D U7Y7S+n8xAQPopHoIjvfPpNtFy2emF1nwXMtuT2Ac2LVs54dY+c5D0GuLW/f ANtUGM24z9utX1cBz3PbHqiiCT9mjxZT87wl2j+oy4Nqx6neVPYQ+vMPenv3 Hhsfv7WU2j2E/BC/h1TBHnJhi3tIJ0hdXAT2EBeo6D3EUMQra25sbPt3b7jh wfzGgSaCeGmt5U0ESfIVzusAYUgkvUAgRHdiQRE4NNanAqIZND1rDdhbbIST 6s9BFxdrowk0NeAGLXM0CIhgUv28MJKpgdClYLfJzwRCjSLSwjUxQXVHk2rQ ViotMdIoQhuPKz9Kjk5O/vkLQ0OPnh0fv4M2IZfzNO7vQ34PSm0sQ16LeCs+ 53kq236KjhE5r+h3IBcHSSlrsx2oWvy6cAciwMWH6QbvOAz2oqavE9dKlwEl 4GMS7wDfjfYW2m9o3ymVZzkSeuJDH/r3RycmPk87DV89Pd98evfuI51um/n0 pz/tt5lz40efwUlJO9hmNtvyHr3N0HXKXLTNdPDuktAOplMrPM2kDaiGJWBH QRKOr3maCUqJuBAoaCHTFj/3ULSnIPaDPWUd2FPcHBNdvkZShHPT0zfTHtUB fB/36GBC2Drwpdqgp4rku5SUZmM9os0yh4/hz9kBthI7btZujLDevStrTZE+ OjpVevqOO77BKqjm/9KaQpvG0b6+P6Lrhb6+J2TzqAQOjE2B2M2j8o87duwN qxBOZqy06LjcHGwbPQDa7obtAMPdo19n5RBS7ZDQxVuLS6keBs/YrJ+xscUN ojO+QdA3Te2nXHDvkiT3/diPPffM7/3enz61Y8cjxoVv3BU2xXeFIEtaBVnS y2xBhOwKsht0WV+DdoN8/IO0A1/L9BS0C0Dj3ppmZ1VvCp4gs6vYgWbV/Ehq 8S1QAlPK7fWUd6UJrOeI2BkqiUg5UYMbnTe0gzgGzWtYn8UxqWbcewxoQAMa bsTeSZk+H5oyVovtCcuruKcDZ9bxK3/r85//vKth1vuB+RvdKWK5k/YE2hKc N7HXRDi8GRg/9rqjo6P3ZJvBCeZi+aemt+otoQFhzmt04n9j+76+5FEu3CI4 i5qAf3DcB1pHiX1Ko+6K+DGRA6Bc4XCtuwSECc1/P33HHXeUVoPU6IYWN4ME ZDMut5HIc8agzEvUsQLsBKuALCHaCdC46jRMf+qdAE1vCQweGvrDIYf9RInu ZKMX2bAlzSNvQwDA+yZnGdWhCH2EGzKl+NfpnrHEYsVXGRwWZS6qaURJVjQ7 YhlDWui7KSHleuT1KNE0LwijNuB8sBHU/IJgQ3Wlo/p+mUVjJV9oQ7C7oxdh HRr6RtVuCvP1+gNUirowNranVLPbwPNjY3fc9+M//gwvbF7a/1xMCMh93mHR KgC5uwFky3ChPV/Dd44lGnwCWzmZHi6BDUW1y+r6qQr+sDoR9i5QbsuT4Cmr 41jyX6RrRDhInEiGYgXIUKwD+wI6MqnE9wX6O32c9gJjqfm3jwbIoLkWwb7Q 6gAZpMK3AsQJ68A+g1IR7tCTtwnzc5ijJ9k9ItEhAq1y9HaRRHXbw9z27Xfl 58qwHGICpMJorgzpbqI+ADTvdAPgunigBWrZRzpRkmfNfJEOsA/oSEH/nnyk sAK5Ekx/haIEIb/UZtF/YWzsntMzM7tUOJCQB/DUlVc+JnaNF/UPM0paPw/9 ZLABaGAt2FwohUy3Qxz6DF2xbQLwTYQCvunD5Sjf4Xa2vkWQ10RBrupUI13i 5YtdN38UhiVLyBlLd0Ihtv61zKpBTDdKV0eHyqPJGG63WKJsEz2Z3ro2pFac eESt01387oEDj/JADKLWlT9rvWEvY6VF+st+DM3uBgcCufEbMzc+7KVA7jvS 0skVdelPFNheNIs858i7qUuNvwFXC63JZaFCCy+bbgMuY1vje3J0ZORBctVf mJy84+WpqX2OX2GXrs3C7w+y5d7iyeU9Gl463Gu0trbQMX22BKxtJHKfVQg3 bgg5S+8aeHGRU1V/mL526cNFFLuTzB5HMPOLYvaVUYoToThCr/bem9KrJt0U ngXw6V6ZHd3QjJbB4iuYdROAuwFsCShwt2aZa3LIJBPkZ3bu3KkGv/nkPyqY tP2yVZl6Q4DTJdM986JkauBNo5uuxtB77yI+8CbsgV0P3qvLnnPv1XO4oXte wLhvLlGMo34Hzbjtd2DGv2V+9c/U648z3c43F8bpKpX5nhLrhLpcf9vT8xAf 0FnUvw8sW7Gdvj9AHVrdFfjfGHXp4AU492icOdpH5j7CuTLRcloIs5BOeo5i 70K4kQKxm0dMp3lz5gfFyTdEdrVFss9pMSdvfbiOfL5KHFaaomNouUn87jag ZowG6bjGoGAAd0FSTpcNaMbXZvYu77mD4XHVIK6k4R6G88V6/faiATsmKPfu Lip1QlJVy5zr0ehm86A8VE5QBVC7r0qA1qDTiKkiqOkSqGlQrvGRnp6c/DSE OuF75YeTkzcTzOR9W5htS4+HhP/0TxkSrR/pfTrAG1prh3c+bn62Cd7dDXhH nm9zcdW81pR8D4jqzQVU68xaB6C6zZpsonp+bGzs9PDw8HHzm39dGDB/y5bo NYKN0uwFI3ooiM6N6KnqET0UfVLBGkl41kDs3AHcbj05sSh2tkdutfxx+gnz SoJ50U4r8huF5OigIoWVcEv1qB7aj8ham1/48PAtaE5P2VFNottO8oy2DTSi zgXqwcGYTYzHptJV4764ZA+jvngB0vQ5/E9iOa0MlFy3DjkPVNMtvClAu2rR plzaQ2960//BUPPxcp7lFg/ZHlYgOzs620ggOBFzCHe/doTDwj8lreGfcZl9 HQiYUx0w0/XUAw8cKZWfvuuuxxIAcTUzzQJxqcz3CsEs8o3uBD2k2p20k2kW smHKvNkkn+npu0lJF6aZZZLP8PA+P8lndHQGZcfagRuOipBbneTjSnsDyjm+ 5bb3VeApzLarK5HvQmJsZlsG+uSmLrv5WzPlbLI3HTPpIAQx3ljxjNzwGvjW cnhzHTYqVijAWz6H/tgyOhGs2VZ4OxnGhEy4HKUdHRz8Qod1xylNPqvOgnp8 yvx7jMLyT84esSS5WQCbAbU9APvZGPY94AGbAfbQ8bfYd+iuYynbky9cT+56 fTH9xLpxTr98dM+erx+dnv5jE9JwpRyVs9CPnHPYDnyC/tTIyAgjnwDwLwT5 s64M/LyfHoAfmQl0Ynb2Zj8TaGLiQYK/cCZQX9/d+ZlAZOYbdEjRTCDUllQw eiSo8ZVuf70DuES0fi89GwlGK1MvE7682Locnw0MHOKRJK43rxwVhE1FGkRG BzFI58djbIJawC0aURI48DkhBZalQ668HsKXS+UHey1vDF2NAgR0oU3AqQQ8 tWvXnbIBlOwOUNE7gKsfC0+D+E//2eHc+gHaY69qH2iK+6of2baQ6pDdH7K7 uD0ornEzx4IEXIfdF5667bZ7nr7xxgeO7t79GbMnPHq0Xv+TUmr3hbmtWz83 v23bJ+fGx6eNvWncF1K7L5yq1+t+X7gAxO8r4/sCmD4U5tUTN3podPRRkhkR cVHR7lb2320BiR4LZqtYGj38AvoDFtDgoWpI/yn7Xn9EnT+KKqH8vdsC6LU6 WGHXJs3GePAW4CYSqZnnogR09IYb7l3m9BPSm82TDrQVAtloVTmDRvgFx11p 9s3mPQPk5OfZzypochuAm3/wzOjow97Db4tvAD0NG8B3+Y8NZ2jsDpTZh674 5Jx/E98+9z91I5hteN1KTD6nA+wxW3uefKacXqPLbX7MfoIghq/ZGJ6of+a6 6x4i6k3YRPdOrrM19EsDzvPDw1+nHWDh6quPmHW5f7G/f8dpuoaGqDmwkfzz APmrWyTfTTZ6fv/+2/OTjU7t3Hmb+dxfOJvNIgknPspclQnbOMjrt2DYWKPP j5x8J6J10kFO/3do4GmyqCLXQS54BZDrWT3DwzeRnNXS2NiUFXhMNeTUHZMJ 0RbMUaEmJ9qjUQsg+hbBgAf6+SF/H5HeFfft81Rnvn2bs+N79+5/Zmrqkwxw zWL8xK/8yp8hjDcLynz/jqOw9aO0L//L4AuzefYkLNUKmb4NBxXGyZhsjbBr tRF8FcI1XzI/MvLHhO+pq69+ZLGnhyQradRJX99MFXB7Dgjh17bIrR2+klCv DcmEMKszM7fISCQa3rBt2+M0vMF6tjXL6ivUtSXrEM1AOj/GKpbQAYMPQnTb wH5QBp+DM3NW0aSmYeG0HhqKRBtRNtrHOucTEzQYacqpS3sHXXeaQAfdAfmy IopIQhMbkNZBe2PVTizjnsQtd6h2SXckg1nWjjodrYidVoA/vWPHAZVkr+qj 8VlX3rJZ8nH/ifkhMCwCXkBWHSiDw7M//JeBG9pmp1CkwRaoveYf/WcndodR eiWzyx7qxKFNXrnrgzFL6sorD/Ohzi7CmS7j9tK9cmZggKR7hqOpuo2A8/WA c5WAz48++4cbbrhPBiyZZX1HMF9pZOTeJZquQ7OVnMw/mq80PzW1rwpccnFk m01oKSgROeWQJ9dc3HQ0gqmpvqALD2jAkQ/6bUtuqiePyLgWe64mc5fGx0kQ b0ridJHKLZi7FJ3b4nhVc1uQXGKjmKidIRErz4FTffVWgAYdFhTGktNOWwFf ZjNYyXtAjfgXIy/s9zjuSxn0yz1Q+9r/YuRbi8t5Bzjf/pvO0ntv3An4Sp0M 72Pngp2gbHcCH5PTHpDSvUwbQNnxf801d3j+K3xPz/T3Twn/cuZW2gCydE4D lKUFiw7dXudsu2qYo2lN8WFNFR5/6Mar2UHA8UlNczt37oWTmpCeWMFslyAx 586oKSFH+8AJa8MaTf8y94Fgr8mPbCIP3ngAMrJpbGxHw8gmtyOIwj1X2iFv Pj//xbHHXn10/ksnBp5z92z7q4BwFc7nw/RllcMr6tdYy3/f7t23dovbzvz8 fUZ5i0dtf/yqEG+K7o8i9WbLXXDqzToHDcWuTi1MZ9/oanNGvl5/gsgmsM/2 9NxXs0xTlO0pXgci63NbPDrPDWbiGhsezFTJDYXZuvWBkoxkoqlaNJJpeHjP 2Wwkk6Arg9Zo4fmRTK2OgUEjmVYCbNHWgETzUGXMOWBrSMMqUi48r/rCtz2e WTeR4sz4+IyMgikh030OsL1aeVsIcn29VLSSt6/BDMUu8HNpw2hHs++VOOnI 1UdtcKjgvdHLXxVT7vq7DIFlHbp90z5DH663hviP4pTNSnxyVK5Fu3mjWtHI NH3l1tL7wJysdUmAdkE4A71lyw2pM9LGPJ81Lvor9fq4ldwuE48XxDEO2kgu Bi0oVdunSkZZz1er8NiYKgHtJzvRNT5+61K9vr3MwymoZsSPBqUINbGjnQIz eVEsCk/A4reFLtUzCmK9QaDhDAXsBhxUG3PSVH6OTK6b6ERH5VwMhyY6nQc+ hUsYUuNWQ0u+RgKV7iD9LyTCjwZGIaPbBGN/eIfaBou6WcVNv/fee0trYgT/ n3ZlL+Og7MlGdmcBeppd7zEX4NsNnvEswvci/rcqSqoRqvatDfWtqm7VZ8Lb XMRN9F511d0quq6a+3bC9+zg4Ki56sY+T5AOyCoQVF8YZxrNgQqYdnOgOMC+ +uo/AHOgruM5UDt37qKcscyB0lPaZA4U5Znicy2CNLaXm3WdXwIxlaXSjsCF blzZgma7uClP+ZZSnvKUABNbDuf+RYc+nQdcZD30KccpCmEDd3mFd5eRNH+q fOXGJFiZno7i5wLgvIdsW5QiwP1NZmFoXQaDRIsPpv6dAu9HW1ra08AeAvsi 93BXHq7pcvoQDbqXMqjcpQCf2rbtK4669MW+vs+aJb6PSevvnyDSzMIxrJUS oY2uE5OTuzsBdRe3SB3XkrLtdcOdXhkYuLVguJOxnXt48IX5rdMMGTfc6TR9 OY40ETAj6xIfTdow3MlJ5RNo1MjFb0QzAVFkqnohvYvrbE6gSxsMclKGUkZf eABV0+bcjh23sq4D8nGrwMflHJI6AWvQ6wROLdKcKHJqG5HMLF/eQubr1AI4 pbLcgclYrokNofhrt15bP276qwDKvL+poYS+6DoFW0ChTCRtRuvF9uEaPD+s wvVKB1Wk1vmlGRk+MU9U1qwpfHF8fL8xe2MWQ76np4aHdy6MjOwVIOfHx/fa OaO5EPVSQGQnSC6fB5SZrF1NWamaVKm3bCFzvN98BbPcRbybaz+nl6anZxhO 81RxbN18p1MjI/dRBRlbls3No1OOYt1QmhfMx6gbmkc2oem5BUiCjE7oBjop BDKP7thoj2SKZLSaHBdZKFMZSROMoUEtWFKYpj3CBPCDAvOVcS8WjVhs1YtF 3MrruGm6oHwccfttaSoq5PYvGY9lHyf9Rw1vRVvNxp7pWU2d65mGNrig4bJb P2OzfQas7XC6bYFuo4Stily6SDutVHX4TkzcSNAyuNaWVj2+cpk1SDY1AQRf Biq5UZLpHEDwGjhWagePlbJDZ2iwwOTZqalpmplIeSY9U4rQ9TOlUCAanynF RZh66lqrExPRIBg+lO0IZkbNEJ6lMt9TOdWVywqjuAdpJXm0PaTAm0UHMu57 DYq3WFIKDbhCPZwMXtqcSE41sxVGqou6Vawpgn9hl+zyDne+HQDYA5DZrJFR Q1wK0Vrj8Gl4nZMsmc1xy/6xHRMF40r6mMi1qvpr8Yh7ckje96Y3/Rd7iJND smzB1Eia9c9Hpi/Rb8kQREzR9frik9qG7mYdVK5XxlTJHJK0e6nqxrwZYyoz oWTc25mJielTY2P3lVKLZKBX0uSYxi9xq7lc1XncBjRR8dR6YN7i49zadUe0 8V/3UJ8El0i6ggtO/KDhT0h3MK++7E0SiirR+LaC0cRI5STwWVHWCbZCg/cW VGTKMQ3jujoG7bcyaFs8q3navpuFxpDf2l5A2PIwxw7z692/gcyPDJYJaqEt ouHANldtRpj6M9eyzeY6XEck51O1jP7T9u0Hvk3ylRQmvaFFNNcBNDdkQseC pxU6Zi4r1k7SDJbjw8M302yF+V277qRiaLGTNGeBCqWfoazeMmcxBbURrhwq GL6Gpn4i13ctsG2dIBqtxeUF6HloFhNByqCi0cUVEIyiFA4SMkSTWBG3lRb9 3Ti3yfFcRVerJZbSOUEub1N0/22GLrK3opkVnrv8J0Xv8mQCn8xTP6uJVZOU Cg3z5fbh+YoJjqmdTGhQ08zRrdMApTA1w9XgMsLHphPekpatJT02NHTf84OD XERFgw/KSkBI0LwsjnCQPFrjk0fnAIXyFAxXy0Yp7dCjlGh0ioxS4gFrapTS 3N69B0tloFugk685vE+JcobCG4n/B3jrDt8ivNVAEp9sUoJ6hQNOUC8yH5ig SSpo2GMF+MgoPoxOUmmPpcVgn1KqDaoPUp0GvJYeoNdpTznWDNmc3G+G5LZw 5PL/aGwrPc0oq7X4Oldw0egmw5lIOKtsqxsb8k9Mb8U+sLHO2YayoVFO+F4T yolvEx+OmXB1z9zw8G1EdSkBowgQ3pe0iPcqEMeeWzgbiVoibvSzkfr795YK ZpnMTU097GelIWGSgtlIL7v8COdJlf1uKI7QMxLRhFEkF4SmknEtFZo5Ep2N VAKDTHDvdAAzn6CgSk/0VaFhjHH9wDQ/tIGrotqA51zgTSNP/NtmdTSvhrB1 TK/maMe2K4pyRz6tRH/fXMKzyZD+f1QDMDfhyIW0s+B1h/XrbGdRLdaFxGk3 VPl8of96M8zt5KKEslbHJyauO7Z9++1UQVG1ZD+9e/eRfJE0k01WQ9dFNCN7 BSD7/NigojIp/Zp1PmEnFJ3o779tYcuWQ4jsJGuhRmJiTz3yyCO8imVoOBgs kp9StA4452j6UBoLnZFnWzCWKKbJm39eALeteYhNEmnkBk0SWdvkeCn3dYJN KNUutM9fuelPmuUmXjdC/BkK3Zoi/g23pFs/IPqeRhsySex2y2dxXnBPs9e5 5yHbHTBe8QxmM1MrYM94I99h9ov2LDTv+CL/pebxDkNrZrvNwexAZjwvAJXJ nSCQ7gSB9DInBn1/evq67+3YcaSViUGFur3romA3GB+GYy3wzdsA3ahEGR3b qMkC3jdfFfd4G8cGrQd0u/ib4vF/mp09Qp1PJiBpPFtCSeJWZwblCzKLd6SA ZhZlwx/mz45qGWVja4nqrzI9yz4++q/2EW4ojuClEOMDoll3EaqMZgoCaDSz 0D4jeTL3jBTsBm9yb9e9SJU4smY38Ir6fsSGIEuGOAFzA2uA4POKj3z969oB wZsBwWVAcJvlWD+PqJVBgbUWwdVTNmWRvJbBPK4ZJ5jpVWkxwNZDCHOfA3m6 gSUsmNMjiW5m2gX7dD7FsqBU2Mxqv6XKKyMjd/jvl3t42+MPRQdYCGLgjgcz 1CIQ0+W+pabH2I5pWjffJoHYQqb/0C311i31f7PvdvK1gWXtBMiqaeRP5l4n 2PN/P2VfF1RhOHPKO478tyL8gvnfVme8doe8kvLwN49+5CP/7pne3q/SWJwu EAef0yKeNZ/muiw8xS2ahdMVB+875mPIYqEDjvwsnEDLC4lkOwX7YPAV6u1F 4KEYdU2sQrANRM4bQtJsTssadS3lx7XISr+MugidipGIE0aT12hMBjqpRiym Udc5SEpnLOL0V0HjYAzIZ3bu3FkM5Fey9d3iWZMV15W2uVkNZBsA7fwMSIG3 1J69brO87mf4jnt6pGdIpbMkTdat/VwlGirtfF4wUxO4MU5gUO+fgnjVKWjO Ux4jN4rmqPla81mspjK4aJo2Ek5udRTNihiISAFnBXAJ1zSWBoq/WjCbJhH4 nr/xxlvItLlSxh+Mjf2x19tInN6GUs8k6Aoa4dHoiUYHFp1o5U51VUyK49Vl Vj3SKnjOOEnFdH0xtB6tHQf9d/uA8zJwCCZ2UvmUp/ysJ8//d1H44iX/YksZ vbmH/vZ2SxnssnHjIYPypmwIJpu6bubL0aiFrFaArND6OGVBVqgSo4xtX6m5 4vSaFlFrdbqLngQReJfWaKb5QW6srFLQkxI4a25ARF7aCUWV52Zm7cSOHfv0 WJfWBkQkyo9rWiWpy6Cae5F+c1JgAZcdOZGos0ZRRb9gciTjRzWfC6lq4ajm RUUJQ8IFCwn96ef5X6KNK65uMCgwKlJb13HYmigAqV6/En+VXm8rhHRBPV16 qhGagBJb9z7t2QECoOgElFyQ1QV8PZuKDIaaeZVF5cv5TMi60Cfi9D8q4nGt JnpWgm9JMW6bX+9sRmzfWagzl+UXY2X6hasd+WluYcpK18Fe08KDZbaV0QT1 vMPWuPgfLdmli44zipo75+wzbrQGALaLdIZrnbm6sMW1jtQFO8PJvbLOXw/6 RioAlSZjQwrzCmoYJkUAdH3n4MFHkGPV6tAQTpSXacG3ENJ0gA1WYeAdqgIM dORSKtvpQD8cGfma6J4EMmy52QLBci2YLRC4UkkciSLPSh3NQySaNj2j1ykk 8l5WIxJHQnvQQlJh3r77JgsDbNNwrR6NhS8Fk7DyQXgjDJXj5u6Tba8D1d4p eC+S7z0nSkJVk0CXjNiww6VSGQ5NEzbE7/FJZKDKH7hALuYlDJZIMpx+TWgR t4M9l1utVoEwRA3K0bE6DdAg8U2W6atm4rvmSw1WNhIVB2ohcGUj1ybojEAr uxJzbZosZe/aRJfyZ8LdvbUhc3bKvRtAjVsXuHgTFX1c1OKS7gDLst0uy/l6 vX5qeHiY9Ozgkq61uKTPK97ccwMmavkBEyQExe4AK0DF13PjcLdSRaqhT19/ /fXQlVfdC96v2ZDx4cejoPeCGTEy5YZTULTG0WaeDZbYKSIBJycn96BiLjQr Bq36arGL47vaeXFHz2VRwJ5b5s+wIH9smR9e9o59xr57f9xbz9oBGsRfLgFO DIpY+bix/PTdd38uAUu2Zl13We6nzeeki8sULvXxKgKlYO5C4LyX1dyFXbtu mxsf/7wEfKJRHsxdGBy8zc9dqNd3If8daS5uVGverPczRCzqxEHKxLmi5aay q+6QQw9ccF9+mpdXp/i1VPat6rtFsMp8jO7p6bExbvqRJac11lFBcnDyWi12 ZMKF34KDEqlT1NHwS/S5zMfIgYmj8GCGQosJWL79b/YRdsJ4UeF9g+bCpVGP vv2pe+/9zDMHD37x6A03/JHMJ6BTeTmTp0UtZ/fHx8bGCAVCgHvDh3JKhxcB N78zDkfg5tuCokTDMXf99TfJWILp6btJhrxwLEFv76fyYwl0rOhLAdBYAtdy /Z+NIaK+1kUPSHvcCgRTNaPzR0qJHjZAX3Tipo6I0DiBYPOjDAC1503ZLrcK tdMIZFCXQVfiF5UDWzEFWvOoCk95N4WlPZKsEa/GKg5WehqW+APR3b4gC2pT mPYpt9lVXlCg3rDKL8tWuT8K6OR7QjpBXri3Xv8TJ7T//NDQ16h+9MTICMmr NS7yKljkF4BFvqLFRX5JaAFo1y9VnNC+WuFaaH9w8Ga/qFnaz21NwVS8GnBz znFJevOxE9Sp7VY1KvhEo+Psrt8w/F0r6wfPsLsyq5uIYG9OdJuzlUsjIzfR Ijcfox0+OTU2NqsVt5E+L1rjtbhXEzgvSJ0gmuOPH60FK58cnZWx/P994cpv IVNpz9HsI263yz5exd0o7XE5cOdrQMyy7ER2SCaLZuoSAW4QzdyWLY9zHfU1 19xfKi9aWdv+/jHxdyAH58Zl54NCMsTBZZnbD2Xnh4cfWertfcznO/TOLrLz xuUXV79Adp7lEufd+jfP3tkB1m7a3OvhV5TBaUJ8CmzIU9mWfGgZW5fFT30E MDY2zYL0Vk8h8IBE7oTbnOHz45AEHtDKOBCteDu6K0MzQR5PlIm7Mx99WQlM W8phH3TAkgFDXTd7JajseAPAIgVqzxWnQCVqzw4NQmLxyisfPk1qcr29O2nz ms5RUbF3JOoeULEWZDpRIYcTdadiKuo4JEF3LepOWnIk9KrPf7R1EDDGxnbl c95A4z2VVXzSwUH/hw17SnQu5gFpOpp2+yM3RooczQbpc/7WrWvnMy4Ke7IB bbvPWp1n1npmWiqWFi33npedC0xKAS0oPRQQj0xKUuBAKWRSjYxPDa2IcXPo 1dkSWztRuoPv7bFjruDQF80sScDAg8QrIpeSF6+99vGzn/jEQ3xdffWBxCHS 1zfpESkDRDb6wHnD8sCgt4gK+qm+vocCFXQaeWBMhldBNyYDqaCT9lIVLF6X sNGLV4PRFuciZjX86yqAC84ZnQ/Acmrn85OTN/ggub//HooPXKa/Xas607U0 Nja55FQlyZ3Sum4UjIeHywlY+U26jfIrv8VypIZGAP4hVlzRjTv14qXfGQPg YGg4WsuN8s2KrJVs1rOGBvn5tf/jYO1zy0tNeUxmxdN6N5uSWe1VXunJadub ziudVjgS+kd1R2iJX5YtcSD6TfKi5ld8uxL9TnjFk2AwCX8PDV1XLtb9JuFg KO5rg9SaXp50nXKrn3wnSW8ETlMZbKvIaZJRIc162dEQTb1Yzc+MNf+rKl3k vke3/VcMCRP0vTMB9uijIr3t+nMgx2lxMtNEg46TAsKP0W1V2B+U4WaheCIJ VPGjovbgQGgPWsih8s2Vtn4SeEnufEA6yPg/awtSHUd7rd2a08V33pI3AVu2 3FCqhi7Scdsw2YgEKoZFrWObQa26FUtK5vv6PqWld8us1NkmiPirv/8h0dNe yvS086KdtAByeto1vVwbcLDGvIoGUtFzNgL70ioFKKvP9sqF/ZTQyh/9atwF hfmJiZtI1HNuaMihUOAGAWEX2EwezJiNtnWp9rrGxZ7qxR56QPklvpzcqC1N dQ4TDhJWZbaE/i5uUG4WRF6Plld4T89dJkrjPd/cp8729dFWVKcVvgb4++e3 uMAvAguc9fzKOYl4Wtx2iafBEp+e3kfK0iWWxrQp84pe3CboZHHpfzhw4JBf YReBleiGGlN+iBY55Yvc7zfVq5gu+rvI9dFi90LqLolEWlmF7r8a8u69npqq kFOec+rX9y6/vu232UZxsTg7IjhNa50SwxQjn6d8nWB5I1+nEn6ZnONaZtei +DovZ43ODUudD8hWxE4Fbo5u7s1SprY4rXSXXfwFhZ6REQmVh/ft+7R38ZXX 47b260o2+q3Kwj87MDBC16mRkV0kYbcSQHBBiynRC3zLgxOXpb198eqrH8lL MBsX+CaWYN6xY9fS1NS0SDDTeshLMMekJytgnbtEh16jXpZ5I8irVlsMczcC f8blqVABAQmr546BSTh2u/b0RaZS+zfHJia+SMrN3Gt0rgvtc93BrF3QEdcA kq+b2V6mSA4oCm1Y+HwcFl34N4YLv9Utf7N9hM0tNSnmbDgrcAu/p2RF4tTC Z9+Gdnxa8m7BjxkAzHK3esi06EV+tdOHsgX98IGffz6ofF5h9ZDNg2cL9JDJ 4V1yXgg5uk4PmT5sfPxAD5k2QDQXxJnxM275z2UfS/TSjfkwfDjM51ybwB6O hnBU3OoZH9+u1zdt6G4jTyTBKeO6Urusv3vrrX/oW+g2ZWcLsWUduCu5Zc1+ XSYZkyvvQee3/ItzB0LS4cbLtyO2iK/PNljZvVtPcdqTq9K9dgMvKNTE6xjJ qDkhUrN+xmW3dou4YsLWcREgNR6CWcptwEvf3OKCPhcs6FVh85qICFe9fvAM yRzyQp6a8oMxnH7wKyMj95oN40mtH9zYKlOmd6sJ5+x25Cp0fAjaqrg30j7k w+K23Do2+7I4IE6PtJrXI6XMC3EoYbJuCWXTUAHOSTvdU0Ck+TNKO0YdknLW WVbROUdZ1EH6Jbqor2u+M6N406be3UlYYallEIu6KW49pVDAk7XqZTkPDAz7 5Vzme9UvZ6WrS4s6BYv60hYX9Ubgma+FurpTNafjOTIywfqdZi2zOLbZoc26 3s7SumUrGTg/NPTE/xgd/QYPIr0YrMnUr2xV5pjPuaOay6aNzqiHWKt6yoJy C52Muih5Sk5dpxS9YGACVvd6d/CmKOJ2l7jjLV+q9j9a1deUclb+Wy2+4qWm uHjF78m28WUmHK1uR+k3eUMm34QlRi73fy13W5ZK6j8n/xcv38wI4Uyla6zs LjVqaAaifPZMK9W00LU4OEhnJJwTPzExsYsb2pzPXiBzG7jr6wEZLsmjybAC AnbDr/CG7/RtS1aCurI4MbHn5OTkXUxGYvk4esstDWNJg5XtfuXktxAkXMXm ltAL5leZT0NGZ3YWue1rgWvTCdx2NH/EhdGkg/u9ffu+yGe17SEhLCFvP0ei /RlFCHJlhBB2ZaITF1RpTz5nHyBRAZ5NewyJXaERaDXp+Gb7iF8v+WVvNnbb 0lgFPcNKrP2wu0plvld6NDJqHMNsKdTxkOd1Z2hFq0adgldwBsZhtNXNqWqc 6HphevrQ2cHBYWtzkHB0hcTxnrn++uupvFSkadGszwCntT763RgTpGVdyx1e 19JGA21ib04PD0+SvuXc0NCtdG59bGbmiFmn9zuVWhOkHKFKo388dOiQIAWU N6oaKfoI76rm54a8KW5xRAWgBWq0QVQQHXmHO2qCHn9WD0Gntx3KddJPoa8Q taAUdPwHIXIBP4ET1R5L2u/I+FlORtM2x5c+lK33Z+WfVC99d46LnlITCTkx K/p17nlP6tfJHBVUZZpTYOfvyDVIdjf25td0XOJkndksEUSiui7KkpRyfXr3 7iNlUKp9WYtp1dUgItkUV409Xa9PANXYnVo1lugS1djvT019YX5k5POiGsui kq6MmzDzPZicjLEFFamuwPNNx8ihQw3LbKaQXnoXgKuqygNzcX+jDgBrweaE 1LlEtgs4a+VGuOjPBXA1nXNvew6AgxalaXtGU9F0AxBkv80+5YMZUB6AriVZ vNl/bS0C1QaAUuozeaBgQSvSS89N7GKUEr63CVAEk9n/R0+NjMwQRiK4jESj BCjdwLk53q0fzAlavjrrFCmztqrO+tzk5NcIKK3OesysSw/SJsBETXFllvrZ CVXfvQ64f1rhuChQWh3CwE9aAQIldcqbnwvZKBPHmOUkbzRmgccHMKMLjiJQ Th+qetV5WOj0tcUwmwwxa9Vo/Zx9xAcAY0qIjfjpcRdxIw5hwF+BdvLhZq9T uoqz7vNwnCSeIrJ0sOQ2sZ+1sYfufP9Z83QmROf/ffXVd5Oi6vMzM/dUgVZy Ami8qJjGhk5TPVj6gpiiaqmqJdzoIlHV+d7eO5uIqpoI/9MEoXTjBUBuADCp 4jcqpaDBYGfpUyvtxcCL1GOvckAG4K4CTuXKOJCNGKzzBKpRz+I6WgKdqGke OT4HRB39yIFdGUcu8BOjyI3xH5c/wplv77QPer9dlptLSgrNwTCr17wTNz0M 4ArYaBXCavZ5868Lorykxa/PMVlQ7BscZdIPBWkc5wcW1OtPlFIgcOzqgr/1 wAMPhOeSLeDYARIiy9REnRsb2/7dG254sJkmKjF59MCBA1r1g7h8muZUqCxf wJTjUtyzM+ZzE5un6UeJNFFXxaI7BWxe8BSc+YQOKBKkWeu5tCmShNIl1CpF RcCkjGiNY6p9ULo4BYJqKstxUpEjGuxeBQYz8Euj9Nbd8ltmqvw99hHvj3MW cFEgFN4T4bGnJAaQ76GRta+rCotySWTpfFv9z3AugcW1FjuDjeqSX+C/bcys K7y0lTjmN9bb+9UGFVTdsV6gghqIvLUBZq0KanWeOFGzukR4sYMfk2j0beew sZXucf948ODBvCgPBYR+xXPuwrprtXyROHNpfnYn6V9XgzJNcUyb6RKj0a8I 0zJwYFGZJ5Iptln/qohMNHS3O4HFwcHbc1VlqfZ06eKMPz8O2Vl9XMv7jrTc I1wT4N/WYrgO8R9fTZ7/X9mnWGIbpvNwyNdR8G+ZulpLbm3T1210nytX4MzO aoFWeHepcRQAh5U9PSxm+vS11/4REjLd1OIxQRWEjJe2Lmm6okWiVgEo1ELK S5oyZOZfT1qHrdEpXdNilNgFkjFaRFGBzd0fSERxoytqUEdn9BE7xxJIYCnJ NzqDNs+etp2+FfBwe+qc5qtY7RcDvFclMJEvbg4yn0nco208Oeh3a3iZJwe/ ZB/xa36lNhDQrQkoSNQEr7MdAXggnpPBavSHRfJUn1MjPe/N7lstKT1vJ01K f//1j370z5imVSDwW98iUwlgymmvHCeNtZw0aQCUS+FQlQR5jHmgfGSH0iRI QctFW69QJZH513l6xQrgTSKxbwRUJ3AutWyi+7wLZsNHRk8Gppsf69zu3deR nJxW0Qhl5Lgh6HrVTjZrNQ8T7WnS4xPwxbOT2QG8SluVQq9Fh9BJ3Jds5GZb xs1yTgx+VXOD17kbu/ps7t/YohRNTu+MM9ajGXPq+TpuK5LYFk+ZvxvLJwk0 et1R+rPr7Qy6+pEa3VpAEUpmlkPfj9Mnl4elIlH1xTVZHJanKMiPdIKFo1RH c2UNvO4WKZFpXnHCXJ3A/VsbBykArhOkSxxI4v6Jy8dvd2eCdFy9MDV1I5Pj Cj3IpcuRU9ViRebac3ZsjARXpuyQ1US7d3zwpjy74ICAPbtq+PXrsusAnjTu 2TXCsyWDp/Xxx3x7f8BPnoMnM36AnXDS1JsBIN0akI4CAG1NKq7fdnLY4ubx d+VqWKGOl85krI6SkWob8Vo1SZtS4WYpBQ1Z6PDIUpFKc78mA0q3SITSLDLS FSCCxrowMmqiU1rlSMcgIqjQ3+f7+r7IAheZdtees+Pj09SbbBxOi0YZfD0V 7KOdsqfZ0SNyVKyNcAl8tCgu12S4LMfW2LKO0vviy362cdlXesDrNuvXuTEL 3c1e5zDSHHqMbGo+WhC+wj6zMaWfawSKyuLFZU+toRGMLgdNEZXsvZKkMHFI I1IbWkz4gUCcrpdGR4/Mbd9+Uxl4bvZotqpV8s44wuao0hU4ccsEDMjIhNlA 5AA6wLQCqoD28vDwkWpOK88wZkgj1b9E5LQDm+OKxSNYBY4bKhZHWHGyNlol 1cN/fJXZ+99sSlM3oAlRErzO0oQ9QeeBNVqyCx1aBUXo+dQ7Escu0EgNiqJs Xo0FJSmIec0aqedGMweJzhzQOrMBQqrVuU4ODj74Sr1+sx3GU6pqXT1NSRV4 aFpyumilN5HY8++Nykraxp+E3DNCgyTElnp7P5Vk+QGPSMqIVF6ZmpoWPEq2 fynRNBMPndxwZ0OZSOl5kG5DTlk1Rscn3MpeZnb8twIu0HrfDLhA/PQALvLW Q3PR0+xzSbF6vLi9odmuVV3tdpDFtrO3Ei1ESd2nl/n+o7YW+Tgf8FGxd5Lb +8Hu3UeU4Gq7pHX18AHRoPTCqyqM0e05ZaIFCdBsbJGUGkgKKOEZ6TQtEGBN tQCrCFKKXqCAo8RmKqzDZx247UIPFcB7DT5rXRKdIOGkBPDXyo0w0bdSAFOQ HqjGtPU+li2vZeaufzfgabZhjXOXKBor74iBMVGrxFgrUVTs3tDd5KIe+nZ8 8WFXRlEuH5BoikjRtXz0llu+UkrpiEaf2XAgY5VdvdofQSV6ToHK2cWgi6S9 Rdas3muqk24ia+nUzmr/Y3LyS9TslBcJVpqvpH52ONS1tNm3mpYApIssEzFH lkqkM5BQNnLkgtfV4o6cmLxM89L2k3vZV71biMCZJo3tE9mmqqWL9UkMYd+9 /fbPCl16ZyCkOqO19gFddCG62HOLntz+jl1Qy81Sf0KzhH0s23SNg/21+N80 Ud2AqG5NlDUoTWrcY1AFKvduDlAQ+9jjn4TE0p4+cOAzIhCraoSMg36Lzm4i fVjSxRGgfhT6sDrLQPKZVj0zpdYq4ei4OzWBImlWJSeYIUKhkKMlIKgMTNc5 cYIC86ObxEOCEv08upBwrLNef3vvvZ/PS54bqxRar+HhmxxLCWs/uP5w4jEn OsKnP130LbuCpzw87B+mMYJyzl4aA+q3MqBQSiFmnK76nwLU4SZA9WigLrbP KCh6T/RJEH2Hq+yzGtMJKwBS7bbaKFCjpWt09A9LVpK2KlKc84ODu0+MjEwL UzUgpHY+iJNWghirQIlWcLLam+4+PX33S/X6114eGPhSoQKnY0cpNaWUpCOA KGlHH2EzoZVnAn8v7uA1yI40052l11PKA+rOmi9+aWxs59L4+JSgIpiI4dVi bgEqyKlD1UeVODaBWxfF5iMZNstMXF8bkAPDmtdIzuZm5Gy2zyiqbg/OUJUY jw6dXP4vCJG40CeNitcmQszitdfefrqvb6ZMwg0IlwLB2qZDiGzvSft3brnl MfOUTxMoLFQ7M3MLiRAujYzcu0Th0bXXHinU5jRrT8Ik8dAEmZdvu+220vkx VHKrvon2oBflKYPz3LgmZ5JPmrFobaqOfoaH9/H3NDpK2puTRJRNw6Xkx2mg uI4hB4qmCjlzkZr3IA3Hjnu0rufDGUTLSWdv+xEQ5OKmwxqLzhbxsdMqCmrQ S2GrIsCH3rsG4JMCKWit4vn84OBXvdBtT899SVzolisMhKZNPvWwDjAUV/Gs PD88/PVj/f1PLNbrd5cCCc++vs+IoKGX8Ey98DlLeNIwlJLLvv13s4CXDh06 RLMZvSQycMwCcCpRkxNXNywC51z1PKlOs6agSsOWtNwzx3EGooodTcCKpCTb 6a4lq27FQRE5cgKTPY6tZIdn39+58yEmaYVy5fLo2MK6GD85Vy6J4fShbJ0t P6s98C8MlZ16gRMObqBp0HHloMrHS2szqHzCIfHyoEgLd8uW61gtDo3I2ABC IDQ1NaoRaiekpiQOKgqIdDFNFQfSxMRtZI1YGZRgMpaolK06Lw/KclIkEGeT dLz9PnPkyBGaivTCww8/fF6LwU4lni4I0gqJD3fOB2bJCRHNG2dJ6KcvnDcA OlSd5KPVCVK7JUgID5sJbxeRWzI59GfJ6BN8XIRar1/njn5S7czR1ayaHLHT 6M8pWJad5B75EWDyGr03qz/UETsypX/UpERAcQVEOuKhixIIJdHWUlK6jAop KwI13ePcer4sNd2gwPsSUCpXtvqKeenQ01df/QeksLw0ObnfSetWTWx9D1ui rVsfIO1QsT4VJ1mlJBZJVtcmCqp6rT9rPj9hRP8/F6wuhJH21YBPt2xB3U3A NOkuQmPNz9TrJOtnTayyR6y5aO8TJ8bG7qfEnpQFPTcx8Zdy2CwfC2YTS/n3 tm33nx4b26FOnVPt9Hn6ElwHwb+uDuXtNR4r2Yq3hkw4m6cyO0oVn20IoePb qCYPHIX+T0g3dGvs7OSOtnztNn25OjvncMtnHmwleaJxo6RCTKG3t3enVuiV vJyTNQqjonOynJwvU4jn5ELMnELv3MTEDRqzilXoNUvjQSKN5UvJTBFpIyO7 SMaUZMBYoTexqqVo9Ibmyld9NvhorTp5KTBDBSQ1ajU5lVuqaKfLfO0MU8r0 1Egi7PjExAEuZBgc/IMf1Ot/bjzfv3lp69Zvi3wjKPFOdLKFEpV8voYEMlB0 ZwtU405eI0W/7KzEMhPgUwE9s5ge5L+t/hGg83r3WUFdNsrCBa9zRark0Mkk EK34y7Rcc82tpaRR8Zf0H5Hi73kZMIVpBBFF1Y1H7fZ5Akoge0q0TE1Zod/p 6d2cwFJiv6mIu8vFwqBuVZMHR6iQR2dRWdkYZdPSQVKPr0bkVF6nOw6FDGtr dkkeJLA1Zb63LY6O7tQiekSNIePx49dc89T3R0b+Kl6VmupUC9nqM8ZHdD0f iXb46NuJFnXncnfI14si9Iu8TrnEuSJWSK/Jorz3TBOOcseonQqrWYDVkzms nlwOVm5oDqrfDhr3pHpI5yTOsR/77Q9+8C+iWsIEFOfnSrW8ljChRbJ9pCds FVE50rkw3hwRlHWfD8jqsmSd7Ot7ICej3WYA/5TZZu9g4RezYgxlJCy809gm skMirrpI08kcW8empv5AElsOMco8EGJPP/roo0WHq4F610bg0rVleIZ8qaIi 78PpAX6OrVKZ7xXy58KjLufIaZVVZ3oSgur4tm1/SpARVQ4wMKEqsEik08nb j+0gTLRPR/tAGnHnSAOY7VK0Ssi21r2aDPiugKGeZgz9rywUctMUWqnq5o85 jGZLSv2y5rJ2pEy8Zct1okqcZKLERI5cHSBwuqgYo7B8jsGzGq5V7mEnSAgg gWZwcDbJtFyNLzezNDNDosTjTst1iTIM9fosjfMmm8RLqwqgQfZDxUaFQtxt LcZB68HnUKIpnqGE7zViiGyVW+tsp3Jirx060c0Ft8ajI8+OYiNSoufavIGB L8kBlKTNDToyqsrAwyXv8iXZs9fsMAuzk/PpKjGUujOUlpMHnw046m7Gx/IK UYFtsxDhw96f5H8rruNG7Li2u0AQk4+PqjntPi9/XHsN8sebQAi0ulEplpCx SrFdotxnTM4MmxuDjedlePhe0hSTQaAUZyNsUK2pwkZSCBL0HL3llls8Dq2K ISMxiXaATc2aHgp+TLAyTm6crZkrpXlMWPjW9eWZX8F93szoUejCiR3WkpAv Jz4c16LSl4UOW9uAwxbl4wr+46tMbFutb9sohDwxETcGWGwGWPQ0e12kn5w9 Oyuzicu1XalcUOljzUsgskxXE5HlUPCyzHdSFtoreW0tJfs6UIKAknQbADo2 G5FqdERouVR1SstDQztETZaviQliaOx0vb5flGSJH69R7Jy1k5/61KcIIJqB bgFaka1mnyZACbcC6dggaFoLnLVO4KxZYjq14yRiyxIAaZFlpsalC14cGvqj 00TNwMAhqQQSYiwvbgqMMVjeqoCKbxK656aVaDmCVRRadjb7JsVGJMZ3TajQ q1qvmOoBDOQfSIyVfsqtaVSL3WmhaswMbCwJaA1ayoGQvmgpO9FKP/qExCtT p/w6NeUXf+n18RR1o/JrLmDZAISUK5mQcpvxIyb10ieJyh9OTHA5gjFkj+ZE X7/98MMP29VfpoW/AWz8Hdny9HUJPwL1ZOTPBQhUrdEI1EdUI45nlzN5laxR 41Rv7+O0/j0DFWU5hIHUMkA8fX92dr/aBMICB5JcBk5VOYaEVbfDY2xbSDfv 12iAdLPjIr/NH/ZcRHgqOA/t1gg5U1FUgJ2vx+GeOCsP0qapyEu5kga/hSEl EcrnJicP+iMgEoy5vEUoVgMoNgEoMmHkqZx0azuZBxFFPjU4OEPSrSJyR1N1 qbqtZEFJSHFSqrIJFjlkNxaCgCGLAaMH7QZNuK5RNPkTibmik581wHB0AVfL UUNHpOGxqYsbdPec0GJ+VtbDMrT4c1UT1tj56xWKasTolNhQoIPPduBbRTF5 h1uPy8wnHwjw6AGruUevZif70d1s1a+N4WaxwWboLfxvzSqrNS1qlFx3qUED uSqhvAbHhNXjlQwaUm7lCdROAtnOIM31Bl0CQIpKtnIcfx7AJ3UCkUr5+HR/ /40s2Lpt234nDSmS4rrYjggy5u5hET+2rXVVgkdWs6YHxRBt2cGJtH1TFek6 4HitaDFUQdpYiJ80szq5cxxQJFTO9EOODwx8mSlKT1trQyxRTJ9ZGx7U3jB6 Osl9YTYrSVU7MXjeyuvz1WWSnXPjpKnytoLDBSf/vbmkBBiVUKP/r0DPYFa/ rlWZKgtUYWU1HG1Us/gQOqJ2vDA2tkt4YTFHpN54cTEn/nUrQAxyXlzaWDSr SESVpY2vuebBEsIlyVQcv79nz2eYEqukmj534MCBPCc22LbOWDAlVpGB5Iyb 1omuAtZrJfDHKsAfq4LnuQX9j7Ozf/zS0NAfEhjmZ8NQnB4YuN1PabRQcJW1 TgDkD188D6VUu2B0MRoZEq8qLXyXBqLS02wxt6quaJ0xKIvYrV+XZnAg2DbL 66wyeVHxdKJjG/pG1fy62VIg41b5261bj6gxYI1qpwlozVbTGv2JP0p3dQJe kPhwCtROXZfQiaGhffPGSSOnzHU9pFrtlFv0KJKq2rZt4oWSXsQKJcHWgs0e zSx0Aoe6K1WEEAMnrVUhYq1/Kk7aqjhKgZNWBU6fK3uhUu3nrrvu0Py2bV9Y 3LLl0TPXXuvtjDHKnzRGeo/5Yc6IndFDT7OcmnfcHE3aUwtp+pmMpuVkhu0w L1H2Rks/QKmSLX3BSaty+/+QHGIFoKSe92zudYGdebtFqaiQGswcg6rBPt5R qsGBpH4KOEKFACj3hRRILwYcVQBHbVngRMxQJ55zzyq61VX04kRARIuI/Pfb b79deIKih2jEEAIKiSguV6lUv24V8NrKwGurRYFKGCjz8WPGoBBGZSIqUUAN Dd3EQJUtVmfqdT9klZw4NVy1prWK6M//NDvLwip8IKMducYM80/wH5tlmCOz Kj4V0AboqD7ryKKrp2QzAfSxJIPMAySqbI2PSZ9Vj5DH6HlK/r+ftWAVFVMH o8rU+IqeECw7D8YVgvLV0/NNkvZ9aseOR0odIOhZpuhoANUl6hgzJ+lLQHWC x0hH6v3335+XSJinWl9aW+bfZJ0HhiM3FLdBEDvHTWBgWuUG+X6r49wE7Wsc fNl8cFVAoQ/Ri84MDNxGDUwMTFkBMzh4G1khzrrMcJEBA8Og2NMcPoqV8mvf Bb516+NUbXticPBAB3byftqbpZ9w62WZ6Wa3+X8QrPBOQIKL0Hsir9ssr/t5 vhcWROval4uyxd6d88Y48H/ve/+OBHWh2seGFhd34iN6J49DStWylKH8wEqw ju2couSkuS+Zn/1Jl/hCPhDS0ZWpJ0o8SmQ/kY7usmQ/xadaS3fkRLXHInUr x6GXMi/9MnfjpbSaT2/b9mmz7+/npTw8/Ps8HGOmVP3h+Pjjx0ZHvyHOFJ3f /6NZoqo4k1bxwpYtj5Uq9n5iZOT3c7odDd5Wtqxt9cerThl/xi5HNQTMBxLt YNlmU0my5d0OvKR38R0WHuvzdNuV1tat9vBZ9+du93SqPl4F4u91YFWjPFUF xBNK/okloSYykbRgfdtkcTutby2vode2PwVBmaQK8HEKFniw7pa5wAPfaq3F S4IGibnj3WqpXt50sZZZ2ZWr9PbeRwud8rpnhoevPzM0dCMvdTqHT90yn5x8 SNRFTMj+DSlCrmQpLr/ME3cfGbmeKiTm6/Xdc+Pj0xy8RY/TX+cW6DJTvo/a R/yGffesXt7sx5Sf9f/g/8vmfLDjwq9QDgut8+6S3Eq1fFAth+FsYLjvhaaz LrnYoKn43xpwtm3XdTU/GkDWtNUBTHR1Cb10FYgKLDUpRb+0ck+5lTzP6Xbr gRw9ePBgYSkHmoJRBZ57J/BAOAu1EsS+6PhvnXN1yLMib4p7e4G7UrSGK+48 nE6wddE7reGRkevM6p3mEMh4HVwePD5+p247Ob5ly1+euvrqP6dKRq1au9Db +zm1mNOF/v67eCy0vfbMj43tcOM9Eu2S/LS0crmF8aqysJ+z69S285OcMS9F uYoHArsKSFR/y0zJf9LY5YJ4/kJd4WBTFb5VTY4QQhnYsCqq3GK7vHVqElrI i24RnzCX86IlA6rTIPro6nt7936Doiy9lr0LUgNrueO1q8IGr1uXfV7xQJot 7e+T9dqlVPbtWUPiKwlpWZvtuWw+MFW2Cxss6YQ8ENqaaWkfHx7+klvVcwMD X6a1rDyRxKzyz+hVTbVsBhTzxCn6lZBTIod0jTv2xdkKWs6O/SX7iL/me+tS xec2WZsy4nMFWF8dmbjQc7Ozs0ghktanKEQ2XZsumjx5yy23yLp0aZFUL0zR VHWpgFRrW7FUZL1+p5OJDEO7DuAuoENktBjROPf12et8ap4rl1wyncI4egPl O4LdPzz1SrhAj+rD6/WdZ0ZHp3gl2kW4MDa2L0t7lHk7TaQHY65ef4w8hKpb e4OD+2XFmb9xCuXE2BjX4TVmG9UyW0628Qm7zJ7i+7JKQM/LVlqhXHwHWC2c WCuT2o5VPPC6VZeClh9JNkRE4LyH6wRJXzRLdMl8Ubzc3Ey9l/btu/X5qal/ qwQX20TuifRrzmzZ8qiYRRFbTIGD2g5MeatqpFqCRyKwDdnr/MdsrVwtLzNA i+/o/v37efGxQ91p1xyVgtIu98ro6G6/vNxmRnu9CDNKYdvzExNfXujrO6zM dsVscA/6pZba3U3MdbbELsiWGDoeKsiyfdWusr+xm1nLJZTuEwJfMVAgpKtC MoQJWGpOGUjreRqHPio/GKy8VqU+XS76pHkdyWT8PeWseKMrO52niYkH/fIr q4hX1PvKsLuKl6INlJDd3aR8SLTSAkO7PvQ1WbTCvrdGqon5lSZp3SB0k22u zfqSiy6kmjM/uLmZmd0/2L79MO3jrEdjGybbtLPB1+Tknx/t6/sjOlKmRZgE W90eXnnJ/9/et0DJUV5n1nZVd8+MJARCD0CABvyICftw1tlk87Az2Xgd7CR+ xclx7BxoA3rMaDQPzWg0o5FQY1kggQBhGSHLWALbYI4xBvvsOna8u8Lrk42c w3rxJnaUx1qKw4LjxbYiCzFCErN1X3/dv/pWdXWPyNk9p3VOl6Tuv6ur7v/V /e+9//3u5dV1ZGTrM5s23Z3g7zIff0UjV39E4CO3v8XcxeWZCAwP7969H0CH pS9LULBPbQ38xc6dD2D1Swt+oVEyySrY11MQfsjIKgHyaGnWcSgsgcml+yBx UWAIiywWuQuNsmNUug/i9Zu9BktEomxcdHMIWZm1+nxgRsJBgRHwN2Gzkq6b J9iUTjnsEiEgu2n1FUgen56efjaWAGZske6rHBsd/WOAn7wAhqfWrDlQ8tQg wZDVYPyVvU/ddNOnE4OO8lnbjjR9lZD1NMGxlRzBKw3bjqL4kVfobmLicdrt rT63bt1/wBp3a9bcfYJNB6lzF1iVuy43YDg/G4aNlFuEIceawCmBypFeybsY gz8eHf0yqr3IqN8VJvW7HOa6jM3kSwoaeuXMZbehCFYxzHkWH6nCEFThTDxz J6j8RYw8zoLVVZGhnFoZUIeloB6Jlf8BdDRiwFVI8T03OnrX4Rtu+Gw9oI48 iBdJEGrRf/gvBLP/nm3YZeTXwclWGEjjNpBC5NYp21gobmTkq5KUA7ALSgC8 +HEcGLjlTH//FHBRofBIgXpx6GRIK/Rm5RU5n+LwwYMHAXqwBst+bDwb92PC NiCvBBXkYnSNj++eXbPm0VldP84ouQhLryu5WDFWX6vWiC61aHkWnt1YMpQm 2Y1eiSmJ5tCGV0+CN/SXqXoqHM3iW275jScoqCL2QsTe0NAOpeTKsNYK8OoS dEYYqfpnLZbA/joB8H+QnmslH603QZ/zLCpwrDA7c2TkSdzOjCEHUCtBVbXY errxxrsBZfI619+/IagYpt4yw9S7qKBPe4UBN1Z3sO5jubXx8XtjUE1O7oif U6i+MTZ2zywXiSqlaIpK44G3GHuOmzXiPMBclmXvWUWVlC/rIBsayMxAHNp+ umVQioP2MiRj5wEwUgAE7QDQYwAeGxr6BGi6GYgNMgBhlRXwifYjGM1vT/39 CaHvGUJfXsJXGn1XGyZfaOi+SBXK5P312HC6/voD8VTWavsEhdgnAmKrquiS 6YAsMVBZtOAfJWFWnomdIqzTx0u3BMax5EU8kf39B7CGJkb88BjNDg4+6KqX uZJ5FanDJOkaUoApMlbiFgsCWm5JUzgzTPXzkIapZwvmwBRswrR18NSuXbvE JoytRDiWAaaxhrkPXgBX0JEchgnh//uuueYIQJW4TAi6ngSrrcRgKPgSfJuw mpNR1VCZ6DUGVkuEVV32mFi5WEBPELpy5fYUQsugLwWhEpQxq+gtKYhKZvb+ FbjF8aSfAfIG1QarpIvqYW2wVav2R1wWbGDgAKKSSoIR6W50dDJkKoUqxmIW D7+8oENilfVZbIyzSpkwJPW4NCQt9q52T0xIcnLVU5Dov23bNng9s2HDA5VE eQoq4//BMQJkAi7hb0Al87L7GF6BA1qUqUubBXC4/+r/JIgWyU3C01LdrUjb kaBDu/x1XOrTVVlTxpci5mFwsYG/ZQXxR6UYKjpL6VQ8I7OwyQGpC7RdqMvU AQylbglUpIPVW16wivf33zs7PDzl6mcFlXRdoBPT01sBBlcaiJln+xfimiwx luxKJpAd8LxwDWYTKqdE0BZEgLQK6zwFLXgdnp7eHZQNfJUJZYCrA9de+826 o9lYaCoajiGDMPhzPBZO/Hl9YhMCisDfDQRG8Qrsiq+tXHmrUU3q5eHh0YsM J+PSllxb+FrElW4YR/A367RQgAQgiq1RrC4VI+UurCk1NVWfnZjYSNVusFQM ZkGOjW3C8OBHYimPj3/UsTGvyFI4OYuoVVYqi9AjoJH0TosyKg4t6ahsJ0PD Kf4fHMtHhoY+qwMtAKt4vhBOsnAmi2cQ1rSuOkdawwywNC0ZQCoq+A4emybe UNaQX8KCSykhpNil4FJKFakHky6ldIFhuy0viK3LjMScSjbKYOXE1RLwRbX+ qrGu+mh8aTuBXhbrKqivtBlrLI2OjgdcYAmWT6ekYqhJZvuK5tYbBouXGsti NXNZNEHmWWhl35NNlFQBkEUENVgWEVxr134u6DbAxQthrwbXy+1pre/St+mv /FwXKe0VqIIPrKoQU2B29fdPqLpCp4eHN0tNoROTk5t7DDgVLc91qQEnKnxX Oc1wgkUQ3pFU3RJjSaEo4KpDse6amoV2fPDMxGgqsf4aGanH37wVKnXpvSY3 a5kGWInKAFtJAN7C15UNLYBjGloW+dALkkSGpSXQuv/++x20KgQtgJRbBisE rcPXX/+wg1Zk6K2XfL3VQqzkr+gEf8nIaScphYuUCurg9eS73vUNUWZjYztd pRFCXdlVGmHkYT04q0LPinzoOU221M8KfxYkvoAr9CjoAexKTCtft27K0crL eOx5ZWhoEssuQPlpUGRUtWcD+ABnh4fvPL1u3aeg6gjCLtvMSsrzqI1Wb4m0 crrUd5/5+Mc/DrkmlMmtrPdCmIodSoepKmHq8C237EibVh6myoa6Oumrq6Lh j/9F3z6Cx+LZI0t4fODXrIHUaqlZg5xqQVKIx4quWSOIAj0WGWC6qiCYFhsU Ayr3FIIjOcsZQ8Lb0QxrRlJV6j8JmmbjX4n/3ggIkvo1392160vpSIaHpquN dc/KZEqhDq1xq35gZEQmysmOgY+cHl7opqZ2HRkfvxcxUzKQEybayKFHIaeV YMQxQg5ppNZ7O1NZmbrP61JbBRo+Us+Cq7uUIQP2OJQI4nXv8P79+4PXZjt7 XkanVeXlYoWXWNbnYNcrKWixyeEldEVfpnTRFyhu8eLIyG1S9EVKHm3dulto +GbwSxWtECqVGY+dl73GiUNHO/SG+RQZ0YSyYT6VDFQtSPQRIOvJt73tj2XK +jSCTmTqnmbhgr8nMPwNqZNWOhxzsSC9jDG6u7SRDi8uiZIqixKdGBra9f2N G++WkigtVkTxDKelBKBX4tGzqYoonsIJWe3ECkcqogBVHYm3lBVQxs2oGERS zwFKB0mqsS7qYDa+Y0QJ2QnTHi2vr0VEeVZTaEQNKgURtZC8Pkl+7NPchZ/6 KCqqh54nCP0tQaiV7r9IwmNqqefYlQAxQXRmcHBCr1YlqHGAwdGidUAs+Fxg wOeSpCIIwGeWaoHER8JLCGVATvf334FlDbi4gVTQ8RpvqTogUEnHyu61Wv0a BUDg3xcbS5pF2+Al7Yf1et0hh2htRoCAlE9ZG0P4Ak7IIlI4Xm7siWTyRLkU d/J/SOcgK6elRrfM0Kxp/UK6rwrmsuiV06OjGwEbUv4iiAx6f8nI+S5aDmN+ ylYGQ3O5X81SIIOICbqAffbi0NA2rIYBr4GBrQAZKbtUoeyj45OTB2CF0iRk DyiLs4GiCTrw70XGomVxibGcRgk1RihI0XrGKqDseWeVHPBcRODZHR8dgP6x uU6xrOIfE2y+h8dWu7kycnqDhkIQERg6P5qY2Pnc1NReiEZWDA57aIClaC2I HsO2ucKoNgTe+Si7Vpp7KwUhToyOboKCEACZgPASaSL7EdhjNyCDbBVag8qa cCs4YaJVZhUHHyiYmLHJpfvL2qatGwsjVTha0aCFCUCcdvlxol1adMUJWmwG 56YtpCuFIC2kq+6bvpOTj0hJg9iCf9wsaSA5+TklDTw4ZJc0qKbLeQIgXoGE L0yQ88+lyxnosiCSPuPRWcuGpWLRqNXOlyOShEZ3T6sE+8J8xAh9z6yNWzL8 8yp56V6aV3z9Fxl4ecFXKEXd7Bfp239HYCnck/PSRJXIQsT1l6posAhdX1P2 Y13CXW3nRNn37JNePHZpyr7Q9mfAZonPAo9gt+FuMT8pvqwn0j/RFDcXGLuu OXR+CzeNRcnmtwYU8L9PApkkCyixeWsB5YcJUFrxqmfo298noKQNFqtoCiaS qqIpfYFX2yE6/N73fuPYddcdBro71HOYP1fGewobxMSIBBuylJS4tBB4RAwP XSbFnXJBggUhWZpYmG888zrRctynCyP/R8YtMFadi3K8p/hWRD+wXqmkW6eI 59NFiPAMkgQRniH7fKbq8IpmGVbsGTrB39ug0JvqXvsPTgPu04aI2kaD92uA hYWGxVGULV4yzNPX8a5E7A6kK02dYjicRt5gtnMtUNDG6REIv3sOrLWGCBtH l6ZRnq0zT62yuKn5R4vFmP8z7c3///bnv6hG4BDvs3gs3BCw11cIvTjr9F5T OqqV4jiPyyoo88LRUplOrTfMYU55el/SU142rJSLs6fcMy55E1G2vnFXJzJW gxwEeKvBIkOjKAS8LDYrI8BrK6bSuLsBAdmxDh8DpNfbdGaJUk8neg6PTbet f6bJlItFWZSB/Dpjw9FiIFf8uX9JqQBv7qXgfHxFuXNP5nxFGKCSKf/DDRs+ Bz19LYZ91TAKeoyFAN1cimBgp9MzPL/wRXZl9NSLqxGfKwl5wUIFvcIvNAyB v2v+2FsWIx6q3sphtVbztvt4ts2SCXq5n2/MWE/CP8ISHwanV5sA3nerxmyH hi24LFnrU7ONJQVlvYcNYuJeVp4bH/8alg7g18tDQ3cD46PLmNxuQ8tbBda5 GZr4lnq+GSCuEIhsvqTnGubXmuvvJY93i96kSgsNfkDTaO3uZnXSczC4pCAE Msm28UOgKGiQ2vkaY3Oukvn18DSjAJb6oGQs8ZcaKOBAJZDQTm3atAfIZ7E3 DMxnmPWgAmUYsaTKmjUfQ8LjyMhm14cxZe1ZRYmWGKu9wgHocsGBsvq8gjAK B7ja5+Hgb/1nvqiXiAdqcRr8Ax7tHdkLEphpF1JKaalOvzz3Vb2+o0vPfET4 W2gJXnSpklD8BQ9CR7TYsB44ugxwkGtYPsPe4kl+H37TZaw0VMUSVuzk5H0N rNi1a78gnQcCLiulyRLwOkuN2xutgS5jGbDC4hkIUVaBazYq9mAOQmpgG8uf v04Q0op7iIeL6BTkYWbuvBIfwq7hbFoEZSCqHtm9+/MADKCpHpuc/IqO+wBX 9biy4gQcCIvIoGtdYWRS9hhgI0sjEnD8ny1btsDnvb5heLJe36EZqi+sX4+c pRNSCjx8hbha/f33phiqkWaowlRZa8UlKngp0YEiUz6PptwKNXq2319mKoVm RZPxQCWOOQCVu1WanvLlxpQTHbQM6bFuq3TTpkeBKcWVsh0ndGblyj0nh4cn m3JClxvmgsUJ5cjCOZjuWKJAkQquTubaMfEUE/TFdeuewNmN4FhJUT9h5e4y tL61Q1rxwz/5ZRlLM+hby94VTnQ32wKxd5s73d/xp7ulJ5xW8eBHNNd5e5rp 2PIVxvpfofVfz7UjZDI7ziJknunv33K2NUKm3uC08lnPQobgnj171JR3QzRZ CJinp6d3Af3y7NTUTkfABE619WgrAma6QLqn2S811v6K7+nno4A2MF3y6TwD ABcYe09/nqzSrTc0wwM9uLxHkbd76bsGKwwMlBNaZDVNiwRW5NkbbjgIXB9q sZxDhvRW+guzp/pprnGB1QZeQ+O+NzmJxEfgl8WaeXJyB5HLQuRMxCoc5xpX 87JjPCK97Mz69V7Jbqe0LzOW7ZzJ9apXdqU2mWBaeXKfjQ1Ka3Ld0/3t5k93 poVH8xP8JHv9TnYX/TBvL73nWXih8XS/SpRDb+45j8rgXUdYB1sRX6Vzo96H UlRDYc54VMMYCfCCJ16ohiMj05CcLlWhoZMBNGmLDM3fBBayrJuFrBkWP46t kJZh8a3kmW/HASRKafAYgytIqkAHJTz6JdjfQoohZ+/RDwhT9VDfECjKArw1 jwUIawKyABcbFl82C7CiQ8kaMFcY+wyFCIHl2f7+T84CIyshBG7i/q6R7rh8 asOGW0vG1qKVj142gINJUD3JCQAtiBF2ACA98XiMqsyN56d9BdKSi0gcp+DR BCZ1+ahCQcKjgesc65jRAKCj/DLreKp25UfVC8dwwm/ezqVX9IuQ3CqhDxJq hNC3yDAtsgl91XStT01xNqkzZTiSFioLT0ZewMZy2gjWpsHB7bMjIxs1nw/6 kDOY4PXctm07QN1caQAoShYa8SMlL9OzNlQJ/RfgFtN4ir/xNNQKsszNP0vw ZDmUuWrnGjoFNZP3m62omsZ98lM5zVQtPB1V42YFT5S+mbvB6eGJy9mCTSMr XVA1aH2rV09rWh9RsBJaH/Xfys7U84LTHNj2kLTUWMq6E1rf6ZtvfhhJMkLr W7/+TqT1bdq0xdH6SknbEI2gFzZseDBYkb3N6bksTeADpbpags+fJvBpxzml ztBcPdhHxnxChkMP/Ok6DwhaZiNI74Z6NeKIYmwx+KqInptuulMVBQFG6BhA R9rtYqru6OitONcLDHtoecH8z9BA1cUGqubTb7w4NHSPqKVAKMfS9Z3TipHK Nz29GQlYo6PjzOQ7F699Ai7dxdbiwuRgzDOO2IiC5D0oMgg4E+NIMPYskkYM jP1JgrGWY15vpFM8TKeoaeCo9hvwfh+/ACTwXtnAn9jWc8Ef+ejVvA1ZM2rP ZUP6goR75Vh/a9Z8hll/Y7HqGjVYf8C96jHQd3m+J9aQwQGdl2P0Pb9v3z7y 4lAzLvRbcyDuBGuDg/WIiVfr1k2/Am3Sie8HqyJkvW+AFRJsrjPDw7uANcqh Wt2xxbSvwpawFwH2xMGHOKuoOLDVBX6Wbf4NPM7FH6e2Z8FnGMeB6nykmog5 BElGl4GyQ+cbjRTWLaf3g9E+y0ahxwKEVMSEBXhbIRZgxTDSLBagBUWuDnx0 //79AEX422z+dyGXXwBoqObjVccCnHC8LSAPCgsQgLhu3V5IhU+zAC30nYy/ C9t9CTG0Kw9uERj3ADdZVRcYiPs6A6WdIMEvelg7aGCjprFRtFEejgPeHpeL s9HEEWNrw9nptgRFxWmAvJYCCUfgxK3rQ6ECKl/Ph1VRPmDVgFWPAauMvvZA 11F97ae9vvbMDTw3NrZZ97UXRrNoN29lDQ3vsWxYb+RlRsAkFbjBeVqAG1Xy azv48Mt0lk8zaA0kHdRIIhuuoTc2+pW9OdjiWr3W7raHrfn+OHx4uM1jzcho 8wk8TTmEkXAIARPYwqe1nGpYOAFesJAGVperzMbxmZTCCauPvLDBGG3SPSUz yNUi2oS/nIO2I/F9LDCsuf/EOGkngPEWD2o1A2p9jVBrPu6KHNjxZzn76X6o laHWFzTnF55dt27U4BcCJei7t9yyV/iFRQmq3TQOy5PHCANHwW3RF+zC7nEO qQs7qLRpzTkUOlAG7RDoY4Vph6Vs1HkWXJR4D/B9KM5ANEEDd2DHWbjDsrht NgLBw69r8DXoL7TM5ttAQv23IgdklHHbZEvej8liYI1JiEIsUyTEBsq8EM08 HqLu89SbDTPP/KI1saxh5jJ4L036Xgq8qN8yYSnUrcnNZsthIx8RuGahgael 2Xh6SSVd5HQKLwuW5JxgpgVdzDZkr1TDKrBwRdW/246AvNVDlYkORtXBwEBc Hqp6+XvZW/5+rGyJoboiPFaEbiTUReBAA6LKBVmLVxYEFzdsfPH222+frdfr YFxnN/EuIekILKn6qVWr9mV28KZa1WFsIe3LzQ0n4mJFr4vwEv8Sq56pOIaU iXFF/nbv3u12+yt+bOM4bhrhMQQzzG0GdRsbwF9OENVyvOM6gtOn+BQKEubK lxmSzcMVbQflpRf4uLrAvx8cJ7XdgmyyI2q01smOTZmxtE5WNfUAEHaOi36c UPkJRRthQ+lzSHV5YXh4f4FG2H6O8qICsEtZYWytaZtfUIinmQMKHTSopcZc wh6/5WGxryAWa8a4Xj3u8hxosmOZl/LgBXc5I1KPhxuO3KU09JJGI25y8hEE ZWQQLytG1uwlRvJajg/qmWtY46YEyLRAaZFxKWeyIooVaJgAxmOrV/9X+LfF orNy55HpZMXYqgURicn3XdkQBA8hF4JfTBRHy3GQd3ngqzeAakE2KmtF0UbV cfMzMawgGqdYpnOwlE4U5GWyNt/3vq8/MzLyGDZatlibSxPE5bqlHEz7i3vu ucchjoNzMOcAO1CMXGmirINprmNtzkLeFGREyS1rK06wJr0PPMstTPaqfJxR 7qzTfGU/uKthB5ZcGnZeju0XaHra7b+Bh/do+JU1/FywA3VP1CLkaDfKTt0o J9et1+SUl4p47HLoTy+/4ZNvf/s3j735zdTmeIHhKCzOhpa1YWUUCvShpfzR lpsgK0i58AZVGinrvD1J6WoGKXEGXCV7bdIJpJSvmQcpz0n4PD/a7QQ9ft+D UtoLaIBSvSiUXs/YtFIzokYowftWwENqkmutpdii8D5kc5hs0UWZUKpoKMFL YLTAQJBKMzvevM1wc/44lV8ra4tMQhTUBEjFI2A3E72AyLC/LMiEhv3VZUAG m4/OJV7xB68SbogtZqdg0AZ6QyY548YLYCQL8Kz72RK915RpKqW0Gnv3RpIa JjYUV2U+yfUhsUY8hfBb6ONrkkw9yGCtRyucxb3MtLEELy+UhZX5qnPACmfg tBuD+EMPKWZkSyPlYFGkvMFGCtpxpVykeP4jh1SbctOslqPsAIJU01X7PEhY BZZLiXZyVvsFxkK3pCBGaFHBlnWajPqD6ekDWsV0ZyPGhRzKhskT+hmECJ3I sLSrhqX9SAKglkMOtYLoyYiLXpkDIEowy8yV0LvUqCjlz3wDRUsKomiegSL0 qLidqMdj4LxVXfU/hlwm+9Vb6CwoLcuEUiShKkiLSJiuZejnCoQ2YDqeXbNm HzTgZqVT0WYOvMQ7qxjWTWj4aZFh3VjooeBls1BBRpEKPNxUEEOtaqBr+YSp 9AbSQPAvLlLrBQW4RKTBh/QNYdQPpcOf+MTDVsNiIjeXNSvWNT1ZZpRf73J5 hlUDLDldQT2wKEJsfL4HVT9a6Mv6tYT6eO7mm7kzHnJiR0YmOVLeDDWegTMX 1DxEYm7Lu1/dGl7qRfFC+Yi+r1RKrsmdI7M8LWsZw4LpEgsGuLOOLrl9+5eA MglxGaseQmTQaSODaLHUAFQ5m2LbFFoUSy1rS9lRKZlde2Js7HOyhDG7tizw khc0vpP2YzHEUkWSlOMle8lBheqzNKKqbJhCFcMUOoDHuTnv/R66zp/l/C8I HI0pDAYxGy7yEgNM85JOYZjQXK8/TM1hiX0ZAjHr5MDALtgVkWIKHuE2h6Ol i6hLLo3VMPZYLNQ0fDyr+UrD0RIG7uTkfZD7ItD56dq1X4ghje2Jzw0NbVNE 7M2vYC8A2sXT5pAznKuGGVSaA3geIIG35aYPNQeNlNVX75sJe3kY+pf0WTof QblUDV47U7c9y0c12xQKD2e/EPuLuZ1M4644Tu9NN30SdtheWrdu6qWhoYmu bG4nFsWu1+vPx8CQ2E3T7oe9CXBA13h03o0b9wFwXly79nEGTHS2v/++syMj 9XMx2AEwJURMFTuWj1FpDjGdnZ9eNYyfkuF7lQ3T2cLMx3EW5+Cnj2rgZEeq LdTUiqLmX+FnmQkG+QTwRkKo2aW1S7ZFBDwCGuSJrlp1m8UatOj/HGsWA9pL aLF8PAtITBL+3tatjwovHF5CEkaqYAwhsoIATCXAEa5Sk9g8CYBEcCqLQeT5 7FXDGsqBkWcNlY1N3308y+2ong0egmoGUHo1UDhi12eM69PjuDHwQQYRnqOS A7Kfo8/MfIMeG2Gc1OeZ2lEWMbVEe27PDw5+CWnHTAIj3k6oeYVScgRiyWkb yVvQSkbOlFXlyNo6IXJyBHu8zw0N/UcgKMdK5x7FT+4WHjrADG2igYGPnqXW NtPxazJWVBOMMmQZAi1V/HyMKEWtI8pN394EUS379JPnDVHeOM4d1ovjIUFW lIOsf02fmRkHXIc7o6CBZzth1kDV5zgDh8dxnFevnvbpqpatvdjAETuALzF5 HesU9BS0tVFVoeMXe4uqVyCyVGNAxQsJ9axUZHcEFAMJtoCnkLUzIZoLmTsT E3c6HFHpa1FU+MLtEMMuigwo7Umg1GKjBjxM01kwTGBteBF87F0ydsY1ZBha OF7/wfGhYU+xYjLjkLQT1tD4lKNSGj6uLWCVyc683DkO4Y033h1UiER4bmBg vfb4Lzb4zZiHgu3sc5DimdW9xo5aKaGjhsIiRBpqyDTU4eH7kRQ/MHBHbCZN hYQW1D4xYoBMeHJ8/C4gEUJkqYs3z5R1JAHFPLR4+6f3+mhpybHfqqCSETDk dDjT6bfQQoiI4Fx9CikWUEjPZG7oC1lCRweYGy82EhjTTMsKNTgYGKGwS8Hg ManK8x0qurNRYXUM95JGyPePNOkdwEHt/LqwaaRuPTo4+DFsOzo8DD1sJgkj 5ZfWr98ee/n3/mBi4jFw1SDqyHZPpO2e41jxsNFajgxr+W563Obknt+qMWJo Bs5t7G34IDXbi5NxAiZh/dWCRo6W992fx2PePry/28XsvX07d+5NsUihx+6T p2IzGcuohNwHUjFJpQ8kEKcWuiAhV970+sTnRHc8xCw3kj66eFOEEQNoETIy dqqdnNw2OzV1a/z3phBwEnvr8RGAciZeg+If2fvs5OQfmb36yrQ31uiWVw1L xgLNLp6odmzj2zyw1AxM9Ol5peWgosfJUgTjOCLTp+HRZcDj3xA8cvbW3eaE hkf8s7OSzM3wqIChAmauIxkzLEKfXxybuluF++uZJhcZQKkWNHGt+gf8G7r0 AfOLvTah0E0P2etA9hwbmwgINWGMmi0OLaHB9IxSMR2qs14MKDvx2DaTib7O 3LmGxQcXGE4i7A0a9cMhDQCuqVjXeKsYQPkF+q2czXSjPganV3jtz5g2F5uw W4AC3MDAZPal0OXkefegwpk9HsXcqthpQWWZvwohHWBhQpU7t2bNToTLypX3 AUS4hV4UW6vEB4Y+oMPDEyVCydlYDf10ZOQxFVyOYM/U1coGjYLrUSSJ+wKW HsNKKRk27Q6eyXaUyl0aKPDUNiiVg3qSywlo3EITGsqHA3V9+nxlAzS/aING 7au7Da0ENKEBGizYUyFFogkjQQlwUjbMk0sMiFi7XxZBaYlhqFzktyQ6G88+ MMYTIuUmR6CkIgVjgBKAR3yNQG2r6GAyIEL2R8Nk1+vU4OCBE6OjHw6KYuO2 BBstu8676RRccUBbqSY2wgQbTqGExrjLk3HufNb+w7/FY3dWpE9wga5zqqQA AsSiRVJ8ryJcNU2LBNRE1F0R7BNxkgUzkpTv1Q2wSkFbCYQXG6vPouwcaI8e GTF5bWhog6ZHxisR5DDXFQn3B8PD/w1Ui94mxbLRK1d+NsYYOlYnR0YaNhM8 U9cC0bYERO04zXs8HHnzTvjABQrwBfN/kP8t+uKoxsSVmefwsUNM3lDjRqLY 3iYn+jxlAyi0gxBx40QHkgpRtf+6Xt9+5Pbbb9dbRB7dulTQfr3QWGuWGMBI eLMTDbxZ0SyKN/uT0dH7TkxP75vZsOEAKZfw5YGBJ86uWfPFk2vXfoUKSwdl qBsL4HBxmjVr9gob/dTw8Obc5NCSYbXc6gOlJX/5fjqF5O/oGZ6XIKFXfqrX GGe5N79C46x9cLwU+SMlwuL34FLxs0X8XtDAgK1qoqLqsEkEa1IjoRAVgVTh uGQ6QYf3pjVy4B0sCW1lfS40lp1lWfyeMjfaZMLr6cHBqVSjzRAhMjr6yOm1 a5+IdU+MjiCc2bLlLtkQ16WmBSesSMozQ0MfVqzMLScxAFwQJ7fg0fadizFy 9tOJJF0wUPZIt7HmCJtGoQVeiBSuIWjaIFYS3yL3m2lyYbeYJEi7B4Lh8PAU CEhIhtgfEaMpQVkzDfEFBghFQCLNrQc0WGCwCoXwhqXmNlAXTdyRRtXhiKs3 3fTxeLazGml2AzbO9Pc/CaiI8fMo4GJmagqriUApclhcYqADFqKZ/v49Ggul mZGRScJCWVsoT8k20S0swnb0BKVFUFJxqvRflOgJmH2Ybc4Nj7T1AuN/jSY9 Z/PZn/SLDVVAk44sP5jwn46N3frCxo13VWF+ddO6lA8qk3sUFqILDOuyx1gU Ljeo7tztUqgGjj0Ku9tr1mwXinuVHvZ4Th4+vXHjXpjI+CGGYwjrQzzscZ7G +EjaH5a5LTCJ8jqxfv04zKSyDtwDvcl/mFt1VSl5KngcDiWYzp91E0s89SZ7 vX7GG89TX5DBdwN1PTLyZGDRfSOjLcylaltt8+bNJ7MWcqvR4JXZ5Qk86iUX kwfapbB9mXoZOcZb/D94ImneItwEnp6+M1bCn55ZtepRjprPDAzcyc/gdDwI MuGi4yMjW+TZg2nb5D96LTmLZMHRv3vpAcreIrVyylB1dqvp4K0r1okhkMHS iR1WC7/4/jdLE4XCLfxWGJT+bNJhFe27Bx98UE8B/E29IOEToviHL4yPH8TJ 2LTpjvjBgmMl1oiPOatq1aoHcFZGRjbxpMSP6i3Qm14mZTKZlJa9tEfVpOTx mbuSx1S/z2l+8XQmpBd6YMpo49RqX4NZOfLud38deVTzMpvnIWEBS9rH8jsR v3qMVSsydBv1zytrE6aBkRfrS2wvAG1uK3Q8vGfPo7hqDQ9/5djq1U8eu/nm x58bGPhMiFNQnpmY2OOM27Vrd4D443dhZQLRB+GOD37wEYfMsczHopCL85ia hDzmbrVxEuC0STA2vbqE73/d644CNzKTQULMo4rO7deT0G1MQslQVq9Nng4Q fJq7JhMQKzo4hkempr4kQo+fWzhWQfgge/caHPwUgt9JPoieGx6+C8S/75pr jsANrvfl3hLyn1BCb0JgZUKh3QoEa8DVgqQRuyLvyG5YDnkn0l4eptfPOrmX 9cLuAP/6JGL5LPSATrO8BOhVkvVTkC9/2223oZQreCwbst7GMg61jCUK0sty wj9rExS2aX5/SYk+j8gZ2XLncI2XjjXfWH0p2a6aFjDgmquQuZaaR+64445U /8Xys/GNYbyPBfos1n41BE0apSyCfgo+i19HBgbiX0eBRyzwHbGm3x6bTVtI k4eiyVHW6BuubY7ozAX2y0qseaRGJqelM0VeY4g1hxjiRSe4T5Un2lSXG0z4 l/53SrTU+SUjlU0r7rKPZxBx/D88Hp6YuAMETegmkR9bteqRGMtg6WyDV5iI /PD11z9cT9xxn3u30od3qwbpV9Uk5DEEmfeVzrd4baI8cieBScVAuki/57EB OfP55LhqI0uThX3KZjgbGrbhX6t2QsAaUjJvOjeRMTcVOFZY7cSTERtpu+Hl JmVsbLpEkyITkkzKSv85aMnQ/M9qCoh6V9VLpltO4z9o26Ct+fpMwUeitUHY QFooAWMhVs7Q/0s1dUf9QH2/IpH3OSYrhEZ65wr/WXiaNiRRjiBbM1cqT95d 9Cw8Mzy81z0LJV5hlfiDEh4jnIbJyTrMwLduuOGTHMes6WehlsxCy5blU2oW rkmeKa3oOdHBuc6J4vJXz/lJs6Uj27c/5PXX4nT/H4yN7U2Bviya59zg4OBs fP5X4r/NjMgrDK3UXXAmQmMm5sExZNH399/vRB/hMXx2ePieA9de+02UOMu9 V8v9DzPR36zVMR6+oURPzC8/lm0xeeb7P4nTajVDVAnzrpC8JMxPTDzuEubJ vamcWLnyUQwpDAxsPbVu3aZTw8PjMCc8Dd7UWJ1TlhtKaV721IjbhSNKxtQs oIcE1mZ8SOLZCSo0K0++9a1fdUoInZjUNLQE/z9Vc0BsqobFGOXPMUK9GMum eWMTKtynDLqtBHMR9Jmbb74Xuk4FJcyg6dYZePASicPfjodnSXlBQdUvUlaW T2x5Jcsy41+w70mZqrr46+/vJ7qizRa/f6ZET1Qj251S/T/ddFjt/YokYkNu Pydi76NE7KpOxNaSPwspb5caKudCQ+IqxcA5USJxuEaR+EV4LD8zPr5DtA28 QNpBT71Rs7+vObQz19dvKfnm0XCsco1WL73QaKGT6sDkZSevXLk91UynorkU oEtmYxkDe2upyxO7OFO4Za3P8QVlOpYRhEfWrr3HwbXLgOt7E7i2Yy5+W8my CTklVVIOxclcF71aSquYICs9t1b7GGdhVrRyOBevlkB6g3IAFxv64OJMrRt5 AowvhWRXqQGtUf3pZSc5SvDoRPleH48t2XvfUTLM4150+wJEzPOWsAgP85ql yY4W2sqVt5bpseaUxA2iPM9wvTys0bjQsOmWZi9XTpEqxHlSw0zbUl+jhfDu RF4tW2ZHlLzyGAVcHMmLkK9I5NWQvyl9ZCD/m3RgNwhKmsjABueL4+NTDUUG 5xu68JImQmPdFwu3UWh/kImlQtbT3yjxUMeCvGicEw+KjMUDEya7eSyeKjyH KJ4kf9H11+HC7tAhclyy0xrE1G08lJdxPC02e8wlA0L3WWJ6vy+mliB0VMmI UoDzg2dWOB+ZKTkpfOduvvkOTvJ0KXywQd6QwodFAauGdC7PWVDjo1s8l5B0 dm/ZsuWNW7duxaszzJAWyz5+X8mI0xvNKFeY/JIO06zgJ1NFdUFKsPHhkhxV IlIgebCDgxN++lrs/U9OTrsiUaHxtK0wBCUVY+KV9AgLyxTU7zWHUabmfk6J iJP5zIhVKU9ERfO2Qp2OI60UUtl+VNp+bGyrrquF9sNViUJK9V1GER2Pb/Vp WAEsEf1ucvnt2Aj/oKREaW1VM6QU/8FzWN0AriThNsqGS/1r2cAL5CKl/k+u Xz/9/di8n921a9dL8f1fbehm2q2JRBQijsWGNOay1P9IieKX8J8VK7QDt54p BbMofVVrIJWSM6RScqqSiAGWAVoL8So0G79+Al2crjKk0t0olWfjf1tSeU8i lZYX9ONKKr+cnMcxsPk8Vmkg7z0uAtMbNGwklbV4QDTxSjUmyV5aLEHJz09B EcWr009i7AS9xmrVxZvYSkQiptjkbJTTuzLRU6jE10+VqH6VTtUYGmGfXB4y tLSpaXxYy5ANPFNnhofHIYUD83SwWjOlbUVH7rrrLhDC86Bv9+7de6Whbqus S2Ir/Pjw8DDIICjhMYQHya1VFxoyeeccsPOSEsib8Z8NKhhXba6pkN40uNCA THbGRLeuEHw0hgRIBf6WFKanHnjggWC5IZ6KIZ7QEM9CQzy/TZc+h6X8ZSWk vIQvfqi8dMEmWQtV2CPXNb21WFx971gsLuCyzBBPOVs88CSJiEzx/Jb/RLW0 gL+iBPNrJBgzFDDPFwy+p5Jtaj50SNtw7sCx6647jLkDHIaBhwjkAw+VS7rR 8llsKGJLPlEin3TgypPP2xP4tLN646Gk5NSH/8x089lLbWxyQU9ZX+CXqZ1c vvx5EI8uSvGTnTt3gohA+QY6l0xEtMgQUWSIqEwiOqKN5QWGiK7zIdTSko6H ipLPvyMcmS48u6SeC09R6q4+pYLg3718OomNWLKpGLK50JBNaMimYmif+YZs 3obzP4e6KHjoVgL6DRKQ6bNXDQH10nteOLlkSKNqSOMCQ9mUDGlUDWnMM6Tx 7zORUmj5xsN8JQtqG2JrY6Ype/ELynGqalnA66UdO3aAHA7v3r3b1RHXSoX2 HCpaDvhiGXQZusS6/bcmt9/ySo2HC9W9U5pjjPXsDue0omf65phgYfnmDBm/ 0zkIaJ4hG45HP/Oxj3328P79n8H/0QZl2ZMXyyq2ihuF1WMIixTBXNZtPNA6 E5wLnHgOyUeKJHJQ7hoNHWTVp+hq8AqW4DGsaSELET/TubckTEDEBt8AOpAt vCSPZd++fSBLkGlsUu/c+YXYgvrIR74oNfJAuqChzGex29Da3YZ8f53vr52F Hw/UQjg4k8ipLh/1kGTrWk49TuT4ZC4zhpCVWTWDADBBoEUt/gWnBL3joYce mo1vDx5nXSEOtxZSFeIi2DWDjOcTIyPjILt5hgrrMsRGdk6DPdASdR8PtM3H xqXPfOOmz4e0bLp98RFsZ+Ubiw1pkh9TsYIFcPWWh8yCFKf6H0Fndhv7X7Ll Ozr6xVTuP9VIq9U+NfOhD90/s2bN1Kn+/omTAwPruwx71JLvW5JLaM+YIC8/ OJ3I1T3wqtcxPPC1INGf9cDpg4NaiF1psdebiZ3c6HI6MIHQyJa5S3MDMMH6 VDXELhXG2IeQDeAX+vufmLnhhodmrr/+wZnVqzeXQO5BGB83noiddW3LeVq3 aogfveI52ytXeXNQ0yJTrX57RQRJy49knMUMrrrJSP51Ub1xnLilOgpiNWCd l4yT9YTLYZT1dMAbb1QGY+NWJW8Fv7B69edxEuB100271ETM9PevP4lBbGMi KsZE/EpybW2bSpROFswY4lXT4P5UCo4j4fcFub2XPeVFyYUNBYhxMji0kE6F E9IMm7kqay5llxiV+MpJSRGYmBMf+lCs+2FSaEIimRB5RYbuLxtzoqJr7dlv b9ATklleg31A/bFZ6pBFdMgY5+kwlr4Z2LFiFov993AcbVM0bDWrSlBVUUvu CVi58jaQN0gbeV7rgwgeAR0htpBPQe651NHGw7Va1g11klBA83I+S9oANugk S7imC8L6xXPmLeGyqSmCZS1PSBaB1mp7UZj9/eNBGYUZnhoYGBE9YuKVNlXm YOJRTgJHCZv30csE7tLWhGkGkXoMYaY6sagNNTcOb5A124Mf/vADqX3rCJQE o3UbCLdCsj0xMDB1eGpqm84z9mRLtW3mVsIJDz+nZVzWshOd4KL1hvxrWnxJ 190GMRvqODMGZYVZWNLedneqMouWdD1o2ALHDIGZG2+8ByHMYn5hYKAOmUpH RkZ2xaq8Ucw/z7fetjn4C5540486ihdXIKuKRI4O8BZEWmftmJUVkrmAJhDu ouq5hfEfGej1sgr8XWCurAaClCWMFWzlubVrvRQwESamMszZrvulXGEecsLM qFmn6kZZ8uxLydMMcVlhHaPiM4xN4RNvrSKzzGkHsk1BNgMp1go8/FqQhz/w gYcm3/SmpyldZm422a96IkyLqa5EeNASLyeH9moRRoYqzluWMnMy5jXKEe4n 9EWOIKq4qSyw+U7YrIJYtUj3veEN34WvwEl4qZmDbcW3f8oQkFXbYZ4tZHyu L0vOIRg3K3Y2IY5lRn8yCk0n46vuAtI71eV0+/QX1q/fgaogVgEiYBEufuWf J4Jth52Ih99oKltPLrLf0zCOy/doxWHaAaQAqmZMLcgJBDUVLC9ttUbBRnqP G4RaohUK9IDIM4joC3186fjnZ3z5tm5k/eZ5Eu4VxgfZwq1YUTYVF7Lkmt7+ LSW37kyyLncbme2zQbog3G994AP7QKy8Y9yrpUqP1nkwr97uSbfPkG5fIely 8kitmHQzqpJlxiAa3F9LtGhec9I8yPLL73jHFw9cc81hea+mBXhVcoL2DKd3 nifBBVbf4uauwGt9ATSL4XgOLC9YXgyn2/1ugssL6o3Ao6dobvu973l1RHdF tuhqGaJzZl429PxteUt06HktrDdibHnyQ+1h7PeaCsq7sUxBXZUtmT59AoNu 7CxDi6/A0vCCUEld3SRxgRM84t9yG8/OiGjboHn/eRLO1VkfpLzCDNIwWi58 cs+LYeF4kQzJnWrU/v6ieUkinLaNkg968ultWz7MfD7U7AQsH1Ozp9gZmfKh yDQ6dDV+wb/Fqm/bhriBLhG9CsuTzbN2X5MtQA8fzGc2gzNWV/lUIAbvX1FB 26wegIcb1e1m+JrsRB1KfYZ3xApSS8NUuHTHmXGSFAXAummcNSa1tq8mV52X 260Zt1vTt0uTY4cxiIpSIGTB21lzWj/79f0a05QTD6vrC6OnrQLj+gLa56sF yWZ/ZtznZ0kQZvzB6AmdFWtYwZfZ9ryv8+RQM263V192YuLk2xsXZo+r6XFJ T+t8MXN7SVMxZtAbrJCC1HZte8EcocvBiL/lrpN87AYbi9WXvJvLEYJ3cnKz u7JiAfBhkpde9ewwuAYtiPOxOI4pWWSoBXVn8rm5fUQ1C+1C4FL50pBOnz4H EUWjtGRKiUiitEjw7aW+KFrHxEYth+bXWS04blHBcYk33FAo/age90Y8Nthe ymus6Fx97RbSpcx5SaXabrxl3zDZR1M3k77pQ/pm9LMEX3QSScJaSaqQ5fvR lojfITLMl4KQF9q2oG7R92/qRu9WVMHq9K1443gLQcakz1eXcTnF0T2gvCm5 TycaBIjluKl4bttrMbcZ4TQlrUh0AeZ6kBRgxuu1CrYvzTyHS8nR5zmUnMYT Ke289WRZZfChloKgtu1VeDv97Bnj6ucZd3mJMW6+MeO0zd1l+aJieMBnAoy2 V0Wq8B+cDdylusvqMi5ruTGuJ3nIe2Uc5ULMszSWM4YDekbbXsTupJ/i3M1e vkzUNaheSkcbxX+FMbisBgOy+mQwJcgarWhLqeekuZjvoTPSA+4uAU1/cPc4 hB5q7yloVUd/VP0GLfBl/RSITLMvcq86wYbkgpzwCn0x/7CwM7IzsjOyM/I8 jaRSF+XeINHnR+Uzpf9rAf+hBP5a4EIi5jfD5Jt98s3My7lDfS5ky4BsFHxP LaPuZBIw5TF0uTTOjcHvJuery7ju5Hz1phe3Q33+O8nJ3I+yiXJQ/6iUQml2 cZY3ZOWmZ17cberz3zYuLlV0HU9q9YeSjKRmF1wxLph+AxsfHlKvisJB0/vY rj4XwmRgt6rplZNJ+FdfS2ZSc4F7Ux5C+nzwXTfW8kyiVibtI403692EFQLi i+szxnkSVog6yK+gdDDzZi2heL+rUpZlrNnTJfNmt6nP35GcLP2j3uNTzb7Z mh63KHucNxOWX8030VvoJj7ccBOZucXcZPZQ6mO8Hk4fbIrEnPxkT04tXK99 QfOyf8gTTEJDzxc074IcDYzfKvQ4vD37h2r6h1DKVggy50rrjVeK4vTHtXKZ fcav9DVcZsaGAjephiuFO6jzC78vpfOM8/fq82de7K0NF2tHZTMy4fCz1/3T XoTxQ6/GFZjPAV9BrdkPXW2f42juRTQCp+WL6NMXYe3FWw9jIe3AF2QidEH2 D3kX1EvjeoPGBdsb92peUE3/0IrsCyomIb1o4QVlb/k211UqKdf9keyjwG6Q 09v0ChtANfcrjOpqHFxFtZUL0hacvqCD7V8QvufGqUglTGIt92q00X4+IG4l VqsLqsu4f7ILooSGqBYkK8fR5JqKoVw7D+fjmlRk8JCMa+mxa8BQRo52UXXN euCgMa5W6IKMNb/xZLyG1lNXCqLMTn1pYVKa32eGzamvoOk5Mi+oQRcW3ti2 l7mk2AraOvAqrBcKXSQavJb2UU2Vc3FMtagaoHfw1blSC1JsR9dSV4ATujjr S6kJzdlM9O62lSvVF5QX0OgNmvStztnerRk3UT8vN0G+tr312l3wh5gSetQY 16vHKb85LYijhS7cCBL0GT/qSVXRvOVGTAXMEKoZ54OLczeSs2daa/kmODyl dUJ6o7YP3+t1P5D+Ue/irM1OOl/knS85JbzlJqPthel3jN9VPVDlN5ttUzb/ Ub0SvNM4Wbfxo5cZ46xaIZk/erv6nGsB1gIlNhXVcydUadOHjHGH5AIzf1TH f6VQY5AYNhLAquk75UpDMK4W+Pva9aCZeXhXEykkh/934vSdkZ2RnZGdkZ2R nZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGd kZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2RnZGdkZ2R/5+NDP7Z /wUYUxQy\ \>", "ImageResolution" -> \ 288.],ExpressionUUID->"fe4af4f4-7a82-4446-93da-300fa16e658f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6c (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.75376294503279*^9, 3.7537629487977667`*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403285`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.7875838427605453`*^9, 3.787583846863057*^9}, {3.787624871323914*^9, 3.7876248923342185`*^9}, 3.8195159262390037`*^9},ExpressionUUID->"66774a93-cd29-4070-9c05-\ 936ebe5f7714"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "H"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}], "/", "2"}]}], "}"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"seg", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mrk", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"crd", ",", "nod", ",", "seg", ",", "mrk"}], "}"}], "=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg", ",", "mrk"}], "}"}], ",", "crd", ",", "0.0008"}], "]"}]}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"MeshRegion", "[", RowBox[{"crd", ",", "nod"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}]}]}]], "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.753763435083539*^9, {3.7537636176034584`*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.7537638728401537`*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.7537640140260305`*^9, 3.7537640276633615`*^9}, {3.753764070700218*^9, 3.7537641560081577`*^9}, { 3.7537641950926304`*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, { 3.753764533778655*^9, 3.753764547869378*^9}, {3.7553527505176506`*^9, 3.7553528603017626`*^9}, {3.75538351472929*^9, 3.7553835693549905`*^9}, { 3.755383607438428*^9, 3.7553838360146847`*^9}, {3.7553838766263666`*^9, 3.755383951476962*^9}, {3.755383992736063*^9, 3.7553840478403873`*^9}, { 3.755384124898378*^9, 3.7553842646406417`*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, {3.755389381201706*^9, 3.7553894668944387`*^9}, { 3.7553895199108267`*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.7554339398817015`*^9, 3.755434068869628*^9, { 3.7554341297848616`*^9, 3.755434216890894*^9}, {3.7554343528417006`*^9, 3.7554343704056864`*^9}, {3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, {3.7554346233872647`*^9, 3.7554347263294*^9}, { 3.7554347853286095`*^9, 3.7554348093580456`*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, {3.7554349600500207`*^9, 3.7554349983466597`*^9}, { 3.755435110803147*^9, 3.7554351426284623`*^9}, {3.755435324398292*^9, 3.7554353302892075`*^9}, {3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, {3.7554358134766097`*^9, 3.755435918833391*^9}, { 3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, {3.755436277778627*^9, 3.755436282441655*^9}, { 3.755436433004975*^9, 3.7554365810900373`*^9}, {3.755436713592167*^9, 3.7554367150263915`*^9}, {3.755436752569789*^9, 3.755436782945344*^9}, { 3.75543855564263*^9, 3.755438573014342*^9}, {3.7554386030808535`*^9, 3.75543862876925*^9}, {3.755438665543474*^9, 3.755438666460845*^9}, { 3.755438707655904*^9, 3.7554387115945473`*^9}, {3.7554387585075216`*^9, 3.7554388500917773`*^9}, {3.755523374186784*^9, 3.755523407200748*^9}, { 3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.7555237667615433`*^9, 3.7555238472382975`*^9, 3.7555241586552105`*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, {3.7555258075426073`*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726152`*^9}, {3.7555370249561615`*^9, 3.755537051432358*^9}, 3.7555372853307257`*^9, {3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618104`*^9, {3.7555379391125593`*^9, 3.755537970148187*^9}, { 3.7555674525545197`*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, {3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.7555677797901087`*^9}, { 3.755567822059022*^9, 3.755567822195668*^9}, {3.7555678597444773`*^9, 3.7555678604365673`*^9}, 3.7556071757478895`*^9, {3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, { 3.7556077296748147`*^9, 3.755607849742259*^9}, {3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, {3.755608958207328*^9, 3.755608980843011*^9}, {3.7559615593543744`*^9, 3.7559615796720657`*^9}, { 3.755961636991267*^9, 3.755961639837885*^9}, {3.755961688066485*^9, 3.7559617050406666`*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, { 3.7560033780948515`*^9, 3.756003424416658*^9}, {3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, { 3.75600408826851*^9, 3.7560041132438145`*^9}, {3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, { 3.7560045878703117`*^9, 3.756004610316883*^9}, {3.756090875492567*^9, 3.756090970250229*^9}, {3.7560910153257923`*^9, 3.756091253656394*^9}, { 3.7560913065394864`*^9, 3.7560913073489447`*^9}, {3.7560913497661376`*^9, 3.7560913829572887`*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, { 3.756091512338003*^9, 3.7560916181734085`*^9}, {3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, {3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.7560925295886126`*^9}, { 3.7564428371402044`*^9, 3.7564428827548018`*^9}, {3.756443118409811*^9, 3.7564432825122414`*^9}, {3.7564433139577427`*^9, 3.7564434048585415`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.7564441526092615`*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.7866931119911423`*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.7866934610423436`*^9}, {3.786693498963604*^9, 3.7866936745285892`*^9}, {3.7866937881495705`*^9, 3.7866937950939436`*^9}, 3.7873246428692293`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.7874854543849907`*^9, 3.787485502716935*^9}, {3.7874856358164625`*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.7874947579329753`*^9, 3.7874947673643074`*^9}, 3.787494920667267*^9, {3.7874950655196714`*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.7874952321914797`*^9}, {3.7874953099595947`*^9, 3.7874953434716663`*^9}, {3.7874953776322303`*^9, 3.7874953779837875`*^9}, {3.7875363421179075`*^9, 3.787536342508462*^9}, { 3.7875368085158997`*^9, 3.787536878302806*^9}, {3.7875369599529157`*^9, 3.7875370055885963`*^9}, {3.7875835060582986`*^9, 3.787583520821555*^9}, { 3.787583689937277*^9, 3.787583802553567*^9}, 3.7875838594185114`*^9, { 3.7875847456381392`*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, {3.787626222566106*^9, 3.7876263421533365`*^9}, { 3.787626618958929*^9, 3.787626769278859*^9}, {3.7876268408301697`*^9, 3.7876269773439765`*^9}, {3.787627036414548*^9, 3.7876270708938274`*^9}, { 3.7876271161212626`*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, {3.7876274396002846`*^9, 3.7876275494095793`*^9}, { 3.7876275828585815`*^9, 3.7876276051078897`*^9}, {3.787627643428895*^9, 3.7876279457383013`*^9}, {3.7876279985548644`*^9, 3.7876280606848803`*^9}, {3.7876281009928503`*^9, 3.787628119386298*^9}, { 3.7876283050026827`*^9, 3.7876283207471905`*^9}, {3.787628360297442*^9, 3.7876283695328703`*^9}, {3.7876284743277445`*^9, 3.7876285379433393`*^9}, {3.7876285852938123`*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.7876295116028004`*^9, { 3.7876297046473703`*^9, 3.7876297056283264`*^9}, {3.7876297387312613`*^9, 3.787629757779501*^9}, 3.7876298106703863`*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.7876299928494673`*^9, {3.7876506647613673`*^9, 3.7876506804881225`*^9}, {3.7876533444303474`*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, 3.78765405058292*^9, { 3.7876541175564795`*^9, 3.7876541249132113`*^9}, {3.787654198335023*^9, 3.787654200402335*^9}, {3.7876542598584185`*^9, 3.787654273263777*^9}, { 3.787654576327304*^9, 3.787654600865675*^9}, {3.787654632137179*^9, 3.7876546607774854`*^9}, {3.849339047133091*^9, 3.84933905664736*^9}, { 3.850637993079445*^9, 3.8506380126114783`*^9}, {3.8506380462940454`*^9, 3.8506380669349008`*^9}, {3.850638100377042*^9, 3.8506381057776403`*^9}, { 3.8506382329360204`*^9, 3.8506382380730076`*^9}, 3.8507911757405424`*^9, { 3.8507913292877855`*^9, 3.8507913294289546`*^9}, {3.850791394259633*^9, 3.8507913944337826`*^9}, {3.850791437007037*^9, 3.8507914371461887`*^9}, { 3.8507916615414457`*^9, 3.8507916616667194`*^9}, {3.8507919475410585`*^9, 3.850791948524747*^9}, 3.8825863530009046`*^9}, CellLabel-> "In[508]:=",ExpressionUUID->"d04f222d-20a8-48e0-b3b2-aecf48ab3681"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uX", ",", "uY", ",", "uZ", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "condition", " ", "at", " ", "the", " ", "clamped", " ", "boundaries"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bnd2", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "2"}], "]"}]}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bnd4", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "4"}], "]"}]}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"Flatten", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "#", "]"}], "\[Rule]", "0"}]}], "}"}], "&"}], ",", RowBox[{"Join", "[", RowBox[{"bnd2", ",", "bnd4"}], "]"}]}], "]"}], "]"}]}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "decription"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "nod"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"ii", "++"}], "]"}], ",", "0"}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", "cnd"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{"displacement", " ", "solution"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "5", "]"}], " ", "/.", "sol"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "sol", "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.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.753763435083539*^9, {3.7537636176034584`*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.7537638728401537`*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.7537640140260305`*^9, 3.7537640276633615`*^9}, {3.753764070700218*^9, 3.7537641560081577`*^9}, { 3.7537641950926304`*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, { 3.753764533778655*^9, 3.753764547869378*^9}, {3.7553527505176506`*^9, 3.7553528603017626`*^9}, {3.75538351472929*^9, 3.7553835693549905`*^9}, { 3.755383607438428*^9, 3.7553838360146847`*^9}, {3.7553838766263666`*^9, 3.755383951476962*^9}, {3.755383992736063*^9, 3.7553840478403873`*^9}, { 3.755384124898378*^9, 3.7553842646406417`*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, {3.755389381201706*^9, 3.7553894668944387`*^9}, { 3.7553895199108267`*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.7554339398817015`*^9, 3.755434068869628*^9, { 3.7554341297848616`*^9, 3.755434216890894*^9}, {3.7554343528417006`*^9, 3.7554343704056864`*^9}, {3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, {3.7554346233872647`*^9, 3.7554347263294*^9}, { 3.7554347853286095`*^9, 3.7554348093580456`*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, {3.7554349600500207`*^9, 3.7554349983466597`*^9}, { 3.755435110803147*^9, 3.7554351426284623`*^9}, {3.755435324398292*^9, 3.7554353302892075`*^9}, {3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, {3.7554358134766097`*^9, 3.755435918833391*^9}, { 3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, {3.755436277778627*^9, 3.755436282441655*^9}, { 3.755436433004975*^9, 3.7554365810900373`*^9}, {3.755436713592167*^9, 3.7554367150263915`*^9}, {3.755436752569789*^9, 3.755436782945344*^9}, { 3.75543855564263*^9, 3.755438573014342*^9}, {3.7554386030808535`*^9, 3.75543862876925*^9}, {3.755438665543474*^9, 3.755438666460845*^9}, { 3.755438707655904*^9, 3.7554387115945473`*^9}, {3.7554387585075216`*^9, 3.7554388500917773`*^9}, {3.755523374186784*^9, 3.755523407200748*^9}, { 3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.7555237667615433`*^9, 3.7555238472382975`*^9, 3.7555241586552105`*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, {3.7555258075426073`*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726152`*^9}, {3.7555370249561615`*^9, 3.755537051432358*^9}, 3.7555372853307257`*^9, {3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618104`*^9, {3.7555379391125593`*^9, 3.755537970148187*^9}, { 3.7555674525545197`*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, {3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.7555677797901087`*^9}, { 3.755567822059022*^9, 3.755567822195668*^9}, {3.7555678597444773`*^9, 3.7555678604365673`*^9}, 3.7556071757478895`*^9, {3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, { 3.7556077296748147`*^9, 3.755607849742259*^9}, {3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, {3.755608958207328*^9, 3.755608980843011*^9}, {3.7559615593543744`*^9, 3.7559615796720657`*^9}, { 3.755961636991267*^9, 3.755961639837885*^9}, {3.755961688066485*^9, 3.7559617050406666`*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, { 3.7560033780948515`*^9, 3.756003424416658*^9}, {3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, { 3.75600408826851*^9, 3.7560041132438145`*^9}, {3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, { 3.7560045878703117`*^9, 3.756004610316883*^9}, {3.756090875492567*^9, 3.756090970250229*^9}, {3.7560910153257923`*^9, 3.756091253656394*^9}, { 3.7560913065394864`*^9, 3.7560913073489447`*^9}, {3.7560913497661376`*^9, 3.7560913829572887`*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, { 3.756091512338003*^9, 3.7560916181734085`*^9}, {3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, {3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.7560925295886126`*^9}, { 3.7564428371402044`*^9, 3.7564428827548018`*^9}, {3.756443118409811*^9, 3.7564432825122414`*^9}, {3.7564433139577427`*^9, 3.7564434048585415`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.7564441526092615`*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.7866931119911423`*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.7866934610423436`*^9}, {3.786693498963604*^9, 3.7866936745285892`*^9}, {3.7866937881495705`*^9, 3.7866937950939436`*^9}, 3.7873246428692293`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.7874854543849907`*^9, 3.787485502716935*^9}, {3.7874856358164625`*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.7874947579329753`*^9, 3.7874947673643074`*^9}, 3.787494920667267*^9, {3.7874950655196714`*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.7874952321914797`*^9}, {3.7874953099595947`*^9, 3.7874953434716663`*^9}, {3.7874953776322303`*^9, 3.7874953779837875`*^9}, {3.7875363421179075`*^9, 3.787536342508462*^9}, { 3.7875368085158997`*^9, 3.787536878302806*^9}, {3.7875369599529157`*^9, 3.7875370055885963`*^9}, {3.7875835060582986`*^9, 3.787583520821555*^9}, { 3.787583689937277*^9, 3.787583802553567*^9}, 3.7875838594185114`*^9, { 3.7875847456381392`*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, {3.787626222566106*^9, 3.7876263421533365`*^9}, { 3.787626618958929*^9, 3.787626769278859*^9}, {3.7876268408301697`*^9, 3.7876269773439765`*^9}, {3.787627036414548*^9, 3.7876270708938274`*^9}, { 3.7876271161212626`*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, {3.7876274396002846`*^9, 3.7876275494095793`*^9}, { 3.7876275828585815`*^9, 3.7876276051078897`*^9}, {3.787627643428895*^9, 3.7876279457383013`*^9}, {3.7876279985548644`*^9, 3.7876280606848803`*^9}, {3.7876281009928503`*^9, 3.787628119386298*^9}, { 3.7876283050026827`*^9, 3.7876283207471905`*^9}, {3.787628360297442*^9, 3.7876283695328703`*^9}, {3.7876284743277445`*^9, 3.7876285379433393`*^9}, {3.7876285852938123`*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.7876295116028004`*^9, { 3.7876297046473703`*^9, 3.7876297056283264`*^9}, {3.7876297387312613`*^9, 3.787629757779501*^9}, 3.7876298106703863`*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.7876299928494673`*^9, {3.7876506647613673`*^9, 3.7876506804881225`*^9}, {3.7876533444303474`*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, {3.78765405058292*^9, 3.787654070902216*^9}, 3.787654213377517*^9, {3.7876542858754635`*^9, 3.787654287552429*^9}, {3.787654363512497*^9, 3.7876543828791847`*^9}, 3.7877108517929688`*^9, {3.84933901209382*^9, 3.8493390188417115`*^9}, { 3.850638127788494*^9, 3.8506381297019253`*^9}, {3.850638173389373*^9, 3.8506381744526567`*^9}, {3.8507910864194975`*^9, 3.8507911001190476`*^9}, {3.850791460607442*^9, 3.8507914660338907`*^9}, { 3.8825860265018005`*^9, 3.882586087260893*^9}, {3.8825861259980516`*^9, 3.8825861319022837`*^9}, 3.882586172751701*^9, {3.882586217850997*^9, 3.8825863327178645`*^9}}, CellLabel-> "In[514]:=",ExpressionUUID->"d399e837-49e0-4e9c-9f22-e6c9105fb288"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (bar truss)", "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.692004483813607*^9, 3.692004508753642*^9}, 3.7876249165908413`*^9},ExpressionUUID->"844171a6-94f6-4991-8d47-\ 973102d18f24"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.692004516933654*^9, 3.69200472173394*^9}, {3.7238001148135943`*^9, 3.7238001159435806`*^9}, { 3.7552812833582325`*^9, 3.755281465277815*^9}, {3.755281499276145*^9, 3.7552815743148856`*^9}, {3.819777247860895*^9, 3.8197772637280893`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"b8c0dc5d-bc20-4b2c-9c82-90c9f431c117"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam structure)", "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.692004488803614*^9, {3.692004765984002*^9, 3.6920047817840242`*^9}, 3.7876249198908176`*^9},ExpressionUUID->"87334445-a2e7-42d3-9a51-\ 1b313e6baa9f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.69200479275404*^9, 3.6920050211343594`*^9}, { 3.723800088983532*^9, 3.723800090369502*^9}, {3.755281662771347*^9, 3.755281668907722*^9}, {3.819777312265813*^9, 3.8197773157181125`*^9}, { 3.819781904225833*^9, 3.819781980419295*^9}, {3.8197820206687484`*^9, 3.819782026383217*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"e0ea02ec-039f-4ec2-b8a7-2fd6a7a6c78e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.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.6920044912936172`*^9, {3.692005080664443*^9, 3.6920050874244523`*^9}, 3.7876249275793595`*^9},ExpressionUUID->"035257a2-bc2e-425a-9e49-\ 7fc4b726a7c7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.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.692005099424469*^9, 3.692005126334507*^9}, {3.6920052956347437`*^9, 3.6920053647348404`*^9}, {3.6920073658081074`*^9, 3.692007368868112*^9}, { 3.755281747342649*^9, 3.7552817544032793`*^9}, {3.8197773382954226`*^9, 3.8197773422706566`*^9}, 3.8197821573500376`*^9}, CellLabel-> "In[339]:=",ExpressionUUID->"30c2d718-e65c-4330-b034-9cc828ed774e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam truss)", "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.6920072657679677`*^9, 3.692007266607969*^9}, {3.723800212618948*^9, 3.7238002218043814`*^9}, 3.7876249306286964`*^9},ExpressionUUID->"72253fa9-a758-4bc3-a5a6-\ 47601a6b2910"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.6920072921580048`*^9, {3.6920172043090706`*^9, 3.692017263929154*^9}, { 3.6920174300493865`*^9, 3.6920174602394285`*^9}, {3.692017504419491*^9, 3.692017581889599*^9}, {3.7238003598908434`*^9, 3.72380039128267*^9}, { 3.7552818429234576`*^9, 3.755281878876894*^9}, 3.7552820401590757`*^9, { 3.7552820887897696`*^9, 3.7552820920530305`*^9}, {3.819782282769621*^9, 3.819782296979185*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"498c72ab-a2c2-4f50-ba7c-d1f522472cc4"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.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.6920044935936213`*^9, {3.6920055576551104`*^9, 3.692005561315116*^9}, 3.7238002254871435`*^9, 3.7876249331468368`*^9},ExpressionUUID->"cf07ba95-6b6c-4652-a1fe-\ 2674b4a1db96"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.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.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.819782394768776*^9, 3.819782395299322*^9}, { 3.850699113589163*^9, 3.850699114830697*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"03ae26b5-736b-4631-8396-7966c6d1d5c1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "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.692004496313625*^9, { 3.6920057803254223`*^9, 3.692005780945423*^9}, 3.723800228134458*^9, 3.7876249354672213`*^9},ExpressionUUID->"aede8e9e-01fc-4e8a-a7e7-\ 768e30833ff7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"m", " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.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.692005777055418*^9, 3.6920058190554767`*^9}, {3.6920073312080593`*^9, 3.6920073392880707`*^9}, {3.723800525178776*^9, 3.7238005261261005`*^9}, { 3.755282243395219*^9, 3.755282245406639*^9}, {3.7552823157132893`*^9, 3.7552823330704985`*^9}, {3.8197774253106804`*^9, 3.8197774297587595`*^9}, {3.8197824801555943`*^9, 3.819782595987687*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"9da6c4d3-7eff-4c4a-b01a-bd104cfb09df"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "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.6920044987836285`*^9, { 3.692006070175828*^9, 3.692006073605833*^9}, 3.72380023043182*^9, 3.7876249380420866`*^9},ExpressionUUID->"988745bb-b003-4b33-8ce1-\ 29649bd14e28"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", " ", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"p", " ", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"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.6920060638458195`*^9, 3.6920062159860325`*^9}, { 3.692006278026119*^9, 3.692006360616235*^9}, {3.7238005610940094`*^9, 3.7238005623974686`*^9}, {3.755282537168726*^9, 3.755282773413573*^9}, { 3.7552830525825834`*^9, 3.755283052984254*^9}, {3.819778134314925*^9, 3.819778134798916*^9}, {3.819778172830922*^9, 3.819778178063283*^9}, { 3.819778263451173*^9, 3.8197782788524485`*^9}, {3.8197827016773767`*^9, 3.8197828017916217`*^9}, {3.8506991448914785`*^9, 3.8506991524538593`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"9ced34df-dfd4-4802-bb87-f824c7422910"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "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.692017996330179*^9, 3.692017999280184*^9}, {3.723800751264373*^9, 3.723800756977186*^9}, 3.7876249404872465`*^9},ExpressionUUID->"9e90ec9b-442a-4955-b3bb-\ be3cfaa9fe71"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.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.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, 3.723800734382908*^9, {3.723801165592532*^9, 3.7238011670178595`*^9}, {3.7553462764320617`*^9, 3.755346282581628*^9}, { 3.8197828870206394`*^9, 3.8197829001345263`*^9}, {3.850699178533646*^9, 3.850699180254986*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"c013ac0d-2ca2-410d-94fb-b86043f57a7c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (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.6862917141498795`*^9, 3.686463534413453*^9, 3.6920045014936323`*^9, {3.723800620598589*^9, 3.723800620691759*^9}, {3.723801233232855*^9, 3.7238012573010817`*^9}, 3.7876249436429157`*^9},ExpressionUUID->"f44de59f-3d8a-4e5a-99e8-\ 49bf452f9d0b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"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.686291740699917*^9, 3.686291791099987*^9}, { 3.6920064252563252`*^9, 3.692006513386449*^9}, {3.692007015637617*^9, 3.69200708896772*^9}, {3.755346344589837*^9, 3.7553463636390886`*^9}, { 3.8197829739657583`*^9, 3.8197829746637754`*^9}, {3.850699199483954*^9, 3.8506992102188063`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"7794193a-fc2b-45d0-8a91-1d65a31cfc6c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate bending mode)", "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.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.6920071424377947`*^9}, {3.7238012915092707`*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7553516202841806`*^9, 3.755351621212493*^9}, 3.7554388732154655`*^9, { 3.7554389252814445`*^9, 3.75543892920196*^9}, 3.755438960659221*^9, 3.7876249485186167`*^9, 3.7877081438848276`*^9, 3.7877106066678762`*^9},ExpressionUUID->"600cd4a7-f9ed-45e7-96c1-\ 0b479a59323e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]W", ",", "\[CapitalOmega]", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", FractionBox["y", "L"]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], "]"}], " ", "F"}]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.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.686291740699917*^9, 3.686291791099987*^9}, { 3.6862918385400534`*^9, 3.68629185767008*^9}, 3.6920072022978787`*^9, 3.755346424741544*^9, {3.7553464606567307`*^9, 3.755346499889244*^9}, { 3.7553465641565332`*^9, 3.7553465866992493`*^9}, 3.755352181219705*^9, { 3.8197830540070057`*^9, 3.8197831146556287`*^9}, {3.8197831473868027`*^9, 3.8197831720630856`*^9}, {3.8197928508538337`*^9, 3.819792907159875*^9}, { 3.850699232073991*^9, 3.850699376103595*^9}, {3.8511331557648935`*^9, 3.851133177216421*^9}}, CellLabel-> "In[418]:=",ExpressionUUID->"eb6b1e97-41b2-4031-9494-028843aa5072"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar structure)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.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.6920044935936213`*^9, {3.6920055576551104`*^9, 3.692005561315116*^9}, 3.7238002254871435`*^9, {3.7553481278960447`*^9, 3.75534813971142*^9}, { 3.7553514327426157`*^9, 3.7553514385741806`*^9}, {3.8812052984702835`*^9, 3.881205300914299*^9}},ExpressionUUID->"b12b049d-0111-4c85-8217-\ aabfea3c7f0b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", RowBox[{"P", "/", "L"}]}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "P"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.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.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.7553514516115675`*^9, 3.755351510181407*^9}, {3.755351564011986*^9, 3.7553515656706686`*^9}, {3.787709262831045*^9, 3.7877092674786477`*^9}, { 3.8197897248576317`*^9, 3.8197897252537403`*^9}, {3.81979129812329*^9, 3.819791303703355*^9}, 3.819791338734643*^9, {3.850699536859164*^9, 3.85069953805099*^9}}, CellLabel-> "In[526]:=",ExpressionUUID->"962aee57-48cf-4436-ac6e-8307b241cc81"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar element)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.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.6920044935936213`*^9, {3.6920055576551104`*^9, 3.692005561315116*^9}, 3.7238002254871435`*^9, {3.7553481278960447`*^9, 3.75534813971142*^9}, { 3.8812053030561905`*^9, 3.881205305352699*^9}},ExpressionUUID->"762d18ce-521d-47a0-94ed-\ 283482102e97"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.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.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.8198556058358617`*^9, 3.8198556071591415`*^9}, 3.819855639149332*^9, { 3.8506995593066325`*^9, 3.850699559924745*^9}}, CellLabel-> "In[429]:=",ExpressionUUID->"c81c6f8b-2815-4b9f-ba8f-a6cf79c7dfd0"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.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.6920044912936172`*^9, {3.692005080664443*^9, 3.6920050874244523`*^9}, { 3.7238016457050695`*^9, 3.7238016485700293`*^9}, {3.7553466534521055`*^9, 3.755346654634207*^9}, {3.8812052612268715`*^9, 3.8812052765856037`*^9}},ExpressionUUID->"c2432e07-f10c-463f-ac69-\ ed646ac5ad7e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "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]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.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.692005099424469*^9, 3.692005126334507*^9}, {3.6920052956347437`*^9, 3.6920053647348404`*^9}, {3.6920073658081074`*^9, 3.692007368868112*^9}, { 3.7238016961299133`*^9, 3.7238018051367826`*^9}, {3.755346661138646*^9, 3.7553468118982153`*^9}, {3.7553471085713587`*^9, 3.755347166185311*^9}, { 3.7876370907454753`*^9, 3.7876372165495167`*^9}, {3.819783343573612*^9, 3.8197834245995045`*^9}, {3.8825879194376984`*^9, 3.882588088670046*^9}}, CellLabel-> "In[532]:=",ExpressionUUID->"4ffe9e55-4c3d-4f5f-b9be-41df0c7b6b45"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam structure)", "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.692017996330179*^9, 3.692017999280184*^9}, {3.7238019986456337`*^9, 3.723802005404753*^9}, {3.755347238509882*^9, 3.7553472460008483`*^9}, { 3.8812052681601686`*^9, 3.8812052792203903`*^9}},ExpressionUUID->"032c2005-7a05-4a8b-a430-\ 12116dad9e40"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.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.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.7238020220566053`*^9, 3.723802033852277*^9}, { 3.7238020769072275`*^9, 3.723802128986509*^9}, {3.7238021621517096`*^9, 3.723802245010724*^9}, {3.7238022832650642`*^9, 3.7238023365951767`*^9}, 3.7238024021360083`*^9, 3.7238024323330545`*^9, {3.755347265559884*^9, 3.7553473060631647`*^9}, {3.755347343708659*^9, 3.755347428680601*^9}, { 3.787638865656962*^9, 3.787638869316835*^9}, {3.8197887821479673`*^9, 3.8197887827386026`*^9}, {3.850699406492807*^9, 3.850699411807452*^9}}, CellLabel-> "In[535]:=",ExpressionUUID->"11ed4523-c567-4bad-ab46-52fe940735cd"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (plate bending)", "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.692017996330179*^9, 3.692017999280184*^9}, {3.723802446254207*^9, 3.723802463707958*^9}, {3.7553474763676414`*^9, 3.7553474837939305`*^9}, { 3.787633609669371*^9, 3.7876336147400403`*^9}, {3.8812052820370927`*^9, 3.881205287078536*^9}},ExpressionUUID->"0efdb24c-636c-4232-bb36-\ 12dce838936c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"R", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["F", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "->", "0"}], ",", RowBox[{"y", "->", "0"}]}], "}"}]}], ")"}]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.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.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.723802484790901*^9, 3.723802499197665*^9}, { 3.7238025319830265`*^9, 3.7238025647169547`*^9}, {3.7238026083860784`*^9, 3.7238026749923143`*^9}, {3.723802720756008*^9, 3.723802818918144*^9}, { 3.723802858515747*^9, 3.7238028612596664`*^9}, {3.755347519931821*^9, 3.755347550666892*^9}, {3.755347600502432*^9, 3.7553476976960354`*^9}, { 3.7876336452513857`*^9, 3.7876337824990273`*^9}, {3.819788880883937*^9, 3.819788998621375*^9}, {3.8197891540362253`*^9, 3.819789200160994*^9}, { 3.819789231642615*^9, 3.8197892760232506`*^9}, {3.819789326683582*^9, 3.8197893816473036`*^9}, {3.8197894412961254`*^9, 3.819789469001286*^9}, { 3.8197895293743763`*^9, 3.8197896174515867`*^9}, {3.8506994291692486`*^9, 3.8506995018837795`*^9}, {3.8511333048798075`*^9, 3.8511333288027077`*^9}, {3.882588311058855*^9, 3.882588472972661*^9}, { 3.8825886030413275`*^9, 3.882588624616124*^9}, {3.8825886648654957`*^9, 3.882588714089068*^9}}, CellLabel-> "In[542]:=",ExpressionUUID->"45edc96f-361d-45f4-a264-9b4ca05da041"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIBRATION ANALYSIS (week 4)", "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.4932789338394003`*^9, 3.493278944697*^9}, 3.4933062370676003`*^9, { 3.4938708332125845`*^9, 3.493870838516244*^9}, {3.5566240340051107`*^9, 3.556624040463522*^9}, 3.619407916962384*^9, {3.6924123022392583`*^9, 3.692412310189269*^9}, 3.7530712431763153`*^9, 3.7866746422204695`*^9},ExpressionUUID->"363536f9-7720-4b2c-a727-\ 35aa84fd59c0"], Cell[CellGroupData[{ Cell["Lecture example 3.1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770359158451*^9}, { 3.6928550971942673`*^9, 3.6928551052242785`*^9}, {3.787803673092881*^9, 3.787803679378704*^9}, 3.82002459370605*^9},ExpressionUUID->"c61f3574-005d-4e90-aa1d-\ fd6bea9c1e58"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalOmega]2", "=", RowBox[{"(", GridBox[{ {"3", RowBox[{ RowBox[{"-", "1"}], "/", "3"}]}, { RowBox[{"-", "3"}], "3"} }], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "\[CapitalOmega]2", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Sqrt", "[", "val", "]"}]}]}], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.6926183433034945`*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.6926184702836723`*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.6927706245488224`*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.7244868220050793`*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.7244869496591587`*^9}, {3.7244869892727127`*^9, 3.7244870143222284`*^9}, {3.724490936279661*^9, 3.724491010626911*^9}, { 3.7244910471773667`*^9, 3.7244911069483156`*^9}, {3.7244950339345055`*^9, 3.7244950625113525`*^9}, {3.85139370048866*^9, 3.8513937647740607`*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"e8acc0c1-989c-4266-96c2-5de3ce33776a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.2 (ode)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770359158451*^9}, { 3.6928550971942673`*^9, 3.6928551052242785`*^9}, {3.692855267934506*^9, 3.692855272014512*^9}, 3.7878036866544547`*^9, 3.820024595889677*^9},ExpressionUUID->"88b89d8b-5254-43a8-bbf1-\ 71232b422394"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MM", "=", RowBox[{"m", RowBox[{"(", GridBox[{ {"0", "1"}, {"1", "0"} }], ")"}]}]}], ";", " ", RowBox[{"KK", "=", RowBox[{"k", RowBox[{"(", GridBox[{ { RowBox[{"-", "1"}], "1"}, {"1", RowBox[{"-", "1"}]} }], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", "val", "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.6926183433034945`*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.6926184702836723`*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.6927706245488224`*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.6928553102645655`*^9, 3.692855394424683*^9}, {3.851393780093685*^9, 3.851393872788854*^9}, {3.8513939134173965`*^9, 3.8513939427413964`*^9}, 3.883443268244711*^9}, CellLabel-> "In[402]:=",ExpressionUUID->"05bcdb5b-89c0-4365-994a-ea9798d17487"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.3 (bar structure)", "Subsubsection", CellChangeTimes->{{3.4938724364934034`*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826577`*^9, 3.557722281898278*^9}, { 3.6925364040653286`*^9, 3.692536414765343*^9}, {3.6926051339045105`*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.6926165560409927`*^9, 3.6926165581809955`*^9}, 3.787803700161643*^9, 3.820024597714839*^9},ExpressionUUID->"132bc7f5-30cd-4b67-a626-\ 338a7469ac9e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, {3.6926777445380497`*^9, 3.69267776592808*^9}, {3.6926948008051434`*^9, 3.69269481310516*^9}, { 3.6926949183153076`*^9, 3.6926949195553093`*^9}, {3.6928546233136034`*^9, 3.6928546243636055`*^9}, {3.6928546875636935`*^9, 3.6928548011538525`*^9}, {3.6928548476139174`*^9, 3.6928548503039217`*^9}, {3.6928549222540216`*^9, 3.6928549237840242`*^9}, {3.692855453534766*^9, 3.692855477104799*^9}, { 3.756618747609501*^9, 3.7566188279765987`*^9}, {3.7566188619999294`*^9, 3.756618981627329*^9}, {3.7566195742452745`*^9, 3.7566195805721426`*^9}, { 3.756619612517589*^9, 3.756619616079483*^9}, {3.7566197161185665`*^9, 3.7566197339734716`*^9}, {3.7882441687016416`*^9, 3.7882442117547374`*^9}, {3.788244272436096*^9, 3.78824427308834*^9}, 3.7882444034202657`*^9, {3.820025067066265*^9, 3.820025096859448*^9}, { 3.820025153417162*^9, 3.820025155783327*^9}, {3.850794221377445*^9, 3.8507942337721004`*^9}}, CellLabel-> "In[406]:=",ExpressionUUID->"e8080710-f31f-40e9-974c-af1daa2953b1"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.4 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4938724364934034`*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826577`*^9, 3.557722281898278*^9}, { 3.6925364040653286`*^9, 3.692536414765343*^9}, {3.6926051339045105`*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.6926165560409927`*^9, 3.692616575321019*^9}, 3.7557191504411116`*^9, 3.7878037030530243`*^9, 3.7882445751277723`*^9, 3.8200245994156294`*^9},ExpressionUUID->"9362a373-ca6f-4e9f-960e-\ 3fc64031c9db"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", OverscriptBox["U", "."]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, { 3.692623535710764*^9, 3.692623557910795*^9}, {3.6926952837958193`*^9, 3.6926952890058265`*^9}, {3.6928555108448462`*^9, 3.692855525144866*^9}, { 3.6928555801949434`*^9, 3.6928556725450726`*^9}, {3.6928557055151186`*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153815`*^9}, { 3.692855952785465*^9, 3.6928559781655006`*^9}, {3.6928560758856373`*^9, 3.692856170005769*^9}, {3.6928562238658447`*^9, 3.6928562580458927`*^9}, { 3.6928562961859455`*^9, 3.69285631358597*^9}, {3.692856357426031*^9, 3.6928563681360464`*^9}, {3.6928563999060907`*^9, 3.6928564001160913`*^9}, {3.692857702937915*^9, 3.6928577502779813`*^9}, { 3.72429732021502*^9, 3.7242973244091988`*^9}, {3.7242973875274353`*^9, 3.724297390176303*^9}, {3.724297489356834*^9, 3.7242974986059*^9}, { 3.7242975364637938`*^9, 3.724297599229539*^9}, {3.7242977243318577`*^9, 3.7242977252218814`*^9}, {3.7530715281010895`*^9, 3.7530715577593546`*^9}, {3.753071592776411*^9, 3.7530716192701263`*^9}, { 3.753079890337639*^9, 3.753079910015238*^9}, {3.788077556292513*^9, 3.7880775604619904`*^9}, 3.788077612775126*^9, {3.82002517421471*^9, 3.8200252008854923`*^9}, 3.8204702417446294`*^9, {3.820470330146205*^9, 3.8204703911667013`*^9}, {3.820470434077013*^9, 3.820470435462103*^9}, { 3.8204704747341957`*^9, 3.820470531412328*^9}, {3.850796354640504*^9, 3.850796364032633*^9}}, CellLabel-> "In[410]:=",ExpressionUUID->"42bd3065-7a9b-4fb1-b82b-80fb75319f08"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Lecture example", StyleBox[" ", FontColor->GrayLevel[0]], "3.5 (solid)" }], "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.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.6926165783510237`*^9, {3.7878037128961277`*^9, 3.7878037213866677`*^9}, 3.8200246011726475`*^9},ExpressionUUID->"e6055f6f-bbea-486e-95b9-\ 06694155c59d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.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.6920258039789453`*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.6920259277091184`*^9, 3.6920259839391975`*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.6920264987399178`*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.6925023736471014`*^9}, { 3.6925025169803*^9, 3.6925025655720787`*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.6926953173258657`*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.6927680130851665`*^9}, { 3.6927681266753254`*^9, 3.6927681303353305`*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.6927701046680946`*^9}, {3.6928578154980726`*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.724303840459796*^9, 3.7243038415618286`*^9}, {3.724303879564316*^9, 3.724303894223379*^9}, 3.7243039281242995`*^9, 3.7243040890622582`*^9, {3.724423222711531*^9, 3.7244232431101933`*^9}, 3.7244235987235465`*^9, {3.7244630416618423`*^9, 3.7244630496473045`*^9}, {3.7244630934956675`*^9, 3.7244632541685715`*^9}, {3.72446356412341*^9, 3.724463638943798*^9}, { 3.72446370987291*^9, 3.724463778130144*^9}, {3.724463812618352*^9, 3.724463883547698*^9}, {3.724463917785564*^9, 3.7244640373763733`*^9}, { 3.724464085350275*^9, 3.724464220520729*^9}, {3.7244643161400948`*^9, 3.7244643244220333`*^9}, {3.7244643814283237`*^9, 3.724464454982666*^9}, { 3.7244713771886415`*^9, 3.7244713848341866`*^9}, {3.724471420086172*^9, 3.724471422815348*^9}, {3.724486692210102*^9, 3.7244866984451756`*^9}, { 3.7245557366954913`*^9, 3.724555737789098*^9}, 3.724555838936*^9, 3.7530722584303675`*^9, {3.7557211475246754`*^9, 3.7557211723132725`*^9}, 3.7878941312660275`*^9, 3.788077650022805*^9, {3.820025985576888*^9, 3.820025987333465*^9}, {3.8200260200845194`*^9, 3.8200260249775887`*^9}, { 3.8200261168126965`*^9, 3.8200261306343355`*^9}}, CellLabel-> "In[415]:=",ExpressionUUID->"60dad061-b278-4f1d-a447-53b12a4b0adc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.6 (beam)", "Subsubsection", CellChangeTimes->{ 3.4938982987960324`*^9, 3.5577217480785403`*^9, {3.692536423145355*^9, 3.6925364506253934`*^9}, {3.6926054332359295`*^9, 3.6926054525459566`*^9}, 3.69261651130093*^9, 3.6926165853310337`*^9, {3.755721309140517*^9, 3.7557213161329103`*^9}, {3.755722559939822*^9, 3.755722564665438*^9}, 3.7878037265605774`*^9, 3.8200246031738443`*^9, {3.8200298837550116`*^9, 3.8200299159157624`*^9}},ExpressionUUID->"4771bc55-673c-4ae8-8bdb-\ d22e1638083d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], " ", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938984436576324`*^9, 3.4938984505060325`*^9}, { 3.4939508930964003`*^9, 3.4939508993052*^9}, 3.5007186129983997`*^9, { 3.692536436605374*^9, 3.692536507425473*^9}, {3.6925365733255653`*^9, 3.69253658391558*^9}, {3.6925366551056795`*^9, 3.6925366962757373`*^9}, 3.692536781945857*^9, 3.692536825315918*^9, {3.6925369042360287`*^9, 3.6925369603361073`*^9}, {3.692537436846774*^9, 3.6925374748468275`*^9}, { 3.6925375064468718`*^9, 3.692537543896924*^9}, {3.6925384725244083`*^9, 3.692538507064457*^9}, {3.692538541444505*^9, 3.6925385532045217`*^9}, { 3.692538591154575*^9, 3.6925388837549844`*^9}, {3.6925391133453054`*^9, 3.6925391566234407`*^9}, {3.6925393311497364`*^9, 3.6925394393698883`*^9}, {3.692539579530084*^9, 3.6925395927701025`*^9}, { 3.692539800900394*^9, 3.692539874350497*^9}, {3.6925400840707903`*^9, 3.6925400981808105`*^9}, {3.6925402819810677`*^9, 3.6925402985610905`*^9}, 3.692540330111135*^9, {3.6925406256615486`*^9, 3.6925406596015964`*^9}, { 3.6925407139216723`*^9, 3.692540842291852*^9}, {3.692540939781988*^9, 3.692540965192024*^9}, {3.692541020762102*^9, 3.692541021512103*^9}, { 3.6925410776721816`*^9, 3.692541095012206*^9}, {3.692542771504553*^9, 3.6925428208046217`*^9}, {3.69259963100324*^9, 3.6925996373546033`*^9}, { 3.692600739241358*^9, 3.69260087649155*^9}, 3.6926012425220623`*^9, 3.692601292102132*^9, {3.6926014023522863`*^9, 3.692601430842326*^9}, { 3.6926021565553417`*^9, 3.692602173695366*^9}, {3.6926028188362694`*^9, 3.69260281947627*^9}, {3.6926035232892556`*^9, 3.6926035238692565`*^9}, 3.692603706969513*^9, {3.692604877223151*^9, 3.692604895363177*^9}, { 3.6926050090333357`*^9, 3.692605020963352*^9}, 3.6926233239704676`*^9, { 3.692623397890571*^9, 3.692623415880596*^9}, {3.6926953498559113`*^9, 3.692695352475915*^9}, {3.6927027061974525`*^9, 3.692702716667467*^9}, { 3.692702815217605*^9, 3.6927028284476237`*^9}, {3.6927713388298225`*^9, 3.6927713433298283`*^9}, {3.692858789939437*^9, 3.692858819149478*^9}, { 3.7245498462061405`*^9, 3.7245499439830046`*^9}, {3.724550010823572*^9, 3.7245500675446234`*^9}, {3.724557628664399*^9, 3.724557643852253*^9}, { 3.7245576929500136`*^9, 3.724557709686152*^9}, {3.724557743595968*^9, 3.724557747868984*^9}, {3.7245577860139046`*^9, 3.7245577926112986`*^9}, { 3.7245578833218794`*^9, 3.7245578838691053`*^9}, {3.7245588273362737`*^9, 3.724558898176444*^9}, {3.724558935228176*^9, 3.7245589885529246`*^9}, { 3.724559339693288*^9, 3.724559376000408*^9}, {3.7557220266671104`*^9, 3.755722040084095*^9}, {3.7567985372844973`*^9, 3.756798578243656*^9}, { 3.756798669627799*^9, 3.7567986729551954`*^9}, {3.7567987534051056`*^9, 3.7567987570136375`*^9}, 3.8200270638226805`*^9, {3.8200278006986237`*^9, 3.820027802357981*^9}, {3.850796567070136*^9, 3.8507965763999834`*^9}}, CellLabel-> "In[418]:=",ExpressionUUID->"5a470102-7126-4991-a303-f390c14eef71"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.6926778041981335`*^9, 3.6926778043681335`*^9}, { 3.6926787551494646`*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.6928590333097773`*^9, 3.6928590340097785`*^9}, {3.755722529254018*^9, 3.7557225536775293`*^9}, 3.7878037498023167`*^9, 3.8200246120636396`*^9, {3.8200298743691416`*^9, 3.820029874901998*^9}},ExpressionUUID->"8ed54c5e-7a2b-430f-b78f-\ 323fef22cad4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.4939934523719997`*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.6926792938302193`*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.6927734931228385`*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.6927737733532305`*^9, 3.6927737739032316`*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.6927740867636695`*^9}, { 3.692859047249797*^9, 3.6928591207299*^9}, {3.724558341263359*^9, 3.7245583544585257`*^9}, {3.7245593962612076`*^9, 3.724559397823843*^9}, 3.7878942085888877`*^9, {3.8200286793925047`*^9, 3.8200286799010334`*^9}, { 3.8200287132036333`*^9, 3.820028715346983*^9}, {3.8518338780309815`*^9, 3.8518339106132174`*^9}}, CellLabel-> "In[422]:=",ExpressionUUID->"5db47cf1-8f48-4a4b-bbea-dac05a142adf"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.8 (beam and rigid body)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, 3.692859036409782*^9, 3.7878037546813784`*^9, 3.8200246140907764`*^9},ExpressionUUID->"e7264959-fce4-403e-bc87-\ abf1e1a4a426"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"m", " ", RowBox[{ RowBox[{"L", "^", "2"}], "/", "5"}], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.692699048081089*^9, 3.6926990489010906`*^9}, {3.6926995790618324`*^9, 3.692699589401847*^9}, { 3.6926996396619177`*^9, 3.69269965575194*^9}, {3.6926997301520443`*^9, 3.692699736682053*^9}, {3.6928589787397013`*^9, 3.6928589854697104`*^9}, { 3.692859254510087*^9, 3.6928592940201426`*^9}, {3.755722787395869*^9, 3.7557228081237707`*^9}, 3.7557231852619715`*^9, {3.755723220656005*^9, 3.755723263671439*^9}, {3.755723435970131*^9, 3.755723458365805*^9}, 3.756001870205928*^9, {3.7882453811064157`*^9, 3.7882453893709884`*^9}, { 3.788245616548293*^9, 3.788245627763839*^9}, {3.820029466509404*^9, 3.8200294969772806`*^9}, {3.8204708439732113`*^9, 3.820470844932032*^9}}, CellLabel-> "In[425]:=",ExpressionUUID->"80810b1a-4ee1-49d0-94b9-d1aa7dca9836"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9a (plate bending)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.7241476447423286`*^9, 3.7241476607760677`*^9}, { 3.724318554593711*^9, 3.7243185670306544`*^9}, {3.724318639035441*^9, 3.7243186477809887`*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.7561688892534256`*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9, {3.8514029661882243`*^9, 3.851402967215026*^9}, { 3.851404172035494*^9, 3.8514041768278866`*^9}, 3.8829268114505587`*^9},ExpressionUUID->"b4de6e8c-c925-4277-8513-\ c9a00ea9c738"], Cell[BoxData[ RowBox[{"Clear", "[", "\[Delta]W", "]"}]], "Input", CellChangeTimes->{{3.851404791778432*^9, 3.851404795976716*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"afce8ed5-dd01-45a2-9234-d5848a970ebc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"h", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"\[Rho]", "\[Rule]", "100"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W", ",", "equ", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "t", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"x", " "}], "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", " "}], "L"], ")"}], "2"]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"H", ">", "0"}]}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"equ", " ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"\[Delta]a", "[", "t", "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"f", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{"a", "[", "t", "]"}]}], "]"}], "/", RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{ SuperscriptBox["a", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f", "/.", "val"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, 3.6928609619624777`*^9, { 3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, { 3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, {3.7243189720383387`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, {3.7243192540420113`*^9, 3.724319356123252*^9}, { 3.7243193912820797`*^9, 3.7243195405119486`*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, {3.756167762169789*^9, 3.756167773023137*^9}, { 3.7561684121514606`*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, { 3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, { 3.756168892902129*^9, 3.7561688954336596`*^9}, {3.75616897494083*^9, 3.7561690482816935`*^9}, {3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, { 3.7561693934476376`*^9, 3.756169399702859*^9}, {3.8204717185326157`*^9, 3.820471721437819*^9}, {3.8204718972479753`*^9, 3.820472076545085*^9}, { 3.8204721293908577`*^9, 3.8204722964801106`*^9}, {3.820472329751877*^9, 3.8204728148865786`*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, { 3.8204729167180543`*^9, 3.820472939308642*^9}, {3.8204729848855286`*^9, 3.8204730343634877`*^9}, {3.8204730817979555`*^9, 3.8204731144511437`*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}, { 3.8514029742058396`*^9, 3.8514030930267406`*^9}, {3.8514031380801764`*^9, 3.8514031729914455`*^9}, {3.851403240832218*^9, 3.851403242746932*^9}, { 3.85140337932438*^9, 3.851403410529518*^9}, {3.85140347082749*^9, 3.85140347792332*^9}, {3.851403692532213*^9, 3.8514037349381704`*^9}, { 3.8514037950845313`*^9, 3.851403811863141*^9}, {3.851403847434928*^9, 3.8514039179686556`*^9}, {3.851403953359006*^9, 3.851404046096203*^9}, { 3.8514040929851227`*^9, 3.8514041042122087`*^9}, {3.851404207642264*^9, 3.8514042103962193`*^9}, {3.851404251408242*^9, 3.8514043054509754`*^9}, { 3.852171342323964*^9, 3.8521713625378327`*^9}, {3.8521722168961735`*^9, 3.852172217231166*^9}, 3.8829267696547832`*^9}, CellLabel-> "In[430]:=",ExpressionUUID->"c38304ef-9229-419e-b23b-78ed2b6c4897"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9b (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.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.75376294503279*^9, 3.7537629487977667`*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403285`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322443`*^9}, 3.8195159245188613`*^9, {3.8514041606047773`*^9, 3.8514041866311812`*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.882926819367149*^9},ExpressionUUID->"6ade33c0-e6ad-4ee6-a9a3-\ a969e42addf5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"\[Rho]", "\[Rule]", "100"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "7", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "3", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "7", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"H", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "7", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "7", "]"}], ",", RowBox[{"\[Theta]Y", "[", "7", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], " ", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "5"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.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.753763435083539*^9, {3.7537636176034584`*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.7537638728401537`*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.7537640140260305`*^9, 3.7537640276633615`*^9}, {3.753764070700218*^9, 3.7537641560081577`*^9}, { 3.7537641950926304`*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, { 3.753764533778655*^9, 3.753764547869378*^9}, {3.7553527505176506`*^9, 3.7553528603017626`*^9}, {3.75538351472929*^9, 3.7553835693549905`*^9}, { 3.755383607438428*^9, 3.7553838360146847`*^9}, {3.7553838766263666`*^9, 3.755383951476962*^9}, {3.755383992736063*^9, 3.7553840478403873`*^9}, { 3.755384124898378*^9, 3.7553842646406417`*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, {3.755389381201706*^9, 3.7553894668944387`*^9}, { 3.7553895199108267`*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.7554339398817015`*^9, 3.755434068869628*^9, { 3.7554341297848616`*^9, 3.755434216890894*^9}, {3.7554343528417006`*^9, 3.7554343704056864`*^9}, {3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, {3.7554346233872647`*^9, 3.7554347263294*^9}, { 3.7554347853286095`*^9, 3.7554348093580456`*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, {3.7554349600500207`*^9, 3.7554349983466597`*^9}, { 3.755435110803147*^9, 3.7554351426284623`*^9}, {3.755435324398292*^9, 3.7554353302892075`*^9}, {3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, {3.7554358134766097`*^9, 3.755435918833391*^9}, { 3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, {3.755436277778627*^9, 3.755436282441655*^9}, { 3.755436433004975*^9, 3.7554365810900373`*^9}, {3.755436713592167*^9, 3.7554367150263915`*^9}, {3.755436752569789*^9, 3.755436782945344*^9}, { 3.75543855564263*^9, 3.755438573014342*^9}, {3.7554386030808535`*^9, 3.75543862876925*^9}, {3.755438665543474*^9, 3.755438666460845*^9}, { 3.755438707655904*^9, 3.7554387115945473`*^9}, {3.7554387585075216`*^9, 3.7554388500917773`*^9}, {3.755523374186784*^9, 3.755523407200748*^9}, { 3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.7555237667615433`*^9, 3.7555238472382975`*^9, 3.7555241586552105`*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, {3.7555258075426073`*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726152`*^9}, {3.7555370249561615`*^9, 3.755537051432358*^9}, 3.7555372853307257`*^9, {3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618104`*^9, {3.7555379391125593`*^9, 3.755537970148187*^9}, { 3.7555674525545197`*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, {3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.7555677797901087`*^9}, { 3.755567822059022*^9, 3.755567822195668*^9}, {3.7555678597444773`*^9, 3.7555678604365673`*^9}, 3.7556071757478895`*^9, {3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, { 3.7556077296748147`*^9, 3.755607849742259*^9}, {3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, {3.755608958207328*^9, 3.755608980843011*^9}, {3.7559615593543744`*^9, 3.7559615796720657`*^9}, { 3.755961636991267*^9, 3.755961639837885*^9}, {3.755961688066485*^9, 3.7559617050406666`*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, { 3.7560033780948515`*^9, 3.756003424416658*^9}, {3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, { 3.75600408826851*^9, 3.7560041132438145`*^9}, {3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, { 3.7560045878703117`*^9, 3.756004610316883*^9}, {3.756090875492567*^9, 3.756090970250229*^9}, {3.7560910153257923`*^9, 3.756091253656394*^9}, { 3.7560913065394864`*^9, 3.7560913073489447`*^9}, {3.7560913497661376`*^9, 3.7560913829572887`*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, { 3.756091512338003*^9, 3.7560916181734085`*^9}, {3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, {3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.7560925295886126`*^9}, { 3.7564428371402044`*^9, 3.7564428827548018`*^9}, {3.756443118409811*^9, 3.7564432825122414`*^9}, {3.7564433139577427`*^9, 3.7564434048585415`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.7564441526092615`*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.7866931119911423`*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.7866934610423436`*^9}, {3.786693498963604*^9, 3.7866936745285892`*^9}, {3.7866937881495705`*^9, 3.7866937950939436`*^9}, 3.7873246428692293`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.7874854543849907`*^9, 3.787485502716935*^9}, {3.7874856358164625`*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.7874947579329753`*^9, 3.7874947673643074`*^9}, 3.787494920667267*^9, {3.7874950655196714`*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.7874952321914797`*^9}, {3.7874953099595947`*^9, 3.7874953434716663`*^9}, {3.7874953776322303`*^9, 3.7874953779837875`*^9}, {3.7875363421179075`*^9, 3.787536342508462*^9}, { 3.7875368085158997`*^9, 3.787536878302806*^9}, {3.7875369599529157`*^9, 3.7875370055885963`*^9}, {3.7875835060582986`*^9, 3.787583520821555*^9}, { 3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, { 3.7876552122737617`*^9, 3.787655270155204*^9}, {3.7877076273240643`*^9, 3.7877076330663157`*^9}, {3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.8493388690505223`*^9, 3.8493389607525234`*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.8507909361264725`*^9, { 3.850790968622494*^9, 3.8507909814813538`*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.8514043340993366`*^9, 3.8514044427104735`*^9}, {3.8514044803348703`*^9, 3.8514045282808294`*^9}, {3.8514046757991276`*^9, 3.8514047382171335`*^9}, {3.8514048639344797`*^9, 3.851405048797428*^9}, { 3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.8514076887032995`*^9}, {3.851407773017706*^9, 3.8514077811951346`*^9}, { 3.851407884878668*^9, 3.851407886958976*^9}, {3.8514079306283693`*^9, 3.8514079496190023`*^9}, {3.8514087740430136`*^9, 3.85140879767111*^9}, { 3.8514143934466867`*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, {3.8514146041353254`*^9, 3.8514146600460863`*^9}, { 3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, {3.851835458306039*^9, 3.851835462056913*^9}, { 3.8518357385467224`*^9, 3.851835743411894*^9}, {3.852173361088862*^9, 3.852173361466459*^9}, {3.852174390177535*^9, 3.852174390585162*^9}, { 3.882924960308901*^9, 3.8829250250612288`*^9}, {3.8829250626334286`*^9, 3.882925072868449*^9}, {3.8829252711151695`*^9, 3.882925278849551*^9}, { 3.8829254194825335`*^9, 3.8829254221100664`*^9}, {3.882925467395959*^9, 3.882925470498024*^9}, {3.8829255129909306`*^9, 3.882925529056815*^9}, { 3.882925679726142*^9, 3.8829256817297034`*^9}, {3.8829266400699396`*^9, 3.8829266405559626`*^9}, {3.8829266900308228`*^9, 3.882926690362383*^9}, { 3.8829267607673407`*^9, 3.8829267610970707`*^9}}, CellLabel-> "In[432]:=",ExpressionUUID->"da5e722e-947e-4c65-a861-b62334d70ffc"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770359158451*^9}, { 3.7238984640156884`*^9, 3.7238984642268667`*^9}, {3.78780376721542*^9, 3.7878037739599547`*^9}},ExpressionUUID->"e82473d2-8819-4050-ba2c-\ dba82a16dc8a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"4", "0"}, { RowBox[{"-", "1"}], "1"} }], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "AA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"square", " ", "root", " ", "of", " ", "the", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SQRTA", "=", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"Sqrt", "[", "val", "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "SQRTA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix", " ", "again"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"SQRTA", ".", "SQRTA"}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.6926183433034945`*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.6926184702836723`*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.6927706245488224`*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.7879894502526913`*^9, 3.787989564120285*^9}, 3.787989599184903*^9, {3.8513953218783903`*^9, 3.851395338086149*^9}}, CellLabel-> "In[441]:=",ExpressionUUID->"a12cd416-70f6-4dc2-8a41-4a271186f5d8"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (mass matrix)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770332958414*^9}, { 3.723898467783272*^9, 3.7238984690825796`*^9}, 3.788323982435176*^9},ExpressionUUID->"9828f375-90ec-4ef7-805b-\ 1fcfa153bcb6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", FractionBox["x", "h"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"]}], ",", " ", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"], " ", RowBox[{"(", " ", RowBox[{ FractionBox["x", "h"], "-", "1"}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"A", " ", "\[Rho]", " ", "h"}], "420"], RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"420", " ", "/", RowBox[{"(", RowBox[{"A", " ", "\[Rho]", " ", "h"}], ")"}]}], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"A", " ", "\[Rho]", " ", RowBox[{"Outer", "[", RowBox[{"Times", ",", "NN", ",", "NN"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.6926183433034945`*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.6926184702836723`*^9, 3.692770250478299*^9}, CellLabel-> "In[448]:=",ExpressionUUID->"aa99c273-c49a-439d-81ed-f1b7f5ae2edb"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.5584046929813704`*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.6927707787390385`*^9}, { 3.7238984714976816`*^9, 3.723898472723172*^9}, 3.787803783214076*^9, { 3.8200299016182303`*^9, 3.820029908762121*^9}},ExpressionUUID->"1af25b8b-89b6-4c27-9fc5-\ c13768f9c6a1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.5584046678649335`*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.6927709300492496`*^9, 3.6927709553892856`*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.6927712426596875`*^9}, 3.692771357129848*^9, {3.694688152497208*^9, 3.694688172367236*^9}, { 3.6946882062172832`*^9, 3.69468822500731*^9}, {3.787990670100729*^9, 3.787990730568595*^9}, {3.7882474943557243`*^9, 3.78824751934991*^9}, { 3.788323884969909*^9, 3.7883238993101425`*^9}, {3.820029639027835*^9, 3.820029643030367*^9}, {3.8204711842343283`*^9, 3.82047118526092*^9}}, CellLabel-> "In[450]:=",ExpressionUUID->"fa2d2659-ab00-4fe2-b9f0-53391a038117"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.5584046929813704`*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.6927707787390385`*^9}, 3.692771448509976*^9, {3.723898475265663*^9, 3.7238984765616097`*^9}, 3.7878037851088552`*^9},ExpressionUUID->"3f5fc245-47c1-4b66-a9d1-\ 5cc2b1a6b95e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Notice", " ", "that", " ", "the", " ", "outcome", " ", "is", " ", "a", " ", "DAE"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.5584046678649335`*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.6927709300492496`*^9, 3.6927709553892856`*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.6927712426596875`*^9}, 3.692771357129848*^9, {3.692771480630021*^9, 3.692771506500057*^9}, { 3.692771639520243*^9, 3.692771640700245*^9}, {3.6927831457021666`*^9, 3.6927831608780346`*^9}, {3.692784340726518*^9, 3.692784341439559*^9}, { 3.6928536110215693`*^9, 3.6928536155915756`*^9}, {3.6928537322117386`*^9, 3.692853733971741*^9}, {3.6928550433641915`*^9, 3.692855061004216*^9}, { 3.7241471535011015`*^9, 3.72414718348577*^9}, {3.7561285637728353`*^9, 3.7561285705443535`*^9}, {3.7561286039354935`*^9, 3.7561286436098185`*^9}, {3.788247754027643*^9, 3.7882477631278453`*^9}, 3.788323871033355*^9, {3.8200296822958837`*^9, 3.8200296874979696`*^9}, { 3.8204712303223195`*^9, 3.8204712313140793`*^9}}, CellLabel-> "In[454]:=",ExpressionUUID->"1522230b-9332-4a5e-883b-a55fd886ed75"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.6926912170301256`*^9, {3.724147332033448*^9, 3.7241473416172805`*^9}, 3.7878037895910273`*^9},ExpressionUUID->"6a73a02e-563a-4863-8878-\ aaf66d18f131"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{"1", "/", "5"}], " ", "m", " ", SuperscriptBox["L", "2"], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, {3.6926912368001537`*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, {3.6928607128321285`*^9, 3.6928607136321297`*^9}, { 3.692860762222198*^9, 3.692860774902216*^9}, {3.788247837339185*^9, 3.788247879734177*^9}, 3.788323863754079*^9, {3.8200297469603596`*^9, 3.820029763651271*^9}, {3.820471421059429*^9, 3.8204714221072345`*^9}}, CellLabel-> "In[459]:=",ExpressionUUID->"c198e2a4-cbb4-4a2d-82ef-61c9e2243ecf"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.6926778041981335`*^9, 3.6926778043681335`*^9}, { 3.6926787551494646`*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, {3.7238984792910604`*^9, 3.723898480878615*^9}, 3.724147396313452*^9, 3.7878037915008307`*^9, {3.8200298618306556`*^9, 3.8200298644538116`*^9}, {3.820029930033001*^9, 3.820029930658329*^9}},ExpressionUUID->"d3a89415-0cde-4171-bde2-\ d15e2a0f2468"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.4939934523719997`*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.6926792938302193`*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.6927734931228385`*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.6927737733532305`*^9, 3.6927737739032316`*^9}, { 3.7246437503335924`*^9, 3.7246437671242456`*^9}, {3.7246438175496655`*^9, 3.7246438334559956`*^9}, {3.7247565282659345`*^9, 3.724756535705496*^9}, 3.7883238553004894`*^9, {3.820029801163093*^9, 3.8200298556551743`*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"d42a3520-81d2-45b0-8abd-9906405168a1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147617138194*^9, 3.724147631820558*^9}, 3.7561657335722027`*^9, 3.7878037936611233`*^9},ExpressionUUID->"e88db87b-dbbf-4b5a-8be2-\ c02415f2613f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Theta]Y2", " ", "=", " ", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "/.", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, 3.6928609619624777`*^9, { 3.692861016462554*^9, 3.6928610911626587`*^9}, {3.788248230022855*^9, 3.7882482592696548`*^9}, {3.78824833634833*^9, 3.788248343272706*^9}, { 3.8200299414032726`*^9, 3.8200299433364167`*^9}, {3.820029996475786*^9, 3.820030000803342*^9}, 3.820471517540506*^9}, CellLabel-> "In[468]:=",ExpressionUUID->"817b7420-02ee-474d-b0f5-ee60b884d9df"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "2"}], ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, {3.6928609619624777`*^9, 3.692861003972536*^9}, {3.6928611195326986`*^9, 3.6928611624827585`*^9}, 3.6928612124628286`*^9, {3.788248269799512*^9, 3.78824829352197*^9}, { 3.7882483493246202`*^9, 3.788248352056753*^9}, {3.8200299552126503`*^9, 3.820030007977022*^9}, 3.8204715426955304`*^9}, CellLabel-> "In[472]:=",ExpressionUUID->"060ca70d-4a52-44e2-9461-7e4dd6ad92f2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.6926778041981335`*^9, 3.6926778043681335`*^9}, { 3.6926787551494646`*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.7245527509658732`*^9, 3.724552771340017*^9}, 3.7561657371136637`*^9, 3.7878037964843206`*^9, {3.8200300362663517`*^9, 3.820030041779605*^9}},ExpressionUUID->"f36e3db7-47ce-4b62-8917-\ 5c58377423ef"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.4939934523719997`*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.6926792938302193`*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.6927734931228385`*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.6927737733532305`*^9, 3.6927737739032316`*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.6927740867636695`*^9}, { 3.6928600883112545`*^9, 3.6928600952012644`*^9}, {3.724510813340685*^9, 3.7245108439239902`*^9}, {3.7245110894899054`*^9, 3.7245111362366643`*^9}, {3.7245111759684496`*^9, 3.7245111800040627`*^9}, {3.7245112142827435`*^9, 3.724511357099068*^9}, { 3.72451139044884*^9, 3.7245113908943324`*^9}, {3.7245114354388523`*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, { 3.724511739941152*^9, 3.7245117444832473`*^9}, {3.7245117919587584`*^9, 3.724511792442217*^9}, {3.7245119452797728`*^9, 3.7245119591135845`*^9}, { 3.7245121768708963`*^9, 3.7245121842326193`*^9}, {3.724512227324604*^9, 3.7245122284688077`*^9}, {3.7245122615399647`*^9, 3.724512272739452*^9}, { 3.7245123874801135`*^9, 3.724512394482444*^9}, {3.7245124864476037`*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.7245125642590384`*^9}, { 3.724512686336095*^9, 3.724512686647025*^9}, {3.7245523986395607`*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.7245524906776133`*^9}, { 3.7245525335305943`*^9, 3.7245525493372817`*^9}, {3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.7245527010974026`*^9}, { 3.7245527827516294`*^9, 3.724552841959256*^9}, {3.756129737744466*^9, 3.7561297576506205`*^9}, {3.756166282287259*^9, 3.7561662832618446`*^9}, { 3.8200300491040134`*^9, 3.8200300539125266`*^9}}, CellLabel-> "In[476]:=",ExpressionUUID->"eff412a9-e9af-43f1-bbb2-3a0d0d142d3a"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (bar truss)", "Subsubsection", CellChangeTimes->{{3.4938724364934034`*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826577`*^9, 3.557722281898278*^9}, { 3.6925364040653286`*^9, 3.692536414765343*^9}, {3.6926051339045105`*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.6926165560409927`*^9, 3.692616575321019*^9}, {3.692860264491501*^9, 3.6928602694915085`*^9}, { 3.723898500282627*^9, 3.7238985038248096`*^9}, 3.724147406515576*^9, { 3.724147638325242*^9, 3.7241476397263546`*^9}, 3.7561673435357966`*^9, 3.7878037990280237`*^9},ExpressionUUID->"9f8e8d8e-2c18-4a35-b2ab-\ 42c1280f230d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", " ", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"U", " ", "=", " ", RowBox[{ RowBox[{"uZ", "[", "2", "]"}], " ", "/.", " ", "sol"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, { 3.692623535710764*^9, 3.692623557910795*^9}, {3.6926952837958193`*^9, 3.6926952890058265`*^9}, {3.6928555108448462`*^9, 3.692855525144866*^9}, { 3.6928555801949434`*^9, 3.6928556725450726`*^9}, {3.6928557055151186`*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153815`*^9}, { 3.692855952785465*^9, 3.6928559781655006`*^9}, {3.6928560758856373`*^9, 3.692856170005769*^9}, {3.6928562238658447`*^9, 3.6928562580458927`*^9}, { 3.6928562961859455`*^9, 3.69285631358597*^9}, {3.692856357426031*^9, 3.6928563681360464`*^9}, {3.6928563999060907`*^9, 3.6928564001160913`*^9}, {3.692857702937915*^9, 3.6928577502779813`*^9}, { 3.6928602931015415`*^9, 3.6928603882816744`*^9}, {3.6928604508717623`*^9, 3.6928604766617985`*^9}, {3.7561674019881897`*^9, 3.756167413743063*^9}, { 3.7561674582881846`*^9, 3.7561674667464952`*^9}, {3.756167612300265*^9, 3.756167626175462*^9}, {3.7882485578101134`*^9, 3.788248586015726*^9}, { 3.8200300876828213`*^9, 3.820030094371929*^9}}, CellLabel-> "In[481]:=",ExpressionUUID->"b8f40b07-e55c-45a0-8055-23522fd49a45"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"STEP2", ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, { 3.692623535710764*^9, 3.692623557910795*^9}, {3.6926952837958193`*^9, 3.6926952890058265`*^9}, {3.6928555108448462`*^9, 3.692855525144866*^9}, { 3.6928555801949434`*^9, 3.6928556725450726`*^9}, {3.6928557055151186`*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153815`*^9}, { 3.692855952785465*^9, 3.6928559781655006`*^9}, {3.6928560758856373`*^9, 3.692856170005769*^9}, {3.6928562238658447`*^9, 3.6928562580458927`*^9}, { 3.6928562961859455`*^9, 3.69285631358597*^9}, {3.692856357426031*^9, 3.6928563681360464`*^9}, {3.6928563999060907`*^9, 3.6928564001160913`*^9}, {3.692857702937915*^9, 3.6928577502779813`*^9}, { 3.6928602931015415`*^9, 3.692860442871751*^9}, {3.692860490661818*^9, 3.6928605008218317`*^9}, 3.724148526274141*^9, {3.7561674288237047`*^9, 3.7561674323586836`*^9}, {3.7561674878338723`*^9, 3.756167499857013*^9}, { 3.7882485720615144`*^9, 3.7882485780249004`*^9}, {3.8200301062970314`*^9, 3.820030112781686*^9}}, CellLabel-> "In[487]:=",ExpressionUUID->"0068ef73-aa98-4c19-a144-6308b1179af2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.7241476447423286`*^9, 3.7241476607760677`*^9}, { 3.724318554593711*^9, 3.7243185670306544`*^9}, {3.724318639035441*^9, 3.7243186477809887`*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.7561688892534256`*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9},ExpressionUUID->"e43fb9e7-fd3c-4ed1-8e1d-\ 8dc8516c2853"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "wm", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "[", "t", "]"}], " ", "x", " ", RowBox[{"y", "/", SuperscriptBox["L", "2"]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "any_", "]"}], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Delta]a", "[", "any_", "]"}], "[", "t", "]"}], "\[Rule]", RowBox[{"\[Delta]a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"a", "[", "any_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "2"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[" ", "OperatorCharacter"], StyleBox["/.", "OperatorCharacter"], StyleBox["rule", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", "\[Delta]W"}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, 3.6928609619624777`*^9, { 3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, { 3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, {3.7243189720383387`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, {3.7243192540420113`*^9, 3.724319356123252*^9}, { 3.7243193912820797`*^9, 3.7243195405119486`*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, {3.756167762169789*^9, 3.756167773023137*^9}, { 3.7561684121514606`*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, { 3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, { 3.756168892902129*^9, 3.7561688954336596`*^9}, {3.75616897494083*^9, 3.7561690482816935`*^9}, {3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, { 3.7561693934476376`*^9, 3.756169399702859*^9}, {3.8204717185326157`*^9, 3.820471721437819*^9}, {3.8204718972479753`*^9, 3.820472076545085*^9}, { 3.8204721293908577`*^9, 3.8204722964801106`*^9}, {3.820472329751877*^9, 3.8204728148865786`*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, { 3.8204729167180543`*^9, 3.820472939308642*^9}, {3.8204729848855286`*^9, 3.8204730343634877`*^9}, {3.8204730817979555`*^9, 3.8204731144511437`*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}}, CellLabel-> "In[492]:=",ExpressionUUID->"f4431a96-01f0-4947-b516-7b17781a948e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770359158451*^9}, { 3.6928550971942673`*^9, 3.6928551052242785`*^9}, {3.7561697245665956`*^9, 3.7561697310039177`*^9}, {3.881205999464633*^9, 3.881206001858594*^9}},ExpressionUUID->"45c9350d-ada0-4241-89d5-\ 27b28b085435"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"2", "1"}, {"1", "2"} }], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.6926183433034945`*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.6926184702836723`*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.6927706245488224`*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.7244868220050793`*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.7244869496591587`*^9}, {3.7244869892727127`*^9, 3.7244870143222284`*^9}, {3.724490936279661*^9, 3.724491010626911*^9}, { 3.7244910471773667`*^9, 3.7244911069483156`*^9}, {3.7244950339345055`*^9, 3.7244950625113525`*^9}, {3.7561697403667555`*^9, 3.7561698534389057`*^9}, {3.756170216621559*^9, 3.756170222933326*^9}, { 3.7881539279744625`*^9, 3.7881539332430315`*^9}, {3.851396491623579*^9, 3.8513965092572613`*^9}, {3.883180256775795*^9, 3.8831802839028063`*^9}, { 3.8831803326051817`*^9, 3.8831803648014393`*^9}, {3.8831811142273755`*^9, 3.883181136456712*^9}, {3.883183131529642*^9, 3.8831831319824743`*^9}}, CellLabel-> "In[493]:=",ExpressionUUID->"317f5ac0-752e-413e-8f31-e8c9f396e24e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.5577964337884617`*^9, 3.6926013396721983`*^9, {3.6926179280029135`*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.6927703328584137`*^9, 3.692770359158451*^9}, { 3.6928550971942673`*^9, 3.6928551052242785`*^9}, {3.7561697245665956`*^9, 3.7561697310039177`*^9}, {3.7561699168665485`*^9, 3.756169926040078*^9}, { 3.851396588241513*^9, 3.851396588803507*^9}, {3.8812060041856337`*^9, 3.881206006272649*^9}},ExpressionUUID->"7856cee4-5075-44ea-9fdb-\ 415636942676"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", "V"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.756170020583084*^9, 3.756170122811846*^9}, { 3.756170186032323*^9, 3.756170193896617*^9}, {3.7561702297956877`*^9, 3.7561702556648417`*^9}, 3.7561702928875675`*^9, {3.7881517536935062`*^9, 3.7881517566616244`*^9}, {3.7881517969523706`*^9, 3.7881519195047984`*^9}, {3.78815195737908*^9, 3.788151961328389*^9}, { 3.788152060927085*^9, 3.7881520655631504`*^9}, {3.788152223800831*^9, 3.7881522879125333`*^9}, {3.7881523590964017`*^9, 3.7881523643461895`*^9}, {3.8513902921173325`*^9, 3.8513902927554083`*^9}}, CellLabel-> "In[496]:=",ExpressionUUID->"e5dce2cb-15f1-43c7-bfb5-2074589d1350"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (torsion)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.6926912170301256`*^9, 3.7241476428310165`*^9, { 3.7561696233666773`*^9, 3.7561696272662334`*^9}, {3.881206010425768*^9, 3.881206014655202*^9}},ExpressionUUID->"c14566f4-8359-461b-b1a9-\ 97bcfb84968a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", " ", RowBox[{"G", ",", "0"}], "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"J", " ", "\[Rho]", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}], RowBox[{"L", "/", "2"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"J", " ", "\[Rho]", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}], RowBox[{"L", "/", "2"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", " ", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\n", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, {3.6926912368001537`*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, {3.6928607128321285`*^9, 3.6928607136321297`*^9}, { 3.692860762222198*^9, 3.692860774902216*^9}, {3.7244128700993214`*^9, 3.7244129701227965`*^9}, {3.7244130670991325`*^9, 3.7244130717781334`*^9}, 3.7244131625258923`*^9, 3.7244132119761505`*^9, {3.756009769254346*^9, 3.7560097984891305`*^9}, {3.7560098572479444`*^9, 3.756009862164278*^9}, { 3.756009902579606*^9, 3.7560099327082233`*^9}, {3.78815401519639*^9, 3.7881540650661397`*^9}, {3.7881574724992065`*^9, 3.788157475676734*^9}, { 3.7881575243056536`*^9, 3.788157681083987*^9}, {3.788157722103042*^9, 3.7881577241628485`*^9}, {3.788167388102944*^9, 3.7881674312767434`*^9}, { 3.7881674649924335`*^9, 3.7881674661429844`*^9}, {3.788167519535819*^9, 3.7881675664713097`*^9}, {3.788167604092924*^9, 3.7881676089149256`*^9}, { 3.788167661942783*^9, 3.7881676953934765`*^9}, {3.788167773185461*^9, 3.7881677855166874`*^9}, {3.7881678334032145`*^9, 3.7881678586136866`*^9}, {3.788167891417267*^9, 3.7881678967624526`*^9}, 3.788167932902671*^9, {3.7881679839981923`*^9, 3.7881680183386154`*^9}, { 3.788168061655179*^9, 3.7881680619558244`*^9}, {3.7881681892901645`*^9, 3.788168248400946*^9}, {3.7881682999284353`*^9, 3.7881683333488336`*^9}, { 3.788168367778096*^9, 3.7881683915103207`*^9}, {3.788168427513071*^9, 3.78816847687361*^9}, {3.788168526669993*^9, 3.788168542590762*^9}, { 3.7882487122059045`*^9, 3.7882487460135994`*^9}, {3.8209918195508137`*^9, 3.820991829836608*^9}, {3.820993961804452*^9, 3.8209939790613947`*^9}, { 3.8209940160718555`*^9, 3.8209940462085943`*^9}, {3.851395882047143*^9, 3.85139588849801*^9}, {3.851396260037772*^9, 3.851396299542898*^9}, { 3.851826584458306*^9, 3.8518266442053823`*^9}, {3.883183202013617*^9, 3.8831833057326527`*^9}, {3.883183455565381*^9, 3.8831834695001965`*^9}, 3.8834440470761404`*^9, {3.88344410294254*^9, 3.883444110673493*^9}}, CellLabel-> "In[512]:=",ExpressionUUID->"eb157b35-2e12-494c-b93d-c5965ee1a00f"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.4938723928941984`*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.6926166046310606`*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.7241476447423286`*^9, {3.756169630729544*^9, 3.756169634741873*^9}, {3.8812060167905655`*^9, 3.8812060221914024`*^9}, { 3.883444342707282*^9, 3.883444343620839*^9}},ExpressionUUID->"bc337e03-ded5-421c-97c5-\ 94605d18e606"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.4938710837637224`*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.6926056638062525`*^9}, {3.6926163346506824`*^9, 3.6926163355806837`*^9}, {3.6926166166210775`*^9, 3.692616866261427*^9}, 3.6926169155314956`*^9, 3.692617091411742*^9, 3.692617244301956*^9, { 3.692623259860378*^9, 3.6926232673403883`*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, {3.692689820758171*^9, 3.6926898578282228`*^9}, { 3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, {3.6926900934285526`*^9, 3.692690117348586*^9}, { 3.6926902055287094`*^9, 3.69269020587871*^9}, 3.6928609619624777`*^9, { 3.692861016462554*^9, 3.6928610911626587`*^9}, {3.7244132320712056`*^9, 3.7244133401327267`*^9}, {3.7244133787614565`*^9, 3.72441343334622*^9}, 3.7244134790769606`*^9, {3.7560831913266315`*^9, 3.756083210075788*^9}, { 3.788239176072998*^9, 3.7882391831676254`*^9}, {3.7882392218547583`*^9, 3.7882392518713074`*^9}, {3.788239300862713*^9, 3.7882393040966797`*^9}, { 3.7882393550286527`*^9, 3.7882393912127934`*^9}, {3.851396395663067*^9, 3.8513964045571775`*^9}, {3.883444213995908*^9, 3.883444336353151*^9}, { 3.8834443716418924`*^9, 3.8834444151311393`*^9}}, CellLabel-> "In[526]:=",ExpressionUUID->"816c3905-6a37-4dd4-88ff-b3041a18ed18"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.6926778041981335`*^9, 3.6926778043681335`*^9}, { 3.6926787551494646`*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.7245527509658732`*^9, 3.724552771340017*^9}, {3.756082802720545*^9, 3.756082814674419*^9}, {3.756169638505012*^9, 3.756169642626027*^9}, { 3.881206024041909*^9, 3.8812060285959883`*^9}},ExpressionUUID->"e981d53b-c170-4a9b-ada6-\ c9cbdda47a37"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.4939934523719997`*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.6926792938302193`*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.6927734931228385`*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.6927737733532305`*^9, 3.6927737739032316`*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.6927740867636695`*^9}, { 3.6928600883112545`*^9, 3.6928600952012644`*^9}, {3.724510813340685*^9, 3.7245108439239902`*^9}, {3.7245110894899054`*^9, 3.7245111362366643`*^9}, {3.7245111759684496`*^9, 3.7245111800040627`*^9}, {3.7245112142827435`*^9, 3.724511357099068*^9}, { 3.72451139044884*^9, 3.7245113908943324`*^9}, {3.7245114354388523`*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, { 3.724511739941152*^9, 3.7245117444832473`*^9}, {3.7245117919587584`*^9, 3.724511792442217*^9}, {3.7245119452797728`*^9, 3.7245119591135845`*^9}, { 3.7245121768708963`*^9, 3.7245121842326193`*^9}, {3.724512227324604*^9, 3.7245122284688077`*^9}, {3.7245122615399647`*^9, 3.724512272739452*^9}, { 3.7245123874801135`*^9, 3.724512394482444*^9}, {3.7245124864476037`*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.7245125642590384`*^9}, { 3.724512686336095*^9, 3.724512686647025*^9}, {3.7245523986395607`*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.7245524906776133`*^9}, { 3.7245525335305943`*^9, 3.7245525493372817`*^9}, {3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.7245527010974026`*^9}, { 3.7245527827516294`*^9, 3.724552841959256*^9}, 3.756082823673523*^9, { 3.756082858149851*^9, 3.75608296491168*^9}, {3.78823639018388*^9, 3.788236434946477*^9}, 3.7882487921577525`*^9, {3.851396431326043*^9, 3.851396432629086*^9}, {3.8829277935664363`*^9, 3.8829278247524242`*^9}}, CellLabel-> "In[531]:=",ExpressionUUID->"9335107f-02e4-4776-aa84-aab8bcd15214"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["STABILITY ANALYSIS (week 5)", "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.4932790718213997`*^9, 3.4932790791534*^9}, 3.4933062444776*^9, { 3.4950884313529997`*^9, 3.49508843741*^9}, {3.5566240770574865`*^9, 3.5566240810666933`*^9}, 3.55662411296815*^9, 3.6194079237937746`*^9, { 3.6929652502711906`*^9, 3.692965262811208*^9}, 3.7530712459656515`*^9, 3.7866746442735834`*^9, {3.788503131545534*^9, 3.7885031338061256`*^9}, { 3.788595834713565*^9, 3.7885958369488535`*^9}},ExpressionUUID->"685c6e51-a934-4491-bd59-\ c160b938a17f"], Cell[CellGroupData[{ Cell["Lecture example 4.1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.693118843765126*^9, 3.693118845845129*^9}, {3.6932188494010425`*^9, 3.693218859311056*^9}, {3.7887479930494013`*^9, 3.7887479955453067`*^9}, 3.788748026336192*^9, 3.8209949267048826`*^9, 3.82161384593501*^9},ExpressionUUID->"76b59d7d-944f-4725-847e-\ 9fff32913bc0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.693212952706787*^9, 3.6932129823968287`*^9}, 3.693213467247507*^9, {3.6932135374976053`*^9, 3.6932135509376245`*^9}, { 3.693381863369029*^9, 3.693381881739055*^9}, {3.6933819124090977`*^9, 3.6933820064392295`*^9}, {3.6933820370092726`*^9, 3.6933820461892853`*^9}, {3.6933821009293623`*^9, 3.6933821288894014`*^9}, {3.6933824368598323`*^9, 3.693382462739868*^9}, { 3.6933825457799845`*^9, 3.693382576760028*^9}, {3.6933826141100807`*^9, 3.6933826142500806`*^9}, {3.6933826572201405`*^9, 3.6933826812701745`*^9}, {3.693459467865974*^9, 3.693459506396028*^9}, { 3.724756588022208*^9, 3.7247565916191807`*^9}, {3.756264691579814*^9, 3.756264745142851*^9}, {3.7562973521187143`*^9, 3.756297363296737*^9}, { 3.7563543673779197`*^9, 3.7563544020228167`*^9}, {3.756354503721473*^9, 3.756354518145298*^9}, {3.756354577259649*^9, 3.75635458078909*^9}, 3.788518279999304*^9, {3.7885740257291007`*^9, 3.788574029610507*^9}, { 3.7885743271776943`*^9, 3.7885743373156376`*^9}, {3.788574370184829*^9, 3.7885743901774464`*^9}, {3.788574558310573*^9, 3.788574561866705*^9}, { 3.7885749091230097`*^9, 3.7885749094690733`*^9}, {3.7888328012255797`*^9, 3.7888328014755106`*^9}, {3.850964677630747*^9, 3.850964681411261*^9}, { 3.8519921582317715`*^9, 3.8519921709661217`*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"cf87744d-16d3-4560-a85e-9b944862f77c"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.2 (truss)", "Subsubsection", CellChangeTimes->{{3.4938724364934034`*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826577`*^9, 3.557722281898278*^9}, { 3.6925364040653286`*^9, 3.692536414765343*^9}, {3.6926051339045105`*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.6926165560409927`*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, {3.788748002129151*^9, 3.788748030379919*^9}, 3.820994928778037*^9, 3.8216138491335354`*^9},ExpressionUUID->"c9dc767b-6f86-4096-94b5-\ f38a5efed620"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, { 3.692623535710764*^9, 3.692623557910795*^9}, {3.6926952837958193`*^9, 3.6926952890058265`*^9}, {3.6928555108448462`*^9, 3.692855525144866*^9}, { 3.6928555801949434`*^9, 3.6928556725450726`*^9}, {3.6928557055151186`*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153815`*^9}, { 3.692855952785465*^9, 3.6928559781655006`*^9}, {3.6928560758856373`*^9, 3.692856170005769*^9}, {3.6928562238658447`*^9, 3.6928562580458927`*^9}, { 3.6928562961859455`*^9, 3.69285631358597*^9}, {3.692856357426031*^9, 3.6928563681360464`*^9}, {3.6928563999060907`*^9, 3.6928564001160913`*^9}, {3.692857702937915*^9, 3.6928577502779813`*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.6932191418014517`*^9}, { 3.693219256141612*^9, 3.6932192620916204`*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.6932220864395747`*^9, 3.6932220972695894`*^9}, {3.6933108503929434`*^9, 3.6933108669129667`*^9}, {3.7247570961974792`*^9, 3.7247571143473463`*^9}, {3.724757453331685*^9, 3.7247574543256564`*^9}, { 3.756265531029621*^9, 3.756265550206148*^9}, {3.756265772588833*^9, 3.7562658449593987`*^9}, {3.7562661007343545`*^9, 3.7562661052102594`*^9}, {3.756267778188237*^9, 3.756267782135869*^9}, { 3.756297557622207*^9, 3.7562975640313606`*^9}, {3.788575454272171*^9, 3.788575455203708*^9}, 3.7888342686666775`*^9, {3.788834320638523*^9, 3.7888343488289104`*^9}, {3.850965304883685*^9, 3.850965317023302*^9}, { 3.850965467547227*^9, 3.850965521691221*^9}, {3.850965677474887*^9, 3.850965680130317*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"05dcfaa6-10ab-46a3-8636-13c493e5f39a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3a (plate )", "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.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.6920071424377947`*^9}, {3.7238012915092707`*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.7249854098192596`*^9}, {3.725025728192973*^9, 3.7250257332263174`*^9}, 3.7563606916546392`*^9, {3.7887480056212215`*^9, 3.788748032773177*^9}, 3.820994931205215*^9, 3.8216138511743236`*^9, 3.8523380510477495`*^9},ExpressionUUID->"a5c06462-4d31-44c5-afb8-\ 5dac87410d5b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "1000"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", "*", RowBox[{"10", "^", "6"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "\[Delta]wint", ",", "\[Delta]wsta"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ StyleBox["Print", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["sol", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "//.", "val"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.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.686291740699917*^9, 3.686291791099987*^9}, { 3.6862918385400534`*^9, 3.68629185767008*^9}, 3.6920072022978787`*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.7249859256363735`*^9, 3.724985954061252*^9}, {3.7249860773711185`*^9, 3.7249860873564367`*^9}, {3.72498667993143*^9, 3.7249867213577213`*^9}, { 3.724986817961895*^9, 3.7249868212275767`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.7250283445255947`*^9, 3.725028396615054*^9}, { 3.756356116074851*^9, 3.756356120183282*^9}, {3.7563566489829216`*^9, 3.7563566578401747`*^9}, {3.788834572625896*^9, 3.788834618899085*^9}, 3.7889369904230375`*^9, {3.8209956217654243`*^9, 3.8209956870168357`*^9}, { 3.8209957300921974`*^9, 3.820995747209697*^9}, 3.8209957933597546`*^9, { 3.850965869737995*^9, 3.850965953030941*^9}, {3.8509660365154552`*^9, 3.850966037463144*^9}, {3.8523386081362963`*^9, 3.8523386861808577`*^9}, { 3.8523387379162607`*^9, 3.852338855522773*^9}, {3.8523388859408307`*^9, 3.852338902296262*^9}, {3.8523399842130704`*^9, 3.852339992832653*^9}, { 3.8523404097131805`*^9, 3.852340458988041*^9}, {3.8523420674574647`*^9, 3.8523421185256324`*^9}, {3.852345892964356*^9, 3.852345908082739*^9}, { 3.852358319661192*^9, 3.8523583389907236`*^9}}, CellLabel-> "In[412]:=",ExpressionUUID->"e0d665da-a0cf-4c30-8343-5edd08b6a9da"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3b (plate )", "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.75376294503279*^9, 3.7537629487977667`*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403285`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322443`*^9}, 3.8195159245188613`*^9, {3.8514041606047773`*^9, 3.8514041866311812`*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.8518339806890965`*^9, {3.8523380602723303`*^9, 3.8523380646606827`*^9}},ExpressionUUID->"f9b81931-fc6b-4b31-8527-\ bf2f091509bc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "1000"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", "*", RowBox[{"10", "^", "6"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"3", ",", "1", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "3", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", RowBox[{"-", "p"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "1", "]"}], ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", RowBox[{"\[Theta]Z", "[", "1", "]"}]}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "3", "]"}], ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", RowBox[{"\[Theta]Z", "[", "3", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", RowBox[{"uY", "[", "4", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "4", "]"}], ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", RowBox[{"\[Theta]Z", "[", "4", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"L", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", RowBox[{"uY", "[", "5", "]"}], ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", RowBox[{"\[Theta]Z", "[", "5", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "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.753763435083539*^9, {3.7537636176034584`*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.7537638728401537`*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.7537640140260305`*^9, 3.7537640276633615`*^9}, {3.753764070700218*^9, 3.7537641560081577`*^9}, { 3.7537641950926304`*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, { 3.753764533778655*^9, 3.753764547869378*^9}, {3.7553527505176506`*^9, 3.7553528603017626`*^9}, {3.75538351472929*^9, 3.7553835693549905`*^9}, { 3.755383607438428*^9, 3.7553838360146847`*^9}, {3.7553838766263666`*^9, 3.755383951476962*^9}, {3.755383992736063*^9, 3.7553840478403873`*^9}, { 3.755384124898378*^9, 3.7553842646406417`*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, {3.755389381201706*^9, 3.7553894668944387`*^9}, { 3.7553895199108267`*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.7554339398817015`*^9, 3.755434068869628*^9, { 3.7554341297848616`*^9, 3.755434216890894*^9}, {3.7554343528417006`*^9, 3.7554343704056864`*^9}, {3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, {3.7554346233872647`*^9, 3.7554347263294*^9}, { 3.7554347853286095`*^9, 3.7554348093580456`*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, {3.7554349600500207`*^9, 3.7554349983466597`*^9}, { 3.755435110803147*^9, 3.7554351426284623`*^9}, {3.755435324398292*^9, 3.7554353302892075`*^9}, {3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, {3.7554358134766097`*^9, 3.755435918833391*^9}, { 3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, {3.755436277778627*^9, 3.755436282441655*^9}, { 3.755436433004975*^9, 3.7554365810900373`*^9}, {3.755436713592167*^9, 3.7554367150263915`*^9}, {3.755436752569789*^9, 3.755436782945344*^9}, { 3.75543855564263*^9, 3.755438573014342*^9}, {3.7554386030808535`*^9, 3.75543862876925*^9}, {3.755438665543474*^9, 3.755438666460845*^9}, { 3.755438707655904*^9, 3.7554387115945473`*^9}, {3.7554387585075216`*^9, 3.7554388500917773`*^9}, {3.755523374186784*^9, 3.755523407200748*^9}, { 3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.7555237667615433`*^9, 3.7555238472382975`*^9, 3.7555241586552105`*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, {3.7555258075426073`*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726152`*^9}, {3.7555370249561615`*^9, 3.755537051432358*^9}, 3.7555372853307257`*^9, {3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618104`*^9, {3.7555379391125593`*^9, 3.755537970148187*^9}, { 3.7555674525545197`*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, {3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.7555677797901087`*^9}, { 3.755567822059022*^9, 3.755567822195668*^9}, {3.7555678597444773`*^9, 3.7555678604365673`*^9}, 3.7556071757478895`*^9, {3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, { 3.7556077296748147`*^9, 3.755607849742259*^9}, {3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, {3.755608958207328*^9, 3.755608980843011*^9}, {3.7559615593543744`*^9, 3.7559615796720657`*^9}, { 3.755961636991267*^9, 3.755961639837885*^9}, {3.755961688066485*^9, 3.7559617050406666`*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, { 3.7560033780948515`*^9, 3.756003424416658*^9}, {3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, { 3.75600408826851*^9, 3.7560041132438145`*^9}, {3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, { 3.7560045878703117`*^9, 3.756004610316883*^9}, {3.756090875492567*^9, 3.756090970250229*^9}, {3.7560910153257923`*^9, 3.756091253656394*^9}, { 3.7560913065394864`*^9, 3.7560913073489447`*^9}, {3.7560913497661376`*^9, 3.7560913829572887`*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, { 3.756091512338003*^9, 3.7560916181734085`*^9}, {3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, {3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.7560925295886126`*^9}, { 3.7564428371402044`*^9, 3.7564428827548018`*^9}, {3.756443118409811*^9, 3.7564432825122414`*^9}, {3.7564433139577427`*^9, 3.7564434048585415`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.7564441526092615`*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.7866931119911423`*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.7866934610423436`*^9}, {3.786693498963604*^9, 3.7866936745285892`*^9}, {3.7866937881495705`*^9, 3.7866937950939436`*^9}, 3.7873246428692293`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.7874854543849907`*^9, 3.787485502716935*^9}, {3.7874856358164625`*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.7874947579329753`*^9, 3.7874947673643074`*^9}, 3.787494920667267*^9, {3.7874950655196714`*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.7874952321914797`*^9}, {3.7874953099595947`*^9, 3.7874953434716663`*^9}, {3.7874953776322303`*^9, 3.7874953779837875`*^9}, {3.7875363421179075`*^9, 3.787536342508462*^9}, { 3.7875368085158997`*^9, 3.787536878302806*^9}, {3.7875369599529157`*^9, 3.7875370055885963`*^9}, {3.7875835060582986`*^9, 3.787583520821555*^9}, { 3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, { 3.7876552122737617`*^9, 3.787655270155204*^9}, {3.7877076273240643`*^9, 3.7877076330663157`*^9}, {3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.8493388690505223`*^9, 3.8493389607525234`*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.8507909361264725`*^9, { 3.850790968622494*^9, 3.8507909814813538`*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.8514043340993366`*^9, 3.8514044427104735`*^9}, {3.8514044803348703`*^9, 3.8514045282808294`*^9}, {3.8514046757991276`*^9, 3.8514047382171335`*^9}, {3.8514048639344797`*^9, 3.851405048797428*^9}, { 3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.8514076887032995`*^9}, {3.851407773017706*^9, 3.8514077811951346`*^9}, { 3.851407884878668*^9, 3.851407886958976*^9}, {3.8514079306283693`*^9, 3.8514079496190023`*^9}, {3.8514087740430136`*^9, 3.85140879767111*^9}, { 3.8514143934466867`*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, {3.8514146041353254`*^9, 3.8514146600460863`*^9}, { 3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, {3.8518339902024612`*^9, 3.8518340324887753`*^9}, { 3.851834067359583*^9, 3.8518340887776065`*^9}, {3.85183413027966*^9, 3.8518341363630505`*^9}, {3.8518342009484644`*^9, 3.851834369129287*^9}, { 3.8518344143060737`*^9, 3.851834414983051*^9}, {3.8518344553869543`*^9, 3.851834543885075*^9}, {3.8518347971351566`*^9, 3.8518348017593184`*^9}, { 3.851835132695306*^9, 3.8518352479240956`*^9}, {3.851835295849347*^9, 3.851835329468197*^9}, 3.851835409451404*^9, {3.851835498320532*^9, 3.8518355048099184`*^9}, {3.8523380748030825`*^9, 3.852338264306811*^9}, { 3.8523383137720175`*^9, 3.852338478052122*^9}, {3.852338528637382*^9, 3.8523385640260878`*^9}, {3.8523389175888343`*^9, 3.8523389328262997`*^9}, {3.8523389629519563`*^9, 3.8523389753518944`*^9}, {3.852339008354312*^9, 3.852339059295692*^9}, { 3.8523390994118304`*^9, 3.852339099778098*^9}, {3.8523392626639595`*^9, 3.8523392811947136`*^9}, {3.8523393634846168`*^9, 3.8523394295923953`*^9}, {3.8523394782379665`*^9, 3.852339478823139*^9}, { 3.852339593926757*^9, 3.852339671084174*^9}, {3.852339711931484*^9, 3.852339784041746*^9}, {3.852339827771785*^9, 3.8523398280877805`*^9}, { 3.852339885054994*^9, 3.852339906414003*^9}, {3.852340395971958*^9, 3.8523403966426587`*^9}, {3.8523404751881404`*^9, 3.852340475781088*^9}, { 3.8523405200732336`*^9, 3.852340532179105*^9}, {3.8523406121578665`*^9, 3.852340785094775*^9}, {3.852340819276718*^9, 3.85234085816973*^9}, { 3.852340942090009*^9, 3.852340966879814*^9}, {3.852341026617176*^9, 3.8523411396731977`*^9}, {3.8523412660930223`*^9, 3.852341295802722*^9}, { 3.8523414435025682`*^9, 3.852341499929787*^9}, {3.8523415713395557`*^9, 3.8523415826878004`*^9}, {3.852341616970917*^9, 3.8523416180391808`*^9}, { 3.8523417316215086`*^9, 3.8523418610746107`*^9}, {3.852341941277248*^9, 3.8523419730084944`*^9}, {3.852342006990124*^9, 3.852342007408225*^9}, 3.852345951600083*^9, {3.8523585532830524`*^9, 3.852358553659275*^9}, { 3.8523585917608223`*^9, 3.8523586243402653`*^9}, {3.883879387933689*^9, 3.883879393597911*^9}, {3.883879696584765*^9, 3.88387970392874*^9}, { 3.883879762993813*^9, 3.8838797639579873`*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"4258d36f-45d5-448d-8326-4300518699d9"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.4 (truss)", "Subsubsection", CellChangeTimes->{{3.4938724364934034`*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826577`*^9, 3.557722281898278*^9}, { 3.6925364040653286`*^9, 3.692536414765343*^9}, {3.6926051339045105`*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.6926165560409927`*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, 3.6933062830792246`*^9, {3.725021164213514*^9, 3.725021164371165*^9}, {3.7887480090753746`*^9, 3.788748035234958*^9}, 3.8209949332267866`*^9, 3.821613854016477*^9},ExpressionUUID->"51b22288-a2d3-4b4b-a577-\ 7714ac330010"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.4938810743976574`*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858543997`*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.5577227444350924`*^9, 3.5577227701751375`*^9}, {3.557722914366191*^9, 3.5577231321893735`*^9}, {3.5577234762323775`*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.5577240381453648`*^9}, { 3.5577240859750485`*^9, 3.5577241533827667`*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.6924166962978897`*^9, 3.6924166970178905`*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.6924172169506187`*^9, 3.6924175298010564`*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.6925022791146946`*^9}, {3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, { 3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, { 3.692623535710764*^9, 3.692623557910795*^9}, {3.6926952837958193`*^9, 3.6926952890058265`*^9}, {3.6928555108448462`*^9, 3.692855525144866*^9}, { 3.6928555801949434`*^9, 3.6928556725450726`*^9}, {3.6928557055151186`*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153815`*^9}, { 3.692855952785465*^9, 3.6928559781655006`*^9}, {3.6928560758856373`*^9, 3.692856170005769*^9}, {3.6928562238658447`*^9, 3.6928562580458927`*^9}, { 3.6928562961859455`*^9, 3.69285631358597*^9}, {3.692856357426031*^9, 3.6928563681360464`*^9}, {3.6928563999060907`*^9, 3.6928564001160913`*^9}, {3.692857702937915*^9, 3.6928577502779813`*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.6932191418014517`*^9}, { 3.693219256141612*^9, 3.6932192620916204`*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.6932220864395747`*^9, 3.6932220972695894`*^9}, {3.6933062924792376`*^9, 3.6933064184694138`*^9}, 3.693306456369467*^9, {3.6933065958296623`*^9, 3.6933066138196874`*^9}, { 3.693306650569739*^9, 3.693306653189742*^9}, {3.693309085270472*^9, 3.693309087550475*^9}, {3.6933103271322107`*^9, 3.6933103356922226`*^9}, 3.6933103698722706`*^9, {3.693310470252411*^9, 3.6933104893324375`*^9}, 3.6933808415755987`*^9, {3.7247583889821615`*^9, 3.724758390348864*^9}, { 3.725021816037766*^9, 3.725021819733665*^9}, {3.7250219746947784`*^9, 3.72502200025261*^9}, {3.725022093649005*^9, 3.725022237603272*^9}, { 3.7250224542170396`*^9, 3.7250225220350323`*^9}, {3.725022679332588*^9, 3.7250227046999483`*^9}, {3.7250227409406877`*^9, 3.725022817280752*^9}, 3.725022850568372*^9, {3.7563597514070015`*^9, 3.7563598068261595`*^9}, { 3.7563598644359274`*^9, 3.756359867482433*^9}, {3.756451754376941*^9, 3.7564517906965075`*^9}, {3.788835297331105*^9, 3.788835324873559*^9}, { 3.7888353621680546`*^9, 3.788835402651895*^9}, 3.788836723146744*^9, 3.7888369215645175`*^9, {3.788837233063264*^9, 3.788837239768136*^9}, { 3.7888374428535147`*^9, 3.788837474666474*^9}, {3.7888375252778425`*^9, 3.788837553081115*^9}, {3.788937058688222*^9, 3.788937067270863*^9}, { 3.8210034460614004`*^9, 3.8210034551945815`*^9}, 3.8211530771253767`*^9, { 3.8519924934642563`*^9, 3.851992500294387*^9}}, CellLabel-> "In[416]:=",ExpressionUUID->"ecb16ce7-eb4a-4ab8-849a-fc41dc1fd717"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.693190210631563*^9, {3.7250240785764503`*^9, 3.725024106360828*^9}, { 3.7250241751824183`*^9, 3.725024175334324*^9}, {3.788748048003364*^9, 3.788748054932249*^9}},ExpressionUUID->"774509af-f811-4977-b60a-\ 5ffa5b883ee6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, {3.6931902881216717`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, {3.6931907050422554`*^9, 3.6931907075822587`*^9}, { 3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, {3.693191416663252*^9, 3.693191421643258*^9}, { 3.693191600493509*^9, 3.693191606243517*^9}, {3.6931920988862066`*^9, 3.6931921222862396`*^9}, {3.6933810050758276`*^9, 3.6933810224858522`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.7250241609315004`*^9}, { 3.8509671092125254`*^9, 3.850967111163235*^9}}, CellLabel-> "In[410]:=",ExpressionUUID->"8dad98e3-9927-4e9b-99bd-a5b1557cbfef"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.725024083228655*^9, 3.7887480631275167`*^9},ExpressionUUID->"651aecbf-7097-4b8e-90b6-\ 669c91fe8627"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.6933811029259644`*^9, 3.69338111405598*^9}, {3.7250242362488475`*^9, 3.7250242375071917`*^9}, { 3.756794146965371*^9, 3.7567941814263396`*^9}, {3.850967135594717*^9, 3.850967137461238*^9}}, CellLabel-> "In[415]:=",ExpressionUUID->"c05783a0-9cba-4f12-8296-a784410ff64f"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.725024083228655*^9, 3.725024360634966*^9, 3.788748067180313*^9},ExpressionUUID->"8a4c3d78-5026-4fef-8bce-\ 7ed330109588"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.6933811029259644`*^9, 3.69338111405598*^9}, {3.7250242362488475`*^9, 3.7250242375071917`*^9}, { 3.725024378941745*^9, 3.725024406343743*^9}, {3.7567942416934767`*^9, 3.7567942432555633`*^9}, {3.8210036683680515`*^9, 3.821003675582391*^9}, { 3.850967165278871*^9, 3.850967167210659*^9}}, CellLabel-> "In[420]:=",ExpressionUUID->"c17290bf-cb8f-480e-ac8f-55c92ce9abde"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.725024466017606*^9, 3.788748070204897*^9},ExpressionUUID->"31052e8b-e3ce-4b5f-af0e-\ e78d7740883b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.69338113518601*^9, 3.6933811496960297`*^9}, { 3.725024496244114*^9, 3.7250245030147038`*^9}, {3.7567945162383647`*^9, 3.7567945170664864`*^9}, {3.756800697920469*^9, 3.7568007144705143`*^9}, { 3.7568007575697813`*^9, 3.7568007580853047`*^9}, {3.8509671904069457`*^9, 3.85096719249596*^9}, {3.883882973109865*^9, 3.8838831040455194`*^9}}, CellLabel-> "In[425]:=",ExpressionUUID->"7336f1a7-3fd7-4c69-a95c-d442da5a82b3"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, 3.7250245231314993`*^9, 3.7250245562248693`*^9, 3.7567964396238427`*^9, 3.7887480754354105`*^9},ExpressionUUID->"48f0ec18-b017-4b89-a1bd-\ c104c66a504c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6932961835350847`*^9, 3.6932962439151697`*^9}, {3.6932962790552187`*^9, 3.6932962897252336`*^9}, {3.6933811840760784`*^9, 3.6933811866760817`*^9}, {3.7250246542359395`*^9, 3.725024658292693*^9}, { 3.756796446919061*^9, 3.7567964727723756`*^9}, {3.8509672172375956`*^9, 3.850967223320303*^9}}, CellLabel-> "In[430]:=",ExpressionUUID->"08219662-c4ad-48f5-9182-e538c5775da6"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, 3.6932973174666724`*^9, {3.7250246897196236`*^9, 3.7250246902801123`*^9}, {3.7567965014531136`*^9, 3.7567965016718607`*^9}, 3.788748083302801*^9},ExpressionUUID->"49f942f7-ecb0-4d1d-8278-\ e1bae37ff586"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6932961835350847`*^9, 3.6932962439151697`*^9}, {3.6932962790552187`*^9, 3.6932962897252336`*^9}, {3.69329733021669*^9, 3.693297434086836*^9}, { 3.693381220626129*^9, 3.6933812440971622`*^9}, 3.7250247134269934`*^9, { 3.7567967044368567`*^9, 3.7567967060458655`*^9}, {3.850967268464264*^9, 3.850967274798299*^9}}, CellLabel-> "In[435]:=",ExpressionUUID->"7aa84f97-f7d6-49c2-a7db-6cb3a9968cba"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, 3.6931420947472496`*^9, 3.693298925868924*^9, { 3.7250253226298213`*^9, 3.725025323475069*^9}, 3.7567967669378643`*^9, 3.7887480861452737`*^9},ExpressionUUID->"ac40d90d-914e-4b93-a231-\ 6f0e2065e7a1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931421018572598`*^9, 3.693142185437377*^9}, {3.693381313068259*^9, 3.6933813189282675`*^9}, {3.756796779122508*^9, 3.756796780606487*^9}}, CellLabel-> "In[440]:=",ExpressionUUID->"2e3235c2-949b-4541-88ea-e6b12663af08"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.6931934898815126`*^9, 3.693370799325358*^9, 3.72502550453412*^9, 3.756796830657314*^9, 3.7887480892105436`*^9},ExpressionUUID->"57f21e48-fb14-4373-be36-\ abfcea2475d6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"7", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "L"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931384072632685`*^9, 3.693138464483349*^9}, 3.6931385504534693`*^9, { 3.693139539130171*^9, 3.6931395422501755`*^9}, {3.6931407590133796`*^9, 3.6931407900734234`*^9}, {3.69314082374347*^9, 3.6931408243334713`*^9}, { 3.693141231804042*^9, 3.693141239914053*^9}, 3.6931418049058437`*^9, { 3.693381352298314*^9, 3.6933813606583257`*^9}, {3.69346018351458*^9, 3.6934601845445805`*^9}, {3.693460277494711*^9, 3.6934602906747293`*^9}, { 3.693460328224782*^9, 3.693460473154985*^9}, {3.6934605861451435`*^9, 3.693460590465149*^9}, {3.6934606275952015`*^9, 3.6934608558655205`*^9}, { 3.6934609279556217`*^9, 3.69346093378563*^9}, {3.693461071075822*^9, 3.6934610732858253`*^9}, {3.6934617808668156`*^9, 3.693461781226816*^9}, { 3.693461815406864*^9, 3.6934618242468767`*^9}, {3.6934618548969193`*^9, 3.6934618984369802`*^9}, {3.6934619751070876`*^9, 3.693461978447092*^9}, { 3.6934621984574003`*^9, 3.69346223375745*^9}, {3.693462346117607*^9, 3.6934624185677085`*^9}, {3.72502542640604*^9, 3.725025427855894*^9}, { 3.7567969527224703`*^9, 3.756796954268941*^9}, {3.821066361356242*^9, 3.821066365768322*^9}, {3.82106642496561*^9, 3.8210664371231837`*^9}, { 3.8210667024813805`*^9, 3.821066774667529*^9}, {3.8210668836756763`*^9, 3.8210668862200065`*^9}, {3.8211526289041243`*^9, 3.8211526336727953`*^9}, {3.821152687932913*^9, 3.821152705567244*^9}}, CellLabel-> "In[445]:=",ExpressionUUID->"b1800f4a-cc00-47b7-8938-047df4777100"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.6931934898815126`*^9, {3.6933707838353357`*^9, 3.6933707954953527`*^9}, { 3.725025573634933*^9, 3.725025582913336*^9}, 3.756797263336627*^9, 3.788748091540877*^9},ExpressionUUID->"98b23167-44ea-4738-8c93-\ 70a1ac507096"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"NOTICE", ":", " ", RowBox[{ "the", " ", "outcome", " ", "of", " ", "the", " ", "hand", " ", "calculation", " ", RowBox[{"(", RowBox[{"analytical", " ", "solution"}], ")"}], " ", "and", " ", "the", " ", "one", " ", "by", " ", "the", " ", "code", " ", RowBox[{"(", RowBox[{"numerical", " ", "solution"}], ")"}], " ", "differ", " ", "due", " ", "to", " ", "discretization", " ", RowBox[{"error", ".", "\[IndentingNewLine]", "The"}], " ", "solution", " ", "by", " ", "FEM", " ", "converges", " ", "to", " ", "the", " ", "analytical", " ", "solution", " ", "when", " ", "the", " ", "mesh", " ", "is", " ", "refined"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], " ", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "5", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931384072632685`*^9, 3.693138464483349*^9}, 3.6931385504534693`*^9, { 3.693139539130171*^9, 3.6931395422501755`*^9}, {3.6931407590133796`*^9, 3.6931407900734234`*^9}, {3.69314082374347*^9, 3.6931408243334713`*^9}, { 3.693141231804042*^9, 3.693141239914053*^9}, 3.6931418049058437`*^9, { 3.693370814495379*^9, 3.6933710347856874`*^9}, {3.6933710912757664`*^9, 3.6933712196459465`*^9}, {3.693371517086363*^9, 3.6933715226363707`*^9}, { 3.6933746737607822`*^9, 3.693374840391015*^9}, {3.6933750748613434`*^9, 3.693375094561371*^9}, {3.6933751349114275`*^9, 3.6933751375414314`*^9}, { 3.693375277291627*^9, 3.6933752833316355`*^9}, {3.6933816414087186`*^9, 3.693381657478741*^9}, {3.756797338506524*^9, 3.756797339818715*^9}, { 3.7568008125108557`*^9, 3.7568008148696814`*^9}, {3.8210040138880997`*^9, 3.8210040319696836`*^9}, {3.8210040880487194`*^9, 3.8210040958925037`*^9}, {3.8519936603511744`*^9, 3.8519936750219097`*^9}, {3.8519937307384048`*^9, 3.851993734346714*^9}, { 3.851993768822936*^9, 3.8519937697449074`*^9}}, CellLabel-> "In[450]:=",ExpressionUUID->"1170cb27-d5cd-40fd-9b64-ae5ec9a0aa83"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.6931934898815126`*^9, {3.6933707838353357`*^9, 3.6933707954953527`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.7250256670291777`*^9, 3.7250257058821273`*^9}, {3.756361573013221*^9, 3.756361580747472*^9}, 3.7567975459735603`*^9, {3.7567975787939963`*^9, 3.7567975796219316`*^9}, 3.788748094743372*^9},ExpressionUUID->"37efb8f6-fa35-4365-9468-\ ba5995c4ffba"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["Grid", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931384072632685`*^9, 3.693138464483349*^9}, 3.6931385504534693`*^9, { 3.693139539130171*^9, 3.6931395422501755`*^9}, {3.6931407590133796`*^9, 3.6931407900734234`*^9}, {3.69314082374347*^9, 3.6931408243334713`*^9}, { 3.693141231804042*^9, 3.693141239914053*^9}, 3.6931418049058437`*^9, { 3.693370814495379*^9, 3.6933710347856874`*^9}, {3.6933710912757664`*^9, 3.6933712196459465`*^9}, {3.693371517086363*^9, 3.6933715226363707`*^9}, { 3.6933746737607822`*^9, 3.693374840391015*^9}, {3.6933750748613434`*^9, 3.693375094561371*^9}, {3.6933751349114275`*^9, 3.6933751375414314`*^9}, { 3.693375277291627*^9, 3.6933752833316355`*^9}, {3.6933816414087186`*^9, 3.693381657478741*^9}, {3.693623898148028*^9, 3.6936240857282906`*^9}, { 3.6936241755384164`*^9, 3.693624186658432*^9}, {3.6936242236884837`*^9, 3.6936242455985146`*^9}, {3.693624308838603*^9, 3.6936243276586294`*^9}, { 3.6936243601386747`*^9, 3.693624369098687*^9}, {3.6936244076487412`*^9, 3.6936244551088076`*^9}, {3.693624537678923*^9, 3.6936245600289545`*^9}, 3.6936246237090435`*^9, {3.6936248231593227`*^9, 3.6936248490093594`*^9}, { 3.6936249813995447`*^9, 3.6936249911795583`*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.7250279951942205`*^9, {3.7250284810413065`*^9, 3.725028490580618*^9}, {3.7567975871357956`*^9, 3.756797612661065*^9}, { 3.7567976536670847`*^9, 3.7567976726626425`*^9}, {3.756797924163059*^9, 3.7567979425331545`*^9}, {3.756798013969554*^9, 3.7567980154535646`*^9}, { 3.7567983041359205`*^9, 3.756798330801605*^9}, {3.788937859790479*^9, 3.7889378647702503`*^9}, {3.8210042148062916`*^9, 3.8210042284122076`*^9}, {3.8509674829508924`*^9, 3.8509675434163094`*^9}, {3.8509675794392633`*^9, 3.8509675852019043`*^9}}, CellLabel-> "In[455]:=",ExpressionUUID->"9ce4b953-d638-4998-ab24-8defd9763fc9"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.693190210631563*^9, {3.7250240785764503`*^9, 3.725024106360828*^9}, { 3.7250241751824183`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.7567997408170395`*^9}, {3.8812060643629513`*^9, 3.881206066933009*^9}},ExpressionUUID->"c439ecf3-de37-484a-9c17-\ 4cba2161a00e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, {3.6931902881216717`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, {3.6931907050422554`*^9, 3.6931907075822587`*^9}, { 3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, {3.693191416663252*^9, 3.693191421643258*^9}, { 3.693191600493509*^9, 3.693191606243517*^9}, {3.6931920988862066`*^9, 3.6931921222862396`*^9}, {3.6933810050758276`*^9, 3.6933810224858522`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.7250241609315004`*^9}, { 3.756799750939721*^9, 3.7567997691073275`*^9}, {3.788849300089596*^9, 3.7888493641716824`*^9}, {3.7888494139346*^9, 3.7888494286062584`*^9}, { 3.8509679745270205`*^9, 3.850967976044734*^9}}, CellLabel-> "In[456]:=",ExpressionUUID->"af448ed1-9a2c-45ca-9381-630a751de4e6"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.693190210631563*^9, {3.7250240785764503`*^9, 3.725024106360828*^9}, { 3.7250241751824183`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.7567997408170395`*^9}, 3.7567998127065244`*^9, {3.8812060688923965`*^9, 3.8812060714386244`*^9}},ExpressionUUID->"87e69061-f257-4d68-9e79-\ a43ea6925ba7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, {3.6931902881216717`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, {3.6931907050422554`*^9, 3.6931907075822587`*^9}, { 3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, {3.693191416663252*^9, 3.693191421643258*^9}, { 3.693191600493509*^9, 3.693191606243517*^9}, {3.6931920988862066`*^9, 3.6931921222862396`*^9}, {3.6933810050758276`*^9, 3.6933810224858522`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.7250241609315004`*^9}, { 3.756799750939721*^9, 3.7567997691073275`*^9}, {3.7567998612882752`*^9, 3.756799866162119*^9}, {3.756799899607374*^9, 3.756799904293829*^9}, { 3.7567999450186663`*^9, 3.756799956968975*^9}, 3.756800144331313*^9, { 3.756800239090415*^9, 3.7568002683648157`*^9}, {3.756800429170906*^9, 3.7568006426365423`*^9}, {3.85096799619191*^9, 3.85096800193428*^9}, 3.8838828134832425`*^9}, CellLabel-> "In[461]:=",ExpressionUUID->"114c24d3-3255-424c-acff-66891076e40a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.6931363637484083`*^9, 3.725024083228655*^9, {3.7567988696810017`*^9, 3.756798876476287*^9}, { 3.8812060746627274`*^9, 3.881206079624403*^9}},ExpressionUUID->"748a698a-426b-4ce2-86ae-\ 366b120589e9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "p"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.6933811029259644`*^9, 3.69338111405598*^9}, {3.7250242362488475`*^9, 3.7250242375071917`*^9}, { 3.756794146965371*^9, 3.7567941814263396`*^9}, {3.756799517431947*^9, 3.756799522727543*^9}, {3.788843854837902*^9, 3.788843875913063*^9}, { 3.788843907038912*^9, 3.7888439554722376`*^9}, {3.788843993884048*^9, 3.788844021087784*^9}, {3.788844053360984*^9, 3.788844071769227*^9}, { 3.8509675986277914`*^9, 3.850967600568553*^9}}, CellLabel-> "In[466]:=",ExpressionUUID->"67ec1594-c4f9-4a33-9386-cc92f0410ffa"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, 3.7250245231314993`*^9, {3.7567995655612087`*^9, 3.756799571966011*^9}, {3.788840101401081*^9, 3.788840103479334*^9}, { 3.8812060836215954`*^9, 3.88120608769934*^9}},ExpressionUUID->"523c7530-4d55-4edf-950e-\ 9c479c1fc40e"], Cell[BoxData[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6932961835350847`*^9, 3.6932962439151697`*^9}, {3.6932962790552187`*^9, 3.6932962897252336`*^9}, {3.6933811840760784`*^9, 3.6933811866760817`*^9}, {3.725024574725236*^9, 3.725024588839964*^9}, { 3.756795212116538*^9, 3.7567952132725544`*^9}, {3.7888401120623245`*^9, 3.788840168934473*^9}}, CellLabel-> "In[471]:=",ExpressionUUID->"99e2dfe3-63d4-4334-88a7-19ffdeb69b74"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.6931934898815126`*^9, {3.6933707838353357`*^9, 3.6933707954953527`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.7250256670291777`*^9, 3.7250257058821273`*^9}, {3.7567983913186817`*^9, 3.7567983923028216`*^9}, {3.7567988730240245`*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.7891831869749146`*^9, {3.881206091573702*^9, 3.8812060959838376`*^9}},ExpressionUUID->"f0434cd2-63ef-4ae4-9942-\ 10c20df2cfd1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931384072632685`*^9, 3.693138464483349*^9}, 3.6931385504534693`*^9, { 3.693139539130171*^9, 3.6931395422501755`*^9}, {3.6931407590133796`*^9, 3.6931407900734234`*^9}, {3.69314082374347*^9, 3.6931408243334713`*^9}, { 3.693141231804042*^9, 3.693141239914053*^9}, 3.6931418049058437`*^9, { 3.693370814495379*^9, 3.6933710347856874`*^9}, {3.6933710912757664`*^9, 3.6933712196459465`*^9}, {3.693371517086363*^9, 3.6933715226363707`*^9}, { 3.6933746737607822`*^9, 3.693374840391015*^9}, {3.6933750748613434`*^9, 3.693375094561371*^9}, {3.6933751349114275`*^9, 3.6933751375414314`*^9}, { 3.693375277291627*^9, 3.6933752833316355`*^9}, {3.6933816414087186`*^9, 3.693381657478741*^9}, {3.693623898148028*^9, 3.6936240857282906`*^9}, { 3.6936241755384164`*^9, 3.693624186658432*^9}, {3.6936242236884837`*^9, 3.6936242455985146`*^9}, {3.693624308838603*^9, 3.6936243276586294`*^9}, { 3.6936243601386747`*^9, 3.693624369098687*^9}, {3.6936244076487412`*^9, 3.6936244551088076`*^9}, {3.693624537678923*^9, 3.6936245600289545`*^9}, 3.6936246237090435`*^9, {3.6936248231593227`*^9, 3.6936248490093594`*^9}, { 3.6936249813995447`*^9, 3.6936249911795583`*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.7250279951942205`*^9, {3.7250284810413065`*^9, 3.725028490580618*^9}, {3.7567983982076926`*^9, 3.7567984239828525`*^9}, { 3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.7887484423859124`*^9}, {3.7887485191144743`*^9, 3.7887486497810545`*^9}, {3.788748687254717*^9, 3.7887489614574223`*^9}, { 3.788748991789321*^9, 3.78874899810791*^9}, {3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, { 3.788749332203596*^9, 3.788749333422468*^9}, {3.7887495187401657`*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, { 3.7887497461152906`*^9, 3.7887498407885494`*^9}, {3.788749893111492*^9, 3.7887500238561907`*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, { 3.788750264719532*^9, 3.788750294322283*^9}, {3.788750325600979*^9, 3.788750332029645*^9}, {3.7887508516476316`*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.7887509404866304`*^9, 3.7887509949082747`*^9}, { 3.788751123863784*^9, 3.7887511282999883`*^9}, 3.788751244897051*^9, { 3.788752133868101*^9, 3.7887522058274875`*^9}, {3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.7887834370208373`*^9}, { 3.7887835317770376`*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, { 3.7888305028927526`*^9, 3.788830652045955*^9}, {3.7888307180920086`*^9, 3.7888307825148835`*^9}, {3.788830877589118*^9, 3.7888310509498787`*^9}, { 3.7888310857014413`*^9, 3.788831095283891*^9}, {3.788831424648365*^9, 3.7888314269779997`*^9}, {3.7888316708814416`*^9, 3.7888317083030467`*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.7888319386906347`*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.7888323588598866`*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.7888324760643673`*^9}, {3.7888325387804146`*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.7888386181373606`*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.7891833597626085`*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.8210045932980566`*^9, 3.8210045972144156`*^9}, { 3.821004634135273*^9, 3.8210046864976444`*^9}, {3.8210047390708046`*^9, 3.8210047400171223`*^9}, {3.8509676731783075`*^9, 3.850967750562674*^9}}, CellLabel-> "In[476]:=",ExpressionUUID->"a2835d22-d0e9-4c07-af63-c1186e47796e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.6931379329206047`*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.6931934898815126`*^9, {3.6933707838353357`*^9, 3.6933707954953527`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.7250256670291777`*^9, 3.7250257058821273`*^9}, {3.7567983913186817`*^9, 3.7567983923028216`*^9}, {3.7567988730240245`*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.7891831869749146`*^9, 3.8210045757349916`*^9, {3.8812060981399984`*^9, 3.8812061029075594`*^9}},ExpressionUUID->"54f8ba9e-2bd7-4c80-bac2-\ 49e5be5c1e20"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "=", RowBox[{ RowBox[{"a", "[", "1", "]"}], RowBox[{"(", RowBox[{"x", "/", "L"}], " ", ")"}]}]}], ",", " ", RowBox[{"v", "=", "0"}], ",", RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "Nxx", ",", "Nyy", ",", "Nxy", ",", "Mxx", ",", "Myy", ",", "Mxy", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[CapitalGamma]", ",", "\[Delta]W"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Nxx", ",", "Nyy", ",", "Nxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Mxx", ",", "Myy", ",", "Mxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Mxx"}, {"Myy"}, {"Mxy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}]}, {"0"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], StyleBox[ RowBox[{"Integrate", "[", RowBox[{"\[Delta]wext", " ", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalGamma]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"H", ">", "0"}]}]}], "]"}], "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.4950995016879997`*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.4951004772609997`*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.6930158215750012`*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.6930160810173645`*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.6930164434978724`*^9, 3.6930164831779275`*^9}, {3.6930168959426355`*^9, 3.693016943842702*^9}, { 3.6930170211728106`*^9, 3.6930170221728115`*^9}, {3.6930176493256903`*^9, 3.693017670245719*^9}, {3.693017801865904*^9, 3.6930178264559383`*^9}, { 3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, {3.69301832058663*^9, 3.693018424926776*^9}, { 3.693018546686946*^9, 3.6930185536569557`*^9}, {3.6930185926270103`*^9, 3.6930186247670555`*^9}, {3.6930188500773706`*^9, 3.693018865057392*^9}, { 3.6930189745895452`*^9, 3.6930189769895487`*^9}, {3.6930192574799414`*^9, 3.6930192579099417`*^9}, {3.693019392680131*^9, 3.693019394440133*^9}, { 3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, {3.6930580481846666`*^9, 3.693058052384672*^9}, { 3.693058089464724*^9, 3.6930580925547285`*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, {3.6931379460006227`*^9, 3.6931380135417175`*^9}, 3.693138069661796*^9, {3.693138284313097*^9, 3.69313831553314*^9}, { 3.6931384072632685`*^9, 3.693138464483349*^9}, 3.6931385504534693`*^9, { 3.693139539130171*^9, 3.6931395422501755`*^9}, {3.6931407590133796`*^9, 3.6931407900734234`*^9}, {3.69314082374347*^9, 3.6931408243334713`*^9}, { 3.693141231804042*^9, 3.693141239914053*^9}, 3.6931418049058437`*^9, { 3.693370814495379*^9, 3.6933710347856874`*^9}, {3.6933710912757664`*^9, 3.6933712196459465`*^9}, {3.693371517086363*^9, 3.6933715226363707`*^9}, { 3.6933746737607822`*^9, 3.693374840391015*^9}, {3.6933750748613434`*^9, 3.693375094561371*^9}, {3.6933751349114275`*^9, 3.6933751375414314`*^9}, { 3.693375277291627*^9, 3.6933752833316355`*^9}, {3.6933816414087186`*^9, 3.693381657478741*^9}, {3.693623898148028*^9, 3.6936240857282906`*^9}, { 3.6936241755384164`*^9, 3.693624186658432*^9}, {3.6936242236884837`*^9, 3.6936242455985146`*^9}, {3.693624308838603*^9, 3.6936243276586294`*^9}, { 3.6936243601386747`*^9, 3.693624369098687*^9}, {3.6936244076487412`*^9, 3.6936244551088076`*^9}, {3.693624537678923*^9, 3.6936245600289545`*^9}, 3.6936246237090435`*^9, {3.6936248231593227`*^9, 3.6936248490093594`*^9}, { 3.6936249813995447`*^9, 3.6936249911795583`*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.7250279951942205`*^9, {3.7250284810413065`*^9, 3.725028490580618*^9}, {3.7567983982076926`*^9, 3.7567984239828525`*^9}, { 3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.7887484423859124`*^9}, {3.7887485191144743`*^9, 3.7887486497810545`*^9}, {3.788748687254717*^9, 3.7887489614574223`*^9}, { 3.788748991789321*^9, 3.78874899810791*^9}, {3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, { 3.788749332203596*^9, 3.788749333422468*^9}, {3.7887495187401657`*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, { 3.7887497461152906`*^9, 3.7887498407885494`*^9}, {3.788749893111492*^9, 3.7887500238561907`*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, { 3.788750264719532*^9, 3.788750294322283*^9}, {3.788750325600979*^9, 3.788750332029645*^9}, {3.7887508516476316`*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.7887509404866304`*^9, 3.7887509949082747`*^9}, { 3.788751123863784*^9, 3.7887511282999883`*^9}, 3.788751244897051*^9, { 3.788752133868101*^9, 3.7887522058274875`*^9}, {3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.7887834370208373`*^9}, { 3.7887835317770376`*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, { 3.7888305028927526`*^9, 3.788830652045955*^9}, {3.7888307180920086`*^9, 3.7888307825148835`*^9}, {3.788830877589118*^9, 3.7888310509498787`*^9}, { 3.7888310857014413`*^9, 3.788831095283891*^9}, {3.788831424648365*^9, 3.7888314269779997`*^9}, {3.7888316708814416`*^9, 3.7888317083030467`*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.7888319386906347`*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.7888323588598866`*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.7888324760643673`*^9}, {3.7888325387804146`*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.7888386181373606`*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.7891833597626085`*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.8210048275148125`*^9, 3.8210048289863663`*^9}, { 3.821004880937112*^9, 3.821004916999135*^9}, {3.821004956835596*^9, 3.821004958617885*^9}, {3.8210050188944173`*^9, 3.821005022253108*^9}, { 3.8210050574197173`*^9, 3.8210051554046335`*^9}, {3.821005192513445*^9, 3.821005212994562*^9}, {3.821005250295355*^9, 3.821005276846246*^9}, { 3.821005307393458*^9, 3.8210054940520124`*^9}, {3.8210055542551365`*^9, 3.821005578232196*^9}, {3.8210056288097687`*^9, 3.821005687149138*^9}, { 3.821005752261304*^9, 3.8210057747204976`*^9}, {3.821005808015217*^9, 3.8210058204076123`*^9}, 3.8210058571785417`*^9, {3.8210059347144084`*^9, 3.8210060005564404`*^9}, {3.8210061543710423`*^9, 3.821006264566473*^9}, { 3.8210062987426324`*^9, 3.821006329464186*^9}, {3.8509677989255586`*^9, 3.850967922006175*^9}}, CellLabel-> "In[477]:=",ExpressionUUID->"f25e426e-9957-46f4-9a08-c1005932b65c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["NONLINEAR ANALYSIS (week 6)", "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.4932790852218*^9, 3.493279095939*^9}, 3.4933062471764*^9, {3.4957658835755997`*^9, 3.4957658864927998`*^9}, {3.5566241871999807`*^9, 3.556624190959587*^9}, { 3.6228061501747093`*^9, 3.622806154790973*^9}, 3.693717161087909*^9, 3.753071247963187*^9, 3.7866746464915423`*^9, {3.789440471859059*^9, 3.7894404765124073`*^9}, {3.8530301289001417`*^9, 3.853030131242997*^9}},ExpressionUUID->"fa121407-3c48-4650-953c-\ 7adad3ec1e44"], Cell[CellGroupData[{ Cell["Lecture example 5.1 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879804`*^9, 3.6937172178979883`*^9}, {3.6937211383542433`*^9, 3.6937211426242495`*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.694084104105713*^9, 3.694084119395734*^9}, 3.725367865956423*^9, 3.7254169957392054`*^9, 3.725619293450783*^9, 3.7894404895193176`*^9, 3.789440520087886*^9, { 3.8216137883682137`*^9, 3.8216138191786532`*^9}},ExpressionUUID->"ad884565-ae3f-4c14-8d0c-\ 2f714a91ac8f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", "0.2"}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "3"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", " ", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.6937172406680202`*^9, 3.693717252648037*^9}, { 3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.6937175810284967`*^9}, {3.6937178570408835`*^9, 3.693717891700932*^9}, { 3.6937181376412764`*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, {3.693721145474253*^9, 3.693721304004475*^9}, { 3.693721744775092*^9, 3.69372176445512*^9}, {3.6937217962751646`*^9, 3.693721800965171*^9}, 3.6937218775552783`*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, {3.693896663161741*^9, 3.6938966894117775`*^9}, 3.6938967300618343`*^9, {3.693896766931886*^9, 3.693896793821924*^9}, { 3.693896839311988*^9, 3.693896850372003*^9}, 3.7253679391831865`*^9, { 3.725416801610667*^9, 3.7254168037393713`*^9}, {3.725417020175501*^9, 3.725417208382349*^9}, {3.7254172395621457`*^9, 3.725417331171501*^9}, { 3.72541736659235*^9, 3.7254174053459697`*^9}, {3.7254175339924426`*^9, 3.7254175638615866`*^9}, {3.7254176054682207`*^9, 3.7254177051164927`*^9}, {3.7254177546826105`*^9, 3.72541776095835*^9}, { 3.7254178550580482`*^9, 3.725417924563362*^9}, {3.7254179949719176`*^9, 3.725418003642275*^9}, {3.725419046991951*^9, 3.7254190552133617`*^9}, { 3.7254194172303123`*^9, 3.72541944937505*^9}, {3.7254194818473325`*^9, 3.725419485387669*^9}, {3.7254195657537193`*^9, 3.725419650915449*^9}, { 3.725419711549879*^9, 3.7254197315678883`*^9}, {3.7254197742112017`*^9, 3.7254197805431004`*^9}, {3.725419829789277*^9, 3.725419874631874*^9}, 3.7254199087655344`*^9, {3.7255375940526752`*^9, 3.7255377029827466`*^9}, 3.7256193854673696`*^9, 3.725702820357547*^9, {3.7257028545765643`*^9, 3.7257028650282364`*^9}, {3.756832416999443*^9, 3.756832462271259*^9}, { 3.789440802913806*^9, 3.789440809277025*^9}, 3.7894411773565855`*^9, { 3.821615147466235*^9, 3.821615153888829*^9}, {3.821620611340539*^9, 3.821620645941663*^9}, {3.852693575912036*^9, 3.8526935802020254`*^9}, { 3.852693867597412*^9, 3.852693881304184*^9}, {3.8530309367110014`*^9, 3.8530310058199167`*^9}, 3.853031080312402*^9, {3.853031119109433*^9, 3.853031143011203*^9}, {3.853031199178816*^9, 3.85303120695147*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"a0b3efb0-e09e-48ff-aae2-b32d10e9629b"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.2 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879804`*^9, 3.6937172178979883`*^9}, {3.6937211383542433`*^9, 3.6937211426242495`*^9}, 3.693721197964327*^9, 3.693722041065507*^9, 3.6938968649020233`*^9, 3.6940841249057417`*^9, 3.725368143386225*^9, 3.7254227249314785`*^9, { 3.725619397031089*^9, 3.725619400828313*^9}, 3.78944049266901*^9, 3.789440522746374*^9, {3.821613791241439*^9, 3.82161379143657*^9}, 3.8216138269048543`*^9},ExpressionUUID->"0680c5ff-d11d-4187-be42-\ 9e4baa5820d8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"DISP", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], " ", "/.", "sol"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.6937172406680202`*^9, 3.693717252648037*^9}, { 3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.6937175810284967`*^9}, {3.6937178570408835`*^9, 3.693717891700932*^9}, { 3.6937181376412764`*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, {3.693721145474253*^9, 3.693721304004475*^9}, { 3.693721744775092*^9, 3.69372176445512*^9}, {3.6937217962751646`*^9, 3.693721800965171*^9}, 3.6937218775552783`*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, {3.693722084405568*^9, 3.6937222760578365`*^9}, 3.6937223222279005`*^9, 3.693722372317971*^9, {3.693722442468069*^9, 3.693722451698082*^9}, {3.693723787907967*^9, 3.6937237904979706`*^9}, { 3.6937241372284565`*^9, 3.693724139258459*^9}, {3.693724172548506*^9, 3.6937241752985096`*^9}, {3.693724292058673*^9, 3.6937242951286774`*^9}, 3.6937375511385093`*^9, {3.693896878692043*^9, 3.693896901652075*^9}, { 3.7253681563091784`*^9, 3.725368157559586*^9}, {3.72542273277819*^9, 3.725422854026498*^9}, {3.725422885282486*^9, 3.7254228865161843`*^9}, { 3.725422942650051*^9, 3.725423062788546*^9}, 3.725423150321371*^9, { 3.7254316686112423`*^9, 3.7254316747812223`*^9}, {3.725538838588361*^9, 3.725538851246591*^9}, 3.72561943608208*^9, {3.7257026059808226`*^9, 3.72570261040317*^9}, {3.725702644912425*^9, 3.7257026487253065`*^9}, { 3.7257027965211077`*^9, 3.725702797865259*^9}, {3.72575626980612*^9, 3.725756351318025*^9}, {3.725756456625953*^9, 3.725756477189308*^9}, { 3.7257565440976725`*^9, 3.725756583186432*^9}, {3.7257566457338176`*^9, 3.7257567431369677`*^9}, {3.725756778112492*^9, 3.725756778494486*^9}, { 3.725761648915716*^9, 3.7257617139225607`*^9}, {3.725765194189823*^9, 3.7257652065034933`*^9}, {3.7257652623736453`*^9, 3.7257652896111813`*^9}, {3.725765341710131*^9, 3.725765462395775*^9}, { 3.7257698694622154`*^9, 3.7257699169022665`*^9}, {3.7894412582865925`*^9, 3.7894412708273354`*^9}, {3.7894413278185287`*^9, 3.789441329143035*^9}, 3.789441601886338*^9, {3.789441642006256*^9, 3.7894416431309566`*^9}, { 3.789441907932015*^9, 3.789441908494623*^9}, {3.789442049256173*^9, 3.7894420727362723`*^9}, {3.8216212981760674`*^9, 3.8216213084817343`*^9}, {3.8526939057531404`*^9, 3.8526939163136587`*^9}}, CellLabel-> "In[409]:=",ExpressionUUID->"a076bcbe-237c-407c-8070-1ae68450da3e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.3 (solid)", "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.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.6926165783510237`*^9, {3.694086478127248*^9, 3.6940864796572495`*^9}, 3.7256194498022785`*^9, 3.789440495427185*^9, 3.789440526797804*^9, {3.821613793957991*^9, 3.8216137941890326`*^9}, 3.821613829297106*^9},ExpressionUUID->"b0d291af-e6fe-4676-b473-\ 85fd9c8cfab6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.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.6920258039789453`*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.6920259277091184`*^9, 3.6920259839391975`*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.6920264987399178`*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.6925023736471014`*^9}, { 3.6925025169803*^9, 3.6925025655720787`*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.6926953173258657`*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.6927680130851665`*^9}, { 3.6927681266753254`*^9, 3.6927681303353305`*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.6927701046680946`*^9}, {3.6928578154980726`*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.6940865394073334`*^9}, {3.6940865889274025`*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.6940867569976377`*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.7894421264127007`*^9, 3.78944213687227*^9}, {3.789443395559586*^9, 3.7894434045015726`*^9}, {3.7894434621551476`*^9, 3.7894434648330545`*^9}, {3.8530312712190065`*^9, 3.853031299008956*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"2ea2d776-cd6e-4011-80ba-24d6ce8b1852"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.4 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, {3.560232633043067*^9, 3.5602326460718117`*^9}, { 3.6231155453472214`*^9, 3.6231155575109177`*^9}, {3.6939914338993196`*^9, 3.6939914462693367`*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, {3.725621905609552*^9, 3.725621910203785*^9}, 3.789440497743353*^9, 3.7894405294401426`*^9, {3.789616129613903*^9, 3.7896161325182133`*^9}, {3.821613801831195*^9, 3.8216138319367895`*^9}},ExpressionUUID->"d8bdd1b9-5420-4503-ac1a-\ eefeca0cc6bc"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.6939915637295017`*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.6939917326897383`*^9, 3.6939917519997654`*^9}, {3.6939922575704727`*^9, 3.6939922802405043`*^9}, {3.693992547910879*^9, 3.6939925531808867`*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.6940007615401044`*^9, 3.6940008877102814`*^9}, { 3.6940647063690863`*^9, 3.6940647123490944`*^9}, 3.694064814159237*^9, { 3.7256219225800886`*^9, 3.7256219748824816`*^9}, {3.8217726494619627`*^9, 3.8217726509231224`*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"1cd8ebb6-8ab1-4de2-91cb-a7b45238fd03"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.5 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879804`*^9, 3.6937172178979883`*^9}, {3.6937211383542433`*^9, 3.6937211426242495`*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.6939014955025063`*^9, 3.6939015033425174`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.789440502156151*^9, 3.7894405325936704`*^9, 3.8217726748188086`*^9},ExpressionUUID->"03eb9298-36de-4061-8979-\ aed2a4e4919c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.6937172406680202`*^9, 3.693717252648037*^9}, { 3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.6937175810284967`*^9}, {3.6937178570408835`*^9, 3.693717891700932*^9}, { 3.6937181376412764`*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, {3.693721145474253*^9, 3.693721304004475*^9}, { 3.693721744775092*^9, 3.69372176445512*^9}, {3.6937217962751646`*^9, 3.693721800965171*^9}, 3.6937218775552783`*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, {3.693896663161741*^9, 3.6938966894117775`*^9}, 3.6938967300618343`*^9, {3.693896766931886*^9, 3.693896793821924*^9}, { 3.693896839311988*^9, 3.693896850372003*^9}, {3.6939015427525725`*^9, 3.6939015577525935`*^9}, {3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, {3.693901827053971*^9, 3.693901833313979*^9}, { 3.6939028718864336`*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.6939032303569355`*^9, {3.725622627200715*^9, 3.725622636357994*^9}, {3.725622670908451*^9, 3.725622676455966*^9}, { 3.725622713881729*^9, 3.7256227145067945`*^9}, {3.7256228147673635`*^9, 3.7256228380354414`*^9}, {3.7894448956833925`*^9, 3.789444900781643*^9}, { 3.821772681889474*^9, 3.821772691294238*^9}, {3.8217729059137716`*^9, 3.8217729142460537`*^9}, {3.852696295749216*^9, 3.852696315470949*^9}, { 3.853031378522255*^9, 3.8530313975919647`*^9}, 3.8530314366225433`*^9}, CellLabel-> "In[411]:=",ExpressionUUID->"21d27347-6c12-41d3-8079-529fa7642019"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.6 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879804`*^9, 3.6937172178979883`*^9}, {3.6937211383542433`*^9, 3.6937211426242495`*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.6939014955025063`*^9, 3.6939015033425174`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.725622469610036*^9, 3.789440504983571*^9, 3.789440536851226*^9, { 3.821613806131517*^9, 3.821613806325562*^9}},ExpressionUUID->"babdece1-c7e0-4517-9465-\ b518d93da035"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", " ", RowBox[{"A", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.6937172406680202`*^9, 3.693717252648037*^9}, { 3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.6937175810284967`*^9}, {3.6937178570408835`*^9, 3.693717891700932*^9}, { 3.6937181376412764`*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, {3.693721145474253*^9, 3.693721304004475*^9}, { 3.693721744775092*^9, 3.69372176445512*^9}, {3.6937217962751646`*^9, 3.693721800965171*^9}, 3.6937218775552783`*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, {3.693896663161741*^9, 3.6938966894117775`*^9}, 3.6938967300618343`*^9, {3.693896766931886*^9, 3.693896793821924*^9}, { 3.693896839311988*^9, 3.693896850372003*^9}, {3.6939015427525725`*^9, 3.6939015577525935`*^9}, {3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, {3.693901827053971*^9, 3.693901833313979*^9}, { 3.6939028718864336`*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.6939032303569355`*^9, {3.7256231338316407`*^9, 3.725623166444374*^9}, {3.7256232233409953`*^9, 3.7256232237316127`*^9}, { 3.78944492033692*^9, 3.7894449444018607`*^9}, {3.821772950085473*^9, 3.821772963956665*^9}}, CellLabel-> "In[417]:=",ExpressionUUID->"bd934fd0-2f5d-4e99-9075-4e930348c1ee"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (spring)", "Subsubsection", CellChangeTimes->{{3.623115527697212*^9, 3.6231155371217513`*^9}, { 3.693839654576663*^9, 3.6938396779966955`*^9}, 3.7255115587029552`*^9, { 3.725621898421294*^9, 3.7256218998589478`*^9}, {3.789956416920804*^9, 3.789956421197747*^9}},ExpressionUUID->"bd7d2031-9523-4956-8d51-\ 2706d8251ae3"], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", "4"}], "-", RowBox[{"(", RowBox[{"a", "-", RowBox[{"a", "^", "2"}], "+", RowBox[{ RowBox[{"a", "^", "3"}], "/", "3"}]}], ")"}]}], "\[Equal]", "0"}], ",", "a", ",", "Reals"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.693839700606727*^9, 3.693839706596736*^9}, { 3.7258583766945887`*^9, 3.725858514740307*^9}, {3.7258589890580573`*^9, 3.7258590052316246`*^9}, {3.7894450781230726`*^9, 3.789445086798571*^9}, { 3.7894451238521996`*^9, 3.7894451303609877`*^9}, {3.789445227887929*^9, 3.7894452869782376`*^9}, {3.853031487036024*^9, 3.853031516290058*^9}}, CellLabel-> "In[447]:=",ExpressionUUID->"ae1496c6-223e-4cd7-a856-7158f128e4df"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938411704287853`*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.7574772683958*^9, 3.7574772707544985`*^9}, 3.7894405584275*^9},ExpressionUUID->"1df3d399-bb9e-4abc-b8cc-88e4f6913279"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, 3.694069910702713*^9, {3.694079748974413*^9, 3.694079837934538*^9}, { 3.725593395599037*^9, 3.7255934828895507`*^9}, 3.725593520033848*^9, { 3.757477295865029*^9, 3.7574773017672763`*^9}, {3.757477333536891*^9, 3.757477336868082*^9}, {3.7894453325389366`*^9, 3.7894453581147127`*^9}, { 3.8217731177026515`*^9, 3.8217731352407045`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"53b9da1b-dafe-4d8c-9e36-8eb4590079d5"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.725511564062546*^9, 3.7256253111624565`*^9, 3.7894405617112646`*^9},ExpressionUUID->"19153dfe-cc3a-488f-bfdd-\ 7fb01145d428"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", RowBox[{ RowBox[{"a", "[", "2", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, { 3.6940795899041905`*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.7256047697710576`*^9}, {3.725605100772751*^9, 3.725605136125828*^9}, { 3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.7574775404777417`*^9}, 3.757477907422058*^9, {3.7894453915348864`*^9, 3.7894453952536936`*^9}, {3.821773174203444*^9, 3.8217731831461883`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"a0882aa8-b693-48b7-94b8-597d19fab94c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938411704287853`*^9, 3.725511566328563*^9, 3.725625314225254*^9, 3.7894405642067876`*^9},ExpressionUUID->"2395f8ed-1cb3-43c1-ab7e-\ f0aabd07c9c1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, 3.694069910702713*^9, {3.694079748974413*^9, 3.694079837934538*^9}, { 3.725605220875243*^9, 3.7256052567071037`*^9}, {3.7574779149067807`*^9, 3.757477933470075*^9}, {3.7894454202635717`*^9, 3.789445453371543*^9}, { 3.8217732116204844`*^9, 3.821773228375927*^9}, {3.853031583718212*^9, 3.853031642120866*^9}}, CellLabel-> "In[378]:=",ExpressionUUID->"e5329101-4ab1-4329-bc62-ee00b36f45bd"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938411704287853`*^9, 3.694067326282754*^9, 3.725511573876234*^9, 3.7256253185069685`*^9, 3.789440568716662*^9},ExpressionUUID->"ef256175-480b-4bbb-9935-\ 0bf01fb00069"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"g", "\[Rule]", "10."}], ",", RowBox[{"\[Rho]", "->", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, { 3.6940673358027673`*^9, 3.694067439482912*^9}, 3.725605406295211*^9, { 3.725605452096917*^9, 3.725605453284552*^9}, {3.7574780822686853`*^9, 3.75747813974619*^9}, {3.7574782361050873`*^9, 3.7574782462962294`*^9}, 3.757478313116293*^9, 3.7574784080512347`*^9, {3.757478440370651*^9, 3.757478441201786*^9}, {3.7894455024136286`*^9, 3.789445505678503*^9}, { 3.8217732619969983`*^9, 3.821773264921981*^9}, {3.821773373722191*^9, 3.821773400868431*^9}, {3.853031781624614*^9, 3.853031811473053*^9}, { 3.8530318813596945`*^9, 3.853031945476489*^9}, 3.853031978817148*^9}, CellLabel-> "In[409]:=",ExpressionUUID->"d4eff91b-f8c1-44bf-b7cf-b96ef1ec008d"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (truss)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.6938262737929335`*^9}, 3.7256055657495413`*^9, 3.7256253208821793`*^9, 3.7894405715213823`*^9},ExpressionUUID->"e38351d8-227b-4907-bc59-\ 738eccd33221"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.6938265443454075`*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.6938268227563057`*^9, 3.6938268239953766`*^9}, {3.6940648454692802`*^9, 3.6940648624993043`*^9}, {3.694065539960253*^9, 3.694065548660265*^9}, 3.694067257222657*^9, {3.7256055732346945`*^9, 3.725605582626178*^9}, { 3.7256056129888973`*^9, 3.7256057518003635`*^9}, 3.725605788178935*^9, { 3.75747883408612*^9, 3.7574788831159344`*^9}, {3.7894455582931757`*^9, 3.7894455611163583`*^9}, {3.8217734334717894`*^9, 3.821773440018031*^9}, { 3.853032006421949*^9, 3.853032013225816*^9}, {3.853032099465707*^9, 3.8530321012045107`*^9}}, CellLabel-> "In[421]:=",ExpressionUUID->"d2260491-75a4-4cf0-a648-3b8481045b64"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, {3.560232633043067*^9, 3.5602326460718117`*^9}, { 3.6231155453472214`*^9, 3.6231155575109177`*^9}, {3.6939914338993196`*^9, 3.6939914462693367`*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, 3.725625327336037*^9, 3.757429808988515*^9, { 3.75747944029515*^9, 3.757479442795718*^9}, 3.789440574620819*^9},ExpressionUUID->"37a02762-aceb-4114-8a77-\ 992d1a1fcd98"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.6939915637295017`*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.6939917326897383`*^9, 3.6939917519997654`*^9}, {3.6939922575704727`*^9, 3.6939922802405043`*^9}, {3.693992547910879*^9, 3.6939925531808867`*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.6940007615401044`*^9, 3.6940008877102814`*^9}, { 3.6940647063690863`*^9, 3.6940647123490944`*^9}, 3.694064814159237*^9, { 3.757479006718543*^9, 3.7574790329387393`*^9}, {3.757479092367199*^9, 3.7574791238375545`*^9}, {3.7894455966038275`*^9, 3.7894455998939514`*^9}, {3.8217734770561576`*^9, 3.821773478385603*^9}, { 3.8530321321431284`*^9, 3.8530321395013227`*^9}}, CellLabel-> "In[427]:=",ExpressionUUID->"3514b2a0-6ba9-4ce8-8fef-1b4e804f42ab"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (bar-slab structure)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, {3.560232633043067*^9, 3.5602326460718117`*^9}, { 3.6231155453472214`*^9, 3.6231155575109177`*^9}, {3.6939914338993196`*^9, 3.6939914462693367`*^9}, 3.694000913010317*^9, 3.7256065797642317`*^9, { 3.7256068906873064`*^9, 3.7256068999228387`*^9}, {3.7256070257017245`*^9, 3.725607038640582*^9}, 3.757429551201259*^9, 3.789440578103948*^9},ExpressionUUID->"f76e78ac-146b-412e-887a-\ c128fb38b939"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.6939915637295017`*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.6939917326897383`*^9, 3.6939917519997654`*^9}, {3.6939922575704727`*^9, 3.6939922802405043`*^9}, {3.693992547910879*^9, 3.6939925531808867`*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.6940007615401044`*^9, 3.6940008877102814`*^9}, { 3.6940009203803267`*^9, 3.694000948260366*^9}, {3.6940010109604535`*^9, 3.6940011008205795`*^9}, {3.694064269308474*^9, 3.694064314118537*^9}, 3.6940644008986583`*^9, {3.694064645619001*^9, 3.6940646749190416`*^9}, { 3.7256066079390864`*^9, 3.725606648115192*^9}, {3.75747929130151*^9, 3.757479338941169*^9}, {3.7894456232434034`*^9, 3.7894456264651394`*^9}, { 3.821773508757564*^9, 3.8217735199487343`*^9}, {3.853032185344742*^9, 3.8530321964386606`*^9}}, CellLabel-> "In[433]:=",ExpressionUUID->"955f41c3-4dd7-49e8-b488-2b896ff3cfab"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.6938262737929335`*^9}, {3.6940649374494095`*^9, 3.6940649713794565`*^9}, {3.725607064440168*^9, 3.725607133619341*^9}, 3.725625333930484*^9, {3.757428024654767*^9, 3.7574280306883173`*^9}, { 3.757479448872733*^9, 3.7574794509871073`*^9}, 3.7894405822954435`*^9},ExpressionUUID->"7a9576ca-d964-4292-8d40-\ a80fe0dd3bc7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100."}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"g", "\[Rule]", "10"}], ",", RowBox[{"\[Rho]", " ", "\[Rule]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "t"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], "/", "2"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.6938265443454075`*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.6938268227563057`*^9, 3.6938268239953766`*^9}, {3.6940648454692802`*^9, 3.6940648624993043`*^9}, 3.6940649754294624`*^9, {3.6940653595200005`*^9, 3.6940654171000805`*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.6940670456323605`*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, 3.72560709045855*^9, 3.7256071789678783`*^9, { 3.7256072733243494`*^9, 3.7256072756058626`*^9}, {3.725608309756126*^9, 3.7256083116471977`*^9}, {3.725771734466016*^9, 3.7257721969195395`*^9}, { 3.7257722328380303`*^9, 3.7257722332153444`*^9}, {3.725772288027615*^9, 3.725772479650519*^9}, {3.725772530529035*^9, 3.72577257412286*^9}, { 3.7257914159401326`*^9, 3.725791520523611*^9}, 3.7257916969801884`*^9, { 3.725791734069311*^9, 3.7257917344076314`*^9}, {3.7257923081234202`*^9, 3.7257923707246*^9}, {3.7258595954969983`*^9, 3.7258596647855377`*^9}, { 3.7258915046964464`*^9, 3.725891709651156*^9}, {3.725892062990927*^9, 3.7258920633470783`*^9}, {3.725892218379181*^9, 3.7258922203544364`*^9}, { 3.7258922592064257`*^9, 3.7258922593340416`*^9}, 3.725892329129791*^9, { 3.7258924167535458`*^9, 3.7258924714289207`*^9}, {3.7258925212512045`*^9, 3.725892591360572*^9}, {3.725941541310729*^9, 3.7259415780623465`*^9}, { 3.757428049418125*^9, 3.757428054913843*^9}, {3.757428087909403*^9, 3.7574280934841433`*^9}, {3.7574284280978804`*^9, 3.7574284568388243`*^9}, {3.757479457969281*^9, 3.757479477327525*^9}, { 3.789445656969535*^9, 3.7894456641009045`*^9}, {3.789527751387431*^9, 3.7895277970802803`*^9}, {3.8217735920327053`*^9, 3.8217736608186865`*^9}, {3.8530322302223673`*^9, 3.8530322367987704`*^9}}, CellLabel-> "In[439]:=",ExpressionUUID->"636466ce-0571-4e4e-8ae7-72c4dacc64e9"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.6938262737929335`*^9}, {3.6940649374494095`*^9, 3.6940649713794565`*^9}, {3.6940809835093436`*^9, 3.6940809892393517`*^9}, {3.694083731665191*^9, 3.6940837325151925`*^9}, { 3.725591075758112*^9, 3.7255910824931173`*^9}, 3.7574177204968224`*^9, { 3.7574795432836018`*^9, 3.7574795459317837`*^9}, 3.789440584620143*^9},ExpressionUUID->"bb8faa84-ea29-47b4-8c92-\ 89ac32485c33"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.6938265443454075`*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.6938268227563057`*^9, 3.6938268239953766`*^9}, {3.6940648454692802`*^9, 3.6940648624993043`*^9}, 3.6940649754294624`*^9, {3.6940653595200005`*^9, 3.6940654171000805`*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.6940670456323605`*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.6940810826494827`*^9}, { 3.6940811130095253`*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.6940828325929327`*^9, 3.6940828345429354`*^9}, {3.7255910853840923`*^9, 3.7255911544538746`*^9}, {3.7255918177576747`*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.757416801791027*^9, 3.757416821306521*^9}, 3.7574795541241035`*^9, {3.757479595088483*^9, 3.757479596023892*^9}, {3.757479635696697*^9, 3.757479653341745*^9}, { 3.7894456941573915`*^9, 3.789445701224625*^9}, {3.8217736706623697`*^9, 3.8217736940708227`*^9}, {3.8217737317524047`*^9, 3.821773734571*^9}, { 3.821780323407436*^9, 3.8217803662117853`*^9}, {3.853032278923683*^9, 3.853032287932805*^9}}, CellLabel-> "In[445]:=",ExpressionUUID->"3206ee7f-6e9a-4e8b-8aba-6e66db06a5ff"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938411704287853`*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.821775715744479*^9, 3.8217757190247297`*^9}, {3.881206136600945*^9, 3.8812061391426983`*^9}},ExpressionUUID->"1fe172b2-016c-4aba-8cfd-\ 2ebfbed2dc90"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, 3.694069910702713*^9, {3.694079748974413*^9, 3.694079837934538*^9}, { 3.725593395599037*^9, 3.7255934828895507`*^9}, 3.725593520033848*^9, { 3.7574798317865477`*^9, 3.757479924484078*^9}, {3.7574799757703543`*^9, 3.7574799982811112`*^9}, {3.757480089314517*^9, 3.7574801025691175`*^9}, { 3.7574806066027913`*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, {3.7894568754764276`*^9, 3.7894569725694103`*^9}, { 3.7895279423749056`*^9, 3.789527942729209*^9}, {3.789536132513161*^9, 3.7895361346615615`*^9}, {3.7895363990824757`*^9, 3.789536421795721*^9}, { 3.7895364549154024`*^9, 3.789536455571832*^9}, {3.8217758025127687`*^9, 3.8217758072277403`*^9}, 3.8217759265158787`*^9}, CellLabel-> "In[422]:=",ExpressionUUID->"8ea6e0c5-2a58-4985-9c76-614e468605ea"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.725511564062546*^9, 3.7256253111624565`*^9, { 3.757484623695022*^9, 3.757484629267005*^9}, {3.8812061409764767`*^9, 3.8812061432675786`*^9}},ExpressionUUID->"e5ce76bd-015b-40a7-adb1-\ 5e79364d25b8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, { 3.6940795899041905`*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.7256047697710576`*^9}, {3.725605100772751*^9, 3.725605136125828*^9}, { 3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.7574775404777417`*^9}, 3.757477907422058*^9, {3.7574846406363564`*^9, 3.7574846661830144`*^9}, 3.7574847007165318`*^9, {3.757484732772525*^9, 3.757484789221012*^9}, 3.7574848314657393`*^9, {3.789537267060418*^9, 3.7895372785150332`*^9}, {3.853033225058108*^9, 3.8530332270173187`*^9}, 3.8846489327250347`*^9}, CellLabel-> "In[430]:=",ExpressionUUID->"2d5cce61-0f8a-4c71-b656-6f779dd97793"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938411704287853`*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.8812061455448494`*^9, 3.8812061500156794`*^9}},ExpressionUUID->"eef69bfa-7bb5-46f2-8db8-\ 9924804686c0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938409020884094`*^9, 3.693840936258457*^9}, {3.69384100242855*^9, 3.6938410079285574`*^9}, 3.694069910702713*^9, {3.694079748974413*^9, 3.694079837934538*^9}, { 3.725593395599037*^9, 3.7255934828895507`*^9}, 3.725593520033848*^9, { 3.7574798317865477`*^9, 3.757479924484078*^9}, {3.7574799757703543`*^9, 3.7574799982811112`*^9}, {3.757480089314517*^9, 3.7574801025691175`*^9}, { 3.7574806066027913`*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, {3.7894568754764276`*^9, 3.7894569725694103`*^9}, { 3.7895279423749056`*^9, 3.789527942729209*^9}, {3.821774005946034*^9, 3.8217740074829407`*^9}, {3.8217740392795753`*^9, 3.8217740417489767`*^9}, {3.821774080885614*^9, 3.821774082008611*^9}, { 3.8217743771908073`*^9, 3.82177441796832*^9}, {3.821775449472017*^9, 3.821775450119286*^9}, 3.8530323229130535`*^9, {3.8530324590255346`*^9, 3.853032460771165*^9}}, CellLabel-> "In[434]:=",ExpressionUUID->"50140b56-1c9b-4e58-9937-91de5988d963"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar structure)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.6938199838982944`*^9}, 3.6938398962370014`*^9, 3.7255115616720257`*^9, 3.725625308724648*^9, 3.757477396494967*^9, {3.757481085296235*^9, 3.7574810942571373`*^9}, {3.8812061522403245`*^9, 3.8812061563225017`*^9}},ExpressionUUID->"8d01b6d5-fae7-4c58-afec-\ 7fce6773a728"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "100."}]}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.4957898416870003`*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000053997`*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.5602185542686014`*^9}, {3.5602185915994673`*^9, 3.5602185949222727`*^9}, {3.560218692750045*^9, 3.5602187145276833`*^9}, { 3.5602187506417465`*^9, 3.5602187818886013`*^9}, {3.5602188606999397`*^9, 3.560218873320362*^9}, {3.693819990129651*^9, 3.6938200061045647`*^9}, { 3.6938200670680513`*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.6938201991256046`*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.6938204160959964`*^9}, {3.693820485276953*^9, 3.6938204875870857`*^9}, { 3.6938207040664673`*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938399692971034`*^9, 3.6938400282071857`*^9}, {3.6938400695572433`*^9, 3.693840082837262*^9}, { 3.693840140197343*^9, 3.6938401716273866`*^9}, {3.6938402404574833`*^9, 3.693840254527503*^9}, {3.6940795213440943`*^9, 3.6940795257441006`*^9}, { 3.7256045368402443`*^9, 3.725604579344708*^9}, {3.757481102253356*^9, 3.7574811642823534`*^9}, {3.757481194330432*^9, 3.75748129838559*^9}, { 3.757481353914442*^9, 3.7574814199329386`*^9}, {3.7574819467375937`*^9, 3.7574819907312126`*^9}, 3.7574820869091225`*^9, {3.7574821221663103`*^9, 3.7574821223027587`*^9}, {3.8217745890548897`*^9, 3.821774665005913*^9}, { 3.821775402089509*^9, 3.821775422114235*^9}, {3.853033107381581*^9, 3.853033141062274*^9}}, CellLabel-> "In[439]:=",ExpressionUUID->"154ed40d-99a8-481b-a618-2619f6029cdc"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.5602188818535767`*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.6938262737929335`*^9}, {3.6940649374494095`*^9, 3.6940649713794565`*^9}, {3.6940809835093436`*^9, 3.6940809892393517`*^9}, {3.694083731665191*^9, 3.6940837325151925`*^9}, { 3.725591075758112*^9, 3.7255910824931173`*^9}, 3.725595925542554*^9, { 3.757482185630768*^9, 3.7574821879362445`*^9}, {3.8812061586919603`*^9, 3.8812061627877555`*^9}},ExpressionUUID->"22a9e949-b97e-4d43-acf5-\ 7804f3da557a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725687`*^9, 3.5602210595082016`*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.6938265443454075`*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.6938268227563057`*^9, 3.6938268239953766`*^9}, {3.6940648454692802`*^9, 3.6940648624993043`*^9}, 3.6940649754294624`*^9, {3.6940653595200005`*^9, 3.6940654171000805`*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.6940670456323605`*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.6940810826494827`*^9}, { 3.6940811130095253`*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.6940828325929327`*^9, 3.6940828345429354`*^9}, {3.7255910853840923`*^9, 3.7255911544538746`*^9}, {3.7255918177576747`*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.7255959457945385`*^9, 3.725596052648704*^9}, 3.7255963100979967`*^9, 3.7255977652254705`*^9, { 3.7256002235096517`*^9, 3.725600225384837*^9}, 3.725601577369067*^9, { 3.7256024833399587`*^9, 3.725602485246642*^9}, {3.72560256753648*^9, 3.7256025692711873`*^9}, {3.7259408859758453`*^9, 3.725940887709132*^9}, { 3.7259487058805704`*^9, 3.7259487077258434`*^9}, {3.725949106810832*^9, 3.725949108652855*^9}, {3.75748219356618*^9, 3.75748221683813*^9}, { 3.7574822889872437`*^9, 3.757482355027481*^9}, 3.7574823860843687`*^9, { 3.7574829602375355`*^9, 3.7574829610241528`*^9}, 3.7574830010830545`*^9, { 3.789528195024557*^9, 3.7895281981964283`*^9}, {3.8217755133852262`*^9, 3.821775546830598*^9}, {3.8217756136000214`*^9, 3.821775685087927*^9}}, CellLabel-> "In[446]:=",ExpressionUUID->"aa785a46-512f-4ad5-af3e-a4b4729ac940"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["THERMO-MECHANICAL ANALYSIS (week 7)", "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.4806711082098*^9, 3.4806711221874*^9}, 3.4932793244166*^9, {3.4932794430078*^9, 3.4932794467362003`*^9}, 3.4933062560684*^9, 3.4933063832108*^9, { 3.4993508417324*^9, 3.4993508506556*^9}, {3.556624315771208*^9, 3.556624319733615*^9}, {3.6258072267653327`*^9, 3.625807232594666*^9}, { 3.6941709370629888`*^9, 3.694170967183031*^9}, 3.7530712518136296`*^9, 3.7866746488145547`*^9},ExpressionUUID->"d053b87e-0a36-41f5-9a79-\ 0963f6a838d1"], Cell[CellGroupData[{ Cell["Lecture example 6.1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, 3.7262286037412453`*^9, 3.7901332035999823`*^9, 3.790133334060174*^9, 3.8222827885111046`*^9},ExpressionUUID->"8dd10ecd-9420-47b9-b949-\ c6457850e7e5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "3"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"L", "/", "3"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, 3.6943211611572475`*^9, {3.726228620805838*^9, 3.7262287578043633`*^9}, {3.7262287989808445`*^9, 3.7262288053721733`*^9}, {3.726307977457318*^9, 3.726308020131757*^9}, { 3.7264017436165338`*^9, 3.72640178352305*^9}, {3.7264019537489176`*^9, 3.726401957040406*^9}, {3.7264022142676086`*^9, 3.726402218486952*^9}, 3.7264023700160475`*^9, 3.7264024806731453`*^9, 3.726402544409398*^9, { 3.7576854743135223`*^9, 3.757685482154978*^9}, 3.757685551287126*^9, { 3.8223700571434655`*^9, 3.822370084352723*^9}, 3.8223704271627655`*^9, { 3.822370686877767*^9, 3.822370688321907*^9}, {3.853210161799122*^9, 3.8532101666054835`*^9}, {3.8532101973125954`*^9, 3.8532102139581337`*^9}, {3.8532102444456997`*^9, 3.853210267026037*^9}, { 3.8532103315393543`*^9, 3.85321047360437*^9}, {3.8539220670092926`*^9, 3.853922093943622*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"e06a7094-1b09-44d1-af8a-00a6623eca53"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.726228956887848*^9, 3.7262289611229362`*^9}, 3.7901332092818146`*^9, 3.79013333701427*^9, 3.822282790665161*^9},ExpressionUUID->"a318a62d-142b-40ba-8ad1-\ 05d968410a9b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, 3.6943211611572475`*^9, {3.757685613033372*^9, 3.7576856239578505`*^9}, {3.8223707404873247`*^9, 3.8223707450521207`*^9}, {3.8532105085811586`*^9, 3.853210517669177*^9}}, CellLabel-> "In[393]:=",ExpressionUUID->"6c309b4b-6bf3-4fa2-b01d-c51380819ae2"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"model\"\>", HoldForm], TagBox["\<\"properties\"\>", HoldForm], TagBox["\<\"geometry\"\>", HoldForm]}, { TagBox["1", HoldForm], "BAR", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}, { TagBox["2", HoldForm], "BAR", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "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}, {"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["\<\"\[CurlyTheta]\"\>", HoldForm]}, { TagBox["1", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[CurlyTheta]0"}, { TagBox["2", HoldForm], RowBox[{"{", RowBox[{ FractionBox["L", "2"], ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}, { TagBox["3", HoldForm], RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"2", " ", "\[CurlyTheta]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.8539217258370943`*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"b9901ac5-b6f8-4071-9b3a-a47704a20486"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Delta]W = -\"\>", "\[InvisibleSpace]", SuperscriptBox[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"\[Delta]uX", "[", "2", "]"}]}, { RowBox[{"\[Delta]\[CurlyTheta]", "[", "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[{"4", " ", "A", " ", "\[CapitalEpsilon]"}], "L"], "0"}, {"0", FractionBox[ RowBox[{"4", " ", "A", " ", "k"}], "L"]} }, 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[{"uX", "[", "2", "]"}]}, { RowBox[{"\[CurlyTheta]", "[", "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[{ { RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "A", " ", "\[Alpha]", " ", "\[CapitalEpsilon]", " ", "\[CurlyTheta]0"}]}, { FractionBox[ RowBox[{"6", " ", "A", " ", "k", " ", "\[CurlyTheta]0"}], "L"]} }, 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]uX[2], $CellContext`\[Delta]\[CurlyTheta][2]}]^$CellContext`T, "(", MatrixForm[{{(( 4 $CellContext`A)/$CellContext`L) $CellContext`\[CapitalEpsilon], 0}, {0, (4 $CellContext`A) ($CellContext`k/$CellContext`L)}}], "", MatrixForm[{ $CellContext`uX[2], $CellContext`\[CurlyTheta][2]}], "-", MatrixForm[{((( Rational[-1, 2] $CellContext`A) $CellContext`\[Alpha]) $CellContext`\ \[CapitalEpsilon]) $CellContext`\[CurlyTheta]0, ((( 6 $CellContext`A) $CellContext`k)/$CellContext`L) $CellContext`\ \[CurlyTheta]0}], ")"], Editable->False]], "Print", CellChangeTimes->{3.853921725898405*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"f281d065-cd57-45ab-be5c-b3b3c7fd93b1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", "L", " ", "\[Alpha]", " ", "\[CurlyTheta]0"}]}], ",", RowBox[{ RowBox[{"\[CurlyTheta]", "[", "2", "]"}], "\[Rule]", FractionBox[ RowBox[{"3", " ", "\[CurlyTheta]0"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.853921726371723*^9}, CellLabel-> "Out[397]=",ExpressionUUID->"336c0525-f82f-46ad-81dc-0a5fcbbea962"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.3 (solid)", "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.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.6926165783510237`*^9, {3.694086478127248*^9, 3.6940864796572495`*^9}, {3.694527958552099*^9, 3.6945279596421003`*^9}, 3.726229008596427*^9, 3.7901333397983*^9, 3.8222827963204393`*^9},ExpressionUUID->"b7eb7caf-54c8-490c-a3f5-\ 38ba31457090"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.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.6920258039789453`*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.6920259277091184`*^9, 3.6920259839391975`*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.6920264987399178`*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.6925023736471014`*^9}, { 3.6925025169803*^9, 3.6925025655720787`*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.6926953173258657`*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.6927680130851665`*^9}, { 3.6927681266753254`*^9, 3.6927681303353305`*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.6927701046680946`*^9}, {3.6928578154980726`*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.6940865394073334`*^9}, {3.6940865889274025`*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.6940867569976377`*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.6945279734021196`*^9, 3.6945280260321937`*^9}, {3.6945785500664263`*^9, 3.6945785683464518`*^9}, {3.694578605956504*^9, 3.6945786374265485`*^9}, 3.694578861606862*^9, {3.726229172285854*^9, 3.7262291729421663`*^9}, { 3.726370894343026*^9, 3.7263709151890526`*^9}, 3.726370949425577*^9, { 3.757746365026296*^9, 3.757746365750707*^9}, {3.822370788479022*^9, 3.8223707909713583`*^9}, {3.853211959109535*^9, 3.8532119769237614`*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"77b6eced-b6c9-4bc1-945f-a338808adf1d"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.4 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, 3.5625704065950556`*^9, 3.562572422219599*^9, {3.694171035043126*^9, 3.6941710410831347`*^9}, 3.69435160335544*^9, {3.6943533950379486`*^9, 3.6943533990579543`*^9}, 3.6945278571619573`*^9, 3.7262292354172134`*^9, 3.7901333429549046`*^9, 3.8222827981893544`*^9},ExpressionUUID->"9d62d4d8-f46d-4240-bb4c-\ 4209e910ae4c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.6943516119654527`*^9, 3.694351647105502*^9}, {3.694351682395551*^9, 3.69435172440561*^9}, {3.6943519533159304`*^9, 3.6943519616459417`*^9}, { 3.69435227463638*^9, 3.6943522845163937`*^9}, {3.694527885081996*^9, 3.6945278869719987`*^9}, {3.7263672378971424`*^9, 3.726367307373107*^9}, { 3.757746592466322*^9, 3.7577465938551464`*^9}, {3.822370824852784*^9, 3.8223708528069525`*^9}, {3.8532122889340525`*^9, 3.853212298143783*^9}}, CellLabel-> "In[403]:=",ExpressionUUID->"7910f265-ddf5-450c-bd50-3701a1610cd2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.5 (plate)", "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.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.6920071424377947`*^9}, {3.7238012915092707`*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.7249854098192596`*^9}, {3.725025728192973*^9, 3.7250257332263174`*^9}, {3.7262058835652957`*^9, 3.7262058850498314`*^9}, 3.7262293274428325`*^9, {3.7577467035580034`*^9, 3.7577467044452553`*^9}, 3.790133345955064*^9, 3.822282801134905*^9},ExpressionUUID->"f71683d9-a582-4390-9516-\ 0b8711bf6627"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[CapitalDelta]\[CurlyTheta]", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"]}]}]], "Input", CellChangeTimes->{ 3.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.686291740699917*^9, 3.686291791099987*^9}, { 3.6862918385400534`*^9, 3.68629185767008*^9}, 3.6920072022978787`*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.7249859256363735`*^9, 3.724985954061252*^9}, {3.7249860773711185`*^9, 3.7249860873564367`*^9}, {3.72498667993143*^9, 3.7249867213577213`*^9}, { 3.724986817961895*^9, 3.7249868212275767`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.7250283445255947`*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.7262063337281322`*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.7262065193258057`*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, 3.7577467115613346`*^9, { 3.757746928634151*^9, 3.757746956452608*^9}, {3.790562134068997*^9, 3.790562144580222*^9}, {3.7905628426912985`*^9, 3.790562853795657*^9}, { 3.8222904142238913`*^9, 3.8222904484586935`*^9}, {3.8222905396678267`*^9, 3.822290621977132*^9}, {3.8222908062333317`*^9, 3.8222909103840895`*^9}, { 3.82229104434663*^9, 3.822291057762763*^9}, 3.822291090107176*^9, 3.822291237551684*^9, {3.8222913237630434`*^9, 3.822291351423003*^9}, { 3.8222913877665834`*^9, 3.822291413365552*^9}, {3.85321265478815*^9, 3.8532127425832305`*^9}}, CellLabel-> "In[408]:=",ExpressionUUID->"95469052-5cdd-46a2-9e64-d56c88af16d3"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.7262215852006197`*^9, 3.7901335709930058`*^9, {3.790133686084855*^9, 3.790133688198171*^9}},ExpressionUUID->"220cc944-580e-4a01-9d36-\ ec77c65de10b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "1", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6945792415273943`*^9, 3.6945793147174964`*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.7264646047356343`*^9, 3.726464609439276*^9}, {3.726464678493162*^9, 3.726464682868911*^9}, {3.758007980609372*^9, 3.7580080180068483`*^9}, 3.7580080766027403`*^9, 3.8223709049177957`*^9, {3.8532127808477497`*^9, 3.853212811144683*^9}}, CellLabel-> "In[409]:=",ExpressionUUID->"0f3c5711-6ae7-46b6-aff9-097354e707ef"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.6945793783775854`*^9, 3.7262215921075077`*^9, 3.7901335744252267`*^9, 3.790133710048728*^9},ExpressionUUID->"c7dc1f4e-6d0a-4d11-ab48-\ 43874edb5176"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6945793934976068`*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.7262244135330825`*^9, 3.7262244245498486`*^9}, { 3.7264645323529987`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.7264647552046957`*^9}, { 3.758008181593988*^9, 3.7580081866865425`*^9}, {3.758008239533526*^9, 3.7580083000659113`*^9}, {3.822370934113742*^9, 3.8223709384032736`*^9}, { 3.8532140624120817`*^9, 3.8532140706327295`*^9}}, CellLabel-> "In[413]:=",ExpressionUUID->"4f69ea43-df16-4d0e-b074-8b96b66f5d7e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.6943246286761017`*^9, 3.6943246319861064`*^9}, 3.6944060216654315`*^9, 3.7262215999677*^9, 3.7262246878276234`*^9, 3.758008381328991*^9, {3.758009251812319*^9, 3.7580092645611873`*^9}, 3.7901335767519703`*^9, 3.790133712716427*^9},ExpressionUUID->"1869a470-2be2-4104-8e3d-\ a3f10930847b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", RowBox[{"uZ", "[", "2", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6943246384761157`*^9, 3.6943248045763483`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.6945795367478075`*^9, 3.694579566187848*^9}, {3.726402666829811*^9, 3.726402670383405*^9}, { 3.726465914917368*^9, 3.7264659162925005`*^9}, {3.7580092113374405`*^9, 3.7580092179296255`*^9}, {3.8223709655616674`*^9, 3.8223709683980846`*^9}, {3.8532141617484627`*^9, 3.853214183919198*^9}}, CellLabel-> "In[418]:=",ExpressionUUID->"cef7e12b-f6f7-4f23-81bb-4901aab0f6a1"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.6943246286761017`*^9, 3.6943246319861064`*^9}, 3.694327323881875*^9, 3.694406024055435*^9, 3.7262216047647996`*^9, 3.7262246917341337`*^9, 3.7580092950074606`*^9, 3.790133580363652*^9, 3.7901337156039553`*^9},ExpressionUUID->"13f6a8aa-bc6e-49de-af64-\ ebdb9f39fba3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6943246384761157`*^9, 3.6943248045763483`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.69432737006194*^9, 3.6943274488520503`*^9}, 3.694419382534791*^9, {3.7580103793082*^9, 3.758010389133934*^9}, {3.82237099593052*^9, 3.822370998714036*^9}, { 3.8532142179061117`*^9, 3.8532142241206512`*^9}}, CellLabel-> "In[423]:=",ExpressionUUID->"6f94c4d3-8f19-4c88-aff3-36a209f3e3ed"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, {3.6944312298724174`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, 3.7901335828870106`*^9, 3.790133718434207*^9},ExpressionUUID->"87dce7b3-0b9a-460d-8689-\ 094a8d00f48b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.6944312664045067`*^9}, {3.6944314730323253`*^9, 3.694431491689392*^9}, {3.6944317924565706`*^9, 3.6944318024421415`*^9}, 3.694431834732989*^9, {3.7580244524019127`*^9, 3.7580244589711*^9}, { 3.822371024737362*^9, 3.8223710408253517`*^9}, 3.8532142715195665`*^9}, CellLabel-> "In[428]:=",ExpressionUUID->"42ee8c06-ae74-416f-bae9-df33c6534d4a"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, 3.726224696312886*^9, 3.7262249172111826`*^9, {3.7580244975473228`*^9, 3.7580245477488456`*^9}, 3.790133585140024*^9, 3.7901337229271965`*^9},ExpressionUUID->"164029f8-57b5-423f-a482-\ 57906c4cd5ae"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262248580015087`*^9, 3.726224868877959*^9}, {3.758024561586712*^9, 3.7580245682001753`*^9}, {3.82237107153525*^9, 3.8223710739547815`*^9}, 3.853214306941168*^9}, CellLabel-> "In[433]:=",ExpressionUUID->"28191130-a600-4bcb-a7c2-3ec4355bbe62"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.7262247019228444`*^9, {3.7262249870466585`*^9, 3.7262249914062004`*^9}, 3.7580246923686523`*^9, 3.7901335915540752`*^9, 3.7901337251492295`*^9},ExpressionUUID->"8d13a2ff-bf1d-4122-abbe-\ 3e4d8a7ffba3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.6944149755846214`*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.6944160613381414`*^9, 3.6944160921781845`*^9}, {3.6944167992291746`*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.7262250279256763`*^9, 3.7262250419115257`*^9}, {3.7580246498391137`*^9, 3.758024663579355*^9}, { 3.8223710961344852`*^9, 3.822371115052908*^9}, {3.853214342204943*^9, 3.8532143622068267`*^9}}, CellLabel-> "In[438]:=",ExpressionUUID->"8f0de954-9da5-4950-a27b-143de6c236ba"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, {3.726213788988196*^9, 3.726213794488776*^9}, {3.7580247319153395`*^9, 3.758024734229988*^9}, 3.790133593902794*^9, 3.7901337270427856`*^9},ExpressionUUID->"40264169-861c-4300-bbd5-\ 711d2c27a00a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "4", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262140346078444`*^9, 3.7262140541567793`*^9}, {3.7262141086781483`*^9, 3.726214166277943*^9}, {3.726214525816331*^9, 3.7262145263633146`*^9}, { 3.7262145697272577`*^9, 3.726214575524747*^9}, {3.726226638345352*^9, 3.726226638689148*^9}, {3.758024742273337*^9, 3.7580247486205378`*^9}, { 3.82237114956907*^9, 3.8223711637889395`*^9}, 3.8532143956016684`*^9}, CellLabel-> "In[443]:=",ExpressionUUID->"1e278e26-d081-4700-91db-6b1b4a27b5b0"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.7262215852006197`*^9, { 3.726226718228784*^9, 3.726226721713334*^9}, {3.7580248169988203`*^9, 3.758024819056037*^9}, 3.7901335961384783`*^9, 3.790133729247693*^9},ExpressionUUID->"7b465b17-56a5-41e3-bee8-\ 47b82e9f5652"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", " ", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6945792415273943`*^9, 3.6945793147174964`*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.7262267310582952`*^9, 3.7262268937472987`*^9}, {3.758024835013898*^9, 3.758024846532082*^9}, {3.822371189664237*^9, 3.822371193232697*^9}, { 3.8532144304204135`*^9, 3.853214441853069*^9}}, CellLabel-> "In[448]:=",ExpressionUUID->"e0a0516f-78e1-40b3-aa9e-ce6a0cfbc34f"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (plate)", "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.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.6920071424377947`*^9}, {3.7238012915092707`*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.7249854098192596`*^9}, {3.725025728192973*^9, 3.7250257332263174`*^9}, {3.7262058835652957`*^9, 3.7262058850498314`*^9}, {3.7262067305356245`*^9, 3.726206738333324*^9}, { 3.7577470295179353`*^9, 3.7577470300668592`*^9}, {3.7580248225537596`*^9, 3.7580248247305193`*^9}, 3.790133598222252*^9, 3.7901337315379934`*^9},ExpressionUUID->"f60d70b7-b891-4a09-848d-\ b41a98cf1704"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalOmega]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.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.686291740699917*^9, 3.686291791099987*^9}, { 3.6862918385400534`*^9, 3.68629185767008*^9}, 3.6920072022978787`*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.7249859256363735`*^9, 3.724985954061252*^9}, {3.7249860773711185`*^9, 3.7249860873564367`*^9}, {3.72498667993143*^9, 3.7249867213577213`*^9}, { 3.724986817961895*^9, 3.7249868212275767`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.7250283445255947`*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.7262063337281322`*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.7262065193258057`*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, {3.726206752741091*^9, 3.7262067959487677`*^9}, {3.7580248983260403`*^9, 3.7580249229575377`*^9}, {3.790563741361431*^9, 3.7905637452182727`*^9}, { 3.8222916789160852`*^9, 3.8222917385257483`*^9}, {3.8532160512328773`*^9, 3.853216125366497*^9}}, CellLabel-> "In[453]:=",ExpressionUUID->"395f2166-d939-4f94-9f82-a16f91a21417"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.6945793783775854`*^9, 3.7262215921075077`*^9, 3.7579961343745155`*^9, {3.7580340701852493`*^9, 3.758034071905482*^9}, {3.881206283342308*^9, 3.881206285984279*^9}},ExpressionUUID->"1cca6a62-55e8-4da3-a096-\ 5c4f1a7f0b91"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6945793934976068`*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.7262244135330825`*^9, 3.7262244245498486`*^9}, { 3.7264645323529987`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.7264647552046957`*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.758034080038931*^9, 3.758034162389186*^9}, {3.790135407955392*^9, 3.7901354577592163`*^9}, { 3.822371577744916*^9, 3.8223715800846605`*^9}, {3.8532166227812743`*^9, 3.8532166327701883`*^9}, {3.853921208762747*^9, 3.853921300214926*^9}, { 3.853921347174339*^9, 3.8539213777174563`*^9}, {3.8539215174836116`*^9, 3.853921536931364*^9}, {3.8812062260613947`*^9, 3.881206227311369*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"1b684c1d-e61b-41c3-8064-5c33890b81df"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, {3.6944312298724174`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, {3.758034254108346*^9, 3.7580342597702637`*^9}, { 3.881206287836726*^9, 3.881206289986452*^9}},ExpressionUUID->"1503e7a8-d973-407b-ab26-\ 509dac6618f2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.6944312664045067`*^9}, {3.6944314730323253`*^9, 3.694431491689392*^9}, {3.6944317924565706`*^9, 3.6944318024421415`*^9}, 3.694431834732989*^9, {3.7580244524019127`*^9, 3.7580244589711*^9}, { 3.758034298112458*^9, 3.758034338813531*^9}, 3.758034384209874*^9, { 3.758034554681752*^9, 3.758034556090353*^9}, {3.7901358214025326`*^9, 3.7901358306030035`*^9}, {3.8223716085615296`*^9, 3.8223716161801615`*^9}, {3.8532166774932394`*^9, 3.8532166827890825`*^9}}, CellLabel-> "In[412]:=",ExpressionUUID->"5117deaf-5faa-455d-84d2-74b53bc82dc6"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.6945793783775854`*^9, 3.7262215921075077`*^9, 3.7579961343745155`*^9, {3.881206292447297*^9, 3.8812062974229803`*^9}},ExpressionUUID->"91f2e598-11a5-488c-ac09-\ cc5ef42a7fe2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6945793934976068`*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.7262244135330825`*^9, 3.7262244245498486`*^9}, { 3.7264645323529987`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.7264647552046957`*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.7901290539312696`*^9, 3.7901290792093644`*^9}, 3.7901291237424383`*^9, 3.7901341599938126`*^9, { 3.8223713485518274`*^9, 3.8223713514371142`*^9}, {3.8532161596280184`*^9, 3.8532161716866455`*^9}}, CellLabel-> "In[416]:=",ExpressionUUID->"e690524b-14ca-42cc-822e-7caa2d2bca24"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694406019025428*^9, { 3.6944239890468645`*^9, 3.6944239974668765`*^9}, {3.7262246384942493`*^9, 3.726224644510517*^9}, 3.7579982269300756`*^9, {3.8812063028666697`*^9, 3.881206308777199*^9}},ExpressionUUID->"02572de7-8ad7-4a0a-bbaa-\ d859716057a9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"4", "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.6942650178531475`*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.6942654753437877`*^9, {3.694265521843853*^9, 3.6942655286938624`*^9}, {3.694320658056543*^9, 3.6943206662965546`*^9}, 3.694321100397162*^9, {3.6943211808672748`*^9, 3.694321198067299*^9}, { 3.6943212603173857`*^9, 3.6943212821274166`*^9}, {3.6944240081368914`*^9, 3.6944240281469193`*^9}, 3.6945798778882847`*^9, 3.6953433513909397`*^9, { 3.726402609129484*^9, 3.726402618632744*^9}, {3.726465882296791*^9, 3.726465882687396*^9}, 3.757998251252205*^9, {3.7579982838698497`*^9, 3.7579982907273273`*^9}, {3.790051020706258*^9, 3.790051030075369*^9}, { 3.822371375469983*^9, 3.822371378140842*^9}, {3.853216197933406*^9, 3.853216206620552*^9}}, CellLabel-> "In[421]:=",ExpressionUUID->"7d507144-6548-487a-9902-5fb913686044"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.7262247019228444`*^9, {3.7262249870466585`*^9, 3.7262249914062004`*^9}, { 3.7580045257709618`*^9, 3.75800453036374*^9}, 3.790664201546558*^9, { 3.881206313582735*^9, 3.8812063183696957`*^9}},ExpressionUUID->"d30d3e9d-0539-490a-84ba-\ f6b8854a812d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.6944149755846214`*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.6944160613381414`*^9, 3.6944160921781845`*^9}, {3.6944167992291746`*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.7262250279256763`*^9, 3.7262250419115257`*^9}, {3.7580045551078463`*^9, 3.758004623903921*^9}, { 3.7580073627335653`*^9, 3.7580073655297947`*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, {3.758007652134451*^9, 3.7580076757538967`*^9}, { 3.7580077486896324`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, {3.7901345399910994`*^9, 3.790134540526645*^9}, { 3.7901345933460937`*^9, 3.790134594099427*^9}, {3.790664206724592*^9, 3.7906642332850227`*^9}, {3.822371406006948*^9, 3.8223714241545277`*^9}, { 3.8532163314339643`*^9, 3.8532163356909313`*^9}}, CellLabel-> "In[426]:=",ExpressionUUID->"b3a33045-648d-45db-afb1-2658bf2eed28"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.5625695636631746`*^9}, 3.562570402929049*^9, {3.6943375929467063`*^9, 3.6943376002267165`*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.7262247019228444`*^9, {3.7262249870466585`*^9, 3.7262249914062004`*^9}, { 3.7580045257709618`*^9, 3.75800453036374*^9}, 3.8222921071868744`*^9, { 3.8812063211174097`*^9, 3.8812063255332193`*^9}},ExpressionUUID->"1371301a-0863-41ed-899d-\ 8b9f248121f3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831442003`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009765997`*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.5625696391049075`*^9}, { 3.6943376083067274`*^9, 3.6943377050568633`*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.6943382395276117`*^9, 3.6943382530976305`*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.6943400978202133`*^9, {3.694340128930257*^9, 3.6943401346302643`*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.6944149755846214`*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.6944160613381414`*^9, 3.6944160921781845`*^9}, {3.6944167992291746`*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.7262250279256763`*^9, 3.7262250419115257`*^9}, {3.7580045551078463`*^9, 3.758004623903921*^9}, { 3.7580073627335653`*^9, 3.7580073655297947`*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, {3.758007652134451*^9, 3.7580076757538967`*^9}, { 3.7580077486896324`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, {3.7901345399910994`*^9, 3.790134540526645*^9}, { 3.7901345933460937`*^9, 3.790134594099427*^9}, {3.8223714777672*^9, 3.8223714817615223`*^9}, {3.8223715237911577`*^9, 3.822371525768871*^9}, { 3.8532163712164097`*^9, 3.8532163744231157`*^9}, {3.8532164448448315`*^9, 3.8532164468166456`*^9}, {3.853216554311017*^9, 3.853216575510727*^9}}, CellLabel-> "In[431]:=",ExpressionUUID->"d75bcd0c-d746-466f-8e09-2c53cdde3096"] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{951., 463.75}, WindowMargins->{{-14.25, Automatic}, {Automatic, 106.5}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.15 Inherited, FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"76641b04-0615-4ae6-91c5-3bb72ff35351" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1678, 25, 112, "Title",ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-59c8faa291c7", InitializationCell->True], Cell[CellGroupData[{ Cell[2270, 51, 914, 15, 76, "Section",ExpressionUUID->"26ddfd20-c266-447e-a4c9-fff6724630ac"], Cell[CellGroupData[{ Cell[3209, 70, 156, 2, 81, "Subsection",ExpressionUUID->"69735a39-f3cd-4393-8553-e89bb1d1116a"], Cell[3368, 74, 31650, 715, 3677, "Input",ExpressionUUID->"3a570fa3-c224-4096-b61a-97d8848b72b7", InitializationCell->True], Cell[35021, 791, 177, 3, 40, "Input",ExpressionUUID->"c39f5227-6837-4114-a696-f306dceeb59c"] }, Closed]], Cell[CellGroupData[{ Cell[35235, 799, 88, 0, 55, "Subsection",ExpressionUUID->"39c78aab-c01f-4b31-ab89-3b2452c70960"], Cell[35326, 801, 33129, 973, 1342177263, "Input",ExpressionUUID->"4528d783-b6d0-4419-afb9-3825268c01e7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[68492, 1779, 87, 0, 55, "Subsection",ExpressionUUID->"c0ca6b18-5ea7-4420-9301-0619a281cdcd"], Cell[68582, 1781, 51479, 1362, 4549, "Input",ExpressionUUID->"b5a6363a-3f1b-434b-a897-f9cb880580cc", InitializationCell->True], Cell[CellGroupData[{ Cell[120086, 3147, 4479, 126, 471, "Input",ExpressionUUID->"e6f03368-b2d5-465f-8f23-16d94c30de63"], Cell[124568, 3275, 579, 14, 70, "Output",ExpressionUUID->"777f9c23-67ef-41b9-967e-efef4c7d6dcb"], Cell[125150, 3291, 396, 8, 70, "Output",ExpressionUUID->"7cc601df-d699-448b-b5ac-c645f61774ef"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[125595, 3305, 92, 0, 55, "Subsection",ExpressionUUID->"6ac1b71c-e5bf-43ea-ad1b-476669dfea1a"], Cell[125690, 3307, 7120, 206, 771, "Input",ExpressionUUID->"efe4a541-a33b-443d-97dd-e4318677f6c3", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[132859, 3519, 1136, 18, 59, "Section",ExpressionUUID->"3ce845d7-3728-4a4e-a7b7-574c47b071a5"], Cell[CellGroupData[{ Cell[134020, 3541, 273, 4, 79, "Subsection",ExpressionUUID->"c08f4636-e9aa-4fe4-8898-ac0a3b03383e"], Cell[134296, 3547, 867, 21, 121, "Input",ExpressionUUID->"1266771c-2b7c-49ea-93ba-203289e3b8dc"] }, Closed]], Cell[CellGroupData[{ Cell[135200, 3573, 379, 6, 52, "Subsection",ExpressionUUID->"bd374397-f692-4ad0-9301-5688595d0051"], Cell[135582, 3581, 14812, 355, 1009, "Input",ExpressionUUID->"341c371d-9c31-4f21-b9d8-c7cf0b9f27fb", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[150431, 3941, 459, 7, 52, "Subsection",ExpressionUUID->"8a71eae6-0384-42b2-9cb9-292ec8e65d81"], Cell[150893, 3950, 4944, 81, 144, "Input",ExpressionUUID->"5828aa55-2f6d-463e-bb6d-dbdf29dce4d3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[155874, 4036, 273, 4, 52, "Subsection",ExpressionUUID->"d49acdc3-2b40-49ef-850c-3b96c08686d6"], Cell[156150, 4042, 20958, 521, 1405, "Input",ExpressionUUID->"c7196bbe-1d4f-4018-9f02-1b438d81b9d4", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[177145, 4568, 324, 5, 52, "Subsection",ExpressionUUID->"160d6f79-ebe1-44ba-8380-bfb0f14a5f88"], Cell[177472, 4575, 10145, 222, 663, "Input",ExpressionUUID->"dbae2cee-f560-451d-bf93-9e19ab987ce8", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[187654, 4802, 375, 6, 52, "Subsection",ExpressionUUID->"c27433b5-f392-40a3-8776-19ac0dbb17c0"], Cell[188032, 4810, 10558, 222, 665, "Input",ExpressionUUID->"697936a1-9c9c-4900-b095-a5a7684f4daf", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[198627, 5037, 425, 6, 79, "Subsection",ExpressionUUID->"2818b083-e647-490e-8517-8b77e5876e81"], Cell[199055, 5045, 5002, 78, 144, "Input",ExpressionUUID->"d53e511a-252e-4467-8d09-256ad3943ef1", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[204106, 5129, 1138, 18, 59, "Section",ExpressionUUID->"9c431d9e-efad-4046-9b24-fa6d06198e8c"], Cell[CellGroupData[{ Cell[205269, 5151, 555, 8, 80, "Subsection",ExpressionUUID->"59ed5a9a-327e-4efd-8832-34ab691c61c9"], Cell[205827, 5161, 15310, 346, 836, "Input",ExpressionUUID->"b63963ff-6fe5-4bc1-a3e7-8f697427fc3c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[221174, 5512, 631, 9, 53, "Subsection",ExpressionUUID->"c7166bd0-23c0-415f-b4c0-9ecf75aa404a"], Cell[221808, 5523, 16008, 332, 1114, "Input",ExpressionUUID->"a94040c6-b7bf-4e95-8e4e-687a7939046c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[237853, 5860, 477, 7, 53, "Subsection",ExpressionUUID->"c456088b-f4d9-404b-adee-044969b502b9"], Cell[238333, 5869, 16148, 374, 1054, "Input",ExpressionUUID->"0d31965c-6b4c-4158-a07c-0ca8896d40e2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[254518, 6248, 583, 8, 53, "Subsection",ExpressionUUID->"9ce36717-7a88-44ac-88f4-efbce0033ef1"], Cell[255104, 6258, 6852, 116, 318, "Input",ExpressionUUID->"d1a08611-d3d4-4baa-ae23-1411c670797e", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[261993, 6379, 637, 9, 53, "Subsection",ExpressionUUID->"1a944d9f-89fc-454f-80c5-0a5a57a4e58c"], Cell[262633, 6390, 6904, 117, 318, "Input",ExpressionUUID->"15943973-fcbe-4544-8ede-9998de05e915", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[269574, 6512, 691, 10, 53, "Subsection",ExpressionUUID->"74c3dc18-0652-4152-a6e7-54bf4aa0aa1f"], Cell[270268, 6524, 6958, 118, 318, "Input",ExpressionUUID->"c21301c4-05c2-4d01-8bb3-c24f8941244e", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[277275, 6648, 1135, 18, 59, "Section",ExpressionUUID->"a1c1f6c8-65a4-4e7a-b12e-5346023a1cce"], Cell[CellGroupData[{ Cell[278435, 6670, 279, 5, 80, "Subsection",ExpressionUUID->"451404bb-871e-4645-9fa1-3d48d0cd92bc", InitializationCell->True], Cell[278717, 6677, 42257, 851, 3016, "Input",ExpressionUUID->"2a6e011a-58d7-4c88-bc32-a682d18dbbb9", InitializationCell->True], Cell[320977, 7530, 25694, 502, 1472, "Input",ExpressionUUID->"fd488325-e75b-4619-82a8-b64e25e1b217"], Cell[346674, 8034, 18143, 304, 616, "Input",ExpressionUUID->"e9efd7b3-52d0-4179-8843-46620885b603"], Cell[364820, 8340, 34814, 756, 2558, "Input",ExpressionUUID->"f9e7d866-990f-4bde-a660-8b689dc794c2"] }, Closed]], Cell[CellGroupData[{ Cell[399671, 9101, 355, 6, 53, "Subsection",ExpressionUUID->"03e11713-e539-4bcb-a195-9bccff28c043", InitializationCell->True], Cell[400029, 9109, 14273, 208, 171, "Input",ExpressionUUID->"d561c151-fb6d-465c-acbb-a13d3ffa64c0", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[414339, 9322, 277, 5, 53, "Subsection",ExpressionUUID->"0c23c661-27f4-4aa2-adcf-b44a93220501", InitializationCell->True], Cell[414619, 9329, 18524, 345, 807, "Input",ExpressionUUID->"99b4738c-25f2-45e4-b245-94072371086f", InitializationCell->True], Cell[433146, 9676, 16416, 284, 700, "Input",ExpressionUUID->"4e25d7a3-3903-40ec-ab12-717839039cc9"] }, Closed]], Cell[CellGroupData[{ Cell[449599, 9965, 276, 5, 53, "Subsection",ExpressionUUID->"d29d9b1b-09d2-45c9-a877-66eabea5bfd3", InitializationCell->True], Cell[449878, 9972, 13811, 224, 263, "Input",ExpressionUUID->"eb78b704-314f-4adb-aaf1-eb7c37316210", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[463726, 10201, 298, 5, 53, "Subsection",ExpressionUUID->"6bbd723d-d2bc-4f31-a629-cd5e500ef58c", InitializationCell->True], Cell[464027, 10208, 21224, 423, 1091, "Input",ExpressionUUID->"67fdc634-a240-4d18-81dd-63f7daafdfff", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[485288, 10636, 408, 7, 53, "Subsection",ExpressionUUID->"9c610489-734e-41c4-931c-824527ec1daa", InitializationCell->True], Cell[485699, 10645, 21088, 408, 1156, "Input",ExpressionUUID->"95e52243-8fa6-4fcc-9773-4b585b8ddeea", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[506824, 11058, 333, 6, 53, "Subsection",ExpressionUUID->"0acefc98-38bc-4445-885e-65327fcb7c38", InitializationCell->True], Cell[507160, 11066, 20655, 372, 982, "Input",ExpressionUUID->"ebfaf6b7-008d-4e24-993b-37a8c7ec2cd0", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[527852, 11443, 409, 7, 53, "Subsection",ExpressionUUID->"fcd0ec9e-94d7-4d86-b0cb-f5e9a3030d89", InitializationCell->True], Cell[528264, 11452, 14234, 208, 171, "Input",ExpressionUUID->"3777edd8-cb5d-4aa8-907c-a428c14e86a9", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[542535, 11665, 378, 6, 53, "Subsection",ExpressionUUID->"14226aab-0640-4927-bbb1-d3125a1a89b0", InitializationCell->True], Cell[542916, 11673, 21049, 380, 810, "Input",ExpressionUUID->"2cdd7d3e-ea21-4c57-b7a4-ab2706cb2dcf", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[564002, 12058, 383, 6, 53, "Subsection",ExpressionUUID->"d467b636-1b28-4428-bfa3-294c757234de", InitializationCell->True], Cell[564388, 12066, 14511, 218, 144, "Input",ExpressionUUID->"28ed3e87-21da-4130-9539-9f0c97107029", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[578936, 12289, 437, 7, 53, "Subsection",ExpressionUUID->"71b82b90-6e7c-472d-83d7-47f3eedb1c41", InitializationCell->True], Cell[579376, 12298, 14090, 204, 180, "Input",ExpressionUUID->"bc04bd22-b43e-4d55-ae2b-623fadbcc320", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[593503, 12507, 583, 8, 53, "Subsection",ExpressionUUID->"ff5aff0f-aa76-42be-9acd-ef5d87132c02"], Cell[594089, 12517, 51572, 771, 579, "Input",ExpressionUUID->"b220b709-842f-432c-bdcb-090a31607be7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[645698, 13293, 635, 9, 53, "Subsection",ExpressionUUID->"a4ead0f8-b55a-4191-9808-9f7222aabe34"], Cell[646336, 13304, 48239, 720, 495, "Input",ExpressionUUID->"c743df21-92c2-49b2-b41d-399ebbbbac13", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[694612, 14029, 633, 9, 53, "Subsection",ExpressionUUID->"3c112b0d-11d9-4930-a612-6e87b6df48ae"], Cell[695248, 14040, 47361, 657, 151, "Input",ExpressionUUID->"f29d6bb1-b51e-424a-b44e-6ab4030abbb3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[742646, 14702, 578, 8, 53, "Subsection",ExpressionUUID->"75a36b0b-4a04-43de-a424-57bcb241fd95"], Cell[743227, 14712, 79046, 1392, 2872, "Input",ExpressionUUID->"b257f612-c52c-45be-be59-1f79e9d43f30", InitializationCell->True], Cell[822276, 16106, 87044, 1664, 5408, "Input",ExpressionUUID->"7db23c13-9e31-4be0-b556-40638734920f"] }, Closed]], Cell[CellGroupData[{ Cell[909357, 17775, 635, 9, 53, "Subsection",ExpressionUUID->"004a3f05-052c-48f9-9b6a-206021b42dfa"], Cell[909995, 17786, 424269, 8292, 30784, "Input",ExpressionUUID->"467d77ca-c443-451c-8ebe-ba9c01d88a9a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1334301, 26083, 406, 6, 53, "Subsection",ExpressionUUID->"ff36d431-8bd9-4242-97e9-e86f1c6c97bc"], Cell[1334710, 26091, 92840, 1744, 3739, "Input",ExpressionUUID->"2a11cf0f-81e8-4b6e-b274-a320d4a40ae6", InitializationCell->True], Cell[1427553, 27837, 84862, 1570, 3162, "Input",ExpressionUUID->"cd79eea9-114f-4a3b-8f00-35d44cb85f25"], Cell[1512418, 29409, 169719, 3471, 10711, "Input",ExpressionUUID->"e3392d78-4f32-4854-8203-0975e4971d39"] }, Closed]], Cell[CellGroupData[{ Cell[1682174, 32885, 687, 10, 53, "Subsection",ExpressionUUID->"2f523c15-9664-42d9-9d1f-d9ee2006a2af"], Cell[1682864, 32897, 86787, 1562, 3309, "Input",ExpressionUUID->"ab994d1b-9a38-442a-8754-fcaeb79b0287", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1769688, 34464, 454, 7, 53, "Subsection",ExpressionUUID->"b06d30e1-73d7-43fd-8133-9a656aaeb7e6", InitializationCell->True], Cell[1770145, 34473, 14279, 208, 171, "Input",ExpressionUUID->"498b653d-ee68-4930-af7a-20bd98c89be7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1784461, 34686, 302, 5, 53, "Subsection",ExpressionUUID->"fd6cfcee-8216-457a-8aa9-f45c6cae3515"], Cell[1784766, 34693, 68772, 1205, 2103, "Input",ExpressionUUID->"af669451-d953-4f2a-b170-e1bf047e2d0f", InitializationCell->True], Cell[1853541, 35900, 58317, 987, 1793, "Input",ExpressionUUID->"b597a00c-b6ce-4091-b5da-384527538911"] }, Closed]], Cell[CellGroupData[{ Cell[1911895, 36892, 739, 10, 53, "Subsection",ExpressionUUID->"7e4c8b24-5499-48f1-b15d-c17c7b190a3e"], Cell[1912637, 36904, 56188, 891, 1024, "Input",ExpressionUUID->"83d27d6d-3dc1-45fa-82e9-de6ee72f532c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1968862, 37800, 328, 5, 53, "Subsection",ExpressionUUID->"d0b8a28a-e920-4c28-92d5-e87278dd4c5b"], Cell[1969193, 37807, 420036, 9117, 30278, "Input",ExpressionUUID->"7503eb19-bc3a-4199-93e1-d5156f0fc2ef"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2389278, 46930, 1060, 17, 59, "Section",ExpressionUUID->"df90d526-69a4-4181-b993-b64cd48fa837"], Cell[CellGroupData[{ Cell[2390363, 46951, 224, 4, 81, "Subsection",ExpressionUUID->"0907a584-dfb0-4dac-aa9a-af1a9b273f8a"], Cell[2390590, 46957, 59434, 1320, 4668, "Input",ExpressionUUID->"43c7da69-bab0-4755-adce-ee86a2ca1ea6", InitializationCell->True], Cell[2450027, 48279, 110394, 2579, 10341, "Input",ExpressionUUID->"5e31f508-4d4d-4bae-b598-b2fcc2492c02"] }, Closed]], Cell[CellGroupData[{ Cell[2560458, 50863, 505, 8, 55, "Subsection",ExpressionUUID->"5f940ff9-7c52-4837-8f77-37f742937f89", InitializationCell->True], Cell[2560966, 50873, 14335, 209, 171, "Input",ExpressionUUID->"35726cea-a94d-40ac-b13d-cce4329656ea", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2575338, 51087, 275, 4, 55, "Subsection",ExpressionUUID->"31ba3ae6-be9a-4570-ae92-19eea9aa0b9e"], Cell[2575616, 51093, 41256, 865, 2580, "Input",ExpressionUUID->"efddd8a6-7bc7-4634-bde3-c21c0f4f9118", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2616909, 51963, 227, 4, 55, "Subsection",ExpressionUUID->"314eb125-6a0d-4b43-a2af-fc2a406d8512"], Cell[2617139, 51969, 31368, 632, 1836, "Input",ExpressionUUID->"ab29cd5f-a9d0-43f7-952c-6e3d6d9e005f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2648544, 52606, 274, 4, 55, "Subsection",ExpressionUUID->"6d462465-199a-479b-8f8b-5db104e7a91b"], Cell[2648821, 52612, 19880, 324, 524, "Input",ExpressionUUID->"59b2e855-646a-4e71-a544-f77b1cb8f8e2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2668738, 52941, 307, 5, 55, "Subsection",ExpressionUUID->"516595cf-ab2e-48ae-85ee-37cd26bcb458"], Cell[2669048, 52948, 33019, 675, 1894, "Input",ExpressionUUID->"311ec2d4-d636-4b8a-99c8-54b84999b499", InitializationCell->True], Cell[2702070, 53625, 24120, 452, 1066, "Input",ExpressionUUID->"9f632045-6053-469c-a1c9-c0dc000abafb"] }, Closed]], Cell[CellGroupData[{ Cell[2726227, 54082, 226, 4, 55, "Subsection",ExpressionUUID->"e98f2f79-ec9e-49a0-abd1-fe33421b2f52"], Cell[2726456, 54088, 32512, 666, 1870, "Input",ExpressionUUID->"adb6186e-3231-4718-a611-826e2f354769", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2759005, 54759, 439, 6, 55, "Subsection",ExpressionUUID->"bfd5ce8c-c8b8-47dc-b504-599b964a4838"], Cell[2759447, 54767, 68430, 1151, 2101, "Input",ExpressionUUID->"23a9b407-00f2-4731-b0b3-491f643392e7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2827914, 55923, 691, 10, 55, "Subsection",ExpressionUUID->"4e959ac7-8e4d-4ed2-a86b-ed8e6c3534d1", InitializationCell->True], Cell[2828608, 55935, 14385, 210, 171, "Input",ExpressionUUID->"64299c03-635c-4e89-a324-5fa062ad01a9", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2843030, 56150, 439, 6, 55, "Subsection",ExpressionUUID->"fa59cd78-f6c4-48b7-bcb9-57606a57b985"], Cell[2843472, 56158, 71421, 1215, 2385, "Input",ExpressionUUID->"643536ce-df2a-445e-863c-b9157bdef515", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2914930, 57378, 486, 7, 55, "Subsection",ExpressionUUID->"0dc18503-b23e-4a09-983b-239deb516698"], Cell[2915419, 57387, 69900, 1185, 2130, "Input",ExpressionUUID->"4bb2c9b5-3522-4e51-8688-1532d6d5df34", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2985356, 58577, 441, 6, 55, "Subsection",ExpressionUUID->"95f7a8e1-3075-45f9-9431-474799a3f33f"], Cell[2985800, 58585, 70049, 1188, 2131, "Input",ExpressionUUID->"6ed0a7d5-7ec2-4f27-a678-88e740a27d40", InitializationCell->True], Cell[3055852, 59775, 77351, 1374, 2674, "Input",ExpressionUUID->"7dd7c8a2-90fc-49df-9843-f6062e9e798a"] }, Closed]], Cell[CellGroupData[{ Cell[3133240, 61154, 199, 3, 55, "Subsection",ExpressionUUID->"e8a3ccb7-856e-4635-9fc1-4e5e27a56901"], Cell[3133442, 61159, 106335, 1948, 4284, "Input",ExpressionUUID->"965e9a56-d622-4766-b54f-887b05f254f3", InitializationCell->True], Cell[3239780, 63109, 38980, 1022, 4144, "Input",ExpressionUUID->"bffbc682-34f8-4498-a1c0-e27afb43b2d6"] }, Closed]], Cell[CellGroupData[{ Cell[3278797, 64136, 251, 4, 55, "Subsection",ExpressionUUID->"ef16b8c1-5349-4cd2-92a1-760b5f603e78"], Cell[3279051, 64142, 94062, 1618, 3097, "Input",ExpressionUUID->"d965bb58-ea4d-43e6-a004-5f4b3239b508", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3373150, 65765, 480, 7, 55, "Subsection",ExpressionUUID->"9d7ce9b6-357e-40a0-a532-829696016046"], Cell[3373633, 65774, 95184, 1816, 4672, "Input",ExpressionUUID->"f75b864c-6c01-405c-8b93-1c81592516a2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3468854, 67595, 275, 4, 55, "Subsection",ExpressionUUID->"8a5e626f-56f9-44fd-8ee4-27f3380898b6"], Cell[3469132, 67601, 122692, 2356, 8141, "Input",ExpressionUUID->"fe3e3130-e30a-498b-ba00-c2e2ebd09c86", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3591873, 69963, 1058, 17, 59, "Section",ExpressionUUID->"b62db4fb-f562-4823-a863-e041a645ec0a"], Cell[CellGroupData[{ Cell[3592956, 69984, 279, 4, 80, "Subsection",ExpressionUUID->"b74a886a-882d-4071-bfba-2ff84fa496f1"], Cell[3593238, 69990, 55595, 1220, 4569, "Input",ExpressionUUID->"4a82e305-8c43-4bab-a82a-2aa4ad39cdaf", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3648870, 71215, 583, 9, 53, "Subsection",ExpressionUUID->"55b22909-21c9-4fe7-9ab3-a0bff0caa9ec", InitializationCell->True], Cell[3649456, 71226, 14437, 210, 171, "Input",ExpressionUUID->"5e7ef787-2871-4a2a-936d-418dde1f97a2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3663930, 71441, 253, 4, 53, "Subsection",ExpressionUUID->"3cab374e-d1fc-4451-ad8c-78a9bb94dd86"], Cell[3664186, 71447, 43164, 930, 3177, "Input",ExpressionUUID->"1bded083-6b91-4781-8c99-28d9df43261a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3707387, 72382, 277, 4, 53, "Subsection",ExpressionUUID->"b8f348f4-3f2f-40e6-b7dd-7b58f8b32fae"], Cell[3707667, 72388, 27972, 547, 1638, "Input",ExpressionUUID->"346c8743-4ae6-4689-a4a6-e3a2dfed5eb0", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3735676, 72940, 303, 5, 53, "Subsection",ExpressionUUID->"7b2fb435-e86f-4e65-9bcf-ce39d6c7264f"], Cell[3735982, 72947, 29782, 593, 1670, "Input",ExpressionUUID->"4141aa8c-7a92-4ef1-90b4-46daca6d8695", InitializationCell->True], Cell[3765767, 73542, 98775, 2322, 9901, "Input",ExpressionUUID->"7988c3ac-c3c6-4caf-9b6c-bc4a3cda4645"] }, Closed]], Cell[CellGroupData[{ Cell[3864579, 75869, 269, 4, 53, "Subsection",ExpressionUUID->"0d7a05d3-20fd-4120-b585-b2d5ec3ab390"], Cell[3864851, 75875, 114145, 2663, 6999, "Input",ExpressionUUID->"4a33db0b-5145-477c-8b38-c2c321bd1384"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3979045, 78544, 1057, 17, 59, "Section",ExpressionUUID->"cf65ce44-6266-46ac-a80a-f21119eab9a1"], Cell[CellGroupData[{ Cell[3980127, 78565, 239, 4, 81, "Subsection",ExpressionUUID->"f361346f-fa14-464b-8eb9-98491f752fb4"], Cell[3980369, 78571, 40171, 853, 3841, "Input",ExpressionUUID->"234d9865-6a70-49ab-8638-d7aafb9e8737", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4020577, 79429, 314, 5, 55, "Subsection",ExpressionUUID->"be152fc1-823c-4b8b-8229-e9023dfc8184"], Cell[4020894, 79436, 16529, 274, 454, "Input",ExpressionUUID->"e17fe598-cce8-46a0-83bb-ec896af62eda", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4037460, 79715, 236, 4, 55, "Subsection",ExpressionUUID->"27272efd-b32e-4822-9bf6-65be0dc1b98e"], Cell[4037699, 79721, 29500, 613, 2357, "Input",ExpressionUUID->"fe8acbb2-8e06-4876-b078-bb41f79ca1e7", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[4067236, 80339, 210, 4, 81, "Subsection",ExpressionUUID->"3ba3004b-6ca7-4e88-a32a-f8b57685844e"], Cell[4067449, 80345, 25379, 479, 1492, "Input",ExpressionUUID->"5118d8ce-83aa-4ee0-8f95-f3ded28bffcb", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4092865, 80829, 308, 5, 55, "Subsection",ExpressionUUID->"88bb0015-215c-46d0-8601-e9f682ffa054"], Cell[4093176, 80836, 28743, 587, 1892, "Input",ExpressionUUID->"03350ae6-98bb-4c6f-a75f-bf4107f1bfaf", InitializationCell->True], Cell[4121922, 81425, 3415, 95, 412, "Input",ExpressionUUID->"b4848725-7f79-4a13-ad12-dfa6db59c0b9"] }, Closed]], Cell[CellGroupData[{ Cell[4125374, 81525, 314, 5, 55, "Subsection",ExpressionUUID->"1a9fc4d2-6037-4037-870f-5a97de76e049"], Cell[4125691, 81532, 14252, 221, 259, "Input",ExpressionUUID->"4f8f0683-60c6-4b3b-8e0c-8310fe31e750", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4139992, 81759, 1007, 16, 59, "Section",ExpressionUUID->"060ad0b7-8386-4b40-b7a4-d197b8bb6268"], Cell[CellGroupData[{ Cell[4141024, 81779, 431, 7, 81, "Subsection",ExpressionUUID->"ea748fb1-e7c3-4e74-82fa-50380a26fd5e"], Cell[4141458, 81788, 19552, 469, 1924, "Input",ExpressionUUID->"03a9a60c-fabe-4b0e-82bd-f71ca0feb7a8", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4161047, 82262, 86, 0, 55, "Subsection",ExpressionUUID->"938190f0-bad9-4502-acaf-cc5f1d10828e"], Cell[4161136, 82264, 15190, 404, 1342177263, "Input",ExpressionUUID->"c07be15a-6e50-4cb1-b916-6c3fa88117fe", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4176363, 82673, 163, 3, 55, "Subsection",ExpressionUUID->"cc3df15e-99c8-43f4-a199-63c0188a64b1"], Cell[4176529, 82678, 151084, 3613, 13706, "Input",ExpressionUUID->"b005e7d8-ea01-4f07-a8cc-4aa34eb19ad3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4327650, 86296, 214, 4, 55, "Subsection",ExpressionUUID->"d3e7b377-5532-4d5b-a3c9-511292ef60e9"], Cell[4327867, 86302, 22240, 487, 1944, "Input",ExpressionUUID->"306b555f-ad27-42aa-8782-351d04306399", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4350144, 86794, 316, 5, 55, "Subsection",ExpressionUUID->"f1c9152e-6f5e-46a5-99b3-98cdf488c2fc"], Cell[4350463, 86801, 16363, 356, 1413, "Input",ExpressionUUID->"7af0ec92-d377-49f5-9dc2-235a9bf72885", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4366863, 87162, 362, 6, 55, "Subsection",ExpressionUUID->"b774ff7d-90da-4e1d-9301-17a05880d123"], Cell[4367228, 87170, 11181, 244, 1342177263, "Input",ExpressionUUID->"4c3e804f-47d9-43f3-9a69-0e6e6cdc8051", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4378446, 87419, 219, 4, 55, "Subsection",ExpressionUUID->"433d5597-e59a-4159-ad9c-92576b31f267"], Cell[4378668, 87425, 38227, 771, 4864, "Input",ExpressionUUID->"f91fc24a-8183-44b6-b5bd-3dba00322308", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[4416932, 88201, 319, 5, 81, "Subsection",ExpressionUUID->"8441eba2-3b3e-45b2-8763-d1ca1f0dfb81"], Cell[4417254, 88208, 62293, 1391, 6696, "Input",ExpressionUUID->"ff4f811d-1d4b-425e-987c-2a3a2b33e189", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4479584, 89604, 215, 4, 55, "Subsection",ExpressionUUID->"7f82a256-7060-4f74-9115-bc2c281be465"], Cell[4479802, 89610, 24014, 510, 1692, "Input",ExpressionUUID->"c1bdf631-d0e6-451d-95da-7c0eb492b4c7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4503853, 90125, 86, 0, 55, "Subsection",ExpressionUUID->"20b65afb-4453-45a6-b220-e5bd2e20e2d2"], Cell[4503942, 90127, 49189, 1260, 5180, "Input",ExpressionUUID->"7ced6750-6f40-4a11-a9a6-a36840bc57b8"] }, Closed]], Cell[CellGroupData[{ Cell[4553168, 91392, 438, 7, 55, "Subsection",ExpressionUUID->"3751363e-9005-4aa9-aa60-9e68063f4c10"], Cell[4553609, 91401, 73701, 1870, 6172, "Input",ExpressionUUID->"2a4e08c8-dd4d-41b0-b73b-f52f28850969", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4627347, 93276, 458, 7, 55, "Subsection",ExpressionUUID->"4d892cbc-1209-4a45-9197-e0781fc3c1c5"], Cell[4627808, 93285, 32742, 760, 2766, "Input",ExpressionUUID->"0df03aaf-6ade-4ce3-8f9a-31dad125df83", InitializationCell->True], Cell[4660553, 94047, 85958, 2143, 8040, "Input",ExpressionUUID->"5ab9eb10-8d1b-4fcc-a00c-5289841c629c", InitializationCell->True], Cell[4746514, 96192, 35368, 792, 3235, "Input",ExpressionUUID->"9623371d-56ab-41dd-8ed3-e63b783506ed", InitializationCell->True], Cell[4781885, 96986, 14596, 244, 608, "Input",ExpressionUUID->"2fef2def-18ab-4394-b358-8ec7eab05e03", InitializationCell->True] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4796542, 97237, 983, 15, 81, "Title",ExpressionUUID->"6a385782-eb61-456f-9f91-380d4036a0d8"], Cell[CellGroupData[{ Cell[4797550, 97256, 1392, 20, 62, "Subsection",ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-42a83bd3e7cd"], Cell[CellGroupData[{ Cell[4798967, 97280, 591, 13, 51, "Subsubsection",ExpressionUUID->"162ac754-d74f-4ca6-80c8-d8d961edea19"], Cell[4799561, 97295, 2394, 72, 203, "Input",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[4801992, 97372, 516, 12, 41, "Subsubsection",ExpressionUUID->"8b303821-a3bc-4d02-b626-00ac8af3f93c"], Cell[4802511, 97386, 1253, 33, 70, "Input",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[4803801, 97424, 459, 11, 41, "Subsubsection",ExpressionUUID->"efb27dda-7a73-487d-b443-3bf17635a222"], Cell[4804263, 97437, 1340, 41, 94, "Input",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4805652, 97484, 1399, 20, 43, "Subsection",ExpressionUUID->"afb80a20-e5d9-4db8-bc99-2e402a0d6607"], Cell[CellGroupData[{ Cell[4807076, 97508, 312, 5, 51, "Subsubsection",ExpressionUUID->"b1de8e05-e4e5-4906-a827-733bd6c4e2d5"], Cell[4807391, 97515, 6030, 128, 384, "Input",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[4813424, 97645, 3578, 67, 187, "Input",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[4817005, 97714, 2255, 63, 232, "Input",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[4819263, 97779, 2303, 63, 232, "Input",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"] }, Closed]], Cell[CellGroupData[{ Cell[4821603, 97847, 346, 5, 41, "Subsubsection",ExpressionUUID->"d7109425-1791-4931-ad0b-bad3a9ba7ad1"], Cell[4821952, 97854, 10368, 278, 608, "Input",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[4832323, 98134, 8902, 229, 420, "Input",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[4841228, 98365, 6799, 168, 322, "Input",ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell[4848064, 98538, 344, 5, 41, "Subsubsection",ExpressionUUID->"fb5115cb-5c46-462d-b545-09d24c3dbd84"], Cell[CellGroupData[{ Cell[4848433, 98547, 10269, 299, 471, "Input",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[4858705, 98848, 2588, 39, 58, "Message",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[4861296, 98889, 1690, 27, 58, "Message",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[4862989, 98918, 950, 17, 58, "Message",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4864012, 98943, 688, 11, 81, "Title",ExpressionUUID->"c094e867-eedb-49ea-81fe-4ac178148a9f"], Cell[CellGroupData[{ Cell[4864725, 98958, 1091, 15, 62, "Subsection",ExpressionUUID->"4b032a41-028b-4092-b65a-9e634ae03405"], Cell[CellGroupData[{ Cell[4865841, 98977, 496, 7, 51, "Subsubsection",ExpressionUUID->"9aac42a8-292f-4229-ba7a-ff683fbe5b47"], Cell[4866340, 98986, 5798, 129, 339, "Input",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell[4872175, 99120, 499, 7, 41, "Subsubsection",ExpressionUUID->"61bce4a2-2758-460e-9011-10d261d3455b"], Cell[4872677, 99129, 4551, 95, 229, "Input",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell[4877265, 99229, 568, 8, 41, "Subsubsection",ExpressionUUID->"5f18722c-d360-4af9-9f52-1aaae1c2afe0"], Cell[4877836, 99239, 5888, 126, 273, "Input",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell[4883761, 99370, 596, 8, 41, "Subsubsection",ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-7e504f9c030c"], Cell[4884360, 99380, 5847, 120, 229, "Input",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell[4890244, 99505, 763, 11, 41, "Subsubsection",ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-11727f8765cd"], Cell[4891010, 99518, 6493, 131, 273, "Input",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell[4897540, 99654, 814, 12, 41, "Subsubsection",ExpressionUUID->"5de18652-2348-4485-9982-16fe2124dc17"], Cell[4898357, 99668, 6373, 128, 229, "Input",ExpressionUUID->"35452574-3b83-4220-8780-2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell[4904767, 99801, 1723, 23, 41, "Subsubsection",ExpressionUUID->"383cddbb-4de9-44d2-b165-db2ad34a0b83"], Cell[4906493, 99826, 4621, 78, 163, "Input",ExpressionUUID->"6618f3df-ec4c-4656-a5f6-57d989120d0b"] }, Closed]], Cell[CellGroupData[{ Cell[4911151, 99909, 1613, 22, 41, "Subsubsection",ExpressionUUID->"1d96790f-49fb-4e00-ab56-a3da92924588"], Cell[4912767, 99933, 4829, 91, 142, "Input",ExpressionUUID->"3a56a45f-1b1f-497b-ab28-e7afa331a80b"] }, Closed]], Cell[CellGroupData[{ Cell[4917633, 100029, 1641, 23, 41, "Subsubsection",ExpressionUUID->"7b5eb442-ec67-4f72-9a01-bde21270b68f"], Cell[CellGroupData[{ Cell[4919299, 100056, 4153, 66, 98, "Input",ExpressionUUID->"287fffa5-19c6-4076-8be0-eb0069f4eda1"], Cell[4923455, 100124, 398, 12, 36, "Output",ExpressionUUID->"436188cf-b153-458a-9bfb-6b57b8695d6b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4923902, 100142, 1691, 23, 41, "Subsubsection",ExpressionUUID->"dd1069d3-171e-41c1-b554-f1a75dbbbe54"], Cell[4925596, 100167, 5096, 92, 147, "Input",ExpressionUUID->"4f360d6e-d091-4856-9ab9-d907f2d730b2"] }, Closed]], Cell[CellGroupData[{ Cell[4930729, 100264, 1709, 23, 41, "Subsubsection",ExpressionUUID->"9c2e6990-d836-4ccd-b21b-052d4ee15ac5"], Cell[4932441, 100289, 11900, 269, 454, "Input",ExpressionUUID->"d6fcdadd-20ab-4f69-b0c9-d74096902c98"] }, Closed]], Cell[CellGroupData[{ Cell[4944378, 100563, 1586, 22, 41, "Subsubsection",ExpressionUUID->"9cc77e32-cdd0-4bee-9203-b12742da6a83"], Cell[4945967, 100587, 9222, 188, 287, "Input",ExpressionUUID->"73f8cfb8-97ea-49a7-acca-be10ec775006"] }, Closed]], Cell[CellGroupData[{ Cell[4955226, 100780, 1994, 27, 41, "Subsubsection",ExpressionUUID->"5ad1acca-50cc-4ca3-a866-da762d59a872"], Cell[4957223, 100809, 6421, 129, 273, "Input",ExpressionUUID->"8a1b5cc7-4abc-4c24-ae20-d0588623975a"], Cell[4963647, 100940, 7260, 136, 207, "Input",ExpressionUUID->"f432d014-8b06-4fcb-95f0-7456c47df0ef"], Cell[4970910, 101078, 6014, 97, 142, "Input",ExpressionUUID->"0bc09805-d817-4b40-898b-5ebbc9d77f1e"] }, Closed]], Cell[CellGroupData[{ Cell[4976961, 101180, 1942, 27, 41, "Subsubsection",ExpressionUUID->"303ece05-32ad-4e88-960a-6bb799cf3661"], Cell[4978906, 101209, 6209, 126, 273, "Input",ExpressionUUID->"e40d0474-ba96-40e0-b4dc-74990b6df7fa"], Cell[4985118, 101337, 7712, 147, 229, "Input",ExpressionUUID->"2fb73d1a-c795-4589-bf9e-50830b7d8bb6"], Cell[4992833, 101486, 6793, 118, 163, "Input",ExpressionUUID->"056ddfe2-f01b-44ca-880b-4a4721dd4725"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4999675, 101610, 998, 14, 43, "Subsection",ExpressionUUID->"663b145c-b762-40e7-a548-b9cb3d38d4a7"], Cell[CellGroupData[{ Cell[5000698, 101628, 457, 7, 51, "Subsubsection",ExpressionUUID->"199254a7-f02b-4fce-b113-e0a801386748"], Cell[5001158, 101637, 5066, 114, 390, "Input",ExpressionUUID->"28f3e3df-d3fd-4ee4-97c8-e7f0efd28441"] }, Closed]], Cell[CellGroupData[{ Cell[5006261, 101756, 487, 8, 41, "Subsubsection",ExpressionUUID->"c6662a2d-3637-4730-b361-62ecb3eb2303"], Cell[5006751, 101766, 6640, 147, 382, "Input",ExpressionUUID->"74a619ed-9fb8-47c7-9aeb-db4fc09d9e51"] }, Closed]], Cell[CellGroupData[{ Cell[5013428, 101918, 530, 8, 41, "Subsubsection",ExpressionUUID->"3f1920a7-6b93-4bd7-a823-48af0a2bbe4e"], Cell[5013961, 101928, 3656, 91, 361, "Input",ExpressionUUID->"90df719f-5762-4308-913e-28070e479662"] }, Closed]], Cell[CellGroupData[{ Cell[5017654, 102024, 477, 8, 41, "Subsubsection",ExpressionUUID->"408e574a-cb6f-494e-9b71-4e684437e94b"], Cell[5018134, 102034, 5383, 109, 317, "Input",ExpressionUUID->"98e31536-d967-4274-a198-5f96b9e085af"] }, Closed]], Cell[CellGroupData[{ Cell[5023554, 102148, 559, 9, 41, "Subsubsection",ExpressionUUID->"7d7c591b-6e6d-43d8-90cd-43a5920e75b1"], Cell[5024116, 102159, 3709, 88, 339, "Input",ExpressionUUID->"27f86bb9-83fd-4594-bb22-7ca8b9cd7a50"] }, Closed]], Cell[CellGroupData[{ Cell[5027862, 102252, 859, 12, 41, "Subsubsection",ExpressionUUID->"4c979726-88b6-4947-9e4d-27afb8ee1296"], Cell[5028724, 102266, 8523, 188, 476, "Input",ExpressionUUID->"a980a172-239e-4842-a37a-cc8aca53aae5"] }, Closed]], Cell[CellGroupData[{ Cell[5037284, 102459, 983, 14, 41, "Subsubsection",ExpressionUUID->"218e630a-09bc-4729-a6e8-2047574d85e0"], Cell[CellGroupData[{ Cell[5038292, 102477, 16753, 352, 711, "Input",ExpressionUUID->"4411edcc-34cd-4e4c-9d88-54e876f93f53"], Cell[5055048, 102831, 827673, 13888, 422, 456758, 7806, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"fe4af4f4-7a82-4446-93da-300fa16e658f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[5882770, 116725, 1031, 14, 41, "Subsubsection",ExpressionUUID->"66774a93-cd29-4070-9c05-936ebe5f7714"], Cell[5883804, 116741, 12497, 211, 273, "Input",ExpressionUUID->"d04f222d-20a8-48e0-b3b2-aecf48ab3681"], Cell[5896304, 116954, 13642, 248, 470, "Input",ExpressionUUID->"d399e837-49e0-4e9c-9f22-e6c9105fb288"] }, Closed]], Cell[CellGroupData[{ Cell[5909983, 117207, 522, 8, 41, "Subsubsection",ExpressionUUID->"844171a6-94f6-4991-8d47-973102d18f24"], Cell[5910508, 117217, 5809, 151, 487, "Input",ExpressionUUID->"b8c0dc5d-bc20-4b2c-9c82-90c9f431c117"] }, Closed]], Cell[CellGroupData[{ Cell[5916354, 117373, 525, 8, 41, "Subsubsection",ExpressionUUID->"87334445-a2e7-42d3-9a51-1b313e6baa9f"], Cell[5916882, 117383, 4270, 105, 273, "Input",ExpressionUUID->"e0ea02ec-039f-4ec2-b8a7-2fd6a7a6c78e"] }, Closed]], Cell[CellGroupData[{ Cell[5921189, 117493, 651, 9, 41, "Subsubsection",ExpressionUUID->"035257a2-bc2e-425a-9e49-7fc4b726a7c7"], Cell[5921843, 117504, 4424, 102, 252, "Input",ExpressionUUID->"30c2d718-e65c-4330-b034-9cc828ed774e"] }, Closed]], Cell[CellGroupData[{ Cell[5926304, 117611, 712, 10, 41, "Subsubsection",ExpressionUUID->"72253fa9-a758-4bc3-a5a6-47601a6b2910"], Cell[5927019, 117623, 4100, 99, 273, "Input",ExpressionUUID->"498c72ab-a2c2-4f50-ba7c-d1f522472cc4"] }, Closed]], Cell[CellGroupData[{ Cell[5931156, 117727, 641, 10, 41, "Subsubsection",ExpressionUUID->"cf07ba95-6b6c-4652-a1fe-2674b4a1db96"], Cell[5931800, 117739, 3003, 67, 163, "Input",ExpressionUUID->"03ae26b5-736b-4631-8396-7966c6d1d5c1"] }, Closed]], Cell[CellGroupData[{ Cell[5934840, 117811, 637, 9, 41, "Subsubsection",ExpressionUUID->"aede8e9e-01fc-4e8a-a7e7-768e30833ff7"], Cell[5935480, 117822, 4025, 97, 251, "Input",ExpressionUUID->"9da6c4d3-7eff-4c4a-b01a-bd104cfb09df"] }, Closed]], Cell[CellGroupData[{ Cell[5939542, 117924, 734, 10, 41, "Subsubsection",ExpressionUUID->"988745bb-b003-4b33-8ce1-29649bd14e28"], Cell[5940279, 117936, 4085, 92, 273, "Input",ExpressionUUID->"9ced34df-dfd4-4802-bb87-f824c7422910"] }, Closed]], Cell[CellGroupData[{ Cell[5944401, 118033, 665, 10, 41, "Subsubsection",ExpressionUUID->"9e90ec9b-442a-4955-b3bb-be3cfaa9fe71"], Cell[5945069, 118045, 3176, 80, 251, "Input",ExpressionUUID->"c013ac0d-2ca2-410d-94fb-b86043f57a7c"] }, Closed]], Cell[CellGroupData[{ Cell[5948282, 118130, 735, 10, 41, "Subsubsection",ExpressionUUID->"f44de59f-3d8a-4e5a-99e8-49bf452f9d0b"], Cell[5949020, 118142, 4105, 100, 273, "Input",ExpressionUUID->"7794193a-fc2b-45d0-8a91-1d65a31cfc6c"] }, Closed]], Cell[CellGroupData[{ Cell[5953162, 118247, 1022, 14, 41, "Subsubsection",ExpressionUUID->"600cd4a7-f9ed-45e7-96c1-0b479a59323e"], Cell[5954187, 118263, 5612, 135, 301, "Input",ExpressionUUID->"eb6b1e97-41b2-4031-9494-028843aa5072"] }, Closed]], Cell[CellGroupData[{ Cell[5959836, 118403, 771, 11, 41, "Subsubsection",ExpressionUUID->"b12b049d-0111-4c85-8217-aabfea3c7f0b"], Cell[5960610, 118416, 3623, 82, 207, "Input",ExpressionUUID->"962aee57-48cf-4436-ac6e-8307b241cc81"] }, Closed]], Cell[CellGroupData[{ Cell[5964270, 118503, 719, 11, 41, "Subsubsection",ExpressionUUID->"762d18ce-521d-47a0-94ed-283482102e97"], Cell[5964992, 118516, 3168, 71, 229, "Input",ExpressionUUID->"c81c6f8b-2815-4b9f-ba8f-a6cf79c7dfd0"] }, Closed]], Cell[CellGroupData[{ Cell[5968197, 118592, 777, 11, 41, "Subsubsection",ExpressionUUID->"c2432e07-f10c-463f-ac69-ed646ac5ad7e"], Cell[5968977, 118605, 4741, 110, 302, "Input",ExpressionUUID->"4ffe9e55-4c3d-4f5f-b9be-41df0c7b6b45"] }, Closed]], Cell[CellGroupData[{ Cell[5973755, 118720, 745, 11, 41, "Subsubsection",ExpressionUUID->"032c2005-7a05-4a8b-a430-12116dad9e40"], Cell[5974503, 118733, 3766, 93, 252, "Input",ExpressionUUID->"11ed4523-c567-4bad-ab46-52fe940735cd"] }, Closed]], Cell[CellGroupData[{ Cell[5978306, 118831, 790, 11, 41, "Subsubsection",ExpressionUUID->"0efdb24c-636c-4232-bb36-12dce838936c"], Cell[5979099, 118844, 5754, 140, 309, "Input",ExpressionUUID->"45edc96f-361d-45f4-a264-9b4ca05da041"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5984902, 118990, 615, 9, 43, "Subsection",ExpressionUUID->"363536f9-7720-4b2c-a727-35aa84fd59c0"], Cell[CellGroupData[{ Cell[5985542, 119003, 495, 8, 51, "Subsubsection",ExpressionUUID->"c61f3574-005d-4e90-aa1d-fd6bea9c1e58"], Cell[5986040, 119013, 1622, 34, 140, "Input",ExpressionUUID->"e8acc0c1-989c-4266-96c2-5de3ce33776a"] }, Closed]], Cell[CellGroupData[{ Cell[5987699, 119052, 510, 8, 41, "Subsubsection",ExpressionUUID->"88b89d8b-5254-43a8-bbf1-71232b422394"], Cell[5988212, 119062, 1827, 46, 185, "Input",ExpressionUUID->"05bcdb5b-89c0-4365-994a-ea9798d17487"] }, Closed]], Cell[CellGroupData[{ Cell[5990076, 119113, 486, 7, 41, "Subsubsection",ExpressionUUID->"132bc7f5-30cd-4b67-a626-338a7469ac9e"], Cell[5990565, 119122, 6381, 149, 383, "Input",ExpressionUUID->"e8080710-f31f-40e9-974c-af1daa2953b1"] }, Closed]], Cell[CellGroupData[{ Cell[5996983, 119276, 536, 8, 41, "Subsubsection",ExpressionUUID->"9362a373-ca6f-4e9f-960e-3fc64031c9db"], Cell[5997522, 119286, 6486, 151, 394, "Input",ExpressionUUID->"42bd3065-7a9b-4fb1-b82b-80fb75319f08"] }, Closed]], Cell[CellGroupData[{ Cell[6004045, 119442, 696, 15, 41, "Subsubsection",ExpressionUUID->"e6055f6f-bbea-486e-95b9-06694155c59d"], Cell[6004744, 119459, 5377, 114, 274, "Input",ExpressionUUID->"60dad061-b278-4f1d-a447-53b12a4b0adc"] }, Closed]], Cell[CellGroupData[{ Cell[6010158, 119578, 534, 8, 41, "Subsubsection",ExpressionUUID->"4771bc55-673c-4ae8-8bdb-d22e1638083d"], Cell[6010695, 119588, 4784, 94, 252, "Input",ExpressionUUID->"5a470102-7126-4991-a303-f390c14eef71"] }, Closed]], Cell[CellGroupData[{ Cell[6015516, 119687, 584, 8, 41, "Subsubsection",ExpressionUUID->"8ed54c5e-7a2b-430f-b78f-323fef22cad4"], Cell[6016103, 119697, 3078, 74, 230, "Input",ExpressionUUID->"5db47cf1-8f48-4a4b-bbea-dac05a142adf"] }, Closed]], Cell[CellGroupData[{ Cell[6019218, 119776, 421, 7, 41, "Subsubsection",ExpressionUUID->"e7264959-fce4-403e-bc87-abf1e1a4a426"], Cell[6019642, 119785, 3955, 98, 317, "Input",ExpressionUUID->"80810b1a-4ee1-49d0-94b9-d1aa7dca9836"] }, Closed]], Cell[CellGroupData[{ Cell[6023634, 119888, 824, 12, 41, "Subsubsection",ExpressionUUID->"b4de6e8c-c925-4277-8513-c9a00ea9c738"], Cell[6024461, 119902, 211, 3, 32, "Input",ExpressionUUID->"afce8ed5-dd01-45a2-9234-d5848a970ebc"], Cell[6024675, 119907, 8450, 192, 413, "Input",ExpressionUUID->"c38304ef-9229-419e-b23b-78ed2b6c4897"] }, Closed]], Cell[CellGroupData[{ Cell[6033162, 120104, 1104, 15, 41, "Subsubsection",ExpressionUUID->"6ade33c0-e6ad-4ee6-a9a3-a969e42addf5"], Cell[6034269, 120121, 17565, 356, 689, "Input",ExpressionUUID->"da5e722e-947e-4c65-a861-b62334d70ffc"] }, Closed]], Cell[CellGroupData[{ Cell[6051871, 120482, 469, 7, 41, "Subsubsection",ExpressionUUID->"e82473d2-8819-4050-ba2c-dba82a16dc8a"], Cell[6052343, 120491, 2434, 56, 382, "Input",ExpressionUUID->"a12cd416-70f6-4dc2-8a41-4a271186f5d8"] }, Closed]], Cell[CellGroupData[{ Cell[6054814, 120552, 441, 7, 41, "Subsubsection",ExpressionUUID->"9828f375-90ec-4ef7-805b-1fcfa153bcb6"], Cell[6055258, 120561, 2181, 63, 139, "Input",ExpressionUUID->"aa99c273-c49a-439d-81ed-f1b7f5ae2edb"] }, Closed]], Cell[CellGroupData[{ Cell[6057476, 120629, 407, 7, 41, "Subsubsection",ExpressionUUID->"1af25b8b-89b6-4c27-9fc5-c13768f9c6a1"], Cell[6057886, 120638, 3920, 98, 317, "Input",ExpressionUUID->"fa2d2659-ab00-4fe2-b9f0-53391a038117"] }, Closed]], Cell[CellGroupData[{ Cell[6061843, 120741, 379, 6, 41, "Subsubsection",ExpressionUUID->"3f5fc245-47c1-4b66-a9d1-5cc2b1a6b95e"], Cell[6062225, 120749, 4628, 118, 383, "Input",ExpressionUUID->"1522230b-9332-4a5e-883b-a55fd886ed75"] }, Closed]], Cell[CellGroupData[{ Cell[6066890, 120872, 482, 8, 41, "Subsubsection",ExpressionUUID->"6a73a02e-563a-4863-8878-aaf66d18f131"], Cell[6067375, 120882, 3742, 88, 324, "Input",ExpressionUUID->"c198e2a4-cbb4-4a2d-82ef-61c9e2243ecf"] }, Closed]], Cell[CellGroupData[{ Cell[6071154, 120975, 556, 8, 41, "Subsubsection",ExpressionUUID->"d3a89415-0cde-4171-bde2-d15e2a0f2468"], Cell[6071713, 120985, 3254, 82, 296, "Input",ExpressionUUID->"d42a3520-81d2-45b0-8abd-9906405168a1"] }, Closed]], Cell[CellGroupData[{ Cell[6075004, 121072, 480, 8, 41, "Subsubsection",ExpressionUUID->"e88db87b-dbbf-4b5a-8be2-c02415f2613f"], Cell[6075487, 121082, 3532, 85, 317, "Input",ExpressionUUID->"817b7420-02ee-474d-b0f5-ee60b884d9df"], Cell[6079022, 121169, 3112, 73, 296, "Input",ExpressionUUID->"060ca70d-4a52-44e2-9461-7e4dd6ad92f2"] }, Closed]], Cell[CellGroupData[{ Cell[6082171, 121247, 626, 9, 41, "Subsubsection",ExpressionUUID->"f36e3db7-47ce-4b62-8917-5c58377423ef"], Cell[6082800, 121258, 5661, 131, 383, "Input",ExpressionUUID->"eff412a9-e9af-43f1-bbb2-3a0d0d142d3a"] }, Closed]], Cell[CellGroupData[{ Cell[6088498, 121394, 656, 9, 41, "Subsubsection",ExpressionUUID->"9f8e8d8e-2c18-4a35-b2ab-42c1280f230d"], Cell[6089157, 121405, 6358, 146, 471, "Input",ExpressionUUID->"b8f40b07-e55c-45a0-8055-23522fd49a45"], Cell[6095518, 121553, 6241, 145, 405, "Input",ExpressionUUID->"0068ef73-aa98-4c19-a144-6308b1179af2"] }, Closed]], Cell[CellGroupData[{ Cell[6101796, 121703, 686, 10, 41, "Subsubsection",ExpressionUUID->"e43fb9e7-fd3c-4ed1-8e1d-8dc8516c2853"], Cell[6102485, 121715, 7634, 177, 419, "Input",ExpressionUUID->"f4431a96-01f0-4947-b516-7b17781a948e"] }, Closed]], Cell[CellGroupData[{ Cell[6110156, 121897, 517, 8, 41, "Subsubsection",ExpressionUUID->"45c9350d-ada0-4241-89d5-27b28b085435"], Cell[6110676, 121907, 2013, 38, 163, "Input",ExpressionUUID->"317f5ac0-752e-413e-8f31-e8c9f396e24e"] }, Closed]], Cell[CellGroupData[{ Cell[6112726, 121950, 607, 9, 41, "Subsubsection",ExpressionUUID->"7856cee4-5075-44ea-9fdb-415636942676"], Cell[6113336, 121961, 2814, 75, 296, "Input",ExpressionUUID->"e5dce2cb-15f1-43c7-bfb5-2074589d1350"] }, Closed]], Cell[CellGroupData[{ Cell[6116187, 122041, 528, 8, 41, "Subsubsection",ExpressionUUID->"c14566f4-8359-461b-b1a9-97bcfb84968a"], Cell[6116718, 122051, 5704, 118, 361, "Input",ExpressionUUID->"eb157b35-2e12-494c-b93d-c5965ee1a00f"] }, Closed]], Cell[CellGroupData[{ Cell[6122459, 122174, 550, 9, 41, "Subsubsection",ExpressionUUID->"bc337e03-ded5-421c-97c5-94605d18e606"], Cell[6123012, 122185, 3410, 77, 317, "Input",ExpressionUUID->"816c3905-6a37-4dd4-88ff-b3041a18ed18"] }, Closed]], Cell[CellGroupData[{ Cell[6126459, 122267, 669, 10, 41, "Subsubsection",ExpressionUUID->"e981d53b-c170-4a9b-ada6-c9cbdda47a37"], Cell[6127131, 122279, 4605, 98, 339, "Input",ExpressionUUID->"9335107f-02e4-4776-aa84-aab8bcd15214"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6131785, 122383, 889, 13, 43, "Subsection",ExpressionUUID->"685c6e51-a934-4491-bd59-c160b938a17f"], Cell[CellGroupData[{ Cell[6132699, 122400, 491, 8, 51, "Subsubsection",ExpressionUUID->"76b59d7d-944f-4725-847e-9fff32913bc0"], Cell[6133193, 122410, 5329, 114, 296, "Input",ExpressionUUID->"cf87744d-16d3-4560-a85e-9b944862f77c"] }, Closed]], Cell[CellGroupData[{ Cell[6138559, 122529, 603, 9, 41, "Subsubsection",ExpressionUUID->"c9dc767b-6f86-4096-94b5-f38a5efed620"], Cell[6139165, 122540, 7031, 162, 444, "Input",ExpressionUUID->"05dcfaa6-10ab-46a3-8636-13c493e5f39a"] }, Closed]], Cell[CellGroupData[{ Cell[6146233, 122707, 1040, 14, 41, "Subsubsection",ExpressionUUID->"a5c06462-4d31-44c5-afb8-5dac87410d5b"], Cell[6147276, 122723, 8305, 193, 470, "Input",ExpressionUUID->"e0d665da-a0cf-4c30-8343-5edd08b6a9da"] }, Closed]], Cell[CellGroupData[{ Cell[6155618, 122921, 1154, 16, 41, "Subsubsection",ExpressionUUID->"f9b81931-fc6b-4b31-8527-bf2f091509bc"], Cell[6156775, 122939, 17681, 336, 558, "Input",ExpressionUUID->"4258d36f-45d5-448d-8326-4300518699d9"] }, Closed]], Cell[CellGroupData[{ Cell[6174493, 123280, 679, 10, 41, "Subsubsection",ExpressionUUID->"51b22288-a2d3-4b4b-a577-7714ac330010"], Cell[6175175, 123292, 7637, 165, 412, "Input",ExpressionUUID->"ecb16ce7-eb4a-4ab8-849a-fc41dc1fd717"] }, Closed]], Cell[CellGroupData[{ Cell[6182849, 123462, 515, 8, 41, "Subsubsection",ExpressionUUID->"774509af-f811-4977-b60a-5ffa5b883ee6"], Cell[6183367, 123472, 4623, 104, 296, "Input",ExpressionUUID->"8dad98e3-9927-4e9b-99bd-a5b1557cbfef"] }, Closed]], Cell[CellGroupData[{ Cell[6188027, 123581, 393, 7, 41, "Subsubsection",ExpressionUUID->"651aecbf-7097-4b8e-90b6-669c91fe8627"], Cell[6188423, 123590, 4181, 98, 296, "Input",ExpressionUUID->"c05783a0-9cba-4f12-8296-a784410ff64f"] }, Closed]], Cell[CellGroupData[{ Cell[6192641, 123693, 413, 7, 41, "Subsubsection",ExpressionUUID->"8a4c3d78-5026-4fef-8bce-7ed330109588"], Cell[6193057, 123702, 4360, 101, 296, "Input",ExpressionUUID->"c17290bf-cb8f-480e-ac8f-55c92ce9abde"] }, Closed]], Cell[CellGroupData[{ Cell[6197454, 123808, 363, 6, 41, "Subsubsection",ExpressionUUID->"31052e8b-e3ce-4b5f-af0e-e78d7740883b"], Cell[6197820, 123816, 4997, 119, 339, "Input",ExpressionUUID->"7336f1a7-3fd7-4c69-a95c-d442da5a82b3"] }, Closed]], Cell[CellGroupData[{ Cell[6202854, 123940, 471, 8, 41, "Subsubsection",ExpressionUUID->"48f0ec18-b017-4b89-a1bd-c104c66a504c"], Cell[6203328, 123950, 5504, 132, 361, "Input",ExpressionUUID->"08219662-c4ad-48f5-9182-e538c5775da6"] }, Closed]], Cell[CellGroupData[{ Cell[6208869, 124087, 521, 8, 41, "Subsubsection",ExpressionUUID->"49f942f7-ecb0-4d1d-8278-e1bae37ff586"], Cell[6209393, 124097, 5358, 129, 339, "Input",ExpressionUUID->"7aa84f97-f7d6-49c2-a7db-6cb3a9968cba"] }, Closed]], Cell[CellGroupData[{ Cell[6214788, 124231, 517, 8, 41, "Subsubsection",ExpressionUUID->"ac40d90d-914e-4b93-a231-6f0e2065e7a1"], Cell[6215308, 124241, 4136, 95, 274, "Input",ExpressionUUID->"2e3235c2-949b-4541-88ea-e6b12663af08"] }, Closed]], Cell[CellGroupData[{ Cell[6219481, 124341, 539, 9, 41, "Subsubsection",ExpressionUUID->"57f21e48-fb14-4373-be36-abfcea2475d6"], Cell[6220023, 124352, 8489, 201, 471, "Input",ExpressionUUID->"b1800f4a-cc00-47b7-8938-047df4777100"] }, Closed]], Cell[CellGroupData[{ Cell[6228549, 124558, 590, 9, 41, "Subsubsection",ExpressionUUID->"98b23167-44ea-4738-8c93-70a1ac507096"], Cell[6229142, 124569, 9108, 212, 575, "Input",ExpressionUUID->"1170cb27-d5cd-40fd-9b64-ae5ec9a0aa83"] }, Closed]], Cell[CellGroupData[{ Cell[6238287, 124786, 746, 11, 41, "Subsubsection",ExpressionUUID->"37efb8f6-fa35-4365-9468-ba5995c4ffba"], Cell[6239036, 124799, 8408, 186, 360, "Input",ExpressionUUID->"9ce4b953-d638-4998-ab24-8defd9763fc9"] }, Closed]], Cell[CellGroupData[{ Cell[6247481, 124990, 566, 9, 41, "Subsubsection",ExpressionUUID->"c439ecf3-de37-484a-9c17-4cba2161a00e"], Cell[6248050, 125001, 4773, 106, 296, "Input",ExpressionUUID->"af448ed1-9a2c-45ca-9381-630a751de4e6"] }, Closed]], Cell[CellGroupData[{ Cell[6252860, 125112, 592, 9, 41, "Subsubsection",ExpressionUUID->"87e69061-f257-4d68-9e79-a43ea6925ba7"], Cell[6253455, 125123, 5101, 108, 317, "Input",ExpressionUUID->"114c24d3-3255-424c-acff-66891076e40a"] }, Closed]], Cell[CellGroupData[{ Cell[6258593, 125236, 464, 8, 41, "Subsubsection",ExpressionUUID->"748a698a-426b-4ce2-86ae-366b120589e9"], Cell[6259060, 125246, 5441, 129, 339, "Input",ExpressionUUID->"67ec1594-c4f9-4a33-9386-cc92f0410ffa"] }, Closed]], Cell[CellGroupData[{ Cell[6264538, 125380, 539, 9, 41, "Subsubsection",ExpressionUUID->"523c7530-4d55-4edf-950e-9c479c1fc40e"], Cell[6265080, 125391, 4224, 96, 274, "Input",ExpressionUUID->"99e2dfe3-63d4-4334-88a7-19ffdeb69b74"] }, Closed]], Cell[CellGroupData[{ Cell[6269341, 125492, 827, 13, 41, "Subsubsection",ExpressionUUID->"f0434cd2-63ef-4ae4-9942-10c20df2cfd1"], Cell[6270171, 125507, 10308, 210, 350, "Input",ExpressionUUID->"a2835d22-d0e9-4c07-af63-c1186e47796e"] }, Closed]], Cell[CellGroupData[{ Cell[6280516, 125722, 853, 13, 41, "Subsubsection",ExpressionUUID->"54f8ba9e-2bd7-4c80-bac2-49e5be5c1e20"], Cell[6281372, 125737, 14592, 325, 636, "Input",ExpressionUUID->"f25e426e-9957-46f4-9a08-c1005932b65c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6296013, 126068, 913, 13, 43, "Subsection",ExpressionUUID->"fa121407-3c48-4650-953c-7adad3ec1e44"], Cell[CellGroupData[{ Cell[6296951, 126085, 556, 9, 51, "Subsubsection",ExpressionUUID->"ad884565-ae3f-4c14-8d0c-2f714a91ac8f"], Cell[6297510, 126096, 6657, 145, 427, "Input",ExpressionUUID->"a0b3efb0-e09e-48ff-aae2-b32d10e9629b"] }, Closed]], Cell[CellGroupData[{ Cell[6304204, 126246, 596, 9, 41, "Subsubsection",ExpressionUUID->"0680c5ff-d11d-4187-be42-9e4baa5820d8"], Cell[6304803, 126257, 7252, 167, 492, "Input",ExpressionUUID->"a076bcbe-237c-407c-8070-1ae68450da3e"] }, Closed]], Cell[CellGroupData[{ Cell[6312092, 126429, 751, 11, 41, "Subsubsection",ExpressionUUID->"b0d291af-e6fe-4676-b473-85fd9c8cfab6"], Cell[6312846, 126442, 4652, 102, 296, "Input",ExpressionUUID->"2ea2d776-cd6e-4011-80ba-24d6ce8b1852"] }, Closed]], Cell[CellGroupData[{ Cell[6317535, 126549, 593, 9, 41, "Subsubsection",ExpressionUUID->"d8bdd1b9-5420-4503-ac1a-eefeca0cc6bc"], Cell[6318131, 126560, 3345, 86, 296, "Input",ExpressionUUID->"1cd8ebb6-8ab1-4de2-91cb-a7b45238fd03"] }, Closed]], Cell[CellGroupData[{ Cell[6321513, 126651, 506, 8, 41, "Subsubsection",ExpressionUUID->"03eb9298-36de-4061-8979-aed2a4e4919c"], Cell[6322022, 126661, 6152, 147, 449, "Input",ExpressionUUID->"21d27347-6c12-41d3-8079-529fa7642019"] }, Closed]], Cell[CellGroupData[{ Cell[6328211, 126813, 552, 9, 41, "Subsubsection",ExpressionUUID->"babdece1-c7e0-4517-9465-b518d93da035"], Cell[6328766, 126824, 5119, 121, 361, "Input",ExpressionUUID->"bd934fd0-2f5d-4e99-9075-4e930348c1ee"] }, Closed]], Cell[CellGroupData[{ Cell[6333922, 126950, 354, 5, 41, "Subsubsection",ExpressionUUID->"bd7d2031-9523-4956-8d51-2706d8251ae3"], Cell[6334279, 126957, 826, 19, 59, "Input",ExpressionUUID->"ae1496c6-223e-4cd7-a856-7158f128e4df"] }, Closed]], Cell[CellGroupData[{ Cell[6335142, 126981, 393, 6, 41, "Subsubsection",ExpressionUUID->"1df3d399-bb9e-4abc-b8cc-88e4f6913279"], Cell[6335538, 126989, 4287, 101, 296, "Input",ExpressionUUID->"53b9da1b-dafe-4d8c-9e36-8eb4590079d5"] }, Closed]], Cell[CellGroupData[{ Cell[6339862, 127095, 297, 5, 41, "Subsubsection",ExpressionUUID->"19153dfe-cc3a-488f-bfdd-7fb01145d428"], Cell[6340162, 127102, 4313, 102, 339, "Input",ExpressionUUID->"a0882aa8-b693-48b7-94b8-597d19fab94c"] }, Closed]], Cell[CellGroupData[{ Cell[6344512, 127209, 323, 6, 41, "Subsubsection",ExpressionUUID->"2395f8ed-1cb3-43c1-ab7e-f0aabd07c9c1"], Cell[6344838, 127217, 4974, 119, 427, "Input",ExpressionUUID->"e5329101-4ab1-4329-bc62-ee00b36f45bd"] }, Closed]], Cell[CellGroupData[{ Cell[6349849, 127341, 345, 6, 41, "Subsubsection",ExpressionUUID->"ef256175-480b-4bbb-9935-0bf01fb00069"], Cell[6350197, 127349, 4505, 101, 361, "Input",ExpressionUUID->"d4eff91b-f8c1-44bf-b7cf-b96ef1ec008d"] }, Closed]], Cell[CellGroupData[{ Cell[6354739, 127455, 330, 6, 41, "Subsubsection",ExpressionUUID->"e38351d8-227b-4907-bc59-738eccd33221"], Cell[6355072, 127463, 4444, 113, 463, "Input",ExpressionUUID->"d2260491-75a4-4cf0-a648-3b8481045b64"] }, Closed]], Cell[CellGroupData[{ Cell[6359553, 127581, 509, 8, 41, "Subsubsection",ExpressionUUID->"37a02762-aceb-4114-8a77-992d1a1fcd98"], Cell[6360065, 127591, 4178, 104, 439, "Input",ExpressionUUID->"3514b2a0-6ba9-4ce8-8fef-1b4e804f42ab"] }, Closed]], Cell[CellGroupData[{ Cell[6364280, 127700, 523, 8, 41, "Subsubsection",ExpressionUUID->"f76e78ac-146b-412e-887a-c128fb38b939"], Cell[6364806, 127710, 5104, 128, 487, "Input",ExpressionUUID->"955f41c3-4dd7-49e8-b488-2b896ff3cfab"] }, Closed]], Cell[CellGroupData[{ Cell[6369947, 127843, 508, 8, 41, "Subsubsection",ExpressionUUID->"7a9576ca-d964-4292-8d40-a80fe0dd3bc7"], Cell[6370458, 127853, 5305, 119, 416, "Input",ExpressionUUID->"636466ce-0571-4e4e-8ae7-72c4dacc64e9"] }, Closed]], Cell[CellGroupData[{ Cell[6375800, 127977, 567, 9, 41, "Subsubsection",ExpressionUUID->"bb8faa84-ea29-47b4-8c92-89ac32485c33"], Cell[6376370, 127988, 4976, 119, 487, "Input",ExpressionUUID->"3206ee7f-6e9a-4e8b-8aba-6e66db06a5ff"] }, Closed]], Cell[CellGroupData[{ Cell[6381383, 128112, 420, 7, 41, "Subsubsection",ExpressionUUID->"1fe172b2-016c-4aba-8cfd-2ebfbed2dc90"], Cell[6381806, 128121, 3989, 87, 252, "Input",ExpressionUUID->"8ea6e0c5-2a58-4985-9c76-614e468605ea"] }, Closed]], Cell[CellGroupData[{ Cell[6385832, 128213, 368, 6, 41, "Subsubsection",ExpressionUUID->"e5ce76bd-015b-40a7-adb1-5e79364d25b8"], Cell[6386203, 128221, 3783, 84, 230, "Input",ExpressionUUID->"2d5cce61-0f8a-4c71-b656-6f779dd97793"] }, Closed]], Cell[CellGroupData[{ Cell[6390023, 128310, 370, 6, 41, "Subsubsection",ExpressionUUID->"eef69bfa-7bb5-46f2-8db8-9924804686c0"], Cell[6390396, 128318, 4267, 94, 296, "Input",ExpressionUUID->"50140b56-1c9b-4e58-9937-91de5988d963"] }, Closed]], Cell[CellGroupData[{ Cell[6394700, 128417, 431, 7, 41, "Subsubsection",ExpressionUUID->"8d01b6d5-fae7-4c58-afec-7fce6773a728"], Cell[6395134, 128426, 6352, 154, 449, "Input",ExpressionUUID->"154ed40d-99a8-481b-a618-2619f6029cdc"] }, Closed]], Cell[CellGroupData[{ Cell[6401523, 128585, 585, 9, 41, "Subsubsection",ExpressionUUID->"22a9e949-b97e-4d43-acf5-7804f3da557a"], Cell[6402111, 128596, 4452, 102, 317, "Input",ExpressionUUID->"aa785a46-512f-4ad5-af3e-a4b4729ac940"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6406612, 128704, 1069, 15, 43, "Subsection",ExpressionUUID->"d053b87e-0a36-41f5-9a79-0963f6a838d1"], Cell[CellGroupData[{ Cell[6407706, 128723, 277, 4, 51, "Subsubsection",ExpressionUUID->"8dd10ecd-9420-47b9-b949-c6457850e7e5"], Cell[6407986, 128729, 5483, 143, 383, "Input",ExpressionUUID->"e06a7094-1b09-44d1-af8a-00a6623eca53"] }, Closed]], Cell[CellGroupData[{ Cell[6413506, 128877, 302, 5, 41, "Subsubsection",ExpressionUUID->"a318a62d-142b-40ba-8ad1-05d968410a9b"], Cell[CellGroupData[{ Cell[6413833, 128886, 3797, 97, 393, "Input",ExpressionUUID->"6c309b4b-6bf3-4fa2-b01d-c51380819ae2"], Cell[6417633, 128985, 5103, 143, 204, "Output",ExpressionUUID->"b9901ac5-b6f8-4071-9b3a-a47704a20486"], Cell[6422739, 129130, 3857, 106, 66, "Print",ExpressionUUID->"f281d065-cd57-45ab-be5c-b3b3c7fd93b1"], Cell[6426599, 129238, 510, 15, 78, "Output",ExpressionUUID->"336c0525-f82f-46ad-81dc-0a5fcbbea962"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6427158, 129259, 726, 11, 41, "Subsubsection",ExpressionUUID->"b7eb7caf-54c8-490c-a3f5-38ba31457090"], Cell[6427887, 129272, 5634, 118, 416, "Input",ExpressionUUID->"77b6eced-b6c9-4bc1-945f-a338808adf1d"] }, Closed]], Cell[CellGroupData[{ Cell[6433558, 129395, 455, 7, 41, "Subsubsection",ExpressionUUID->"9d62d4d8-f46d-4240-bb4c-4209e910ae4c"], Cell[6434016, 129404, 3482, 89, 345, "Input",ExpressionUUID->"7910f265-ddf5-450c-bd50-3701a1610cd2"] }, Closed]], Cell[CellGroupData[{ Cell[6437535, 129498, 1067, 15, 41, "Subsubsection",ExpressionUUID->"f71683d9-a582-4390-9516-0b8711bf6627"], Cell[6438605, 129515, 7714, 175, 430, "Input",ExpressionUUID->"95469052-5cdd-46a2-9e64-d56c88af16d3"] }, Closed]], Cell[CellGroupData[{ Cell[6446356, 129695, 326, 5, 41, "Subsubsection",ExpressionUUID->"220cc944-580e-4a01-9d36-ec77c65de10b"], Cell[6446685, 129702, 2931, 71, 274, "Input",ExpressionUUID->"0f3c5711-6ae7-46b6-aff9-097354e707ef"] }, Closed]], Cell[CellGroupData[{ Cell[6449653, 129778, 326, 5, 41, "Subsubsection",ExpressionUUID->"c7dc1f4e-6d0a-4d11-ab48-43874edb5176"], Cell[6449982, 129785, 3771, 92, 345, "Input",ExpressionUUID->"4f69ea43-df16-4d0e-b074-8b96b66f5d7e"] }, Closed]], Cell[CellGroupData[{ Cell[6453790, 129882, 476, 7, 41, "Subsubsection",ExpressionUUID->"1869a470-2be2-4104-8e3d-a3f10930847b"], Cell[6454269, 129891, 5225, 135, 448, "Input",ExpressionUUID->"cef7e12b-f6f7-4f23-81bb-4901aab0f6a1"] }, Closed]], Cell[CellGroupData[{ Cell[6459531, 130031, 454, 7, 41, "Subsubsection",ExpressionUUID->"13f6a8aa-bc6e-49de-af64-ebdb9f39fba3"], Cell[6459988, 130040, 4930, 128, 416, "Input",ExpressionUUID->"6f94c4d3-8f19-4c88-aff3-36a209f3e3ed"] }, Closed]], Cell[CellGroupData[{ Cell[6464955, 130173, 547, 8, 41, "Subsubsection",ExpressionUUID->"87dce7b3-0b9a-460d-8689-094a8d00f48b"], Cell[6465505, 130183, 3774, 91, 345, "Input",ExpressionUUID->"42ee8c06-ae74-416f-bae9-df33c6534d4a"] }, Closed]], Cell[CellGroupData[{ Cell[6469316, 130279, 523, 8, 41, "Subsubsection",ExpressionUUID->"164029f8-57b5-423f-a482-57906c4cd5ae"], Cell[6469842, 130289, 4048, 100, 369, "Input",ExpressionUUID->"28191130-a600-4bcb-a7c2-3ec4355bbe62"] }, Closed]], Cell[CellGroupData[{ Cell[6473927, 130394, 551, 8, 41, "Subsubsection",ExpressionUUID->"8d13a2ff-bf1d-4122-abbe-3e4d8a7ffba3"], Cell[6474481, 130404, 5025, 123, 393, "Input",ExpressionUUID->"8f0de954-9da5-4950-a27b-143de6c236ba"] }, Closed]], Cell[CellGroupData[{ Cell[6479543, 130532, 521, 8, 41, "Subsubsection",ExpressionUUID->"40264169-861c-4300-bbd5-711d2c27a00a"], Cell[6480067, 130542, 4208, 102, 369, "Input",ExpressionUUID->"1e278e26-d081-4700-91db-6b1b4a27b5b0"] }, Closed]], Cell[CellGroupData[{ Cell[6484312, 130649, 400, 6, 41, "Subsubsection",ExpressionUUID->"7b465b17-56a5-41e3-bee8-47b82e9f5652"], Cell[6484715, 130657, 3345, 86, 321, "Input",ExpressionUUID->"e0a0516f-78e1-40b3-aa9e-ce6a0cfbc34f"] }, Closed]], Cell[CellGroupData[{ Cell[6488097, 130748, 1147, 16, 41, "Subsubsection",ExpressionUUID->"f60d70b7-b891-4a09-848d-b41a98cf1704"], Cell[6489247, 130766, 7011, 162, 430, "Input",ExpressionUUID->"395f2166-d939-4f94-9f82-a16f91a21417"] }, Closed]], Cell[CellGroupData[{ Cell[6496295, 130933, 396, 6, 41, "Subsubsection",ExpressionUUID->"1cca6a62-55e8-4da3-a096-5c4f1a7f0b91"], Cell[6496694, 130941, 3594, 84, 317, "Input",ExpressionUUID->"1b684c1d-e61b-41c3-8064-5c33890b81df"] }, Closed]], Cell[CellGroupData[{ Cell[6500325, 131030, 593, 9, 41, "Subsubsection",ExpressionUUID->"1503e7a8-d973-407b-ab26-509dac6618f2"], Cell[6500921, 131041, 3713, 86, 274, "Input",ExpressionUUID->"5117deaf-5faa-455d-84d2-74b53bc82dc6"] }, Closed]], Cell[CellGroupData[{ Cell[6504671, 131132, 346, 5, 41, "Subsubsection",ExpressionUUID->"91f2e598-11a5-488c-ac09-cc5ef42a7fe2"], Cell[6505020, 131139, 4329, 108, 361, "Input",ExpressionUUID->"e690524b-14ca-42cc-822e-7caa2d2bca24"] }, Closed]], Cell[CellGroupData[{ Cell[6509386, 131252, 422, 6, 41, "Subsubsection",ExpressionUUID->"02572de7-8ad7-4a0a-bbaa-d859716057a9"], Cell[6509811, 131260, 4206, 108, 339, "Input",ExpressionUUID->"7d507144-6548-487a-9902-5fb913686044"] }, Closed]], Cell[CellGroupData[{ Cell[6514054, 131373, 595, 9, 41, "Subsubsection",ExpressionUUID->"d30d3e9d-0539-490a-84ba-f6b8854a812d"], Cell[6514652, 131384, 5157, 119, 361, "Input",ExpressionUUID->"b3a33045-648d-45db-afb1-2658bf2eed28"] }, Closed]], Cell[CellGroupData[{ Cell[6519846, 131508, 599, 9, 41, "Subsubsection",ExpressionUUID->"1371301a-0863-41ed-899d-8b9f248121f3"], Cell[6520448, 131519, 4858, 110, 339, "Input",ExpressionUUID->"d75bcd0c-d746-466f-8e09-2c53cdde3096"] }, Closed]] }, Open ]] }, Open ]] } ] *)