(* 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[ 4893106, 104299] NotebookOptionsPosition[ 4834341, 103286] NotebookOutlinePosition[ 4835021, 103308] CellTagsIndexPosition[ 4834978, 103305] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MEC-E8001 Finite Element Analysis 2025", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, 3.55687256290082*^9, {3.5568726649396563`*^9, 3.5568726677478175`*^9}, 3.618709835758954*^9, 3.629777498181036*^9, 3.661174828401641*^9, {3.685234578060045*^9, 3.685234582484299*^9}, { 3.68523485439185*^9, 3.6852348785262322`*^9}, {3.6852638608992662`*^9, 3.685263861779268*^9}, {3.685320346309156*^9, 3.685320357419171*^9}, { 3.688455489182722*^9, 3.688455490812724*^9}, {3.690793272858951*^9, 3.6907932833889694`*^9}, 3.692021062414472*^9, 3.723799076464348*^9, 3.752907552672845*^9, {3.786674520886054*^9, 3.78667452099538*^9}, { 3.787369077038349*^9, 3.787369078333099*^9}, {3.7873692589195037`*^9, 3.7873692634178495`*^9}, 3.816933053461233*^9, {3.817042959067622*^9, 3.817042966014656*^9}, {3.8191048779101887`*^9, 3.819104878387551*^9}, 3.850613499899732*^9, {3.881205177543756*^9, 3.8812051776745157`*^9}, { 3.9128307448075695`*^9, 3.9128307450269046`*^9}, {3.9448331263062687`*^9, 3.9448331264562473`*^9}},ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-\ 59c8faa291c7"], Cell[CellGroupData[{ Cell["FEM DEFINITIONS", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}},ExpressionUUID->"bfb4b998-3e37-4b47-b315-\ 8d973fbc66ac"], Cell[CellGroupData[{ Cell["DEFS defs ", "Subsection", CellChangeTimes->{{3.4770537307790003`*^9, 3.4770537313562*^9}},ExpressionUUID->"95f06f7a-2839-3f41-967e-d5278b2742cc"], 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", "]"}]}], ",", RowBox[{ RowBox[{"qX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]qX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"qY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]qY", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"qZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]qZ", "[", "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]", "[", "__", "]"}], "\[IndentingNewLine]", "|", " ", RowBox[{"qX", "[", "__", "]"}], "|", " ", RowBox[{"qY", "[", "__", "]"}], "|", " ", RowBox[{"qZ", "[", "__", "]"}]}], ",", "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]", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]qX", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]qY", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]qZ", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DOFS", "[", RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"b", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"c", "[", RowBox[{"__", ",", "n"}], "]"}], " ", "|", RowBox[{"uX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]X", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]Y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Theta]Z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"ux", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]x", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Theta]z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"MZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"MB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"Mx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"My", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Mz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[CurlyTheta]", "[", RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]DOFS", "[", RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"\[Delta]a", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]b", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]c", "[", RowBox[{"__", ",", "n"}], "]"}], " ", "|", RowBox[{"\[Delta]uX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]ux", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]MZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]MB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]Mx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]My", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Mz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[CurlyTheta]", "[", RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DRULE", "[", "n_", "]"}], ":=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"b", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"c", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]X", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]Y", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]Z", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"ux", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uy", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uz", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]x", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]y", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]z", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FN", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FN", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FT", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FT", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FB", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FB", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MN", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MN", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MT", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MT", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MB", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MB", "[", RowBox[{"any", ",", "n"}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "u_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "dof", "}"}], ",", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "u", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"dof", "==", RowBox[{"{", "}"}]}], " ", ",", RowBox[{"u", "*", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{"u", ",", RowBox[{"{", "dof", "}"}]}], "]"}], ".", RowBox[{"\[Delta]", "[", "dof", "]"}]}]}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.442646258577845*^9, 3.442646259077045*^9}, 3.4770537732734003`*^9, {3.4770538084514*^9, 3.4770539107874*^9}, { 3.4770539837018*^9, 3.4770539840762*^9}, {3.631018436621814*^9, 3.631018437292616*^9}, {3.685233451807683*^9, 3.685233452477684*^9}, { 3.685234382901882*^9, 3.685234386640098*^9}, {3.685344204103457*^9, 3.6853443400412316`*^9}, {3.6853443751512394`*^9, 3.685344377332364*^9}, 3.6853454114825144`*^9, {3.686831646161264*^9, 3.686831808451494*^9}, { 3.686832766952832*^9, 3.6868328092028913`*^9}, {3.686832846372944*^9, 3.686832931023062*^9}, {3.687263552974466*^9, 3.68726356166448*^9}, { 3.6875150430418844`*^9, 3.6875151112847824`*^9}, {3.687743582879592*^9, 3.687743667509711*^9}, {3.687743698119753*^9, 3.687743737409808*^9}, { 3.687743767499851*^9, 3.687743819059922*^9}, {3.687744657251096*^9, 3.687744669171112*^9}, {3.692421446310708*^9, 3.69242161182094*^9}, { 3.6926015199824505`*^9, 3.692601820564872*^9}, {3.692690935549731*^9, 3.692690936789733*^9}, {3.692767714844748*^9, 3.692767777644837*^9}, { 3.692767831454912*^9, 3.692767871884969*^9}, {3.694232237611687*^9, 3.694232408501927*^9}, {3.694415508707368*^9, 3.694415535947406*^9}, { 3.6944156219175262`*^9, 3.6944156308775387`*^9}, {3.694415674217599*^9, 3.694415743297696*^9}, 3.694416262378423*^9, 3.694416759679119*^9, { 3.6946871199157624`*^9, 3.694687178045844*^9}, 3.694687240645934*^9, { 3.69484543773889*^9, 3.694845473938943*^9}, {3.694845622699153*^9, 3.694845623739154*^9}, {3.69484572091929*^9, 3.6948457976193976`*^9}, { 3.724304012886026*^9, 3.724304060229605*^9}, {3.73313814515314*^9, 3.7331381540290995`*^9}, {3.733138190908001*^9, 3.73313829263722*^9}, { 3.7458091168859*^9, 3.745809330453831*^9}, {3.7530811243190904`*^9, 3.753081144918659*^9}, {3.756168639644263*^9, 3.756168670119571*^9}, { 3.7600603151211576`*^9, 3.760060315683525*^9}, {3.789479648409992*^9, 3.789479649089468*^9}, {3.789479692503845*^9, 3.7894797188708086`*^9}, { 3.789479750036141*^9, 3.789479784847563*^9}, 3.789479968188523*^9, { 3.789480438163148*^9, 3.789480442205195*^9}, {3.7894806002852697`*^9, 3.789480655832934*^9}, {3.8166040129889574`*^9, 3.816604149583782*^9}, { 3.816604189186468*^9, 3.816604214802972*^9}, {3.8166042734773865`*^9, 3.8166043972850933`*^9}, {3.816604428267262*^9, 3.816604499850178*^9}, { 3.816608170369864*^9, 3.816608220389016*^9}, {3.82106554697574*^9, 3.821065597044009*^9}, {3.821065646217851*^9, 3.821065659621196*^9}, { 3.821065714586218*^9, 3.8210658123471637`*^9}, {3.8210658715411763`*^9, 3.821065940333043*^9}, 3.82106599342321*^9, {3.821151689134054*^9, 3.8211516901175613`*^9}, {3.93562382874498*^9, 3.935623877193056*^9}, { 3.935625411913646*^9, 3.935625515933305*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"93615ac2-498f-c14d-8736-a177764b48ff"] }, Closed]], Cell[CellGroupData[{ Cell["SHAPE defs ", "Subsection",ExpressionUUID->"9a420395-e947-da48-b72a-03916678fad4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "->", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bas", ",", RowBox[{ SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES21", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", "y1_"}], "}"}], ",", RowBox[{"{", RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nx", "=", " ", RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "x1", "}"}], ",", RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ny", "=", " ", RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "y1", "}"}], ",", RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES3", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "->", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "->", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], "}"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"r", "->", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"r", "-", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"r", "-", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], ",", RowBox[{"{", RowBox[{"m_", ",", "s_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], ",", RowBox[{"{", RowBox[{"m_", ",", "s_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "t_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"k", ",", "t"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bas", ",", RowBox[{ SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES21", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", "y1_"}], "}"}], ",", RowBox[{"{", RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nx", "=", " ", RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "x1", "}"}], ",", RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ny", "=", " ", RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "y1", "}"}], ",", RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHAPES3", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "->", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.4670783931368*^9, 3.4670784098444*^9}, { 3.468067594204*^9, 3.4680678179392*^9}, 3.4680680234556*^9, { 3.468068073126*^9, 3.4680681447455997`*^9}, {3.4680681751188*^9, 3.46806831009*^9}, {3.4684605671832*^9, 3.468460572674401*^9}, { 3.471399186098*^9, 3.4713991974236*^9}, {3.471404873455*^9, 3.4714048739854*^9}, {3.4820580083386*^9, 3.4820580095086*^9}, { 3.482058887483599*^9, 3.4820588977016*^9}, {3.618719308856648*^9, 3.6187193100797176`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"fb97c993-0041-e74e-ac9a-995943d9af1a"] }, Closed]], Cell[CellGroupData[{ Cell["QUAD defs ", "Subsection",ExpressionUUID->"55defa93-aae1-9b4e-92fe-ae9e548b2856"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN1", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN2", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN2G", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0.21132486540518713", "}"}], ",", RowBox[{"{", "0.7886751345948129", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3G", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0.1127016653792583", "}"}], ",", RowBox[{"{", "0.5", "}"}], ",", RowBox[{"{", "0.8872983346207417", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ "0.2777777777777777", ",", "0.44444444444444453", ",", "0.2777777777777777"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN5", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "32", ",", "12", ",", "32", ",", "7"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN5", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "32", ",", "12", ",", "32", ",", "7"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "41", ",", "216", ",", "27", ",", "272", ",", "27", ",", "216", ",", "41"}], "}"}], "/", "840"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN14", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"ii", ",", "0", ",", "13"}], "}"}]}], "]"}], "/", "13"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ FractionBox["8181904909", "402361344000"], ",", FractionBox["56280729661", "402361344000"], ",", RowBox[{"-", FractionBox["1737125143", "22353408000"]}], ",", FractionBox["11148172711", "28740096000"], ",", RowBox[{"-", FractionBox["6066382933", "16094453760"]}], ",", FractionBox["22964826443", "44706816000"], ",", RowBox[{"-", FractionBox["3592666051", "33530112000"]}], ",", RowBox[{"-", FractionBox["3592666051", "33530112000"]}], ",", FractionBox["22964826443", "44706816000"], ",", RowBox[{"-", FractionBox["6066382933", "16094453760"]}], ",", FractionBox["11148172711", "28740096000"], ",", RowBox[{"-", FractionBox["1737125143", "22353408000"]}], ",", FractionBox["56280729661", "402361344000"], ",", FractionBox["8181904909", "402361344000"]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "24"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI41", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "120"}], "*", RowBox[{"{", RowBox[{"11", ",", "11", ",", "11", ",", "27"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI12", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", "4", ",", RowBox[{"-", "1"}], ",", "8", ",", RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "36", ",", RowBox[{"-", "27"}], ",", "64", ",", RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", ",", "72", ",", "72", ",", "72", ",", "36", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "54"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", RowBox[{"(", RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "24"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI12", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", "4", ",", RowBox[{"-", "1"}], ",", "8", ",", RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "36", ",", RowBox[{"-", "27"}], ",", "64", ",", RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", ",", "72", ",", "72", ",", "72", ",", "36", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "54"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", RowBox[{"(", RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC9", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1"}], "}"}], "/", "36"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "16", ",", "64", ",", "16", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1"}], "}"}], "/", RowBox[{"6", "^", "3"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TET5", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "16"}], ",", "9", ",", "9", ",", "9", ",", "9"}], "}"}], "/", "120"}]}], ",", RowBox[{"p", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "6"}]}], "}"}]}], "}"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TET10", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4"}], "}"}], "/", "120"}]}], ",", RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442646276143445*^9, {3.442646358027845*^9, 3.442646367278643*^9}, 3.4461855349388*^9, {3.446864926409199*^9, 3.4468649477656*^9}, 3.477065319815799*^9, {3.4771016648258*^9, 3.4771016703638*^9}, 3.4773012612406*^9, 3.4773013118782*^9, {3.4773017793166*^9, 3.4773018115618*^9}, {3.4818081970202*^9, 3.4818082252406*^9}, { 3.482297760829601*^9, 3.48229777267*^9}, {3.482298444565*^9, 3.4822984493698*^9}, {3.4822986565578003`*^9, 3.4822987152293997`*^9}, { 3.482298747147001*^9, 3.4822988202018*^9}, {3.4823218768966*^9, 3.4823219047738*^9}, {3.632040075912755*^9, 3.63204007741884*^9}, { 3.6339410644178886`*^9, 3.633941069742193*^9}, {3.633942002306533*^9, 3.633942003477599*^9}, 3.6565732333204584`*^9, {3.685329942084824*^9, 3.6853299995431104`*^9}, {3.688119522418332*^9, 3.688119523698334*^9}, { 3.688119557148381*^9, 3.688119591558429*^9}, {3.688120564569791*^9, 3.688120568389799*^9}, {3.688120618509866*^9, 3.688120642069899*^9}, { 3.688284719785588*^9, 3.688284729985602*^9}, {3.6882848245567346`*^9, 3.688284827776739*^9}, {3.688284875506806*^9, 3.688284886746822*^9}, { 3.688350375413198*^9, 3.688350378173202*^9}, 3.6883504111932483`*^9, { 3.7455544449212356`*^9, 3.745554465572897*^9}, {3.7455544990494084`*^9, 3.745554517279535*^9}, {3.74644306965172*^9, 3.746443076505107*^9}, { 3.746873351131408*^9, 3.7468733665022874`*^9}, {3.763815192640204*^9, 3.763815226217584*^9}, {3.76381555999401*^9, 3.763815576658593*^9}, { 3.763815629456071*^9, 3.763815643364319*^9}, {3.7638156760642715`*^9, 3.763815680110509*^9}, {3.763816314054133*^9, 3.763816315160985*^9}, { 3.764128397481893*^9, 3.7641284022168202`*^9}, {3.764128466623234*^9, 3.764128512308055*^9}, {3.764128551628565*^9, 3.764128597474304*^9}, { 3.764128638976105*^9, 3.764128668115802*^9}, {3.7661439599999857`*^9, 3.766144017439571*^9}, {3.841389728260834*^9, 3.8413897551839*^9}, { 3.84139070668976*^9, 3.841390726628026*^9}, 3.841390760764998*^9, { 3.8435604066446185`*^9, 3.843560438358281*^9}, {3.84356055536794*^9, 3.843560556538128*^9}, {3.843561774758001*^9, 3.8435617981268296`*^9}, { 3.8435621954269557`*^9, 3.8435621959062867`*^9}, {3.844574470547961*^9, 3.84457448460798*^9}, {3.844574539146332*^9, 3.844574603163684*^9}, 3.844574686000376*^9, {3.872149228206285*^9, 3.872149229483136*^9}, { 3.8721492692823997`*^9, 3.8721492926678143`*^9}, {3.872330854573894*^9, 3.872330873686554*^9}, {3.873682080207474*^9, 3.8736820984942775`*^9}, { 3.907760448529519*^9, 3.9077604767562885`*^9}, {3.9079064703652925`*^9, 3.9079064878761053`*^9}, {3.908089302760657*^9, 3.90808931639783*^9}, { 3.91397853263657*^9, 3.9139785663211975`*^9}, {3.913978745783844*^9, 3.9139787846433525`*^9}, {3.913979221180755*^9, 3.913979298871994*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"2d76251a-cd2e-b644-9e23-3a8cb495be5c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tet", "=", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", "z", ",", RowBox[{"x", " ", "y"}], ",", RowBox[{"x", " ", "z"}], ",", " ", RowBox[{"y", " ", "z"}], ",", " ", RowBox[{"x", "^", "2"}], ",", " ", RowBox[{"y", "^", "2"}], ",", RowBox[{"z", "^", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eq", "[", "i_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}], ".", RowBox[{"(", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "->", "#"}], "]"}]}], "&"}], ",", "p"}], "]"}], ")"}]}], "-", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["tet", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}]}]}], StyleBox[";", "OperatorCharacter"]}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{ StyleBox["Solve", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{ StyleBox["Table", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"eq", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "==", "0"}], "]"}], ",", RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"120", "*", RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}]}], " ", "/.", "sol"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{ RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}], " ", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8413897580019093`*^9, 3.841390582400603*^9}, { 3.841390641631239*^9, 3.841390651680857*^9}, {3.841390686922451*^9, 3.841390692801841*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"10242183-ad58-434c-9294-fb2696a42035"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.841390078071135*^9, 3.841390120321647*^9, 3.841390186370854*^9, 3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 3.841390583991149*^9}, 3.841390653783507*^9, 3.8413906934544754`*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"cca15f1f-0a40-e547-995b-e97139d487be"], Cell[BoxData[ FractionBox["1", "6"]], "Output", CellChangeTimes->{ 3.841390078071135*^9, 3.841390120321647*^9, 3.841390186370854*^9, 3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 3.841390583991149*^9}, 3.841390653783507*^9, 3.841390693458464*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"fe35b754-192e-2947-9c0c-a945f019dd7b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["INTEGRATE defs ", "Subsection",ExpressionUUID->"5f278777-966f-3942-9590-e81f6f8507c9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"INTEGRATE", "[", RowBox[{ RowBox[{"{", RowBox[{"LINE", ",", "exp_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{ RowBox[{"{", RowBox[{"LINLINE", ",", "exp"}], "}"}], ",", "#"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RULE", "[", RowBox[{"{", RowBox[{"LINE", ",", RowBox[{"{", "iy_", "}"}], ",", "list_"}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iz", ",", "hx", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], " ", "=", " ", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"Last", "[", "list", "]"}], "]"}], "-", RowBox[{"XYZ", "[", RowBox[{"First", "[", "list", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", " ", "=", " ", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", " ", RowBox[{"Length", "[", "list", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"ix", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"yrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"y", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"iy", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"iz", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{"xrule", ",", "yrule", ",", "zrule"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{ RowBox[{"{", RowBox[{"LINLINE", ",", "exp_"}], "}"}], ",", "element_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "rule", ",", "xx", ",", "yy", ",", "zz", ",", "J", ",", "int"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", " ", "=", " ", RowBox[{"RULE", "[", "element", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xx", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"yy", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"y", "[", "1", "]"}], ",", RowBox[{"y", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"zz", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"z", "[", "1", "]"}], ",", RowBox[{"z", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"J", " ", "=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "xx"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "yy"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "zz"}], ")"}], "^", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"int", " ", "=", " ", RowBox[{ RowBox[{"J", "*", "exp"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xx"}], ",", " ", RowBox[{"y", "\[Rule]", "yy"}], ",", " ", RowBox[{"z", "\[Rule]", "zz"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUADE", "[", RowBox[{"QTYPE", ",", RowBox[{ RowBox[{"(", RowBox[{"int", " ", "/.", " ", RowBox[{"\[Xi]", "\[Rule]", " ", "#1"}]}], ")"}], "&"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE1", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"exp", "[", RowBox[{"{", RowBox[{"1", "/", "2"}], "}"}], "]"}], ".", RowBox[{"{", "1", "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE2", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"exp", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE3", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"exp", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], "/", "2"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], ";"}]}], "Input", InitializationCell->True, CellLabel->"In[68]:=",ExpressionUUID->"139bfdb6-4a48-9449-9c7e-4471a7259dba"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FORCE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531303014368*^9, 3.8175313048303146`*^9}, {3.817531497906958*^9, 3.817531515300654*^9}, 3.817531608989934*^9},ExpressionUUID->"c3bccd40-ae7b-014b-b49d-\ 25e2d5562c5d"], Cell[CellGroupData[{ Cell["NULL ELEMENT defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607882211847*^9, 3.760607887331985*^9}, {3.7606079926026397`*^9, 3.760607999208559*^9}},ExpressionUUID->"b066fc59-8ae6-0c40-9554-\ 834b09637c31"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"should", " ", "anything", " ", "go", " ", "wrong"}], ",", " ", RowBox[{"do", " ", "this"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"analysistype_", ",", "ele_", ",", "fun_"}], "]"}], ":=", "0"}], ";"}]}]], "Input", CellChangeTimes->{{3.760607969172984*^9, 3.7606079699771805`*^9}, { 3.760608006624578*^9, 3.760608064931302*^9}, {3.78807614276607*^9, 3.788076155873885*^9}, {3.788424805091097*^9, 3.7884248740992002`*^9}, { 3.817531967792331*^9, 3.817531969861539*^9}},ExpressionUUID->"46e4611b-325a-484d-bc89-\ f696fd1164aa"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607882211847*^9, 3.760607887331985*^9}, {3.766555151642228*^9, 3.7665551755834265`*^9}, {3.774244544239236*^9, 3.7742445459998*^9}, { 3.787895139092532*^9, 3.787895139619763*^9}},ExpressionUUID->"6a02052d-83f9-be47-bda9-\ 131ff2843ee7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fX", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], " ", "+", RowBox[{"fY", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], "+", "\[IndentingNewLine]", RowBox[{"fZ", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Area", "[", RowBox[{"Polygon", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", "12"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.633681078254959*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.685321752171128*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.688182549390342*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.724757304942735*^9}, {3.7247573425972204`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607910807132*^9, 3.760607911704075*^9}, {3.766555201350331*^9, 3.7665553560217686`*^9}, {3.766555392681496*^9, 3.766555405620928*^9}, { 3.76663078538684*^9, 3.766630788445305*^9}, {3.766630869507775*^9, 3.7666309155844073`*^9}, {3.766630963805001*^9, 3.766630964328018*^9}, { 3.766631006377562*^9, 3.766631007597319*^9}, {3.766631053754822*^9, 3.76663105576933*^9}, {3.766631102143116*^9, 3.766631182053177*^9}, { 3.774244592505701*^9, 3.774244606024996*^9}, {3.774244666999945*^9, 3.774244780885934*^9}, {3.7742448195924053`*^9, 3.774244833365642*^9}, { 3.774244897159311*^9, 3.7742449615049114`*^9}, {3.774245098242358*^9, 3.774245123878042*^9}, {3.77424518753212*^9, 3.774245194368603*^9}, { 3.7742452586200476`*^9, 3.7742453104279203`*^9}, {3.7742469442792187`*^9, 3.774247246560859*^9}, {3.774247297716411*^9, 3.774247331264948*^9}, { 3.78807546567931*^9, 3.788075583030453*^9}, 3.78807562415361*^9, { 3.788075666988602*^9, 3.788075676867788*^9}, 3.788075710101962*^9, { 3.788075747380065*^9, 3.788075748270481*^9}, {3.788076000092724*^9, 3.788076030825418*^9}, 3.817437852364077*^9, {3.8408458462334127`*^9, 3.8408458682568913`*^9}, {3.840847529962968*^9, 3.840847547834058*^9}, { 3.894424621795367*^9, 3.894424623202103*^9}, {3.9051718275449295`*^9, 3.905171862881064*^9}, {3.905171896746775*^9, 3.9051719521760015`*^9}, { 3.905171996990958*^9, 3.9051720896784105`*^9}, {3.9051729661377645`*^9, 3.905172970953158*^9}, {3.905173043185778*^9, 3.905173190474289*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"874e2150-e050-9645-adfb-e8c2ce87629a"] }, 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->"923d7f57-2e72-c547-8d89-\ 705fe63e41ac"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}], ")"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Area", "[", RowBox[{"Polygon", "[", RowBox[{"fun", "[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}], "]"}], "/", "12"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", "m_", "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", " ", RowBox[{"(", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "J"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"iz", "=", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["iy", "OperatorCharacter"]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"(", " ", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"J", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"for", " ", "detailed", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"xyz_", ",", "obj_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "J"}], "}"}], ",", RowBox[{"{", RowBox[{"ix", ",", "iy"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.633681078254959*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.685321752171128*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.688182549390342*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.724757304942735*^9}, {3.7247573425972204`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.820469573319458*^9, 3.820469611924109*^9}, {3.820469713680828*^9, 3.820469726202425*^9}, {3.820469774985937*^9, 3.8204697820405493`*^9}, { 3.820470981863214*^9, 3.8204709829070034`*^9}, {3.8211506205514607`*^9, 3.8211506410480547`*^9}, {3.821150731307102*^9, 3.821150735471115*^9}, { 3.821151423923393*^9, 3.82115148698011*^9}, {3.821151531470887*^9, 3.8211516059392166`*^9}, {3.829884426688024*^9, 3.829884462254188*^9}, { 3.829890944882238*^9, 3.829890962943831*^9}, {3.829891002598065*^9, 3.829891004150228*^9}, {3.829891077911916*^9, 3.8298911107781134`*^9}, { 3.829891268286618*^9, 3.829891271409994*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"3d779d39-7008-6349-9890-f718fbc43c00"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}},ExpressionUUID->"4c711735-c5d9-b549-8858-\ be87849b711e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX", ",", "FY", ",", "FZ", ",", "MX", ",", "MY", ",", "MZ"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.633681078254959*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.685321752171128*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.688182549390342*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.724757304942735*^9}, {3.7247573425972204`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.821150888214839*^9, 3.821150929464642*^9}, {3.821150960323895*^9, 3.8211510555185704`*^9}, {3.821151147384238*^9, 3.821151233654641*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"e0d72bfe-2568-ab49-bc25-60832d0cd6b6"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}, { 3.789441075232401*^9, 3.789441076107287*^9}},ExpressionUUID->"a0463c17-fcea-cd4c-b80f-\ ab426fec7d7c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", RowBox[{"MY", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}]}], "*", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "*", " ", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "^", "2"}]}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.633681078254959*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.685321752171128*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.688182549390342*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.724757304942735*^9}, {3.7247573425972204`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.789441083494993*^9, 3.7894410929576*^9}, {3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 3.821614000501048*^9}, { 3.821778980163827*^9, 3.821779023170026*^9}, {3.852614919790853*^9, 3.8526149264241767`*^9}, {3.852615009794517*^9, 3.852615107659442*^9}, { 3.852615193784408*^9, 3.852615379979502*^9}, {3.852615423643306*^9, 3.852615428357727*^9}, 3.852615738143323*^9, {3.85261577369608*^9, 3.852615775471865*^9}, {3.852615819281072*^9, 3.852615873318371*^9}, 3.85261673979656*^9, {3.85261723461384*^9, 3.8526172417322617`*^9}, { 3.852617814134855*^9, 3.8526178535724907`*^9}, 3.852617953477276*^9, { 3.8526936587753305`*^9, 3.852693709451621*^9}, {3.852694329637337*^9, 3.852694418011649*^9}, {3.852694451913797*^9, 3.852694569753277*^9}, { 3.852699051213097*^9, 3.85269906934655*^9}, {3.852699119349107*^9, 3.85269912274557*^9}, {3.894424571462335*^9, 3.894424592392272*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"ff85631e-c009-8542-bda7-5a5f6a109cdf"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}, { 3.789441075232401*^9, 3.789441076107287*^9}, {3.8223693498062468`*^9, 3.8223693569381757`*^9}},ExpressionUUID->"b80f619f-5e35-2642-9000-\ c558af7daf28"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"FORCE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.633681078254959*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.685321752171128*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.688182549390342*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.724757304942735*^9}, {3.7247573425972204`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.789441083494993*^9, 3.7894410929576*^9}, {3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 3.821614000501048*^9}, { 3.821778980163827*^9, 3.821779023170026*^9}, {3.822369386549012*^9, 3.822369387709909*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"c498c24f-8e68-d24f-adcd-dc5b7962a18f"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.8175313791665382`*^9, 3.817531382081365*^9}, {3.817531489041069*^9, 3.81753151263837*^9}, 3.817531603785071*^9},ExpressionUUID->"1429dc8a-3dcd-554f-a5e7-\ acfbd60b9d67"], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.817437563190297*^9, 3.817437574730232*^9}},ExpressionUUID->"d303ace8-69a0-6a49-9c17-\ 74a26680f881"], 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.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.687744546350946*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.687763945521361*^9}, { 3.687764177651685*^9, 3.687764248381788*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.753083645147056*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.753175348937714*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, 3.790134342393529*^9, { 3.81147586433552*^9, 3.8114758660676584`*^9}, {3.8114759011903524`*^9, 3.811475901663397*^9}, 3.811475998843968*^9, 3.811476163317188*^9, { 3.816603834074288*^9, 3.81660393365638*^9}, {3.8170006770430465`*^9, 3.817000724749156*^9}, {3.817000759539844*^9, 3.817000786405624*^9}, 3.8170037199219055`*^9, {3.8170045080782423`*^9, 3.8170045294203014`*^9}, { 3.81700457884058*^9, 3.81700458306651*^9}, {3.8170046136020584`*^9, 3.81700463632877*^9}, {3.817005436232368*^9, 3.817005516642319*^9}, { 3.817005553771696*^9, 3.817005702201841*^9}, {3.817438004752759*^9, 3.817438079208784*^9}, {3.817438109534282*^9, 3.817438111564824*^9}, { 3.817438162423845*^9, 3.81743817388716*^9}, 3.817438211709083*^9, 3.817438284348664*^9, 3.817438365153536*^9, {3.817438427184007*^9, 3.817438431575055*^9}, {3.817438579668557*^9, 3.8174385809774275`*^9}, { 3.817438614371037*^9, 3.817438652378895*^9}, {3.8456995036286135`*^9, 3.845699532708929*^9}, {3.887516945512927*^9, 3.88751702361886*^9}, { 3.887517058030882*^9, 3.887517070033631*^9}, {3.887517210592626*^9, 3.887517223359357*^9}, {3.939258736965585*^9, 3.939258748542237*^9}, { 3.939258857587334*^9, 3.939258886924679*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"4887cf15-25b4-2e4f-ad4c-c35467bed3d9"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (vibr) defs", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.765078647709998*^9, 3.7650786536233745`*^9}, { 3.787894934272877*^9, 3.787894940030588*^9}, 3.8174375910297575`*^9},ExpressionUUID->"b85bd865-6f05-3644-a5cc-\ 2543edfbec91"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"MX", "[", "n1", "]"}], ",", RowBox[{"MY", "[", "n1", "]"}], ",", RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X1_", ",", "\[Theta]Y1_", ",", "\[Theta]Z1_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"\[Theta]X1", ",", "\[Theta]Y1", ",", "\[Theta]Z1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"MX", "[", "n1", "]"}], ",", RowBox[{"MY", "[", "n1", "]"}], ",", RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}], "*", RowBox[{"FN", "[", "n1", "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.687744546350946*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.687763945521361*^9}, { 3.687764177651685*^9, 3.687764248381788*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.753083645147056*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.753175348937714*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765078678657101*^9, 3.765078730242957*^9}, {3.765079011319233*^9, 3.7650790213991427`*^9}, {3.765079090426065*^9, 3.7650790915198584`*^9}, { 3.788075054101399*^9, 3.7880751871791787`*^9}, 3.788076347615361*^9, { 3.788076408812601*^9, 3.788076439490058*^9}, {3.788076727654149*^9, 3.788076736195205*^9}, {3.788076950987804*^9, 3.788076996669318*^9}, { 3.788157806923176*^9, 3.7881578103397293`*^9}, {3.788157887685897*^9, 3.7881579246081514`*^9}, 3.788166841222316*^9, {3.788245673127977*^9, 3.788245733263819*^9}, {3.788424927035051*^9, 3.788424928787249*^9}, { 3.796348073487073*^9, 3.796348235983635*^9}, 3.8204695675454354`*^9, 3.8210644461664095`*^9, {3.821151852504663*^9, 3.8211518941528387`*^9}, { 3.821151937357603*^9, 3.821152092267825*^9}, {3.8211521441264668`*^9, 3.821152293547024*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"07242536-24a9-7d41-b2f0-133c615af288"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9},ExpressionUUID->"aec0c035-3317-a641-9d9f-\ 8153f0c9d8e6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.687744546350946*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.687763945521361*^9}, { 3.687764177651685*^9, 3.687764248381788*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.753083645147056*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.753175348937714*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"2324784d-4aae-a044-b1d3-7dbaa7841841"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}},ExpressionUUID->"2983caa7-04cf-254c-a249-\ 2a5b95b6d727"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"frictionless", " ", "contact", " ", "penalty"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{"eps_", ",", RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], "-", RowBox[{"Abs", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], "]"}]}], ")"}], "/", "2"}], "*", "eps"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.687744546350946*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.687763945521361*^9}, { 3.687764177651685*^9, 3.687764248381788*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.753083645147056*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.753175348937714*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {3.8216140898940353`*^9, 3.821614102548308*^9}, { 3.894276564190513*^9, 3.894276581614059*^9}, {3.8945103089631004`*^9, 3.8945103685910916`*^9}, {3.894510404041497*^9, 3.8945104854781523`*^9}, 3.8945105434694643`*^9, {3.894510582963648*^9, 3.894510617366144*^9}, { 3.939259289679504*^9, 3.9392592907565193`*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"a3634a73-ffce-4440-b130-3bc7f1221f6f"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}, { 3.822369415696089*^9, 3.822369417539161*^9}},ExpressionUUID->"cce62c42-e7c3-eb4c-b5f5-\ 92ad9b1b5d50"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.687744546350946*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.687763945521361*^9}, { 3.687764177651685*^9, 3.687764248381788*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.753083645147056*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.753175348937714*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {3.8216140898940353`*^9, 3.821614102548308*^9}, { 3.8223694278575764`*^9, 3.8223694427926483`*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"5410f203-6dce-bb45-9294-6695db820e77"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["BEAM MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531474880965*^9, 3.817531482757032*^9}, {3.8175315215912895`*^9, 3.817531523916857*^9}, 3.817531593904994*^9},ExpressionUUID->"9c9dfa8f-9a5c-124b-9afd-\ 93c71180a4fa"], Cell[CellGroupData[{ Cell["BAR ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.787894691941278*^9, 3.7878946924724054`*^9}, 3.7878949434473166`*^9},ExpressionUUID->"faad4daf-a055-ce45-aa74-\ e99a7e3c1235"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "\[Xi]", ",", "N2", ",", "N3", ",", "uX", ",", "uY", ",", "uZ", ",", "any1", ",", "any2", ",", "any3", ",", "fXf", ",", "fYf", ",", "fZf", ",", "Af", ",", "Ef", ",", "rule", ",", "u", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", "\[Xi]"}], ",", RowBox[{"\[Xi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"interpolate", " ", "if", " ", "needed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_", ",", "any3_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", "any2", ",", "any3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", RowBox[{ RowBox[{"(", RowBox[{"any1", "+", "any2"}], ")"}], "/", "2"}], ",", "any2"}], "}"}]}], ",", RowBox[{"any1_", "->", RowBox[{"{", RowBox[{"any1", ",", "any1", ",", "any1"}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fX", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fYf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fY", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fZf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fZ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Af", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"AA", " ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Ef", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"EE", " ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Af", " ", "Ef", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}]}], "*", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fXf", ",", "fYf", ",", "fZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "x", ",", "N2", ",", "uX", ",", "uY", ",", "uZ", ",", "u", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "uint", ",", "uext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"AA", " ", "EE", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{"\[Epsilon]\[Epsilon]", " ", RowBox[{"NN", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "*", RowBox[{"(", RowBox[{"uint", "+", "uext"}], ")"}]}], "/.", RowBox[{"x", "->", RowBox[{"Mean", "[", "xl", "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {3.781672177985033*^9, 3.7816722548545895`*^9}, { 3.781675575793723*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, { 3.7816761808096905`*^9, 3.781676207577795*^9}, {3.788077170199604*^9, 3.788077244346129*^9}, 3.817532422171801*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {3.8200248875082335`*^9, 3.820024926651152*^9}, 3.8200249735130763`*^9, {3.8217742761087155`*^9, 3.821774333135168*^9}, { 3.821774750423011*^9, 3.821774761055823*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.821775036889234*^9, 3.8217752594972935`*^9}, { 3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {3.843625137403534*^9, 3.8436253106688743`*^9}, { 3.843625411466445*^9, 3.843625482254491*^9}, {3.843625831401376*^9, 3.843625832963335*^9}, {3.84362587330585*^9, 3.8436258882972155`*^9}, { 3.843625938953411*^9, 3.8436259929118633`*^9}, {3.85303257994086*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.90185330918806*^9, { 3.901858589156218*^9, 3.901858609706424*^9}, {3.901858710653106*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.901858948851869*^9}, { 3.901858992261612*^9, 3.90185902604223*^9}, {3.9018590897224593`*^9, 3.901859118732323*^9}, {3.901859278375826*^9, 3.9018592845118*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.90193571929542*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.901935903495421*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.901936256638541*^9}, { 3.90193692486832*^9, 3.901937137318808*^9}, {3.901937301329534*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.901957645290952*^9, 3.901957677685415*^9}, 3.901957733970273*^9, {3.9089344641885195`*^9, 3.908934470918261*^9}, 3.90893467914025*^9, 3.914633131964205*^9, { 3.9146331710022793`*^9, 3.914633181678396*^9}, {3.914633321789724*^9, 3.9146333329815273`*^9}, {3.914635243158022*^9, 3.9146352866424694`*^9}, { 3.914635444380226*^9, 3.9146354786955338`*^9}, {3.914635643296526*^9, 3.9146356434654408`*^9}, {3.914635752396338*^9, 3.914635758520327*^9}, { 3.91463584204322*^9, 3.914635849983686*^9}, 3.914636016963855*^9, { 3.914636136979534*^9, 3.914636235155708*^9}, {3.914636307151427*^9, 3.914636312625749*^9}, {3.939876119132105*^9, 3.939876136235824*^9}, { 3.939876219939087*^9, 3.939876267018914*^9}, 3.939876375863523*^9, { 3.939876489456934*^9, 3.939876685077287*^9}, {3.939876735790666*^9, 3.9398768473096504`*^9}, {3.939876893339311*^9, 3.939876900613455*^9}, 3.939876931479233*^9, {3.9398772359186764`*^9, 3.939877269205931*^9}, { 3.93987732711568*^9, 3.939877458740933*^9}, 3.939877503386099*^9, { 3.939877550277874*^9, 3.939877748131516*^9}, {3.939877800396164*^9, 3.93987790232665*^9}, {3.939877975932094*^9, 3.939878009718273*^9}, { 3.9398896680610466`*^9, 3.939889677371399*^9}, {3.939889756687775*^9, 3.9398897588992233`*^9}, {3.939889952241661*^9, 3.939889972182855*^9}, { 3.939891725237643*^9, 3.939891778926142*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"ca1da197-b2be-9d44-9ca1-b9c0e317f9f0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}]}], "}"}], ",", 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[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 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[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", 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[{"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[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "\[Xi]", ",", "N2", ",", "N3", ",", "uX", ",", "uY", ",", "uZ", ",", "any1", ",", "any2", ",", "any3", ",", "fXf", ",", "fYf", ",", "fZf", ",", "Af", ",", "Ef", ",", "rule", ",", "u", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[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[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", "\[Xi]"}], ",", RowBox[{"\[Xi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N3", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"interpolate", " ", "if", " ", "needed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_", ",", "any3_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", "any2", ",", "any3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", RowBox[{ RowBox[{"(", RowBox[{"any1", "+", "any2"}], ")"}], "/", "2"}], ",", "any2"}], "}"}]}], ",", RowBox[{"any1_", "->", RowBox[{"{", RowBox[{"any1", ",", "any1", ",", "any1"}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fX", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fYf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fY", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fZf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fZ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Af", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"AA", " ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Ef", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"EE", " ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Af", " ", "Ef", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}]}], "*", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fXf", ",", "fYf", ",", "fZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {3.781672177985033*^9, 3.7816722548545895`*^9}, { 3.781675575793723*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, { 3.7816761808096905`*^9, 3.781676207577795*^9}, {3.788077170199604*^9, 3.788077244346129*^9}, 3.817532422171801*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {3.8200248875082335`*^9, 3.820024926651152*^9}, 3.8200249735130763`*^9, {3.8217742761087155`*^9, 3.821774333135168*^9}, { 3.821774750423011*^9, 3.821774761055823*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.821775036889234*^9, 3.8217752594972935`*^9}, { 3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {3.843625137403534*^9, 3.8436253106688743`*^9}, { 3.843625411466445*^9, 3.843625482254491*^9}, {3.843625831401376*^9, 3.843625832963335*^9}, {3.84362587330585*^9, 3.8436258882972155`*^9}, { 3.843625938953411*^9, 3.8436259929118633`*^9}, {3.85303257994086*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.90185330918806*^9, { 3.901858589156218*^9, 3.901858609706424*^9}, {3.901858710653106*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.901858948851869*^9}, { 3.901858992261612*^9, 3.90185902604223*^9}, {3.9018590897224593`*^9, 3.901859118732323*^9}, {3.901859278375826*^9, 3.9018592845118*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.90193571929542*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.901935903495421*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.901936256638541*^9}, { 3.90193692486832*^9, 3.901937137318808*^9}, {3.901937301329534*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.901957645290952*^9, 3.901957677685415*^9}, 3.901957733970273*^9, {3.9089344641885195`*^9, 3.908934470918261*^9}, 3.90893467914025*^9, 3.914633131964205*^9, { 3.9146331710022793`*^9, 3.9146332035893784`*^9}, {3.939884381912889*^9, 3.939884495869089*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"ab26f259-34b9-e142-a3ef-cc6a77ed6721"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.78789469717059*^9, 3.787894698433254*^9}, 3.787894946958498*^9},ExpressionUUID->"9aa6552b-65d5-3d43-942a-\ a5d4b28254f7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "x", ",", "N2", ",", "uX", ",", "uY", ",", "uZ", ",", "uX0", ",", "uY0", ",", "uZ0", ",", "uX2", ",", "uY2", ",", "uZ2", ",", "u0", ",", "u2", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u0", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"AA", " ", "EE", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}]}], "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}]}]}], "*", "AA", "*", "\[Rho]\[Rho]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "/.", RowBox[{"x", "->", "#"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Mean", "[", "xl", "]"}], ",", RowBox[{"xl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.753019452689951*^9, 3.753019484970434*^9}, {3.753019601150966*^9, 3.753019673352596*^9}, { 3.753019831211974*^9, 3.75301989711664*^9}, 3.753020004541631*^9, { 3.788503052503014*^9, 3.788503059275906*^9}, {3.818904755546356*^9, 3.8189048128461294`*^9}, 3.820024775397682*^9, {3.914636860278501*^9, 3.914636860799206*^9}, {3.914636911879595*^9, 3.9146369652308903`*^9}, { 3.914637045943149*^9, 3.914637218765093*^9}, {3.914637258186455*^9, 3.914637340207939*^9}, {3.914637454291231*^9, 3.91463746035318*^9}, { 3.9146375054658184`*^9, 3.9146375301737423`*^9}, {3.9146376128061886`*^9, 3.914637677296532*^9}, {3.914637731301008*^9, 3.914637766359854*^9}, { 3.914639727013895*^9, 3.914639791808885*^9}, {3.914640106205963*^9, 3.914640203212631*^9}, {3.914640482312118*^9, 3.914640489747244*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"e8dc3d16-51cd-4f46-badf-3242cf481aa0"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (stab) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.756267607734783*^9, 3.756267609945469*^9}, 3.787894703033386*^9},ExpressionUUID->"99ea1874-0e39-1244-972f-\ 247ff6c9c67a"], 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.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.7562676525896635`*^9, 3.756267707097726*^9}, {3.760667129719799*^9, 3.760667169366959*^9}, { 3.788503028133459*^9, 3.78850303141934*^9}, {3.788503069213816*^9, 3.788503073071135*^9}, {3.788833111213405*^9, 3.788833121736215*^9}, 3.789021120172915*^9, {3.850965595585096*^9, 3.8509656478473897`*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"65d3c51f-bb47-f341-9a21-f854884394c2"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (nonl) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.753019375620509*^9, 3.753019378557259*^9}, {3.787894723689047*^9, 3.787894724677233*^9}},ExpressionUUID->"61bc9274-c35a-b245-84aa-\ e20e38bd100b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]h", ",", "h0", ",", "ix", ",", "iz", ",", "NN", ",", "fx", ",", "fy", ",", "fz", ",", "x", ",", "uu", ",", "vv", ",", "ww", ",", "EE", ",", "\[Delta]EE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]h", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]h", ".", "\[CapitalDelta]h"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], " ", "&&", " ", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]h", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["iy", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"NN", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h0"}]}], ",", RowBox[{"x", "/", "h0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", " ", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fy", " ", "=", RowBox[{"iy", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", " ", "=", RowBox[{"iz", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], "}"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EE", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "uu"}], "+", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], ".", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]EE", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "uu"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], "]"}], ".", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", "\[Delta]EE"}], " ", "CC", " ", "AA", " ", "EE"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}], "]"}], ".", RowBox[{"{", " ", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h0"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, 3.753020083991325*^9, { 3.753020145886541*^9, 3.753020147585074*^9}, {3.7894406851054068`*^9, 3.7894406982798967`*^9}, {3.789456736272064*^9, 3.789456831643631*^9}, { 3.8216141464350357`*^9, 3.821614249465634*^9}, {3.8217727479053*^9, 3.8217727798972683`*^9}, {3.821772819618132*^9, 3.821772858846867*^9}, { 3.8217733416981835`*^9, 3.821773349057427*^9}, {3.852693331201587*^9, 3.852693471870259*^9}, {3.9161858778178425`*^9, 3.9161859361593323`*^9}, { 3.916186038507939*^9, 3.9161860501247*^9}, {3.91618614477469*^9, 3.916186160906061*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"ef8adc58-f4c2-ac48-bced-0a7fcbb63cf6"] }, 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.753020024850968*^9, 3.7530200339415607`*^9}, 3.757503958909788*^9, {3.78789475104371*^9, 3.787894751512613*^9}, 3.790129812964231*^9},ExpressionUUID->"f50f8d17-dba9-dc4c-9c50-\ 1d3ead81ff8e"], 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.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, 3.753020220916532*^9, { 3.789806005937347*^9, 3.7898060199153595`*^9}, {3.822369460929159*^9, 3.8223694626206393`*^9}, {3.850614635752848*^9, 3.850614714304345*^9}, { 3.850614846652601*^9, 3.850615010959174*^9}, {3.8506155810199738`*^9, 3.850615627337975*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"476e5f87-99f4-6240-8290-5b052913facd"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9},ExpressionUUID->"edcdd538-3a8b-a743-b3e5-\ 632caf2f0c58"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", RowBox[{"JJ_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG", "}"}], ",", RowBox[{"{", "JJ", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", RowBox[{"JJ_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 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"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG", "}"}], ",", RowBox[{"{", "JJ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "\[Xi]", ",", "N2", ",", "N3", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z", ",", "any1", ",", "any2", ",", "any3", ",", "mXf", ",", "mYf", ",", "mZf", ",", "Jf", ",", "Gf", ",", "rule", ",", "\[Phi]", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", "\[Xi]"}], ",", RowBox[{"\[Xi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"interpolate", " ", "if", " ", "needed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_", ",", "any3_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", "any2", ",", "any3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", RowBox[{ RowBox[{"(", RowBox[{"any1", "+", "any2"}], ")"}], "/", "2"}], ",", "any2"}], "}"}]}], ",", RowBox[{"any1_", "->", RowBox[{"{", RowBox[{"any1", ",", "any1", ",", "any1"}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mXf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mX", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mYf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mY", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mZf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mZ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Jf", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"JJ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Gf", " ", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"GG", " ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "\[Phi]"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"Jf", " ", "Gf", " ", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}]}], "*", "MM"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mXf", ",", "mYf", ",", "mZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.939885293433687*^9, 3.939885436729562*^9}, { 3.939885475870539*^9, 3.93988566875445*^9}, {3.939885718319425*^9, 3.939885743282285*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"d5c3c22b-9c89-c44c-befc-5dde67b19cc7"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.78815413936168*^9, 3.788154140564639*^9}},ExpressionUUID->"7fa84bd1-ad2a-764f-99d7-\ 171633963fd3"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "JJ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "xl", ",", "x", ",", "N2", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z", ",", "\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0", ",", "\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2", ",", "\[Phi]0", ",", "\[Phi]2", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Phi]0", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]2", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"JJ", " ", "GG", " ", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}]}], "MM"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}]}]}], "*", "JJ", "*", "\[Rho]\[Rho]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "/.", RowBox[{"x", "->", "#"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Mean", "[", "xl", "]"}], ",", RowBox[{"xl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.781590243387327*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.788154182393029*^9, 3.788154200870788*^9}, { 3.788154262468212*^9, 3.788154413095205*^9}, {3.788154445865172*^9, 3.788154498999441*^9}, {3.788154543552347*^9, 3.788154583606308*^9}, { 3.8513960191034765`*^9, 3.851396064317687*^9}, {3.8513960979650345`*^9, 3.8513961553917027`*^9}, {3.85139633477669*^9, 3.851396341122322*^9}, { 3.914641265511074*^9, 3.914641307110342*^9}, {3.9146413419954853`*^9, 3.9146415860828953`*^9}, {3.914641721809421*^9, 3.914641723929235*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"b09116a1-9a7b-b242-a873-18fdc42a9f6a"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (stab) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.789021142814196*^9, 3.7890211435642633`*^9}},ExpressionUUID->"0147ed45-0479-c649-8330-\ 7961963a35e2"], 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.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.781590243387327*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.789021170161874*^9, 3.789021215374349*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"1b8174aa-1967-7f42-a4a8-7937e248372a"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (nonl) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.789021142814196*^9, 3.7890211435642633`*^9}, {3.821614332738101*^9, 3.821614338722912*^9}},ExpressionUUID->"be160c14-cdd0-da47-a6d0-\ 0387073a16b9"], 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.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.781590243387327*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.789021170161874*^9, 3.789021215374349*^9}, { 3.821614347869971*^9, 3.821614443850371*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"ee947aec-3e70-e442-a968-641d7047adf2"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.788530028780914*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}},ExpressionUUID->"9cc4e34b-3cb1-fd46-bc08-\ 683a1b30b697"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.500990146441341*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019206`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.763362752412674*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.763384690737558*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.763960828715598*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.783834207515744*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.788519761011602*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {3.851994384355441*^9, 3.851994388857566*^9}, { 3.851994613965826*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.852092553414499*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"823cdbb6-b812-ce41-8a7b-92819d0fe8b5"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}, {3.852079954699406*^9, 3.852079955796615*^9}},ExpressionUUID->"f81a4125-e38c-0c4f-9ca3-\ 2540d4402538"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.500990146441341*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.630566778601921*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, 3.763384480090015*^9, { 3.7650666220235834`*^9, 3.765066676848461*^9}, {3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.765067076960985*^9}, { 3.765075343296377*^9, 3.765075345014902*^9}, {3.765075479631569*^9, 3.7650755114191628`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, { 3.76507585422694*^9, 3.765075872425325*^9}, {3.765076081175039*^9, 3.765076263561058*^9}, {3.765076310078564*^9, 3.765076323109063*^9}, { 3.7650763765120716`*^9, 3.765076385469493*^9}, {3.765076431749789*^9, 3.765076486412785*^9}, 3.765076672990033*^9, {3.765076760413978*^9, 3.765076796564443*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, { 3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, { 3.765077014717319*^9, 3.765077082042035*^9}, {3.765077138264634*^9, 3.765077175747029*^9}, {3.765077340035742*^9, 3.765077493212038*^9}, { 3.7650775254837503`*^9, 3.765077573524544*^9}, {3.765077619369755*^9, 3.7650776808294816`*^9}, {3.765088266857733*^9, 3.765088281236836*^9}, { 3.76508836959641*^9, 3.765088394392946*^9}, {3.7650900504082956`*^9, 3.765090052695187*^9}, {3.765090091112272*^9, 3.765090094160341*^9}, { 3.765090519594511*^9, 3.765090541189851*^9}, {3.788519333783255*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.788519447250145*^9}, { 3.788519552910598*^9, 3.788519558251149*^9}, {3.788530523244416*^9, 3.788530576893549*^9}, 3.788530695024667*^9, {3.788530728020286*^9, 3.788530769626217*^9}, {3.796348333299442*^9, 3.796348466639106*^9}, { 3.820027614612806*^9, 3.8200276304022093`*^9}, 3.820027685392475*^9, { 3.829884589354769*^9, 3.8298846124571314`*^9}, 3.8520842379402337`*^9, { 3.852084268457647*^9, 3.852084306223882*^9}, {3.852084804512635*^9, 3.852084935356564*^9}, {3.852085199869127*^9, 3.852085265248603*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"2cc033cd-03da-3d47-be32-4f02ffa94cff"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}, {3.852427723407469*^9, 3.852427728727656*^9}},ExpressionUUID->"22b113f4-b49f-5946-91d1-\ 0d1b0b339a4c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BENDING", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.500990146441341*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019206`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.763362752412674*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.763384690737558*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.763960828715598*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.783834207515744*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.788519761011602*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {3.851994384355441*^9, 3.851994388857566*^9}, { 3.851994613965826*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.852092553414499*^9}, {3.85242776319461*^9, 3.852427782014557*^9}}, CellLabel-> "In[162]:=",ExpressionUUID->"af82dcd8-a308-d14d-ac69-4580fb09923d"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851995002562483*^9, 3.851995003043193*^9}},ExpressionUUID->"dd7b6154-a294-f448-aa94-\ a5aced5344d2"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", "E8001", "|", RowBox[{"1005", " ", "Bernoulli", " ", "beam", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", 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[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", 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_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "Sy", ",", "Sz", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "\[Xi]", ",", "r0", ",", "h0", ",", "ex", ",", "ez", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "N2", ",", "N3", ",", "N4", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "rule", ",", "any1", ",", "any2", ",", "any3", ",", "fXf", ",", "fYf", ",", "fZf", ",", "mXf", ",", "mYf", ",", "mZf", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"h", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"ex", "\[Cross]", "ey"}]}], ";", "\[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[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}], " ", "\[Xi]"}], ",", RowBox[{"\[Xi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N4", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"interpolate", " ", "if", " ", "needed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_", ",", "any3_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", "any2", ",", "any3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"any1_", ",", "any2_"}], "}"}], "->", RowBox[{"{", RowBox[{"any1", ",", RowBox[{ RowBox[{"(", RowBox[{"any1", "+", "any2"}], ")"}], "/", "2"}], ",", "any2"}], "}"}]}], ",", RowBox[{"any1_", "->", RowBox[{"{", RowBox[{"any1", ",", "any1", ",", "any1"}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"fXf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fX", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fYf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fY", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fZf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"fZ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mXf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mX", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mYf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mY", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mZf", "=", RowBox[{"N3", ".", RowBox[{"(", RowBox[{"mZ", "/.", "rule"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fXf", ",", "fYf", ",", "fZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"mXf", ",", "mYf", ",", "mZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{"N2", ".", "ul"}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"v", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"vl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Psi]l", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"vl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"\[Psi]l", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"wl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]l", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"wl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]l", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"N2", ".", "\[Phi]l"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "v"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "AA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GG", " ", "AA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GG", " ", "AA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Sy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Sz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GG"}], " ", "Sy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GG", " ", "Sz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GG", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Iyy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}], ",", RowBox[{"EE", " ", "Izz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}], "/", "h0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"CE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"BE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908934890938456*^9, 3.908934891693663*^9}, { 3.914833624922428*^9, 3.914833664092325*^9}, {3.923966684419947*^9, 3.92396686605226*^9}, {3.9239669274881935`*^9, 3.923966985257948*^9}, { 3.939874682507271*^9, 3.939874723554651*^9}, {3.939874769243778*^9, 3.939874866257015*^9}, {3.93987491484798*^9, 3.939875005518417*^9}, 3.93987504119638*^9, {3.939875243650049*^9, 3.9398752585325603`*^9}, { 3.939875437814295*^9, 3.939875448841076*^9}, {3.939875864561653*^9, 3.9398758730605927`*^9}, {3.939883741047615*^9, 3.9398837679706936`*^9}, { 3.9398838092416344`*^9, 3.939883824613527*^9}, {3.9398838585340996`*^9, 3.9398839463067665`*^9}, {3.941249190338575*^9, 3.941249191842142*^9}, { 3.941249286257317*^9, 3.941249333279794*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"78657288-5b78-3843-9357-9a56bcd0dc14"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", "E8001", "|", RowBox[{"E1005", " ", "Timoshenko", " ", "beam"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", 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", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux1", ",", "uy1", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", " ", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", " ", ",", "\[Theta]z2", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "fXm", ",", "fYm", ",", "fZm", ",", "mXm", ",", "mYm", ",", "mZm", ",", "fxm", ",", "fym", ",", "fzm", ",", "mxm", ",", "mym", ",", "mzm", ",", "EEm", ",", "GGm", ",", "AAm", ",", "Sym", ",", "Szm", ",", "Iyym", ",", "Izzm", ",", "Iyzm", ",", "Irrm", ",", "rule", ",", "Irr"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux1", ",", "\[Delta]uy1", ",", "\[Delta]uz1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux2", ",", "\[Delta]uy2", ",", "\[Delta]uz2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}]}], ",", RowBox[{"a1_", ":>", "a1"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"EEm", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGm", "=", RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAm", "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"Sy", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Szm", "=", RowBox[{"Sz", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyym", "=", RowBox[{"Iyy", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Izzm", "=", RowBox[{"Izz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyzm", "=", RowBox[{"Iyz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Irrm", "=", RowBox[{"Iyym", "+", "Izzm"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "rule"}], ",", " ", RowBox[{"fY", " ", "/.", "rule"}], ",", RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"mX", " ", "/.", "rule"}], ",", " ", RowBox[{"mY", " ", "/.", "rule"}], ",", RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux1", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Sym", " ", "\[Theta]y1"}], "+", RowBox[{"Sym", " ", "\[Theta]y2"}], "+", RowBox[{"Szm", " ", "\[Theta]z1"}], "-", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux2", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Sym", " ", "\[Theta]y1"}], "-", RowBox[{"Sym", " ", "\[Theta]y2"}], "-", RowBox[{"Szm", " ", "\[Theta]z1"}], "+", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", "Irrm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "mym", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "mzm", " ", "Sym"}], "+", RowBox[{"Izzm", " ", "mym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", "mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Iyym"}], ")"}], " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Izzm"}], ")"}], " ", SuperscriptBox["Szm", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", "uy1"}], "+", RowBox[{"Sym", " ", "uy2"}], "+", RowBox[{"Szm", " ", "uz1"}], "-", RowBox[{"Szm", " ", "uz2"}], "+", RowBox[{"Irrm", " ", "\[Theta]x1"}], "-", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "-", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Iyym"}], "+", "Izzm"}], ")"}], " ", "Sym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"Sym", "-", "Szm"}], ")"}], " ", RowBox[{"(", RowBox[{"Sym", "+", "Szm"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "h0"}], " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "+", RowBox[{"Iyym", " ", "\[Theta]y1"}], "-", RowBox[{"Iyym", " ", "\[Theta]y2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "GGm"}], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Izzm", " ", "Sym"}], "+", RowBox[{"6", " ", "Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mym", " ", "Sym"}], "-", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["Iyzm", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "-", RowBox[{"3", " ", "GGm", " ", "Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Izzm", " ", "mym"}], "+", RowBox[{"GGm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iyym", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "mym"}], "-", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "144"}], " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", "ux1"}], "+", RowBox[{"Sym", " ", "ux2"}], "-", RowBox[{"Iyym", " ", "\[Theta]y1"}], "+", RowBox[{"Iyym", " ", "\[Theta]y2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyym", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyym", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "GGm"}], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "mym"}], " ", "Sym"}], "+", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["Iyzm", "2"], " ", "mym"}], "+", RowBox[{"6", " ", "Iyym", " ", "Izzm", " ", "mym"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"3", " ", "GGm", " ", "Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fxm"}], " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Iyym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "+", RowBox[{"4", " ", "Izzm", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "Izzm", " ", "\[Theta]y2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyym", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Izzm", " ", "Sym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "Szm"}]}], ")"}]}], "-", RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fzm"}], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fxm"}], " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", "Irrm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "mym", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "mzm", " ", "Sym"}], "+", RowBox[{"Izzm", " ", "mym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", "mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Iyym"}], ")"}], " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Izzm"}], ")"}], " ", SuperscriptBox["Szm", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Iyym"}], "+", "Izzm"}], ")"}], " ", "Sym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"Sym", "-", "Szm"}], ")"}], " ", RowBox[{"(", RowBox[{"Sym", "+", "Szm"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", "ux1"}], "-", RowBox[{"Szm", " ", "ux2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "-", RowBox[{"Izzm", " ", "\[Theta]z1"}], "+", RowBox[{"Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Izzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Izzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyzm", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Izzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"6", " ", "Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "mym"}], " ", "Sym"}], "+", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["Iyzm", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"GGm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Szm"}], " ", "ux1"}], "+", RowBox[{"Szm", " ", "ux2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "+", RowBox[{"Izzm", " ", "\[Theta]z1"}], "-", RowBox[{"Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", "ux1"}], "-", RowBox[{"Szm", " ", "ux2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Izzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "+", RowBox[{"2", " ", "Izzm", " ", "\[Theta]z1"}], "+", RowBox[{"4", " ", "Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "-", RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mym", " ", "Sym"}], "-", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["Iyzm", "2"], " ", "mzm"}], "+", RowBox[{"6", " ", "Iyym", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"3", " ", "GGm", " ", "Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "3"], " ", "mzm"}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "uy1"}], "-", RowBox[{"Izzm", " ", "uy2"}], "+", RowBox[{"Iyzm", " ", "uz1"}], "-", RowBox[{"Iyzm", " ", "uz2"}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Iyzm"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyym", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"2", " ", "Iyym", " ", "Szm"}]}], ")"}]}], "-", RowBox[{"2", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "-", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "-", RowBox[{"6", " ", "EEm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyym", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"2", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.500990146441341*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.630566778601921*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.763362752412674*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.763384690737558*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.763960828715598*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.783834207515744*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.788519761011602*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.875407800653024*^9, 3.875407833881046*^9}, {3.901862474143671*^9, 3.901862483071995*^9}, { 3.901862692714851*^9, 3.90186273047615*^9}, {3.9018627816543417`*^9, 3.901862823926278*^9}, {3.901863104575192*^9, 3.901863298922026*^9}, { 3.9018633325066304`*^9, 3.901863421207255*^9}, {3.901863454589965*^9, 3.901863533031896*^9}, {3.901863580669295*^9, 3.901863587574851*^9}, { 3.901931107221163*^9, 3.901931309788501*^9}, {3.901931430103271*^9, 3.901931431054244*^9}, {3.901931467635719*^9, 3.901931504726559*^9}, { 3.901932364463219*^9, 3.901932378737213*^9}, {3.9019327373745213`*^9, 3.9019328813594475`*^9}, {3.901932925465217*^9, 3.901932944706784*^9}, { 3.901932992981395*^9, 3.901933100237834*^9}, {3.901933158149428*^9, 3.901933186202359*^9}, {3.901933447201986*^9, 3.9019334708118753`*^9}, { 3.901933532374191*^9, 3.9019335434533453`*^9}, {3.9019338370368414`*^9, 3.901933866440675*^9}, 3.90193403466062*^9, {3.901934070930133*^9, 3.9019341309501734`*^9}, {3.901941127868461*^9, 3.9019411487728004`*^9}, { 3.901941201809495*^9, 3.9019412853248825`*^9}, {3.901941792906618*^9, 3.901941839500992*^9}, {3.9019419531468377`*^9, 3.901941993151548*^9}, { 3.901942155823786*^9, 3.901942174809746*^9}, {3.901942272905849*^9, 3.901942294729624*^9}, {3.9019425447980947`*^9, 3.901942573533023*^9}, 3.901943201125978*^9, 3.9019433019117823`*^9, {3.9019433916631427`*^9, 3.901943406871099*^9}, {3.90194441333509*^9, 3.9019445690600624`*^9}, 3.901944878193474*^9, {3.901957585265231*^9, 3.901957626860855*^9}, { 3.902306725915485*^9, 3.902306824541399*^9}, {3.90230685833694*^9, 3.902306859754896*^9}, {3.902306923576529*^9, 3.9023070273841867`*^9}, { 3.90230705949677*^9, 3.902307198823498*^9}, {3.902307349760401*^9, 3.902307355535943*^9}, {3.902360497420044*^9, 3.902360545503408*^9}, { 3.914833536617361*^9, 3.914833546860956*^9}, {3.941249559839775*^9, 3.941249569638584*^9}}, CellLabel-> "In[169]:=",ExpressionUUID->"aeb97daa-d42a-9f4d-af00-c3ef7c348256"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp 1:st) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362982159668*^9}, {3.787894778048681*^9, 3.787894805652479*^9}, {3.787894853900061*^9, 3.787894879979733*^9}, 3.788518934866293*^9, {3.788530032953936*^9, 3.788530036400934*^9}, 3.788530671733654*^9, {3.820027177907984*^9, 3.8200271816696315`*^9}, { 3.820027559976658*^9, 3.820027565268735*^9}, {3.8519950922439923`*^9, 3.851995095103127*^9}, {3.852092988966981*^9, 3.852092991459448*^9}},ExpressionUUID->"bedce7dd-c90f-1f49-a198-\ caee1a5bd51a"], 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", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413404`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019177`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126716`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, { 3.763363167452371*^9, 3.763363178496842*^9}, {3.763363251766201*^9, 3.763363336489247*^9}, 3.763363375651574*^9, {3.763363406769277*^9, 3.7633634260616302`*^9}, 3.774070752399095*^9, {3.774070782993284*^9, 3.7740707878092556`*^9}, {3.774070839037439*^9, 3.7740708397395124`*^9}, { 3.783227748950984*^9, 3.783227749200897*^9}, {3.783227785707693*^9, 3.783227814364159*^9}, {3.783227885670522*^9, 3.783227965239267*^9}, { 3.783228526111727*^9, 3.7832285921982536`*^9}, {3.783228737502862*^9, 3.78322877106949*^9}, {3.783228913503404*^9, 3.783228974160059*^9}, { 3.783231654354813*^9, 3.783231867293047*^9}, {3.78324783313018*^9, 3.783247888225492*^9}, {3.783247918659526*^9, 3.783247936428216*^9}, { 3.783247974038493*^9, 3.783247982976531*^9}, {3.783313226071577*^9, 3.783313258854038*^9}, 3.783313524738693*^9, 3.783314136984562*^9, 3.783487206063845*^9, 3.783755487871724*^9, {3.7837555335024405`*^9, 3.783755772186054*^9}, {3.783824704396086*^9, 3.783824717372885*^9}, { 3.783831656050796*^9, 3.78383166176163*^9}, 3.783831747278124*^9, { 3.783831800306869*^9, 3.783831865083964*^9}, {3.783832157749748*^9, 3.7838321754150395`*^9}, 3.7838360879477*^9, {3.783836118664728*^9, 3.783836177782141*^9}, 3.783838211315759*^9, {3.78790294596488*^9, 3.7879029543299*^9}, {3.787903001338712*^9, 3.787903072405434*^9}, { 3.788518535581091*^9, 3.788518581669884*^9}, 3.788518665684089*^9, { 3.788518750049559*^9, 3.7885188089248676`*^9}, {3.792285805027801*^9, 3.792285809644437*^9}, {3.792285899798837*^9, 3.79228590326073*^9}, { 3.792285934988084*^9, 3.792285938788156*^9}, {3.792286145687361*^9, 3.792286169387656*^9}, {3.792286200995656*^9, 3.792286297490285*^9}, { 3.792286331275391*^9, 3.792286495725276*^9}, {3.792286528661299*^9, 3.7922866344845324`*^9}, 3.792286868323101*^9, {3.792287008797488*^9, 3.792287076398588*^9}, {3.847260050156146*^9, 3.847260052041194*^9}, { 3.847260082747003*^9, 3.847260083816955*^9}, {3.847260159371749*^9, 3.847260324513658*^9}, {3.8472610396461535`*^9, 3.847261042450612*^9}, { 3.861153184806384*^9, 3.861153309414065*^9}, {3.861153419234234*^9, 3.86115345351521*^9}, {3.8611574733568163`*^9, 3.861157585128314*^9}, { 3.861157647270217*^9, 3.861157667943701*^9}, {3.8611577144000278`*^9, 3.8611577481431246`*^9}, {3.8611632355045013`*^9, 3.8611632377814045`*^9}, {3.861163278587812*^9, 3.8611632869508305`*^9}}, CellLabel-> "In[979]:=",ExpressionUUID->"8b240eaf-b3ca-074a-bb81-ce88cbfe072c"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018818586525*^9}, { 3.7650665335992107`*^9, 3.765066539129182*^9}, {3.78789481614439*^9, 3.787894878450323*^9}, 3.78851920080788*^9, {3.8200277665922384`*^9, 3.8200277671230316`*^9}, {3.85199502324076*^9, 3.8519950237805796`*^9}},ExpressionUUID->"cdf867e1-791d-5047-88d1-\ cbd345735f41"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "\[Xi]", ",", "r0", ",", "h0", ",", "ex", ",", "ez", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "N2", ",", "N4", ",", "uXf", ",", "uYf", ",", "uZf", ",", "\[Theta]Xf", ",", "\[Theta]Yf", ",", "\[Theta]Zf", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "AE", ",", "CE", ",", "BE", ",", "A\[Rho]", ",", "B\[Rho]", ",", "C\[Rho]", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"h", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"ex", "\[Cross]", "ey"}]}], ";", "\[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[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N4", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{"N2", ".", "ul"}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"v", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"vl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Psi]l", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"vl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"\[Psi]l", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"wl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]l", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"wl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]l", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"N2", ".", "\[Phi]l"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "v"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "AA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GG", " ", "AA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GG", " ", "AA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Sy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Sz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GG"}], " ", "Sy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GG", " ", "Sz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GG", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Iyy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}], ",", RowBox[{"EE", " ", "Izz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inertia", " ", "properties", " ", "simplified"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "AA", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "AA"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"C\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "Sy", ",", RowBox[{"-", "Sz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Sy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"Sz", ",", "0", ",", "0"}], "}"}]}], "}"}], "*", "0"}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Iyy", "+", "Izz"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", RowBox[{"-", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "Iyz"}], ",", "Izz"}], "}"}]}], "}"}], "*", "0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "/", "h0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"CE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"BE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"A\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}], "+", RowBox[{"C\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}], ")"}]}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"C\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "+", RowBox[{"B\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.885090789492631*^9, 3.885090812490925*^9}, 3.885091507984504*^9, {3.914724640498598*^9, 3.914724650603617*^9}, { 3.9147247209801235`*^9, 3.914724958564175*^9}, {3.914724995896721*^9, 3.914725198437586*^9}, {3.9147252499282665`*^9, 3.914725281426649*^9}, { 3.9147253171609287`*^9, 3.914725322922428*^9}, {3.9147253760151997`*^9, 3.9147253908070393`*^9}, {3.9147254566735*^9, 3.914725572662995*^9}, { 3.9147256104533863`*^9, 3.9147256281113853`*^9}, {3.914725669926824*^9, 3.914725719449303*^9}, {3.914725820537159*^9, 3.914725913714146*^9}, { 3.914725977925307*^9, 3.914726021267344*^9}, {3.914726054694918*^9, 3.914726075712258*^9}, 3.9147263782039204`*^9, {3.9147264443854504`*^9, 3.914726579701086*^9}, {3.914726715681177*^9, 3.914726723300855*^9}, { 3.914726773729393*^9, 3.914726900007073*^9}, 3.914726988300595*^9, { 3.914807345007294*^9, 3.9148073850366173`*^9}, {3.9148075448184376`*^9, 3.9148075811797504`*^9}, {3.91480762034773*^9, 3.914807640414982*^9}, { 3.914807678470499*^9, 3.914807698328815*^9}, {3.914807741816815*^9, 3.914807743445574*^9}, {3.914807837968975*^9, 3.9148078756221848`*^9}, { 3.914807914164703*^9, 3.914807977403007*^9}, {3.914808131491337*^9, 3.91480819043754*^9}, {3.914808228431255*^9, 3.9148084125678368`*^9}, { 3.914808766351332*^9, 3.914808916141369*^9}, {3.91480914371257*^9, 3.914809171612707*^9}, {3.914809461847868*^9, 3.914809468543293*^9}, { 3.914809544916403*^9, 3.914809548892382*^9}, {3.914809611221203*^9, 3.914809634468386*^9}, {3.914809709172371*^9, 3.914809718117864*^9}, { 3.91480975481327*^9, 3.914809765765505*^9}, {3.914809925626764*^9, 3.914809936683931*^9}, {3.914810030168625*^9, 3.914810038286186*^9}, { 3.914810213281906*^9, 3.914810256616682*^9}, {3.914810495678963*^9, 3.9148104975093575`*^9}, {3.914810789522068*^9, 3.914810841175289*^9}, { 3.914810998259006*^9, 3.914810998701872*^9}, {3.9239224662332153`*^9, 3.923922467503987*^9}, {3.923922555084156*^9, 3.923922557758425*^9}, { 3.923963474988411*^9, 3.923963493936373*^9}, {3.923965605837054*^9, 3.923965649242955*^9}, {3.923965679849884*^9, 3.9239656803239193`*^9}, { 3.9239657133776894`*^9, 3.9239657354858665`*^9}, {3.923965777293143*^9, 3.9239658547513695`*^9}, {3.923965919465128*^9, 3.923966036889403*^9}, { 3.9239660836497803`*^9, 3.9239661662418404`*^9}, {3.923966200717278*^9, 3.923966276368475*^9}, {3.923966342702974*^9, 3.923966343185957*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"71699e80-a447-7249-8729-f662f8fe3bbb"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "x", ",", "NN", ",", "r0", ",", "h0", ",", "ex", ",", "ez", ",", "s", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "fx", ",", "fy", ",", "fz", ",", "JJ", ",", "AE", ",", "BE", ",", "A\[Rho]", ",", "B\[Rho]", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"mapping", " ", "to", " ", "material", " ", "xyz"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"ex", "\[Cross]", "ey"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"use", " ", "two", " ", "nodes"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h0"}]}], ",", RowBox[{"x", "/", "h0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"projection", " ", "onto", " ", "constant"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]0", "=", RowBox[{"\[Theta]0", " ", "/.", RowBox[{"x", "->", RowBox[{"h0", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]0", "=", RowBox[{"\[Psi]0", " ", "/.", RowBox[{"x", "->", RowBox[{"h0", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"JJ", "=", RowBox[{"Iyy", "+", "Izz"}]}], ";", "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "EE"}], ",", RowBox[{"AA", " ", "GG"}], ",", RowBox[{"AA", " ", "GG"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"JJ", " ", "GG"}], ",", RowBox[{"Iyy", " ", "EE"}], ",", RowBox[{"Izz", " ", "EE"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"AA", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"AA", " ", "\[Rho]\[Rho]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"JJ", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"Iyy", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"Izz", " ", "\[Rho]\[Rho]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], ".", "AE", ".", "\[Epsilon]"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]", "]"}], ".", "BE", ".", "\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"A\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"B\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "h0"}], " ", "/.", " ", RowBox[{"x", "->", RowBox[{"h0", "*", "\[Xi]"}]}]}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.887436622649624*^9, 3.887436638931*^9}, { 3.887436674331359*^9, 3.887436694327297*^9}, {3.887436729714511*^9, 3.887436823783098*^9}, {3.91465697885725*^9, 3.9146569847726173`*^9}, { 3.9146575676692047`*^9, 3.914657584108999*^9}, {3.914724357285387*^9, 3.914724381430527*^9}, 3.914807526078668*^9},ExpressionUUID->"a8c5f611-e2b5-404e-bd2a-\ 337c0090a62e"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018818586525*^9}, { 3.763384404617708*^9, 3.7633844068273726`*^9}, {3.787894828329872*^9, 3.787894876950384*^9}, 3.788519172464745*^9},ExpressionUUID->"e924ff1e-36f1-4443-83c5-\ b7e6ccbf94e2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux", ",", "uy", " ", ",", "uz", " ", ",", "\[Theta]x", " ", ",", "\[Theta]y", " ", ",", "\[Theta]z", " ", ",", "\[Delta]ux", " ", ",", "\[Delta]uy", ",", "\[Delta]uz", ",", "\[Delta]\[Theta]x", ",", "\[Delta]\[Theta]y", ",", "\[Delta]\[Theta]z"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], ",", RowBox[{"\[Delta]uy", "[", "1", "]"}], ",", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "2", "]"}], ",", RowBox[{"\[Delta]uy", "[", "2", "]"}], ",", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"60", " ", SuperscriptBox["h0", "3"]}]], RowBox[{"(", RowBox[{ RowBox[{"30", " ", "fx", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"my", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "+", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"mx", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"fz", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"fy", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"72", " ", "EE", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], "-", RowBox[{"\[Theta]x", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"36", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.500990146441341*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.503221241390005*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.630566778601921*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.632206339693497*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.687414054207462*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.69253113847796*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.751536204037401*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, {3.788530117667017*^9, 3.788530117980694*^9}, 3.78853036962096*^9, 3.788530509305438*^9, { 3.78853083351016*^9, 3.788530862892729*^9}, {3.788530925928982*^9, 3.788530967196046*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, { 3.788533559801361*^9, 3.788533657454881*^9}, {3.788533916375413*^9, 3.788533958924065*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, { 3.788571051580041*^9, 3.788571053084015*^9}, 3.788571485275395*^9, { 3.7885715554496193`*^9, 3.788571577200455*^9}, {3.788571696555899*^9, 3.788571738824129*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.78857185267969*^9, {3.788571904820142*^9, 3.788571938458513*^9}, { 3.788572019710774*^9, 3.788572020343374*^9}, {3.788572157948341*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.788572474799888*^9}, { 3.788572545180941*^9, 3.7885725476052*^9}, {3.788572796561078*^9, 3.788572797505796*^9}, 3.788572839094982*^9, {3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.788573171465976*^9}, { 3.788573391578893*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.78857366073237*^9, 3.788573662816255*^9}, { 3.788573695779252*^9, 3.788573697977635*^9}, {3.788573733478549*^9, 3.788573737281276*^9}, 3.788573918957203*^9, {3.788574216682594*^9, 3.788574217920394*^9}, {3.788832967910173*^9, 3.788833009852073*^9}, { 3.788833043135027*^9, 3.788833091407405*^9}, {3.788833233521905*^9, 3.788833262962839*^9}, 3.789021298963341*^9, {3.818906513404701*^9, 3.818906542445839*^9}, {3.852337533659197*^9, 3.852337585050491*^9}}, CellLabel-> "In[181]:=",ExpressionUUID->"6f3f4b48-0d3f-dd44-9b2d-be1a62e0e6d6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NL", ",", "NQ", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "FF", ",", "FFINV", ",", "ns", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "up", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wstb", ",", "\[Delta]W", ",", "ux", ",", "upx", ",", "uy", ",", "uz", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]0", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r\[Alpha]0", ".", "r\[Alpha]0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"h", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"i\[Alpha]0", " ", "=", RowBox[{"r\[Alpha]0", "/", "h\[Alpha]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"i\[Alpha]0", ".", "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ".", "ix0"}], "+", "s"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", "h\[Alpha]0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"simple", " ", "metrics"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], ",", RowBox[{"h\[Alpha]0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], " ", "\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], ",", RowBox[{"h\[Alpha]0", " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Alpha]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"ux", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"uy", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"uz", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]y", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]z", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"upx", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"upx", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"ux", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"up", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"upx", "[", "1", "]"}], ",", RowBox[{"upx", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"uz", "[", "1", "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]y", "[", "1", "]"}]}], ",", RowBox[{"uz", "[", "2", "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]y", "[", "2", "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "AA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GG", " ", "AA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GG", " ", "AA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"GG", " ", "Iyy"}], "+", RowBox[{"GG", " ", "Izz"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Iyy"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"EE", " ", "Izz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}], "/", "h\[Alpha]0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"AE", ".", "\[Epsilon]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{"BE", ".", "\[Kappa]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wstb", "=", RowBox[{ RowBox[{"-", "AA"}], " ", "EE", " ", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "up"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[Delta]", "[", "v", "]"}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}]}], ")"}], "/", RowBox[{ RowBox[{"(", "h\[Alpha]0", ")"}], "^", "3"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wstb"}], ")"}], " ", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.4439447917425756`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.4512766132045984`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809984`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920343`*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413376`*^9, 3.5009901475333376`*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900023`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.6297802564412956`*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224125`*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812563`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.6297878355265746`*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019144`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.6306751229631343`*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439596`*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934996`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829987`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.6352175507014117`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.6853282636022186`*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524023`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.6853298076291356`*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.6866514102038937`*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886396`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478395`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074594`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913056`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223236`*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.6889092012544384`*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779577`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.6925422549438276`*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563188`*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003547`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446123`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040373993`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, {3.788530117667017*^9, 3.788530117980694*^9}, 3.78853036962096*^9, 3.788530509305438*^9, { 3.78853083351016*^9, 3.788530862892729*^9}, {3.788530925928982*^9, 3.7885309671960454`*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, { 3.788533559801361*^9, 3.788533657454881*^9}, {3.788533916375413*^9, 3.788533958924065*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, { 3.788571051580041*^9, 3.788571053084015*^9}, 3.7885714852753944`*^9, { 3.7885715554496126`*^9, 3.7885715772004523`*^9}, {3.788571696555899*^9, 3.7885717388241277`*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.7885718526796894`*^9, {3.788571904820142*^9, 3.788571938458513*^9}, { 3.788572019710774*^9, 3.788572020343374*^9}, {3.788572157948341*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.788572474799888*^9}, { 3.788572545180941*^9, 3.7885725476052*^9}, {3.788572796561078*^9, 3.788572797505796*^9}, 3.788572839094982*^9, {3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.788573171465976*^9}, { 3.788573391578893*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.7885736607323685`*^9, 3.788573662816255*^9}, { 3.788573695779252*^9, 3.788573697977635*^9}, {3.788573733478549*^9, 3.78857381117032*^9}, {3.7888332726118016`*^9, 3.788833305367669*^9}},ExpressionUUID->"5df3dfdd-ed35-7146-9614-\ 8523d46f2822"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (nonl xz) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.8216146694524984`*^9, 3.821614673065999*^9}, {3.852092974762933*^9, 3.8520929752366476`*^9}, { 3.852428052082929*^9, 3.852428054254494*^9}, {3.852428196459839*^9, 3.852428197298023*^9}},ExpressionUUID->"199952cc-2444-b94f-9e93-\ e54f4f6a5fad"], 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", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413395`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900046`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019163`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934977`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074614`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779596`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374007`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126706`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375565`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.7639608287155967`*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157433`*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.7885197610116014`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.8216146854806337`*^9, 3.8216146951363287`*^9}, { 3.821614752196926*^9, 3.821614829597368*^9}, {3.852428110418418*^9, 3.8524282580965376`*^9}, {3.852428292656695*^9, 3.8524283525785737`*^9}, { 3.8524418028142138`*^9, 3.852441835111664*^9}, {3.852615516284122*^9, 3.852615518838768*^9}, {3.852618384835059*^9, 3.852618385478886*^9}, { 3.852618565338403*^9, 3.8526185655779724`*^9}, {3.852952260237672*^9, 3.8529522878415303`*^9}, {3.8529525793242216`*^9, 3.852952585649026*^9}, { 3.852959535316224*^9, 3.85295958981769*^9}, {3.852966559913101*^9, 3.852966564916722*^9}, {3.852966693544965*^9, 3.852966727285118*^9}, { 3.8529678456095867`*^9, 3.8529678780810432`*^9}}, CellLabel-> "In[998]:=",ExpressionUUID->"77ba44d1-cec8-154b-b96d-7ca6426cfb3a"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp ++) defs ", "Subsection", CellChangeTimes->{{3.557986780159014*^9, 3.557986782249417*^9}, { 3.753018827946174*^9, 3.75301883733206*^9}, {3.787894862774126*^9, 3.787894875357033*^9}, {3.82161456970318*^9, 3.821614594102014*^9}},ExpressionUUID->"d478adbb-16e6-1740-b819-\ a971be708c1b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"CURVEDBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "II_"}], "}"}], ",", RowBox[{"{", RowBox[{"fs_", ",", "fn_", ",", "fb_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r", ",", "dr", ",", "h", ",", "es", ",", "en", ",", "eb", ",", "\[Delta]W", ",", "rule", ",", "KK", ",", "FF", ",", "R"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Zeta]"}]}], ")"}]}], ",", RowBox[{"4", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], "*", "\[Zeta]"}], ",", RowBox[{"\[Zeta]", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Zeta]"}], "-", "1"}], ")"}]}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr", "=", RowBox[{"D", "[", RowBox[{"r", ",", "\[Zeta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hh", "=", RowBox[{"Sqrt", "[", RowBox[{"dr", ".", "dr"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Abs", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "0"}]}], ")"}], "+", RowBox[{"4", RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], ")"}]}], "+", RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "1."}]}], ")"}]}], ")"}], "/", "6"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", " ", "=", RowBox[{"dr", "/", "hh"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", " ", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"es", ",", "\[Zeta]"}], "]"}], "/", "hh"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]b", "=", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"en", "/", "\[Kappa]b"}]}], ";", "\[IndentingNewLine]", RowBox[{"eb", " ", "=", " ", RowBox[{"es", "\[Cross]", "en"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"basis", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2."}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"basis1", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"basis2", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "1"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"R", "=", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "\[Kappa]b"}], ")"}], "/.", " ", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"us", "[", "1", "]"}], ",", RowBox[{"un", "[", "1", "]"}], ",", RowBox[{"ub", "[", "1", "]"}]}], "}"}], "=", RowBox[{"basis1", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"us", "[", "2", "]"}], ",", RowBox[{"un", "[", "2", "]"}], ",", RowBox[{"ub", "[", "2", "]"}]}], "}"}], "=", RowBox[{"basis2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[CapitalTheta]s", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "1", "]"}]}], "}"}], "=", RowBox[{"basis1", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[CapitalTheta]s", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "2", "]"}]}], "}"}], "=", RowBox[{"basis2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{"{", RowBox[{ RowBox[{"us", "[", "1", "]"}], ",", RowBox[{"un", "[", "1", "]"}], ",", RowBox[{"ub", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]s", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "1", "]"}], ",", RowBox[{"us", "[", "2", "]"}], ",", RowBox[{"un", "[", "2", "]"}], ",", RowBox[{"ub", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]s", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "2", "]"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]aa", "=", RowBox[{"aa", " ", "/.", "\[Delta]rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ELEMENT", " ", "CONTRIBUTION"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"KK", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "32", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"16", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"6", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"9", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"16", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["EE", "2"]}], "-", RowBox[{"4", " ", "EE", " ", "GG"}], "-", RowBox[{"4", " ", SuperscriptBox["GG", "2"]}]}], ")"}], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["EE", "2"], " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ "8", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], "2"], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", "II"}], "-", RowBox[{"4", " ", "GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"8", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"16", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}], "-", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["II", "2"], "-", RowBox[{"2", " ", "AA", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["R", "4"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"15", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["h", "2"]}], "+", SuperscriptBox["R", "2"]}], ")"}]}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "32", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], "2"], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", "II"}], "-", RowBox[{"4", " ", "GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"16", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"6", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"9", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"16", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["EE", "2"]}], "-", RowBox[{"4", " ", "EE", " ", "GG"}], "-", RowBox[{"4", " ", SuperscriptBox["GG", "2"]}]}], ")"}], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["EE", "2"], " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ "8", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"8", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"15", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"16", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}], "-", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["II", "2"], "-", RowBox[{"2", " ", "AA", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["R", "4"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"fs", " ", "h"}], "2"], "-", FractionBox[ RowBox[{"fn", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "GG", " ", "R"}]]}], ",", RowBox[{ FractionBox[ RowBox[{"fn", " ", "h"}], "2"], "+", FractionBox[ RowBox[{"fs", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "EE", " ", "R"}]]}], ",", FractionBox[ RowBox[{"fb", " ", "h"}], "2"], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", SuperscriptBox["h", "2"]}], "12"]}], ",", FractionBox[ RowBox[{"fn", " ", SuperscriptBox["h", "2"]}], "12"], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"fs", " ", "h"}], "2"]}], "-", FractionBox[ RowBox[{"fn", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "GG", " ", "R"}]]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"fn", " ", "h"}], "2"]}], "+", FractionBox[ RowBox[{"fs", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "EE", " ", "R"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", "h"}], "2"]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", SuperscriptBox["h", "2"]}], "12"]}], ",", FractionBox[ RowBox[{"fn", " ", SuperscriptBox["h", "2"]}], "12"]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"-", RowBox[{"\[Delta]aa", ".", RowBox[{"(", RowBox[{ RowBox[{"KK", ".", "aa"}], "-", "FF"}], ")"}]}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"CURVEDBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "II_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "\[Delta]W", ",", "rule", ",", "KK", ",", "FF"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", " ", "=", RowBox[{"RULE", "[", RowBox[{ RowBox[{"{", "iy", "}"}], ",", RowBox[{"{", RowBox[{"I1", ",", "I2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "2", "]"}], "-", RowBox[{"x", "[", "1", "]"}]}], ")"}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]x", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]y", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]z", "[", "1", "]"}], ",", RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]x", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]y", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]z", "[", "2", "]"}]}], "}"}], " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]aa", "=", RowBox[{"aa", " ", "/.", "\[Delta]rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ELEMENT", " ", "CONTRIBUTION"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"KK", "=", RowBox[{"-", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "48"}], " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"AA", " ", "EE"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", " ", RowBox[{"Re", "[", "KK", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"fx", " ", "h"}], "2"], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fz", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fz", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{"fx", " ", "h"}], "2"]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", "fz", " ", "GG", " ", SuperscriptBox["h", "4"]}], "-", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", "fz", " ", "GG", " ", SuperscriptBox["h", "5"]}], "-", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"-", RowBox[{"\[Delta]aa", ".", RowBox[{"(", RowBox[{ RowBox[{"KK", ".", "aa"}], "-", "FF"}], ")"}]}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.4439447917425756`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.4512766132045984`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809984`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920343`*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413376`*^9, 3.5009901475333376`*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900023`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986797646644*^9, 3.55798683514911*^9, { 3.557987389828085*^9, 3.557987392261689*^9}, {3.557987513302302*^9, 3.557987514409904*^9}, {3.557997154019827*^9, 3.557997154347428*^9}, { 3.557999090999229*^9, 3.557999091576431*^9}, {3.7515496219127665`*^9, 3.7515496234124207`*^9}, {3.751549669463464*^9, 3.751549670619442*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"ebf00eba-5af1-af42-8441-35269156842b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.732337608681215*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531574263208*^9, 3.817531589861446*^9}},ExpressionUUID->"aa073f39-1f2f-c040-b333-\ 60bbbccdbd54"], Cell[CellGroupData[{ Cell["PLANE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.902293247089567*^9, 3.902293253961801*^9}},ExpressionUUID->"45830126-03b9-2b40-afc8-\ a3d608261205"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "AA", ",", "x", ",", "y", ",", "xl", ",", "yl", ",", "N3", ",", "NN", ",", "uX", ",", "uY", ",", "uZ", ",", "u", ",", "v", ",", "\[Epsilon]\[Epsilon]", ",", "EM", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N3", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"EM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.694339568569481*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.783142752681495*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933847661047`*^9}, {3.9093688768166304`*^9, 3.9093688838711033`*^9}, {3.9093721694329557`*^9, 3.909372190646823*^9}, { 3.909372489766584*^9, 3.909372512745613*^9}, {3.9093726380463285`*^9, 3.909372640921249*^9}, {3.9093727199130325`*^9, 3.909372720227641*^9}, { 3.909372779325381*^9, 3.909372779702578*^9}, {3.909372814307292*^9, 3.909372838437698*^9}, {3.909373137296845*^9, 3.9093731533934703`*^9}, { 3.909373331450612*^9, 3.909373332206536*^9}, 3.909373370357567*^9, { 3.9093734274450407`*^9, 3.909373444904494*^9}, {3.9093734820444093`*^9, 3.909373484221746*^9}, {3.90937360405326*^9, 3.909373655570702*^9}, { 3.909373686899842*^9, 3.909373711076169*^9}, {3.909373852654055*^9, 3.909373891412511*^9}, {3.909373996028303*^9, 3.90937401900063*^9}, { 3.912057521650089*^9, 3.912057547469932*^9}, {3.9129118609921474`*^9, 3.912911861793758*^9}, {3.914658088884495*^9, 3.91465809011425*^9}, { 3.914658128910772*^9, 3.9146581823864937`*^9}, {3.914658230291054*^9, 3.914658253189903*^9}, {3.914658325963629*^9, 3.91465833434117*^9}, { 3.9146584104273987`*^9, 3.914658540153698*^9}, 3.914658580836437*^9, { 3.914658618191015*^9, 3.914658634218201*^9}, 3.914658680877888*^9, { 3.914658733028788*^9, 3.914658780026413*^9}, {3.940982115856077*^9, 3.9409821171517334`*^9}}, CellLabel-> "In[186]:=",ExpressionUUID->"ffe68bda-5d79-f349-93cc-456ca2a01ebb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"STRESS", "|", "DISP"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions", " ", "etc"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"node", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", " ", RowBox[{"en", ".", " ", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"REC9", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.694339568569481*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.783142752681495*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933847661047`*^9}, {3.9093688768166304`*^9, 3.9093688838711033`*^9}, {3.9093721694329557`*^9, 3.909372190646823*^9}, { 3.909372489766584*^9, 3.909372512745613*^9}, {3.9093726380463285`*^9, 3.909372640921249*^9}, {3.9093727199130325`*^9, 3.909372720227641*^9}, { 3.909372779325381*^9, 3.909372779702578*^9}, {3.909372814307292*^9, 3.909372838437698*^9}, {3.909373137296845*^9, 3.9093731533934703`*^9}, { 3.909373331450612*^9, 3.909373332206536*^9}, 3.909373370357567*^9, { 3.9093734274450407`*^9, 3.909373444904494*^9}, {3.9093734820444093`*^9, 3.909373484221746*^9}, {3.90937360405326*^9, 3.909373655570702*^9}, { 3.909373686899842*^9, 3.909373711076169*^9}, {3.909373852654055*^9, 3.909373891412511*^9}, {3.909373996028303*^9, 3.90937401900063*^9}, { 3.912057521650089*^9, 3.912057547469932*^9}, {3.9129118609921474`*^9, 3.912911861793758*^9}, {3.914658088884495*^9, 3.91465809011425*^9}, { 3.914658128910772*^9, 3.9146581823864937`*^9}, {3.914658230291054*^9, 3.914658253189903*^9}, {3.914658325963629*^9, 3.91465833434117*^9}, { 3.9146584104273987`*^9, 3.914658540153698*^9}, 3.914658580836437*^9, { 3.914658618191015*^9, 3.914658634218201*^9}, 3.914658680877888*^9, { 3.914658733028788*^9, 3.914658780026413*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"b77703bd-bcec-ca41-99eb-2614515272c0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e1", ",", "e2", ",", "nn", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e1", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e2", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"e3", "=", RowBox[{"e1", StyleBox["\[Cross]", "OperatorCharacter"], "e2"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"e3", "/", RowBox[{"Sqrt", "[", RowBox[{"e3", ".", "e3"}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e1", ",", " ", "e2", ",", "nn"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.694339568569481*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.783142752681495*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933353721776`*^9}, {3.909367911293672*^9, 3.9093679394245987`*^9}, {3.9093680822641273`*^9, 3.909368084958804*^9}, { 3.909368238055474*^9, 3.9093682713258443`*^9}, 3.9093683479378915`*^9, { 3.909368442358642*^9, 3.909368455786158*^9}, {3.90936854137303*^9, 3.909368589477632*^9}, {3.909370163861785*^9, 3.909370165610799*^9}, { 3.9129129729230223`*^9, 3.912912975375946*^9}}, CellLabel-> "In[190]:=",ExpressionUUID->"96b0a714-8ef4-744e-9e67-d47903a128ca"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stre) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.783415939356537*^9, 3.783415939864867*^9}, {3.790129829798637*^9, 3.7901298377928085`*^9}, {3.8874361725753126`*^9, 3.887436175021082*^9}},ExpressionUUID->"a203620a-2d4f-3546-ac26-\ a34defe4dda0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", "anya_", ",", "anyb_"}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", " ", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "tensor"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Sigma]XX", ",", "\[Sigma]XY", ",", "\[Sigma]XZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]YX", ",", "\[Sigma]YY", ",", "\[Sigma]YZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]ZX", ",", "\[Sigma]ZY", ",", "\[Sigma]ZZ"}], "}"}]}], "}"}], "]"}], "\[Rule]", " ", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", "anya_", ",", "anyb_"}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", " ", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "tensor"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Sigma]XX", ",", "\[Sigma]XY", ",", "\[Sigma]XZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]YX", ",", "\[Sigma]YY", ",", "\[Sigma]YZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]ZX", ",", "\[Sigma]ZY", ",", "\[Sigma]ZZ"}], "}"}]}], "}"}], "]"}], "\[Rule]", " ", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.694339568569481*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.783142752681495*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783415955475847*^9, 3.783416114681175*^9}, { 3.783416164762178*^9, 3.783416208755393*^9}, {3.783416317958857*^9, 3.7834163817031116`*^9}, {3.7834164360783715`*^9, 3.783416485056771*^9}, { 3.7834166132894554`*^9, 3.7834166233562546`*^9}, 3.783416674821188*^9, { 3.783417354030015*^9, 3.783417363917008*^9}, 3.783417417707629*^9, { 3.814675163272082*^9, 3.814675196666747*^9}, {3.847249940282611*^9, 3.8472499529957237`*^9}, {3.90936972629681*^9, 3.909369729810444*^9}, { 3.909369767295085*^9, 3.909369781563173*^9}, 3.909370085721197*^9, { 3.912057575455965*^9, 3.912057576658553*^9}, {3.940674244240839*^9, 3.9406742454989815`*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"a5608058-8104-634f-802a-57bea674bf83"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.757417862615562*^9, 3.757417866610338*^9}, { 3.788236956532066*^9, 3.788236957825534*^9}},ExpressionUUID->"c59b5893-0d95-5040-bba9-\ 0277b80fedfe"], 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.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694804`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, 3.7574180050911236`*^9, {3.788249948638031*^9, 3.788249965805548*^9}, 3.788250180826583*^9, {3.7882504752171006`*^9, 3.788250476401018*^9}, {3.788250589938117*^9, 3.788250591161209*^9}, { 3.7882506821511555`*^9, 3.788250689434934*^9}, {3.814675353941107*^9, 3.814675358135168*^9}, {3.8200284878289385`*^9, 3.820028493021848*^9}, { 3.820028529332723*^9, 3.8200285764790335`*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"55ff4f53-d3e5-234d-9239-4453da852a4e"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.789021352902676*^9, 3.78902135373832*^9}},ExpressionUUID->"040139eb-8c87-6546-a2f2-\ ea500f882953"], 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.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694804`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.783142752681495*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, 3.789021362891338*^9, {3.789021393201993*^9, 3.789021408295926*^9}, {3.789021442967498*^9, 3.78902149795165*^9}, { 3.789021568111008*^9, 3.789021580321216*^9}, {3.789021644548484*^9, 3.789021733239565*^9}, {3.789021840769305*^9, 3.789021950403524*^9}}, CellLabel-> "In[196]:=",ExpressionUUID->"3440354f-0046-204a-854d-f44f4e6bfd5d"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.757416977381418*^9, 3.7574169848245335`*^9}, { 3.7574180750707226`*^9, 3.757418078890803*^9}, {3.757745607122757*^9, 3.757745615277394*^9}, 3.790129668121153*^9},ExpressionUUID->"7aed83a6-d624-cf4f-8700-\ d6188f6b41a1"], 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.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694804`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.7574171303554697`*^9, 3.7574171843446183`*^9}, {3.757417230154053*^9, 3.757417230424534*^9}, { 3.7574172774582806`*^9, 3.757417279859251*^9}, {3.757418119406087*^9, 3.757418162231819*^9}, {3.790129674473545*^9, 3.79012968521891*^9}, { 3.814675393524129*^9, 3.814675396403953*^9}, {3.8216148844365788`*^9, 3.8216149206900663`*^9}, 3.8217798501935825`*^9}, CellLabel-> "In[199]:=",ExpressionUUID->"c613e353-12a4-344d-991c-8448d1ec8cdd"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.757745810095319*^9, 3.757745817919499*^9}, { 3.790129774658773*^9, 3.79012978895208*^9}},ExpressionUUID->"656b4897-ce3f-c94f-bb42-\ fcf376b2f612"], 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.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.688304272876044*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.688781604020338*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694804`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, 3.757746126576226*^9, 3.757746187800437*^9, { 3.790129975550411*^9, 3.790129986460728*^9}, {3.822369517016216*^9, 3.8223695503530917`*^9}, 3.853212126776141*^9, {3.8532121589674606`*^9, 3.85321225468412*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"ed5d3a40-7df2-8047-8005-79133adbd8c4"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.871450004900112*^9, 3.8714500365529003`*^9}, {3.8765469159617367`*^9, 3.8765469182582664`*^9}, 3.887436199492498*^9, {3.9136918736147757`*^9, 3.913691874596293*^9}},ExpressionUUID->"45ab09b3-e3df-d348-aa9d-\ f34c409f1e03"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "uint", ",", "uext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]\[Epsilon]", ".", "N"}], "+", RowBox[{"\[Kappa]\[Kappa]", ".", "M"}], "+", RowBox[{"\[Gamma]\[Gamma]", ".", "Q"}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"uint", "+", "uext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.629526859845335*^9}, {3.62952693938987*^9, 3.629526958655908*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.629880292972319*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.755525858838416*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.75560943440574*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.75600563314928*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.756092129325247*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.763613361846482*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.763700760307492*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.763814770927882*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.763951786342344*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.76412906722854*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.764133352557773*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.764419852287946*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.764726348337568*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.764727210909055*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.764811869507921*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.764814752582524*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.784011319771961*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.784375378810398*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.784886866702941*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.787728278982785*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.78773522243697*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.788277250336622*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.789123660311942*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.845255431688752*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.912065037824087*^9, 3.912065047096979*^9}, {3.913688264744926*^9, 3.9136883745276575`*^9}, {3.91368843804276*^9, 3.913688483434329*^9}, { 3.9136888818727975`*^9, 3.9136888954874506`*^9}, 3.91368929439236*^9, 3.913690687269609*^9, {3.9136916513807955`*^9, 3.913691731781004*^9}, { 3.913691790851969*^9, 3.9136918179738827`*^9}, {3.913691857847664*^9, 3.913691859380559*^9}, 3.913691897945921*^9, 3.9136919705031557`*^9, 3.914812193100273*^9, {3.941764027347924*^9, 3.941764028429577*^9}, { 3.943016623278614*^9, 3.943016624263092*^9}, {3.9430169569808083`*^9, 3.943016978624334*^9}}, CellLabel-> "In[203]:=",ExpressionUUID->"8701fdbf-858f-e344-b01b-28a20910bf20"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n12_", ",", "n2_", ",", "n23_", ",", "n3_", ",", "n31_"}], "}"}], "]"}]}], "}"}], ",", "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", ",", "n12", ",", "n2", ",", "n23", ",", "n3", ",", "n31"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n12_", ",", "n2_", ",", "n23_", ",", "n3_", ",", "n31_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "uL", ",", "vL", ",", "wL", ",", "\[Phi]L", ",", "\[Theta]L", ",", "\[Psi]L", ",", "AA", ",", "edg", ",", "N3", ",", "M3", ",", "K3", ",", "NN", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "dd", ",", "dw", ",", "ML", ",", "MR", ",", "aa", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "GG", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "equ", ",", "sol", ",", "exp", ",", "\[Delta]WW", ",", "eqs", ",", "a12", ",", "a23", ",", "a31", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n12", ",", "n23", ",", "n31"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", RowBox[{"xl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", RowBox[{"yl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"K3", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}]}], "}"}], ",", "M3"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC6", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["3", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "5", "]"}], "]"}]}], "+", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["3", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "6", "]"}], "]"}]}], "+", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["3", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}], "-", RowBox[{"du", ".", "K3"}], " ", "+", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"a", "[", "nl", "]"}]}], "}"}]}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "10"}]}], ")"}]}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", RowBox[{"yl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.921307099980547*^9, 3.9213071430005245`*^9}, { 3.921307179832007*^9, 3.921307225568447*^9}, {3.921307262010113*^9, 3.921307288951376*^9}, {3.921307324818231*^9, 3.921307325406275*^9}, { 3.941710655413374*^9, 3.941710656846174*^9}, {3.94171069585881*^9, 3.941710706396269*^9}, {3.9417109306848164`*^9, 3.9417109918573456`*^9}, { 3.941711053330679*^9, 3.941711144657364*^9}, {3.941711181881506*^9, 3.941711306714756*^9}, {3.941711362527635*^9, 3.941711379518297*^9}, { 3.941711417188351*^9, 3.941711418298579*^9}, {3.941762875686384*^9, 3.9417628768648357`*^9}, {3.941762980416537*^9, 3.941763044647047*^9}, { 3.941763232732195*^9, 3.94176325789114*^9}, {3.941763416044031*^9, 3.941763416535787*^9}, {3.941763764839495*^9, 3.941763782452725*^9}, { 3.941765684865736*^9, 3.9417657099211864`*^9}, 3.941765928599268*^9, { 3.941766017949177*^9, 3.941766031951626*^9}, {3.9421326419157257`*^9, 3.942132666798086*^9}, {3.942133080480614*^9, 3.942133085589056*^9}, { 3.942133426023821*^9, 3.9421334417308407`*^9}, {3.942133728952392*^9, 3.942133746356266*^9}, {3.942133927613291*^9, 3.942133958505631*^9}, { 3.942136557604365*^9, 3.9421365986044254`*^9}, {3.9430166592632904`*^9, 3.943016660466328*^9}, {3.943016700600838*^9, 3.943016735943033*^9}, { 3.943016772886196*^9, 3.943016773837158*^9}, {3.943016826766699*^9, 3.943016898889551*^9}, {3.943016985279137*^9, 3.943016985449814*^9}, { 3.943065456197258*^9, 3.9430654584046288`*^9}, 3.9430661175937767`*^9, { 3.943066279378589*^9, 3.9430662809530697`*^9}, {3.943066362321743*^9, 3.943066362438437*^9}, {3.943066474722971*^9, 3.9430664769642963`*^9}, { 3.943087062857539*^9, 3.943087105533951*^9}, {3.943087151621212*^9, 3.943087201986166*^9}, {3.943087241486649*^9, 3.943087279021459*^9}, { 3.943088382401644*^9, 3.943088384693271*^9}, {3.9430884405817146`*^9, 3.943088448171664*^9}},ExpressionUUID->"5f9e817a-ae22-4748-8bea-\ ac4a594ef15e"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6303896070263996`*^9, 3.6303896080872*^9}, 3.843539451766064*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}, { 3.887436124423489*^9, 3.887436125319591*^9}},ExpressionUUID->"08acebcf-6de2-8a48-8a4b-\ c4ad549d5805"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"time", " ", "derivatives"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v0"}], "-", "\[Psi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u0"}], "+", "\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]0"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]0"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w0"}], "+", "\[Theta]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w0"}], "-", "\[Phi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", "tt"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.91481238356448*^9, {3.914812443601389*^9, 3.914812444499181*^9}, { 3.914812481734718*^9, 3.914812511059257*^9}, {3.914812560549828*^9, 3.914812644059761*^9}, {3.9148127266055717`*^9, 3.9148127422091484`*^9}, { 3.914812940850784*^9, 3.91481294102128*^9}, {3.9148206602203026`*^9, 3.914820660385198*^9}}, CellLabel-> "In[207]:=",ExpressionUUID->"5392ff32-198a-d742-a101-b064df5ea82f"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221294`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.871449974024082*^9, 3.871449982071842*^9}, 3.8874362080815196`*^9, {3.91369320882834*^9, 3.913693210196746*^9}},ExpressionUUID->"358818e7-1209-db48-88ea-\ f86b441c339b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.629526859845335*^9}, {3.62952693938987*^9, 3.629526958655908*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.629880292972319*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.755525858838416*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.75560943440574*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.75600563314928*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.756092129325247*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.763613361846482*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.763700760307492*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.763814770927882*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.763951786342344*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.76412906722854*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577683`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.764419852287946*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.764726348337568*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.764727210909055*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.764811869507921*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.764814752582524*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.784011319771961*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.784375378810398*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.784886866702941*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.787728278982785*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369674`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.788277250336622*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.789123660311942*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.845255431688752*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.883878524033059*^9, 3.883878552260868*^9}, {3.883878673886747*^9, 3.8838787736569095`*^9}, 3.8838789081969495`*^9, {3.8838789918027105`*^9, 3.8838790117732425`*^9}, {3.883880086846592*^9, 3.8838801009284153`*^9}, { 3.883880256860402*^9, 3.883880290044121*^9}, {3.883880780155187*^9, 3.883880780289626*^9}, {3.9153274069136124`*^9, 3.915327521101465*^9}}, CellLabel-> "In[209]:=",ExpressionUUID->"d39c9729-9a7d-f545-b70c-43ffef0988b0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "NN", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "MR", ",", "ML", ",", "a1", ",", "a2", ",", "a3", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", "xl"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", "yl"}], ";", "\[IndentingNewLine]", RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "+", RowBox[{"2", " ", "y2"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x2", " ", "y1"}], "+", RowBox[{"2", " ", "x1", " ", "y2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y2"}], "+", RowBox[{"2", " ", "y3"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x3", " ", "y2"}], "+", RowBox[{"2", " ", "x2", " ", "y3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{"2", " ", "x3", " ", "y1"}], "-", RowBox[{"2", " ", "x1", " ", "y3"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l"}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ".", RowBox[{"{", RowBox[{"a1", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ".", RowBox[{"{", RowBox[{"a2", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "10"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119407`*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887546`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.883878524033059*^9, 3.883878552260868*^9}, {3.883878673886747*^9, 3.8838787736569095`*^9}, 3.8838789081969495`*^9, {3.8838789918027105`*^9, 3.8838790117732425`*^9}, {3.883880086846592*^9, 3.8838801009284153`*^9}, { 3.883880256860402*^9, 3.883880290044121*^9}, {3.883880780155187*^9, 3.883880780289626*^9}, {3.9153274069136124`*^9, 3.915327490840666*^9}},ExpressionUUID->"74c372dd-0f16-164d-ab44-\ 259b5d2e6f9a"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.85088560989944*^9, 3.850885610881031*^9}, {3.87144996730003*^9, 3.871449969661963*^9}, 3.8874362142899017`*^9, {3.9136921338302*^9, 3.913692134659543*^9}},ExpressionUUID->"b7284bae-7407-8449-ad5a-\ 66882dde0555"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}], "}"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "uint", ",", "uext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}], "}"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]\[Epsilon]", ".", "N"}], "+", RowBox[{"\[Kappa]\[Kappa]", ".", "M"}], "+", RowBox[{"\[Gamma]\[Gamma]", ".", "Q"}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"uint", "+", "uext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.629526859845335*^9}, {3.62952693938987*^9, 3.629526958655908*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.629880292972319*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.755525858838416*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.75560943440574*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.75600563314928*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.756092129325247*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.763613361846482*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.763700760307492*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.763814770927882*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.763951786342344*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.76412906722854*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577683`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.764419852287946*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.764726348337568*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.764727210909055*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.764811869507921*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.764814752582524*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.784011319771961*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.784375378810398*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.784886866702941*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.787728278982785*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369674`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.788277250336622*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.789123660311942*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.845255431688752*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, {3.850885621590944*^9, 3.85088563233187*^9}, 3.8508857589241548`*^9, {3.861841963365331*^9, 3.861841997560587*^9}, { 3.861842048744185*^9, 3.861842114128385*^9}, {3.861842163009183*^9, 3.861842223351238*^9}, 3.861842386723676*^9, 3.8816319430759635`*^9, 3.8816319753570204`*^9, {3.881632016294094*^9, 3.881632029370707*^9}, { 3.881632064066745*^9, 3.881632070103604*^9}, {3.8816321503156757`*^9, 3.881632174804228*^9}, {3.8816322150035825`*^9, 3.881632330298866*^9}, { 3.881632397219624*^9, 3.8816324149554744`*^9}, {3.881632779885769*^9, 3.8816327838631463`*^9}, {3.881634845865536*^9, 3.8816348490255485`*^9}, 3.881636148984031*^9, {3.881636722021798*^9, 3.881636729311616*^9}, { 3.881636957563582*^9, 3.881636964193262*^9}, {3.881647304639271*^9, 3.881647315918081*^9}, {3.881647363529108*^9, 3.8816473661962705`*^9}, { 3.8816492673250976`*^9, 3.881649282688704*^9}, {3.881902003658046*^9, 3.8819020105924845`*^9}, {3.91369063169688*^9, 3.913690674817251*^9}, { 3.913690772901119*^9, 3.913690780459395*^9}, {3.913690833928227*^9, 3.9136908803565955`*^9}, 3.913691217208093*^9, {3.913692148921995*^9, 3.913692183905402*^9}, {3.913692214717695*^9, 3.9136922917553687`*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"a44aeb1d-212d-d44d-9ebb-55a9564dd1f9"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531746848799*^9, 3.817531749407099*^9}},ExpressionUUID->"ea72da7a-fbfb-a24c-b3df-\ 3442394212a4"], Cell[CellGroupData[{ Cell["SOLID ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575037833217053`*^9}, {3.788423783697143*^9, 3.788423784205016*^9}},ExpressionUUID->"e4c9a62b-6806-4e4e-a8c8-\ a85ea513ea51"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "e", ",", "ee", ",", "\[Epsilon]", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", " ", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", "-", RowBox[{"symmetric", " ", "u\[Theta]"}], "-", "formulation"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "jac", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Epsilon]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"} ], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.774071654702608*^9, 3.7740716613755894`*^9}, {3.774071748661003*^9, 3.774071848375541*^9}, {3.774071892384456*^9, 3.774071983649667*^9}, 3.774072057837844*^9, {3.774072100100342*^9, 3.774072136005568*^9}, { 3.774072187780233*^9, 3.7740722037066555`*^9}, {3.774072323322257*^9, 3.7740724309500237`*^9}, {3.774072493328563*^9, 3.774072635753066*^9}, { 3.774072687249714*^9, 3.774072792505401*^9}, {3.774072859863768*^9, 3.774072894596898*^9}, 3.774072979683737*^9, {3.774172222258683*^9, 3.774172264635817*^9}, {3.774172370231858*^9, 3.7741723746656275`*^9}, { 3.774172540635579*^9, 3.7741725730793257`*^9}, 3.774172661391968*^9, { 3.77417272843945*^9, 3.774172868506016*^9}, {3.7741729101771226`*^9, 3.774173007341322*^9}, {3.774173102959459*^9, 3.774173132449967*^9}, 3.774236409887308*^9, {3.7742365098127813`*^9, 3.774236539342957*^9}, { 3.7830787204505596`*^9, 3.783078728236431*^9}, {3.7830788333789034`*^9, 3.783078891201686*^9}, {3.7830789381996555`*^9, 3.7830789386494493`*^9}, 3.783078981596484*^9, {3.783137965886668*^9, 3.783138127581166*^9}, { 3.783138219765298*^9, 3.783138271131869*^9}, {3.783138302154817*^9, 3.783138316699332*^9}, {3.783138415634687*^9, 3.783138438767775*^9}, { 3.7831385999718432`*^9, 3.783138628916269*^9}, {3.783138703438572*^9, 3.783138831357456*^9}, {3.783138872683244*^9, 3.783138979987645*^9}, { 3.783139114486741*^9, 3.783139120765786*^9}, {3.783139205837239*^9, 3.783139234707765*^9}, {3.783139288120484*^9, 3.783139298414276*^9}, { 3.783139379567049*^9, 3.783139493881989*^9}, 3.783139600467164*^9, { 3.783141278624328*^9, 3.783141286091328*^9}, {3.783141484400069*^9, 3.783141537780714*^9}, {3.783141676631746*^9, 3.783141681655782*^9}, { 3.7831417135337715`*^9, 3.783141754113771*^9}, {3.783141785061674*^9, 3.78314188080105*^9}, 3.783142056404602*^9, {3.783413319391193*^9, 3.783413370443163*^9}, {3.788423805453718*^9, 3.788423817167117*^9}, { 3.788423854937721*^9, 3.78842387636735*^9}, {3.788423922628934*^9, 3.788423923220795*^9}, {3.788423982788879*^9, 3.788423984201506*^9}, { 3.788424016385618*^9, 3.788424025351671*^9}, {3.820025339885204*^9, 3.8200254773530717`*^9}, 3.8411959691970887`*^9, {3.84318199280597*^9, 3.843182066083383*^9}, {3.901680681623682*^9, 3.9016807053214116`*^9}, { 3.909365809193484*^9, 3.909365909438663*^9}, 3.9147238081508293`*^9}, CellLabel-> "In[215]:=",ExpressionUUID->"ad8ee51f-c300-e84e-a524-9e36bb9c017a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "only"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Sigma]", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.774071654702608*^9, 3.7740716613755894`*^9}, {3.774071748661003*^9, 3.774071848375541*^9}, {3.774071892384456*^9, 3.774071983649667*^9}, 3.774072057837844*^9, {3.774072100100342*^9, 3.774072136005568*^9}, { 3.774072187780233*^9, 3.7740722037066555`*^9}, {3.774072323322257*^9, 3.7740724309500237`*^9}, {3.774072493328563*^9, 3.774072635753066*^9}, { 3.774072687249714*^9, 3.774072792505401*^9}, {3.774072859863768*^9, 3.774072894596898*^9}, 3.774072979683737*^9, {3.774172222258683*^9, 3.774172264635817*^9}, {3.774172370231858*^9, 3.7741723746656275`*^9}, { 3.774172540635579*^9, 3.7741725730793257`*^9}, 3.774172661391968*^9, { 3.77417272843945*^9, 3.774172868506016*^9}, {3.7741729101771226`*^9, 3.774173007341322*^9}, {3.774173102959459*^9, 3.774173132449967*^9}, 3.774236409887308*^9, {3.7742365098127813`*^9, 3.774236539342957*^9}, { 3.7830787204505596`*^9, 3.783078728236431*^9}, {3.7830788333789034`*^9, 3.783078891201686*^9}, {3.7830789381996555`*^9, 3.7830789386494493`*^9}, 3.783078981596484*^9, {3.783137965886668*^9, 3.783138127581166*^9}, { 3.783138219765298*^9, 3.783138271131869*^9}, {3.783138302154817*^9, 3.783138316699332*^9}, {3.783138415634687*^9, 3.783138438767775*^9}, { 3.7831385999718432`*^9, 3.783138628916269*^9}, {3.783138703438572*^9, 3.783138831357456*^9}, {3.783138872683244*^9, 3.783138979987645*^9}, { 3.783139114486741*^9, 3.783139120765786*^9}, {3.783139205837239*^9, 3.783139234707765*^9}, {3.783139288120484*^9, 3.783139298414276*^9}, { 3.783139379567049*^9, 3.783139493881989*^9}, 3.783139600467164*^9, { 3.783141278624328*^9, 3.783141286091328*^9}, {3.783141484400069*^9, 3.783141537780714*^9}, {3.783141676631746*^9, 3.783141681655782*^9}, { 3.7831417135337715`*^9, 3.783141754113771*^9}, {3.783141785061674*^9, 3.78314188080105*^9}, 3.783142056404602*^9, {3.783413319391193*^9, 3.783413370443163*^9}, {3.788423805453718*^9, 3.788423817167117*^9}, { 3.788423854937721*^9, 3.78842387636735*^9}, {3.788423922628934*^9, 3.788423923220795*^9}, {3.788423982788879*^9, 3.788423984201506*^9}, { 3.788424016385618*^9, 3.788424025351671*^9}, {3.820025339885204*^9, 3.8200254773530717`*^9}, 3.8411959691970887`*^9, {3.84318199280597*^9, 3.843182066083383*^9}, {3.901680681623682*^9, 3.9016807053214116`*^9}, { 3.909365809193484*^9, 3.909365909438663*^9}, 3.9147238081508293`*^9}, CellLabel-> "In[218]:=",ExpressionUUID->"1da0ead2-8957-b54b-aedf-836865619472"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575037970958652`*^9}, 3.788423792328411*^9},ExpressionUUID->"53358e4e-3f9d-b547-b0d3-\ 06dd7d8d7c82"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "uvw0", ",", "uvw2", ",", "Duvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw0", "=", " ", RowBox[{"uvw", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", " ", RowBox[{"uvw", " ", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw0"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, 3.757503894925423*^9, {3.788424102221165*^9, 3.788424103002448*^9}, { 3.788424158557418*^9, 3.7884241691882877`*^9}, {3.788424255454542*^9, 3.788424261482607*^9}, {3.78842429669483*^9, 3.788424433254586*^9}, { 3.820025516866051*^9, 3.820025546496957*^9}, {3.820025587252355*^9, 3.8200255963085623`*^9}, {3.820025628744812*^9, 3.8200257952584977`*^9}, { 3.820026047403425*^9, 3.820026053432946*^9}, 3.914723861029877*^9}, CellLabel-> "In[220]:=",ExpressionUUID->"5299daa9-f079-4242-ad63-423aab46ae47"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw0", ",", "uvw2", ",", "\[Sigma]", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw0", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}], " ", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}], " ", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw0", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, 3.757503894925423*^9, {3.788424102221165*^9, 3.788424103002448*^9}, { 3.788424158557418*^9, 3.7884241691882877`*^9}, {3.788424255454542*^9, 3.788424261482607*^9}, {3.78842429669483*^9, 3.788424433254586*^9}, { 3.820025516866051*^9, 3.820025546496957*^9}, {3.820025587252355*^9, 3.8200255963085623`*^9}, {3.820025628744812*^9, 3.8200257952584977`*^9}, { 3.820026047403425*^9, 3.820026053432946*^9}, {3.914723861029877*^9, 3.9147238872586555`*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"a02b564c-3333-a34c-96c1-748614788b47"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673316`*^9, 3.757503808560038*^9}, 3.757503971145452*^9, 3.790129876602686*^9},ExpressionUUID->"831b1387-ebc3-0b4d-a2d0-\ 054ae7c1401e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E8001"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "uvw", ",", "DG", ",", "GL", ",", "\[Delta]GL", ",", "SS", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"DG", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GL", "=", RowBox[{ RowBox[{"(", RowBox[{"DG", "+", RowBox[{"Transpose", "[", "DG", "]"}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", "DG", "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]GL", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], "+", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], ".", RowBox[{"Transpose", "[", "DG", "]"}]}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"PK2", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"GL", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", "\[Delta]GL", "]"}], ".", RowBox[{"Flatten", "[", "SS", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.7575040694816446`*^9, 3.757504093838356*^9}, {3.7901321001392207`*^9, 3.790132123417013*^9}, {3.8216149607895*^9, 3.821615019490923*^9}, { 3.853211826180835*^9, 3.8532118691811304`*^9}, {3.914303446938734*^9, 3.914303460886933*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"cc7a5a51-8f4a-5a44-953a-1d5be9c1c8df"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575038085600376`*^9}, 3.757503967837716*^9, { 3.790129869617339*^9, 3.790129870017767*^9}},ExpressionUUID->"0e853dc2-c272-654b-bb07-\ c3f9db699b18"], 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.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.688022728542076*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.688287521582518*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.790131932129704*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132043231386*^9}, 3.790132078163104*^9, {3.8223695908336563`*^9, 3.8223695921212144`*^9}, {3.8532115763306246`*^9, 3.853211679754381*^9}, { 3.853211717157551*^9, 3.853211753786068*^9}, 3.85321180626235*^9}, CellLabel-> "In[226]:=",ExpressionUUID->"521523a2-6dbf-9b49-a0d5-5049b4aef3a0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "e", ",", "ee", ",", "\[Epsilon]", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_", ",", "I7_", ",", "I8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6", ",", "I7", ",", "I8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "jac", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Epsilon]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLIDB", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]", ",", "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Delta]uvw", ",", "\[Delta]Duvw", ",", "\[Delta]\[Lambda]\[Lambda]", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e1", ",", "e2", ",", "e3", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]w\[Sigma]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "nonsymmetric", " ", "strain", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"ELEMENT", "[", "node_", "]"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "n\[Gamma]", ",", "enode", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "u_", "]"}], ":=", RowBox[{"u", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]c", "[", "any", "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "nodes", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Gamma]", ",", "n\[Beta]", ",", "n\[Alpha]"}], "}"}], "=", RowBox[{"Dimensions", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"enode", "=", RowBox[{"Flatten", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Flatten", "[", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Gamma]", ",", "\[Gamma]"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "nonsymmetric", " ", "strain", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Beta]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Gamma]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "uvw0", ",", "uvw2", ",", "Duvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw0", "=", " ", RowBox[{"uvw", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"anya_", "[", "any_", "]"}], " ", "\[Rule]", " ", RowBox[{"anya", "[", RowBox[{"any", ",", "0"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", " ", RowBox[{"uvw", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"anya_", "[", "any_", "]"}], " ", "\[Rule]", RowBox[{"anya", "[", RowBox[{"any", ",", "2"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw0"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "uvw", ",", "DG", ",", "GL", ",", "\[Delta]GL", ",", "SS", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"DG", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GL", "=", RowBox[{ RowBox[{"(", RowBox[{"DG", "+", RowBox[{"Transpose", "[", "DG", "]"}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", "DG", "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]GL", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], "+", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], ".", RowBox[{"Transpose", "[", "DG", "]"}]}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"PK2", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"GL", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", "\[Delta]GL", "]"}], ".", RowBox[{"Flatten", "[", "SS", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4426474258030434`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.4472172028994017`*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.6187226885009537`*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.6187342020363007`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.6878646814075384`*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.6879306368336577`*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420737`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924486`*^9}, { 3.6882875215825124`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.790131932129704*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132068764365*^9}},ExpressionUUID->"11fe3b57-3ba9-a34d-87f0-\ 3f50b8531c6d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SOLVER", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.732337608681215*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563159827469*^9, 3.7335631629996696`*^9}, {3.733563216145894*^9, 3.733563217193006*^9}},ExpressionUUID->"c049d55a-1bc2-0646-92f9-\ 6f7142dc0936"], Cell[CellGroupData[{ Cell["DISP defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, 3.8223696918276553`*^9},ExpressionUUID->"9cd0bc16-cfcf-7546-bbb1-\ 8a138423edda"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "par_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT", ",", "A", ",", "B", ",", "BB", ",", "AA"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"B", ",", "A"}], "}"}], "=", RowBox[{"CoefficientArrays", "[", RowBox[{"equ", ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BB", ",", "AA"}], "}"}], "=", RowBox[{"CoefficientArrays", "[", RowBox[{ RowBox[{"Normal", "[", "B", "]"}], ",", "par"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{ RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "AA"}]}], "]"}], ".", "par"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "con_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "exp", ",", "sol", ",", "UT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"UT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "UT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"exp", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", "UT"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Last", "[", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"exp", ",", "con"}], "}"}], ",", "dof"}], "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"large", " ", "scale", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "CLASSIC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", " ", ",", "\[Delta]dof", ",", "sol", ",", "\[Delta]We", ",", "DOF", ",", "\[Delta]DOF", ",", "MAP", ",", "\[Delta]MAP", ",", "ABL", ",", "nequ", ",", "ndof", ",", "A", ",", "B", ",", "dofe", ",", "\[Delta]dofe", ",", "eque", ",", "Le", ",", "LA", ",", "LB", ",", "tt"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "element", " ", "contributions", " ", "in", " ", "parallel"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ABL", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]We", " ", "=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eque", "=", RowBox[{"D", "[", RowBox[{"\[Delta]We", ",", RowBox[{"{", "\[Delta]dofe", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"CoefficientArrays", "[", RowBox[{"eque", ",", "dofe"}], "]"}], ",", RowBox[{"{", RowBox[{"dofe", ",", "\[Delta]dofe"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"dof", " ", "mapping"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ndof", "=", RowBox[{"Length", "[", "DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nequ", "=", RowBox[{"Length", "[", "\[Delta]DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "ndof"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"\[Delta]DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "nequ"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ABL", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", " ", "MAP"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", " ", "\[Delta]MAP"}]}], "}"}], "&"}], ",", "ABL"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): {nequ,ndof} = \>\"", ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"parallel", " ", "build"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LA", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"ec", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LB", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "#", "}"}], "&"}], ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "+=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LA", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", "+=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LB", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"solve", " ", "with", " ", "default", " ", "method"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "B"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<)\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "CLASSICP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", " ", ",", "\[Delta]dof", ",", "sol", ",", "\[Delta]We", ",", "DOF", ",", "\[Delta]DOF", ",", "MAP", ",", "\[Delta]MAP", ",", "ABL", ",", "nequ", ",", "ndof", ",", "A", ",", "B", ",", "dofe", ",", "\[Delta]dofe", ",", "eque", ",", "Le", ",", "LA", ",", "LB", ",", "tt", ",", "ec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"element", " ", "contributions", " ", "in", " ", "parallel"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ABL", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]We", " ", "=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}], "|", RowBox[{"c", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}], "|", RowBox[{"\[Delta]c", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"for", " ", "load", " ", "elements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"dofe", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"dofe", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"(", RowBox[{"\[Delta]dofe", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]a", "\[Rule]", "a"}], ",", RowBox[{"\[Delta]b", "->", "b"}], ",", RowBox[{"\[Delta]c", "\[Rule]", "c"}]}], "}"}]}], ")"}], ",", "dofe"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eque", "=", RowBox[{"D", "[", RowBox[{"\[Delta]We", ",", RowBox[{"{", "\[Delta]dofe", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coff", "=", RowBox[{"CoefficientArrays", "[", RowBox[{"eque", ",", "dofe"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coff", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "coff", "]"}], "\[Equal]", "1"}], ",", RowBox[{"Append", "[", RowBox[{"coff", ",", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "\[Delta]dofe", "]"}], ",", RowBox[{"Length", "[", "\[Delta]dofe", "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "coff"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"coff", ",", RowBox[{"{", RowBox[{"dofe", ",", "\[Delta]dofe"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"dof", " ", "mapping"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ndof", "=", RowBox[{"Length", "[", "DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nequ", "=", RowBox[{"Length", "[", "\[Delta]DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "ndof"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"\[Delta]DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "nequ"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ABL", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", " ", "MAP"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", " ", "\[Delta]MAP"}]}], "}"}], "&"}], ",", "ABL"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): {nequ,ndof} = \>\"", ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"parallel", " ", "build"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"ParallelSum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LA", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"ec", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LA", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", "=", RowBox[{"ParallelSum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LB", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "#", "}"}], "&"}], ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LB", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"solve", " ", "with", " ", "default", " ", "method"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "B"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<)\>\""}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", "\[Delta]WW_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.620464042582256*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.685234270022429*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.693820348212117*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.693896742751856*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.757817776187076*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, 3.78789318769702*^9, { 3.7890171909617825`*^9, 3.789017212740966*^9}, {3.815268500296718*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, { 3.8784336659556417`*^9, 3.878433667669491*^9}, {3.894187640624601*^9, 3.894187654415968*^9}, {3.901599732119807*^9, 3.901599733424538*^9}, { 3.901599766976718*^9, 3.901599789515315*^9}, {3.90159992846725*^9, 3.901599949211515*^9}, {3.901600156171198*^9, 3.901600157234657*^9}, { 3.902704530755273*^9, 3.90270461262266*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"c8af7fd6-e69a-8d40-ae53-bd27d1179685"] }, Open ]], Cell[CellGroupData[{ Cell["VIBR defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.78789280960296*^9, 3.787892817639742*^9}, 3.822369708831148*^9},ExpressionUUID->"57ba751f-c498-1e43-9425-\ 6fb2a123c315"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dofall", ",", "dof0", " ", ",", "dof2", " ", ",", "equ", ",", "sol", ",", "\[Delta]WW", ",", "KK", ",", "MM", ",", "nn", ",", "val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb__", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"\[Omega]", "[", "ii", "]"}], "->", RowBox[{"Sqrt", "[", RowBox[{"val", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{"dofall", "\[Rule]", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "dofall", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dofall", ",", "dof0", " ", ",", "dof2", " ", ",", "equ", ",", "sol", ",", "KK", ",", "MM", ",", "nn", ",", "val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"\[Omega]", "[", "ii", "]"}], "->", RowBox[{"Sqrt", "[", RowBox[{"val", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{"dofall", "\[Rule]", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "dofall", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{"f_", ",", "M_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "M", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"Map", "[", RowBox[{"f", ",", "val"}], "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "dof1", ",", "dof2", ",", "\[Delta]dof", ",", "dofall", ",", "equ", ",", "\[Delta]WW", ",", "KK", ",", "MM", ",", "\[CapitalOmega]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof1", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "1", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "&"}], ",", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"dofall", "->", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"(", RowBox[{"dof0", "/.", "rule"}], ")"}]}], "+", RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"Inverse", "[", "\[CapitalOmega]", "]"}], ".", RowBox[{"(", RowBox[{"dof1", "/.", "rule"}], ")"}]}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "rule_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "dof1", ",", "dof2", ",", "\[Delta]dof", ",", "dofall", ",", "equ", ",", "KK", ",", "MM", ",", "\[CapitalOmega]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof1", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "1", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "&"}], ",", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"dofall", "->", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"(", RowBox[{"dof0", "/.", "rule"}], ")"}]}], "+", RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"Inverse", "[", "\[CapitalOmega]", "]"}], ".", RowBox[{"(", RowBox[{"dof1", "/.", "rule"}], ")"}]}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.620464042582256*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.685234270022429*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.693820348212117*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.693896742751856*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.757817776187076*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, {3.787892909261981*^9, 3.787892939075147*^9}, 3.787893197839568*^9, {3.788327762791728*^9, 3.788327763212218*^9}, { 3.788327835267661*^9, 3.788327837618348*^9}, {3.8852864581695476`*^9, 3.885286492538041*^9}, {3.885286592232431*^9, 3.885286656855174*^9}, { 3.8852878214996276`*^9, 3.885287852857752*^9}, {3.886426290643887*^9, 3.886426310177136*^9}, {3.886917182007636*^9, 3.886917187040081*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"785c340b-3c11-444d-9ed7-8ea0864cf5da"] }, Closed]], Cell[CellGroupData[{ Cell["STAB defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.758253144538479*^9}, 3.787892838194978*^9, 3.822369712103414*^9},ExpressionUUID->"1350ff1d-8fc3-c34c-86ae-\ f17afb45d4c4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WT", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "KK", ",", "KK0", ",", "FF0", ",", "rule0", ",", "KK1", ",", "KK10", ",", "KK11", ",", "val", ",", "vec", ",", "modes", ",", "prule", ",", "list"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["KK", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{ StyleBox["D", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["equ", "OperatorCharacter"], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"linearized", " ", "problem"}], "*)"}], "\[IndentingNewLine]", RowBox[{"KK0", "=", RowBox[{"KK", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FF0", "=", RowBox[{"equ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule0", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{"LinearSolve", "[", RowBox[{"KK0", ",", RowBox[{"-", "FF0"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"KK1", "=", RowBox[{"KK", "/.", "rule0"}]}], ";", "\[IndentingNewLine]", RowBox[{"KK10", "=", " ", RowBox[{"KK1", " ", "/.", " ", RowBox[{"p", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK11", " ", "=", RowBox[{"D", "[", RowBox[{"KK1", " ", ",", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Transpose", "[", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK10", ",", "KK11"}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pick", " ", "the", " ", "real", " ", "ones"}], "*)"}], "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{"PossibleZeroQ", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[ImaginaryI]"}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "Infinity"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", "list"}], "]"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "KK", ",", "FF0", ",", "KK0", ",", "rule0", ",", "KK1", ",", "KK10", ",", "KK11", ",", "val", ",", "vec", ",", "modes", ",", "prule", ",", "list"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "first", "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["KK", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{ StyleBox["D", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["equ", "OperatorCharacter"], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"KK0", "=", RowBox[{"KK", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FF0", "=", RowBox[{"equ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule0", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{"LinearSolve", "[", RowBox[{"KK0", ",", RowBox[{"-", "FF0"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"KK1", "=", RowBox[{"KK", "/.", "rule0"}]}], ";", "\[IndentingNewLine]", RowBox[{"KK10", "=", " ", RowBox[{"KK1", " ", "/.", " ", RowBox[{"p", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK11", " ", "=", RowBox[{"D", "[", RowBox[{"KK1", " ", ",", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Transpose", "[", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK10", ",", "KK11"}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pick", " ", "the", " ", "real", " ", "ones"}], "*)"}], "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{"PossibleZeroQ", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[ImaginaryI]"}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "Infinity"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", "list"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.620464042582256*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.685234270022429*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.693820348212117*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.693896742751856*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.757817776187076*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, {3.758253198275837*^9, 3.758253202040574*^9}, { 3.7582533756088347`*^9, 3.7582533985722675`*^9}, {3.760670938512352*^9, 3.76067094654175*^9}, {3.78874828201035*^9, 3.7887483199991317`*^9}, { 3.788751028674006*^9, 3.788751062737857*^9}, {3.788793141413883*^9, 3.788793141695051*^9}, {3.788831179776044*^9, 3.788831256418445*^9}, { 3.788831297834664*^9, 3.7888313137858887`*^9}, {3.788831356407742*^9, 3.7888313933141465`*^9}, {3.788831468419755*^9, 3.788831536855382*^9}, { 3.788831595469638*^9, 3.788831647218622*^9}, {3.788831857305335*^9, 3.788831917189584*^9}, {3.788832255517164*^9, 3.788832334400532*^9}, { 3.788832692802744*^9, 3.788832754628324*^9}, {3.788832880589661*^9, 3.788832889111374*^9}, {3.788833325826789*^9, 3.7888333376723*^9}, { 3.7888334458148613`*^9, 3.788833446205364*^9}, {3.788834136055804*^9, 3.788834146483068*^9}, {3.788834414977331*^9, 3.788834446526845*^9}, { 3.788836073752419*^9, 3.788836130856104*^9}, {3.788836342113262*^9, 3.788836345010672*^9}, {3.788836448231918*^9, 3.7888364523480806`*^9}, { 3.788836573222029*^9, 3.788836684808531*^9}, {3.788836816775473*^9, 3.788836866644444*^9}, {3.788836968334192*^9, 3.788836976352211*^9}, { 3.788837175638712*^9, 3.788837186917952*^9}, {3.788838309650617*^9, 3.788838324612111*^9}, {3.788853045803496*^9, 3.7888530623012686`*^9}, { 3.788936404346928*^9, 3.7889364238717265`*^9}, {3.7889365367269354`*^9, 3.788936567426444*^9}, {3.788936612493816*^9, 3.788936620487116*^9}, { 3.789125410293588*^9, 3.789125420141614*^9}, {3.789125605814945*^9, 3.789125607960622*^9}, {3.789125797210464*^9, 3.789125797405059*^9}, { 3.789127041313589*^9, 3.789127045756059*^9}, {3.789127075765002*^9, 3.789127077657934*^9}, {3.7891271091340284`*^9, 3.789127125191837*^9}, { 3.7891271735278482`*^9, 3.789127183876584*^9}, {3.789127228398605*^9, 3.789127298684276*^9}, 3.789127339177758*^9, {3.850965192080224*^9, 3.850965220988982*^9}, {3.850965564516798*^9, 3.85096556492159*^9}, { 3.859293737556932*^9, 3.859293746196601*^9}, 3.8592938834461164`*^9}, CellLabel-> "In[240]:=",ExpressionUUID->"5a06cae0-d88b-cf4c-bcde-19954af428b3"] }, Closed]], Cell[CellGroupData[{ Cell["NONL defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, {3.787893238336218*^9, 3.787893239616878*^9}, {3.822369723252593*^9, 3.822369724343676*^9}},ExpressionUUID->"48606689-d665-714c-8744-\ f93a6b1946d0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E8001"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"NSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof", ",", "Reals"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{"dof", " ", "/.", " ", "#"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rul_List"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "con_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "exp", ",", "sol", ",", "UT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"UT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "UT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"exp", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", "UT"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Last", "[", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"exp", ",", "con"}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rul"}]}], "}"}], "]"}]}], "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule_List"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{ "p_Symbol", ",", "pmin_", ",", "pmax_", ",", "\[CapitalDelta]p_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WT", ",", "equ", ",", "sol", ",", "sol0", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ReleaseHold", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"sol", " ", "/.", RowBox[{"Rule", "\[Rule]", "List"}]}]}], "]"}]}], ";", RowBox[{"Prepend", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Hold", "[", "p", "]"}], "\[Rule]", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pmin", ",", "pmax", ",", "\[CapitalDelta]p"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof", ",", "Reals"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{"dof", " ", "/.", " ", "#"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}], ",", "Reals"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_", ",", "rulen_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0", ",", RowBox[{"DampingFactor", "\[Rule]", "4"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "2"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{ "p_Symbol", ",", "pmin_", ",", "pmax_", ",", "\[CapitalDelta]p_"}], "}"}]}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "equ", ",", "sol", ",", "sol0", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0.0000001"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ReleaseHold", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"sol", " ", "/.", RowBox[{"Rule", "\[Rule]", "List"}]}]}], "]"}]}], ";", RowBox[{"Prepend", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Hold", "[", "p", "]"}], "\[Rule]", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pmin", ",", "pmax", ",", "\[CapitalDelta]p"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.620464042582256*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.685234270022429*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.693820348212117*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.693896742751856*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.757817776187076*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, {3.787893262537146*^9, 3.787893293562251*^9}, {3.789011658828579*^9, 3.789011685106179*^9}, { 3.789011769340255*^9, 3.789011778591201*^9}, {3.789011816904675*^9, 3.789011856496833*^9}, {3.789011916734619*^9, 3.789011917613014*^9}, { 3.789012004400347*^9, 3.7890120790499506`*^9}, {3.789017022567576*^9, 3.789017040991524*^9}, {3.789137822804145*^9, 3.789137840140971*^9}, { 3.789138830369392*^9, 3.789138831966152*^9}, {3.789138964170571*^9, 3.789138966401119*^9}, {3.7891390002011642`*^9, 3.789139008392189*^9}, { 3.789139061327534*^9, 3.789139181303717*^9}, {3.789178844159594*^9, 3.7891788709933996`*^9}, {3.789197516887492*^9, 3.78919752929266*^9}, { 3.789197640603428*^9, 3.789197669042338*^9}, {3.7891980332343006`*^9, 3.789198036543322*^9}, {3.7894414019567575`*^9, 3.789441418883275*^9}, { 3.7894415106536922`*^9, 3.789441568976749*^9}, {3.789441727937441*^9, 3.789441760932055*^9}, {3.789441826766877*^9, 3.789441867240697*^9}, { 3.7894419854165044`*^9, 3.789441995908549*^9}, {3.789481227588405*^9, 3.789481229196883*^9}, {3.789565208967163*^9, 3.789565222891079*^9}, { 3.789565267733974*^9, 3.789565310260277*^9}, {3.789724236489136*^9, 3.789724240717756*^9}, {3.852428771947333*^9, 3.852428794640484*^9}, { 3.852439296064255*^9, 3.852439313592872*^9}, {3.852439622784988*^9, 3.852439627315819*^9}, {3.852439910954757*^9, 3.8524399119152737`*^9}, { 3.852441403168058*^9, 3.852441440998828*^9}, {3.852955456548892*^9, 3.852955462666407*^9}, {3.852958622336733*^9, 3.852958622702162*^9}, { 3.8530378998165426`*^9, 3.8530379193339243`*^9}, {3.853037953502244*^9, 3.853037985610914*^9}, {3.85303807352728*^9, 3.853038096110407*^9}, { 3.8530381808829203`*^9, 3.853038216537428*^9}, {3.894187570912894*^9, 3.894187590983534*^9}, {3.8944242250699406`*^9, 3.894424256599369*^9}, { 3.894440195367274*^9, 3.894440196915293*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"352e3fa0-1604-8e46-832e-76f1e19daefe"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_", ",", "rule1_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0", ",", "rule1"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input",ExpressionUUID->"b3bfccc9-b2fa-0d44-b5d6-f6d36e0e3c48"] }, Closed]], Cell[CellGroupData[{ Cell["TMEC defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, {3.822369175023527*^9, 3.822369183415092*^9}, {3.8223697280437837`*^9, 3.8223697285388823`*^9}},ExpressionUUID->"d6216333-c6ba-5342-ab71-\ 44bc91625a2e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.620464042582256*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.685234270022429*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.693820348212117*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.693896742751856*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.757817776187076*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, 3.78789318769702*^9, { 3.7890171909617825`*^9, 3.789017212740966*^9}, {3.815268500296718*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, { 3.822369200353807*^9, 3.822369210700147*^9}, {3.822369272776178*^9, 3.822369299587499*^9}, 3.822369735599583*^9, {3.822370335148969*^9, 3.8223703474091916`*^9}}, CellLabel-> "In[252]:=",ExpressionUUID->"8fcfaa11-af17-374d-9119-05a01bc9c84f"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PRE-POST", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.732337608681215*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563159827469*^9, 3.7335631629996696`*^9}},ExpressionUUID->"7634b03b-2084-7e42-96f2-\ 627a3d78e4a5"], Cell[CellGroupData[{ Cell["LINK-TIE defs", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.685326992341719*^9, 3.685326999819147*^9}, {3.685327113810607*^9, 3.685327116900611*^9}, { 3.76060719416889*^9, 3.760607206352191*^9}},ExpressionUUID->"38115cfd-4fad-5742-9919-\ a19133824093"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LINK", "[", RowBox[{"{", RowBox[{"I1_Integer", ",", "I2_Integer"}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "3"}], "]"}], "]"}], "\[Rule]", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"0", "\[Rule]", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"rigid", " ", "link"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LINK", "[", RowBox[{"lnk_", ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"funout", ",", "n1", ",", "n2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "=", RowBox[{"lnk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "lnk", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"could", " ", "be", " ", "generalized"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"could", " ", "be", " ", "generalized", "\[IndentingNewLine]", RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}]}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"could", " ", "be", " ", "generalized"}], "*)"}], "\[IndentingNewLine]", RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}]}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.63065171672132*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.68532700656046*^9, 3.685327020590476*^9}, {3.685327067740542*^9, 3.685327190430714*^9}, { 3.6853272344507756`*^9, 3.685327367150961*^9}, {3.685327539861203*^9, 3.685327565421239*^9}, {3.685327602601294*^9, 3.685327613201306*^9}, 3.685327846481632*^9, {3.760607166687976*^9, 3.760607186226157*^9}, { 3.7606081322359104`*^9, 3.7606081444875402`*^9}, {3.783175276335141*^9, 3.783175293210803*^9}, {3.783175332699009*^9, 3.783175341729051*^9}, { 3.7888532050250206`*^9, 3.788853241833204*^9}}, CellLabel-> "In[253]:=",ExpressionUUID->"59418ba3-63c8-9a43-8618-85480d363afb"] }, Closed]], Cell[CellGroupData[{ Cell["TOOL defs", "Subsection",ExpressionUUID->"9e50311c-4f64-674d-ba94-145c2265d0ac"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EX", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "t0", ",", "A", ",", "fun", ",", "dfun", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"t0", " ", "=", " ", RowBox[{"First", "[", "time", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"fun", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUN", "[", RowBox[{"A", ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "*", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}], "&"}]}], "]"}], ".", "a0"}], "+", RowBox[{ RowBox[{"MATRIXFUN", "[", RowBox[{"A", ",", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "*", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", "#", "]"}]}], "&"}]}], "]"}], ".", "a1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dfun", " ", "=", " ", RowBox[{"D", "[", RowBox[{"fun", ",", "t"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Join", "[", RowBox[{"fun", ",", "dfun"}], "]"}], " ", "/.", " ", RowBox[{"t", "->", "#"}]}], ")"}], "&"}], ",", "time"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CR", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nn", ",", "\[CapitalDelta]t", ",", "A", ",", "II", ",", "AA", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", RowBox[{ RowBox[{"Length", "[", "time", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Last", "[", "time", "]"}], "-", RowBox[{"First", "[", "time", "]"}]}], ")"}], "/", "nn"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"II", " ", "=", " ", RowBox[{"IdentityMatrix", "[", RowBox[{"Length", "[", "a0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AA", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"II", ",", RowBox[{ RowBox[{ RowBox[{"-", "II"}], "/", "2"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}], "]"}], ".", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"II", ",", RowBox[{ RowBox[{"II", "/", "2"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"AA", ".", "#"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"a0", ",", "a1"}], "}"}], "]"}], ",", "nn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DG", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nn", ",", "\[CapitalDelta]t", ",", "A", ",", "II", " ", ",", "AA", " ", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", RowBox[{ RowBox[{"Length", "[", "time", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Last", "[", "time", "]"}], "-", RowBox[{"First", "[", "time", "]"}]}], ")"}], "/", "nn"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"II", " ", "=", " ", RowBox[{"IdentityMatrix", "[", RowBox[{"Length", "[", "a0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AA", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A", "*", RowBox[{"\[CapitalDelta]t", "^", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"II", "-", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}]}], ")"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "II"}], "-", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "3"}]}], ")"}], "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}], "]"}], ".", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "*", "II"}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "II"}], ",", RowBox[{ RowBox[{"-", "II"}], "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"AA", ".", "#"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"a0", ",", "a1"}], "}"}], "]"}], ",", "nn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NEWTON", "[", RowBox[{"equ_", ",", "var_", ",", "rule_", ",", RowBox[{"{", RowBox[{"\[CurlyEpsilon]_", ",", "m_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Dequ", ",", "sol", ",", "dsol", ",", "K", ",", "F", ",", RowBox[{"ii", "=", "m"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dequ", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "var", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"var", " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"ii", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"Dequ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dsol", "=", RowBox[{"-", RowBox[{"LinearSolve", "[", RowBox[{"K", ",", "F"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "dsol", "]"}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"sol", "+", "dsol"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "dsol", "]"}], "<", RowBox[{"\[CurlyEpsilon]", "*", RowBox[{"Norm", "[", "sol", "]"}]}]}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ii", "=", RowBox[{"ii", "-", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.4941679835598*^9, 3.4941680104542*^9}, { 3.725892039330008*^9, 3.725892047236313*^9}, {3.7258921328118224`*^9, 3.725892185576483*^9}}, CellLabel-> "In[256]:=",ExpressionUUID->"f479c190-fc6c-504e-b6f0-90477411a621"] }, Closed]], Cell[CellGroupData[{ Cell["REFINE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.901778668161737*^9, 3.901778670179028*^9}},ExpressionUUID->"c34e56cf-8e98-de46-88bb-\ 0d4476a9830f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"left", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a1"}], "+", RowBox[{"6", " ", "a2"}], "-", "a3"}], ")"}], "/", "8"}], ",", "a2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}]}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"right", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a1"}], "+", RowBox[{"6", " ", "a2"}], "+", RowBox[{"3", " ", "a3"}]}], ")"}], "/", "8"}], ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n2", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "n6", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n6"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n2", ",", RowBox[{"n8", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n3", ",", RowBox[{"n12", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4", ",", RowBox[{"n11", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", RowBox[{"n13", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4", ",", RowBox[{"n15", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n5", ",", RowBox[{"n14", "=", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n6", ",", "n10", ",", "n2", ",", "n11", ",", "n4", ",", "n13"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{"BEAMT", ",", 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[{"BEAMT", ",", 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[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "Ip_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "Ip_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TWODIM", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID1", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID2", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"EMS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], ",", RowBox[{"{", RowBox[{"n3_", ",", "n4_"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n5", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n8", ",", "n9"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n9", ",", "n6"}], "}"}], ",", RowBox[{"{", RowBox[{"n7", ",", "n4"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SHELL", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID", ",", "mat_", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n5", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n7", ",", "n10", ",", "n6", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID", ",", "mat_", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n13", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n12", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n14", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n18", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n22", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n21", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4", ",", "n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n9", ",", "n2", ",", "\[IndentingNewLine]", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n13", ",", "n18", ",", "\[IndentingNewLine]", RowBox[{"n15", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n19", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3", ",", "n7", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "n22"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n13", ",", "n10", ",", "n3", ",", "\[IndentingNewLine]", RowBox[{"n11", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n22", ",", "n19", ",", "\[IndentingNewLine]", RowBox[{"n16", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n20", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n3", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n12", ",", "n13", ",", "n11", ",", "n4", ",", "\[IndentingNewLine]", "n21", ",", "n22", ",", "n20", ",", "\[IndentingNewLine]", RowBox[{"n17", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n14", ",", "n18", ",", "n22", ",", "n21", ",", "n5", ",", "\[IndentingNewLine]", RowBox[{"n23", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n27", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n26", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n18", ",", "n15", ",", "n19", ",", "n22", ",", "n23", ",", "n6", ",", "\[IndentingNewLine]", RowBox[{"n24", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "n27"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n22", ",", "n19", ",", "n16", ",", "n20", ",", "n27", ",", "n24", ",", "n7", ",", "\[IndentingNewLine]", RowBox[{"n25", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n21", ",", "n22", ",", "n20", ",", "n17", ",", "n26", ",", "n27", ",", "n25", ",", "\[IndentingNewLine]", "n8"}], " ", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"if", " ", "nothing", " ", "applies"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", "nod"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[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[{ "should", " ", "detect", " ", "interior", " ", "nodes", " ", "as", " ", "they", " ", "are", " ", "always", " ", "active"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "may", " ", "affect", " ", "corners", " ", "of", " ", "polygons"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"NEWNODE", ",", "NEWNODET", ",", "NEWNODE5"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE5", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE5", "[", 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[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"qX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"qY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"qZ", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE5", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE5", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "ii", "]"}], ",", RowBox[{"uY", "[", "ii", "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"qX", "[", "ii", "]"}], ",", RowBox[{"qY", "[", "ii", "]"}], ",", RowBox[{"qZ", "[", "ii", "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[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"}], "}"}], ",", "4"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"offset", "[", RowBox[{"\[Kappa]_", ",", "n1_", ",", "n2_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r12", ",", "L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Kappa]", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r12", "=", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"Sqrt", "[", RowBox[{"r12", ".", "r12"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], "r12"}]}], "/", "L"}], "*", RowBox[{"(", RowBox[{ RowBox[{"1.", "/", "\[Kappa]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"1.", "/", RowBox[{"\[Kappa]", "^", "2"}]}], "-", RowBox[{ RowBox[{"L", "^", "2"}], "/", "4"}]}], "]"}]}], ")"}]}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]"}], "}"}], ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], "+", RowBox[{"offset", "[", RowBox[{"\[Kappa]", ",", "n1", ",", "n2"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}]}], "}"}]}], " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "ii", "]"}], ",", RowBox[{"uY", "[", "ii", "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "}"}]}], " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_", ",", "a6_", ",", "a7_", ",", "a8_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}]}], ";", RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"DO", " ", "IT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"REF", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "lnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"lnkout", "=", "lnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9, {3.9315718321872807`*^9, 3.93157184875394*^9}, {3.935459053945682*^9, 3.935459067057724*^9}, { 3.93562737885256*^9, 3.935627438068947*^9}, {3.935627476183502*^9, 3.935627482828211*^9}, {3.935642659881304*^9, 3.935642753309841*^9}, 3.935709709418913*^9, {3.936934154512059*^9, 3.9369341556011086`*^9}, 3.936934223070513*^9, {3.936934351714995*^9, 3.936934353215971*^9}, { 3.9369343922715836`*^9, 3.9369343925821342`*^9}, {3.936934506460537*^9, 3.9369345221943684`*^9}, {3.936934785258915*^9, 3.936934797547802*^9}, 3.936934842951687*^9, {3.937537010153595*^9, 3.9375370700981407`*^9}, { 3.9376205213330936`*^9, 3.937620522942389*^9}, 3.937629298829087*^9, { 3.937629477930681*^9, 3.9376295091010857`*^9}, 3.937629540040703*^9, { 3.938236552529936*^9, 3.938236584760229*^9}, {3.9382366235768967`*^9, 3.938236701177494*^9}}, CellLabel-> "In[260]:=",ExpressionUUID->"c45a6771-1da4-3c40-a623-eba9b76cb09c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"left", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a1"}], "+", RowBox[{"6", " ", "a2"}], "-", "a3"}], ")"}], "/", "8"}], ",", "a2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}]}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"right", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a1"}], "+", RowBox[{"6", " ", "a2"}], "+", RowBox[{"3", " ", "a3"}]}], ")"}], "/", "8"}], ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "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[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "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[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n2", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "n6", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n6"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n2", ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n3", ",", RowBox[{"n12", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4", ",", RowBox[{"n11", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", RowBox[{"n13", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4", ",", RowBox[{"n15", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n5", ",", RowBox[{"n14", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n6", ",", "n10", ",", "n2", ",", "n11", ",", "n4", ",", "n13"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[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[{"BEAMT", ",", 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[{"BEAMT", ",", 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[{"BEAMT", ",", 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[{"PLANESTRAIN", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"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[{"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]", "\[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[{"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[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"any", ",", "sym", ",", "i", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "==", "1"}], ",", " ", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "i", ",", "j"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"sym", "=", RowBox[{"a", "[", RowBox[{"ii", "++"}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "==", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", "a1", "]"}], "]"}], "]"}]}], ")"}], "&&", RowBox[{"(", RowBox[{"j", "==", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "i"}], "]"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"ii", "=", RowBox[{"ii", "-", "1"}]}], ";", "sym"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "i"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", "a1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"any", ",", "sym", ",", "i", ",", "j"}], "}"}], ",", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "==", "1"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "i", ",", "j"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"sym", "=", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"_", "[", "__", "]"}]}], "]"}], ",", RowBox[{"sym", "/.", " ", RowBox[{ RowBox[{"any_", "[", "_", "]"}], "->", RowBox[{"any", "[", "ii", "]"}]}]}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{"a", "[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "i"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"funout", "[", RowBox[{"[", "a1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"offset", "[", RowBox[{"\[Kappa]_", ",", "n1_", ",", "n2_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r12", ",", "L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Kappa]", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r12", "=", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"Sqrt", "[", RowBox[{"r12", ".", "r12"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], "r12"}]}], "/", "L"}], "*", RowBox[{"(", RowBox[{ RowBox[{"1.", "/", "\[Kappa]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"1.", "/", RowBox[{"\[Kappa]", "^", "2"}]}], "-", RowBox[{ RowBox[{"L", "^", "2"}], "/", "4"}]}], "]"}]}], ")"}]}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]"}], "}"}], ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], "+", RowBox[{"offset", "[", RowBox[{"\[Kappa]", ",", "n1", ",", "n2"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}]}], "}"}]}], " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_", ",", "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"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9, {3.9315718321872807`*^9, 3.93157184875394*^9}, {3.935459053945682*^9, 3.935459067057724*^9}, { 3.93562737885256*^9, 3.935627438068947*^9}, {3.935627476183502*^9, 3.935627482828211*^9}, {3.935642659881304*^9, 3.935642753309841*^9}, 3.935709709418913*^9, {3.936934154512059*^9, 3.9369341556011086`*^9}, 3.936934223070513*^9, {3.936934351714995*^9, 3.936934353215971*^9}, { 3.9369343922715836`*^9, 3.9369343925821342`*^9}, {3.936934506460537*^9, 3.9369345221943684`*^9}, {3.936934785258915*^9, 3.936934797547802*^9}, 3.936934842951687*^9, {3.937537010153595*^9, 3.9375370700981407`*^9}, { 3.9376205213330936`*^9, 3.937620522942389*^9}, 3.937629298829087*^9, { 3.937629477930681*^9, 3.9376295091010857`*^9}, 3.937629540040703*^9, { 3.938236552529936*^9, 3.938236584760229*^9}, {3.9382366235768967`*^9, 3.938236701177494*^9}, {3.94383897844487*^9, 3.943839116009775*^9}, { 3.9438740290737743`*^9, 3.943874031793513*^9}, {3.943875205313808*^9, 3.943875208273459*^9}, 3.9438752654443684`*^9, {3.943875296990267*^9, 3.9438753064925976`*^9}, {3.9438753935163097`*^9, 3.943875393826648*^9}, { 3.943930485929005*^9, 3.943930487933972*^9}, {3.943930839543423*^9, 3.943930894895056*^9}, {3.943941420194956*^9, 3.943941502106051*^9}, { 3.943941546716187*^9, 3.943941548188792*^9}, {3.943941588528483*^9, 3.943941673356163*^9}, 3.943941717212478*^9, {3.943941758700869*^9, 3.9439418336389217`*^9}, {3.943942357483085*^9, 3.94394236951322*^9}, { 3.943942449386524*^9, 3.943942450610956*^9}, {3.9439427228039055`*^9, 3.943942839372818*^9}, {3.943943173492885*^9, 3.943943220611481*^9}, { 3.9439433024162006`*^9, 3.943943304529865*^9}, {3.943947109696211*^9, 3.943947187326157*^9}, {3.943947294275902*^9, 3.943947323729988*^9}, { 3.94394800819993*^9, 3.9439480114434185`*^9}, {3.9439482844434357`*^9, 3.94394832048821*^9}, {3.943948503492725*^9, 3.943948516391358*^9}, { 3.944009172106109*^9, 3.944009201821215*^9}, {3.9440092332950287`*^9, 3.944009248923622*^9}, {3.944009468783972*^9, 3.944009508997445*^9}, { 3.944009686699991*^9, 3.9440096884930553`*^9}, {3.944009773376911*^9, 3.944009808974612*^9}, {3.9440099068183746`*^9, 3.944009945184202*^9}, { 3.9440101002528877`*^9, 3.9440102634254436`*^9}, {3.944010361015732*^9, 3.944010379972183*^9}, {3.9440104156867027`*^9, 3.9440104243917637`*^9}},ExpressionUUID->"68c9e649-e216-9d46-a153-\ e323b232c5f0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "lnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"lnkout", "=", "lnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9, {3.9315718321872807`*^9, 3.93157184875394*^9}, {3.935459053945682*^9, 3.935459067057724*^9}, { 3.93562737885256*^9, 3.935627438068947*^9}, {3.935627476183502*^9, 3.935627482828211*^9}, {3.935642659881304*^9, 3.935642753309841*^9}, 3.935709709418913*^9, {3.936934154512059*^9, 3.9369341556011086`*^9}, 3.936934223070513*^9, {3.936934351714995*^9, 3.936934353215971*^9}, { 3.9369343922715836`*^9, 3.9369343925821342`*^9}, {3.936934506460537*^9, 3.9369345221943684`*^9}, {3.936934785258915*^9, 3.936934797547802*^9}, 3.936934842951687*^9, {3.937537010153595*^9, 3.9375370700981407`*^9}, { 3.9376205213330936`*^9, 3.937620522942389*^9}, 3.937629298829087*^9, { 3.937629477930681*^9, 3.9376295091010857`*^9}, 3.937629540040703*^9, { 3.938236552529936*^9, 3.938236584760229*^9}, {3.9382366235768967`*^9, 3.938236701177494*^9}, {3.94383897844487*^9, 3.943839116009775*^9}, { 3.9438740290737743`*^9, 3.943874031793513*^9}, {3.943875205313808*^9, 3.943875208273459*^9}, 3.9438752654443684`*^9, {3.943875296990267*^9, 3.9438753064925976`*^9}, {3.9438753935163097`*^9, 3.943875393826648*^9}, { 3.943930485929005*^9, 3.943930487933972*^9}, {3.943930839543423*^9, 3.943930894895056*^9}, {3.943941420194956*^9, 3.943941502106051*^9}, { 3.943941546716187*^9, 3.943941548188792*^9}, {3.943941588528483*^9, 3.943941673356163*^9}, 3.943941717212478*^9, {3.943941758700869*^9, 3.9439418336389217`*^9}, {3.943942357483085*^9, 3.94394236951322*^9}, { 3.943942449386524*^9, 3.943942450610956*^9}, {3.9439427228039055`*^9, 3.943942839372818*^9}, {3.943943173492885*^9, 3.943943220611481*^9}, { 3.9439433024162006`*^9, 3.943943304529865*^9}, {3.943947109696211*^9, 3.943947187326157*^9}, {3.943947294275902*^9, 3.943947323729988*^9}},ExpressionUUID->"d5c1fec4-a7d3-2a4a-b523-\ 378c05e9ade1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refined", " ", "edges", " ", "should", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9}, CellLabel-> "In[317]:=",ExpressionUUID->"d13506c9-d451-f24f-a320-16c5fff621a8"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"one", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"two", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int1", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a1"}], "+", RowBox[{"6", " ", "a2"}], "-", "a3"}], ")"}], "/", "8"}], ",", "a2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}]}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int2", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a1"}], "+", RowBox[{"6", " ", "a2"}], "+", RowBox[{"3", " ", "a3"}]}], ")"}], "/", "8"}], ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"INT1", "[", "dat_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "/.", "int1"}], ")"}], "&"}], ",", "tmp"}], "]"}], ",", RowBox[{"{", RowBox[{"tmp", ",", "dat"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"INT2", "[", "dat_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "/.", "int2"}], ")"}], "&"}], ",", "tmp"}], "]"}], ",", RowBox[{"{", RowBox[{"tmp", ",", "dat"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", RowBox[{"INT1", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", RowBox[{"INT2", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "def"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"INT1", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"INT2", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"three", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n5", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n7", ",", "n10", ",", "n6", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n13", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n12", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n14", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n18", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n22", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n21", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4", ",", "n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n9", ",", "n2", ",", "\[IndentingNewLine]", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n13", ",", "n18", ",", "\[IndentingNewLine]", RowBox[{"n15", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n19", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3", ",", "n7", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "n22"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n13", ",", "n10", ",", "n3", ",", "\[IndentingNewLine]", RowBox[{"n11", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n22", ",", "n19", ",", "\[IndentingNewLine]", RowBox[{"n16", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n20", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n3", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n12", ",", "n13", ",", "n11", ",", "n4", ",", "\[IndentingNewLine]", "n21", ",", "n22", ",", "n20", ",", "\[IndentingNewLine]", RowBox[{"n17", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n14", ",", "n18", ",", "n22", ",", "n21", ",", "n5", ",", "\[IndentingNewLine]", RowBox[{"n23", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n27", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n26", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n18", ",", "n15", ",", "n19", ",", "n22", ",", "n23", ",", "n6", ",", "\[IndentingNewLine]", RowBox[{"n24", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "n27"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n22", ",", "n19", ",", "n16", ",", "n20", ",", "n27", ",", "n24", ",", "n7", ",", "\[IndentingNewLine]", RowBox[{"n25", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n21", ",", "n22", ",", "n20", ",", "n17", ",", "n26", ",", "n27", ",", "n25", ",", "\[IndentingNewLine]", "n8"}], " ", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"if", " ", "nothing", " ", "applies"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", "nod"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"NEWNODE", ",", "NEWNODET"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_", ",", "a6_", ",", "a7_", ",", "a8_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}]}], ";", RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"DO", " ", "IT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"REF", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.901779751122837*^9, 3.901779839648195*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.901779947387813*^9}, {3.9017799894429646`*^9, 3.901780065866303*^9}, { 3.901780104322407*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.901780387648889*^9}, {3.901840688856732*^9, 3.90184074494683*^9}, { 3.901840799236411*^9, 3.901840843315841*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.901841250346514*^9, 3.901841252566634*^9}, 3.901841489471627*^9, {3.9018416422969494`*^9, 3.901841644104319*^9}, 3.901841749559722*^9, {3.9018422102104535`*^9, 3.901842260333658*^9}, { 3.90184232047679*^9, 3.901842330887992*^9}, {3.901844658728829*^9, 3.901844681460646*^9}, {3.9018447720500755`*^9, 3.901844776029396*^9}, { 3.901848883302691*^9, 3.901848918025587*^9}, {3.9018489944102974`*^9, 3.901849032929193*^9}, {3.901849283833233*^9, 3.9018493322660627`*^9}, { 3.9018494487017307`*^9, 3.901849449555555*^9}},ExpressionUUID->"da578a00-d7fa-6b49-853a-\ 57a8cb384e3f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "n2", ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.9024661710855503`*^9, 3.902466191675097*^9}, { 3.902466339739992*^9, 3.902466395824471*^9}, {3.9024664734657726`*^9, 3.902466513805814*^9}, 3.902466606664084*^9, {3.902466676604085*^9, 3.902466720314906*^9}, {3.902466753759744*^9, 3.902466944799135*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"ad5f64c8-ce41-854f-bacf-a194ec8454bb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.902466955591053*^9}, CellLabel->"Out[25]=",ExpressionUUID->"ff0dccbd-4257-fc49-8bc2-ce8b6ee6a637"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "lnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"lnkout", "=", "lnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.901779751122837*^9, 3.901779839648195*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.901779947387813*^9}, {3.9017799894429646`*^9, 3.901780065866303*^9}, { 3.901780104322407*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.901780387648889*^9}, {3.901840688856732*^9, 3.90184074494683*^9}, { 3.901840799236411*^9, 3.901840843315841*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.901841250346514*^9, 3.901841252566634*^9}, 3.901841489471627*^9},ExpressionUUID->"0b2ca0bd-2009-7647-90fd-\ a312067764e5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refined", " ", "edges", " ", "should", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.6876686346644025`*^9, 3.687668647884422*^9}, {3.687668691164481*^9, 3.687668823124666*^9}, { 3.687668960604859*^9, 3.6876691302750964`*^9}, {3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, { 3.687672494864244*^9, 3.687672495474246*^9}, {3.687672580794365*^9, 3.687672715374554*^9}, {3.687672853854748*^9, 3.687672933284858*^9}, { 3.687672972294914*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.687931334474635*^9, {3.687931387314707*^9, 3.687931400414726*^9}, {3.687931456954805*^9, 3.6879314600748086`*^9}, { 3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.687931751135217*^9}, {3.687931799185285*^9, 3.6879318101553016`*^9}, { 3.68793185287536*^9, 3.687931875785391*^9}, {3.68803217384746*^9, 3.688032324857671*^9}, {3.68811073769691*^9, 3.68811083105704*^9}, { 3.688182194807842*^9, 3.688182209008861*^9}, {3.688182315870012*^9, 3.688182493260259*^9}, {3.6881827603406363`*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.688183132471155*^9}, {3.688183628661849*^9, 3.6881836750819173`*^9}, { 3.688211059016615*^9, 3.6882111198467*^9}, {3.688211189606798*^9, 3.688211227256852*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.6882118603977394`*^9}, {3.688213969800432*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.6882146560475106`*^9, 3.688214668457528*^9}, { 3.688214751567642*^9, 3.688214768097669*^9}, {3.688214804297716*^9, 3.6882149595979357`*^9}, {3.688215020348018*^9, 3.688215213338288*^9}, { 3.688215243738332*^9, 3.688215312948428*^9}, 3.688215544608753*^9, { 3.688540867416464*^9, 3.688540868276465*^9}, {3.688540923456542*^9, 3.688540987616632*^9}, {3.689509628603777*^9, 3.6895096840119457`*^9}, 3.6895097148397093`*^9, {3.689568676097738*^9, 3.689568771827872*^9}, { 3.689737582567273*^9, 3.689737610517312*^9}, {3.689738148338065*^9, 3.689738254678214*^9}, {3.689738292788267*^9, 3.689738346768343*^9}, { 3.689738725788874*^9, 3.689738817909003*^9}, {3.689858527120675*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, { 3.6940970096156654`*^9, 3.694097074705757*^9}, 3.694141398814512*^9, { 3.694354094868929*^9, 3.6943541832790527`*^9}, {3.694920239046096*^9, 3.694920319576208*^9}, {3.694920396206316*^9, 3.694920412426338*^9}, { 3.694920488276445*^9, 3.6949204937164516`*^9}, 3.694920560646546*^9, { 3.695100444594348*^9, 3.6951004570843654`*^9}, {3.697339563447492*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, { 3.697985573722165*^9, 3.697985597992199*^9}, {3.697985642962262*^9, 3.697985671172302*^9}, {3.724464332547879*^9, 3.724464348643357*^9}, { 3.724467403856756*^9, 3.724467437838467*^9}, {3.724467547933581*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, {3.724467772264612*^9, 3.724467824163081*^9}, {3.7244678625415564`*^9, 3.724467863396864*^9}, { 3.724468018783759*^9, 3.72446802144991*^9}, {3.7244681559004545`*^9, 3.724468185054037*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, { 3.7244686219080153`*^9, 3.7244687024486265`*^9}, {3.724471239123545*^9, 3.724471243073423*^9}, {3.724471282106525*^9, 3.724471282307459*^9}, { 3.724471828313918*^9, 3.724471852982109*^9}, {3.724510926042297*^9, 3.724510971741112*^9}, {3.725418025707011*^9, 3.725418132591786*^9}, { 3.725418186497287*^9, 3.725418198564393*^9}, {3.725418240702896*^9, 3.7254182427078357`*^9}, 3.725418272982128*^9, {3.725418374214787*^9, 3.72541838162965*^9}, {3.725418413584223*^9, 3.725418415023783*^9}, { 3.725418877464322*^9, 3.725418956995327*^9}, {3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441197`*^9, 3.725419396185589*^9}, { 3.725432214366968*^9, 3.725432235836476*^9}, {3.725432289467839*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, { 3.726401405512204*^9, 3.7264014071162825`*^9}, {3.72640144393233*^9, 3.726401446298113*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, { 3.726401682872032*^9, 3.726401718837957*^9}, {3.726401899357152*^9, 3.726401901021258*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, { 3.726402159599182*^9, 3.7264021616913195`*^9}, {3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.747040836329057*^9}, { 3.74710616636937*^9, 3.747106214420479*^9}, {3.747106746963822*^9, 3.747106834372692*^9}, {3.747106895987136*^9, 3.747106915079779*^9}, { 3.747106958889848*^9, 3.747106998742816*^9}, 3.747107044736511*^9, { 3.747107087544964*^9, 3.747107089357545*^9}, {3.747113800248985*^9, 3.747113811418234*^9}, {3.747113850002859*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.74711434246253*^9, 3.747114343868453*^9}, { 3.747114874445833*^9, 3.747114931572899*^9}, {3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.747115638702848*^9}, { 3.747116431240279*^9, 3.747116433552243*^9}, {3.747116480822291*^9, 3.747116610432179*^9}, {3.747116647876696*^9, 3.74711671028353*^9}, { 3.74865997476248*^9, 3.748660010198181*^9}, {3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, { 3.748660498171374*^9, 3.748660508798976*^9}, {3.7486929231374454`*^9, 3.748692934238252*^9}, {3.748692973777675*^9, 3.7486929903337507`*^9}, { 3.7486930264117804`*^9, 3.748693179945371*^9}, {3.748693249361241*^9, 3.748693272417321*^9}, 3.748693327628136*^9, 3.748693923751941*^9, { 3.7486939698417687`*^9, 3.748693970012789*^9}, {3.748694008103215*^9, 3.748694075714235*^9}, {3.7486942326282196`*^9, 3.748694304005413*^9}, { 3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.748695310476059*^9}, {3.748695384723056*^9, 3.748695811151685*^9}, { 3.748695876602944*^9, 3.7486959097256*^9}, {3.748696422965355*^9, 3.748696457868487*^9}, 3.7487454821763644`*^9, {3.754056041592442*^9, 3.754056060140006*^9}, {3.754056347029888*^9, 3.754056351327733*^9}, { 3.754056854382514*^9, 3.754056862089791*^9}, {3.7540569630968127`*^9, 3.7540569674225426`*^9}, {3.7540570759551015`*^9, 3.7540570801772118`*^9}, {3.754057135076915*^9, 3.754057152630065*^9}, { 3.7540571929041653`*^9, 3.754057236529367*^9}, {3.754057397662035*^9, 3.7540574231277227`*^9}, {3.754057456018913*^9, 3.754057472695193*^9}, { 3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, { 3.7540576696626444`*^9, 3.754057832330846*^9}, {3.754057890394717*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.754058051382696*^9}, { 3.754097890432112*^9, 3.754097919134088*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.754098036324529*^9, 3.754098095196913*^9}, { 3.754098127982014*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.754098388741669*^9}, {3.754098433086689*^9, 3.754098448771526*^9}, { 3.754098518107086*^9, 3.754098541874659*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.754098632933464*^9, 3.754098651832582*^9}, 3.754098694943287*^9, {3.7540987996641817`*^9, 3.7540988293199515`*^9}, { 3.754098922368672*^9, 3.754098946956335*^9}, {3.7541009656118875`*^9, 3.754100966064907*^9}, {3.75412607944704*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.754126497220241*^9, 3.754126628008542*^9}, { 3.754126661315868*^9, 3.754126719835323*^9}, 3.754126796164828*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.754127155311608*^9, 3.754127199236007*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.75412771758806*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.755536568808188*^9, 3.7555368169423976`*^9}, {3.756619425296663*^9, 3.756619503340211*^9}, { 3.760607372761119*^9, 3.7606074044677906`*^9}, {3.763903763582767*^9, 3.763903966901358*^9}, {3.7639040036658916`*^9, 3.763904035274949*^9}, { 3.763904149198217*^9, 3.763904149842008*^9}, {3.764129506629578*^9, 3.764129629106339*^9}, 3.764129767145048*^9, {3.764129842917159*^9, 3.76412986403855*^9}, {3.764129953949529*^9, 3.7641299638308244`*^9}, { 3.764130242057335*^9, 3.764130264998592*^9}, {3.764130412156185*^9, 3.764130517277567*^9}, {3.764905400658563*^9, 3.764905448073204*^9}, { 3.7661917992707295`*^9, 3.7661918111029916`*^9}, {3.766193705847564*^9, 3.766193730852714*^9}, {3.766288732159727*^9, 3.7662887421574106`*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.774166634692407*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.774168184384497*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.774238320348544*^9}, {3.7742384167748957`*^9, 3.774238438885627*^9}, {3.774238499096892*^9, 3.7742385555597315`*^9}, { 3.7742385931019473`*^9, 3.774238669464537*^9}, {3.774239332037335*^9, 3.774239458024664*^9}, {3.774239612785857*^9, 3.774239652432119*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.774239918344379*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.774240620075459*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.774240942030443*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.774241148976334*^9, 3.774241206599957*^9}, { 3.77518955636145*^9, 3.775189557474781*^9}, {3.775189607619177*^9, 3.7751897799277*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, {3.7956770978646717`*^9, 3.795677218161966*^9}, {3.8146735876267333`*^9, 3.814673589766639*^9}, { 3.814673972933985*^9, 3.814674011764584*^9}, {3.8146740671049843`*^9, 3.814674104917766*^9}, {3.814674150774597*^9, 3.81467418042771*^9}, { 3.814674251422745*^9, 3.8146743106812353`*^9}, 3.814674726159151*^9, 3.814674968815707*^9, 3.814675018726674*^9, {3.820993565028139*^9, 3.820993565810325*^9}, {3.820993622559275*^9, 3.820993707955525*^9}, { 3.820993740651954*^9, 3.820993799726659*^9}, {3.8449114536299915`*^9, 3.844911459709479*^9}, 3.844911489750399*^9, {3.844911524811378*^9, 3.844911611521674*^9}, {3.844911650826375*^9, 3.844911890031958*^9}, { 3.844911941599936*^9, 3.844911942668052*^9}, {3.844911973297134*^9, 3.8449120379798584`*^9}, {3.8449120825540514`*^9, 3.84491208370156*^9}, { 3.844913130449778*^9, 3.84491313620944*^9}, {3.844913600565547*^9, 3.844913684928097*^9}, {3.8449138096165752`*^9, 3.844913894501918*^9}, { 3.846912173333303*^9, 3.846912212029579*^9}, {3.846912263742777*^9, 3.846912264841491*^9}, {3.846913863799194*^9, 3.8469138819214835`*^9}, { 3.8518356301432815`*^9, 3.851835652475341*^9}, {3.853032777958458*^9, 3.853032812072734*^9}, {3.9017786748084583`*^9, 3.901778689159729*^9}, { 3.901778741625797*^9, 3.901778752812984*^9}, {3.901778909134333*^9, 3.9017789203043647`*^9}, 3.901779469205895*^9},ExpressionUUID->"dc646b30-346b-ef46-bcbe-\ a5563ae14a3c"] }, Closed]], Cell[CellGroupData[{ Cell["ENRICH defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}},ExpressionUUID->"eb08ec26-5557-7147-981d-\ 53138a6b2a02"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1005"}], " ", "|", " ", RowBox[{ "E8001", " ", "transform", " ", "to", " ", "higher", " ", "otder", " ", "representation"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "eleout", ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{"eleout", "=", "ele"}], ";", "\[IndentingNewLine]", RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"NEWNODE", ",", "NEWNODE5"}], "]"}], ";", "\[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[{"NEWNODE5", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE5", "[", 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[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"qX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"qY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "5", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"qZ", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2"}], "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TEMP", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TEMP", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE5", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}], ",", "n4", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"eleout", " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.698497423108619*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.712985417943826*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.712996782536436*^9}, {3.713002371477435*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.713009872096419*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.714041051681373*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.920421078471981*^9, 3.920421092455393*^9}, {3.9204211237235107`*^9, 3.920421166647499*^9}, { 3.920429626904623*^9, 3.920429627157992*^9}, {3.936932934769207*^9, 3.936933000682471*^9}, {3.93693315929426*^9, 3.936933177453987*^9}, { 3.936933516752144*^9, 3.936933522155588*^9}, {3.936934250130984*^9, 3.9369343031254234`*^9}, {3.936934946475874*^9, 3.9369349745147533`*^9}, { 3.937620640840769*^9, 3.937620676172375*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"3fbe8299-798b-7043-acf9-cf1de22b51bd"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], ",", "lst_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "eleout", ",", "vertexrule", ",", "enrichrule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "vertex", " ", "number", " ", "transform", " ", "as", " ", "the", " ", "starting", " ", "point"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vertexrule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n5"}], "}"}], "]"}], ",", "n5", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"ele", "/.", "vertexrule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "enrich", " ", "the", " ", "given", " ", "elements", " ", "if", " ", "not", " ", "enriched", " ", "already"}], "*)"}], "\[IndentingNewLine]", RowBox[{"enrichrule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], ",", "n2", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n5"}], "}"}], "]"}], ",", "n5", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], ",", "n2"}], "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"eleout", "[", RowBox[{"[", "lst", "]"}], "]"}], " ", "=", RowBox[{ RowBox[{"eleout", "[", RowBox[{"[", "lst", "]"}], "]"}], "/.", "enrichrule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", "eleout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.902447106779468*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.902447375352225*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037005`*^9}, {3.902448428037353*^9, 3.902448677852794*^9}, { 3.9024487499204283`*^9, 3.902448754275967*^9}, {3.902448874268986*^9, 3.902448876004253*^9}, {3.902449218490075*^9, 3.902449219287242*^9}},ExpressionUUID->"ee008cf1-1a0c-d740-b522-\ b2a603563d63"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ENRICH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.902447106779468*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.902447375352225*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037005`*^9}, {3.902448428037353*^9, 3.902448739743712*^9}, { 3.902448782204124*^9, 3.902448796153398*^9}, {3.90244893211995*^9, 3.902448932390024*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"6f741fa4-f607-8a4c-a913-cb66a9cec896"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "3", ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.9024488002338185`*^9, 3.9024488835680075`*^9, 3.902448935070481*^9}, CellLabel->"Out[8]=",ExpressionUUID->"1a1f9b06-6871-7241-991a-2920c01e0f3f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE", ",", "edg", ",", "lnkrule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"Join", "[", RowBox[{"elnk", ",", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}},ExpressionUUID->"dd872757-297d-9346-a707-\ 60f3f72edfaf"] }, Closed]], Cell[CellGroupData[{ Cell["GREFINE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}, {3.7597145150982075`*^9, 3.759714542190567*^9}, {3.759714582896585*^9, 3.759714584858339*^9}},ExpressionUUID->"1df0585d-100a-0246-901d-\ 8312b5fa8eaa"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GREF", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n3", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n1", ",", "n4"}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GREF", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GREFINE", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"crdout", "=", "crd"}], ",", RowBox[{"nodout", "=", "nod"}], ",", "ii"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "crdout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Join", "[", RowBox[{"crdout", ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdout", "[", RowBox[{"[", "a1", "]"}], "]"}], "+", RowBox[{"crdout", "[", RowBox[{"[", "a2", "]"}], "]"}]}], ")"}], "/", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GREF", "[", "#", "]"}], "&"}], ",", "nodout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "nodout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GENR", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"GENR", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}], "}"}]}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GENRICH", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ii", ",", "FN", ",", "rule", ",", RowBox[{"crdout", "=", "crd"}], ",", RowBox[{"nodout", "=", "nod"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", "=", RowBox[{ RowBox[{"Length", "[", "crdout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Join", "[", RowBox[{"crdout", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdout", "[", RowBox[{"[", "a1", "]"}], "]"}], "+", RowBox[{"crdout", "[", RowBox[{"[", "a2", "]"}], "]"}]}], ")"}], "/", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GENR", "[", "#", "]"}], "&"}], ",", "nodout"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "nodout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.698497423108619*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.712985417943826*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.712996782536436*^9}, {3.713002371477435*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.713009872096419*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.714041051681373*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.759714591619499*^9, 3.759714665591065*^9}, {3.75971472891543*^9, 3.759714824916602*^9}, {3.759714870698747*^9, 3.759714947478797*^9}, { 3.7597150349307227`*^9, 3.7597151634794807`*^9}, {3.759715246935138*^9, 3.7597153062491665`*^9}, {3.7597153377190075`*^9, 3.759715387057753*^9}, { 3.7597154590071197`*^9, 3.759715500272478*^9}, {3.7597155491240797`*^9, 3.7597155760904846`*^9}, {3.7597156273541317`*^9, 3.75971569203012*^9}, { 3.759715739514512*^9, 3.759715758014934*^9}, {3.759715801341112*^9, 3.75971588340364*^9}, {3.759715927490775*^9, 3.759716061251598*^9}, { 3.759716123477256*^9, 3.759716134998943*^9}, {3.7597192931263885`*^9, 3.7597193363351936`*^9}, {3.759719377316734*^9, 3.759719404125424*^9}, { 3.7597244593792834`*^9, 3.759724529395421*^9}, {3.759724790225044*^9, 3.759724797335229*^9}, {3.75972483683544*^9, 3.759724840049382*^9}, { 3.759727702871601*^9, 3.759727738097618*^9}, {3.759727774307602*^9, 3.759727786273531*^9}, {3.759727871612993*^9, 3.759727888999635*^9}, 3.7597279993022413`*^9, {3.75973165307685*^9, 3.759731658575601*^9}, { 3.759731720670585*^9, 3.759731738556853*^9}, {3.759731825620432*^9, 3.759731856878929*^9}, {3.759735536137723*^9, 3.7597356755580835`*^9}, { 3.759743445765726*^9, 3.759743450812235*^9}, 3.759744218448916*^9}, CellLabel-> "In[302]:=",ExpressionUUID->"e0c29413-e717-f040-9434-074c4c27bdc3"] }, Closed]], Cell[CellGroupData[{ Cell["EXTRUDE defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.745143810516633*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607554619519*^9, 3.760607561176069*^9}},ExpressionUUID->"764a9de0-670c-d64b-87ed-\ 081047a41ce5"], 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]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, {3.760607570443933*^9, 3.76060759034247*^9}, 3.9167188298072567`*^9}, CellLabel-> "In[307]:=",ExpressionUUID->"f4278d0e-283d-c342-a7fe-e84192420ec8"] }, Closed]], Cell[CellGroupData[{ Cell["TRIANGULATE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.784699941516708*^9, 3.7846999469147778`*^9}},ExpressionUUID->"74deb461-b661-2640-822d-\ 00a01b64d4b4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_"}], "}"}], ",", "a_Real"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "nodout", ",", "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", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "nodout"}], "]"}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_", ",", "mrk_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_Real"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], "<>", "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleDelete", "[", "inInst", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}], ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_", ",", "mrk_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "str_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleDelete", "[", "inInst", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}], ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_", ",", "mrk_"}], "}"}], ",", "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[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], "<>", "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}], ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "more", " ", "specific", " ", "form", " ", "to", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "mrk_"}], "}"}], ",", "crd_", ",", "a_Real"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "str", ",", "inInst", ",", "outInst", ",", "crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Line", "[", "#", "]"}], "&"}], ",", "segout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "mrk_"}], "}"}], ",", "crd_", ",", "str_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "str", "]"}], ";", "\[IndentingNewLine]", RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Line", "[", "#", "]"}], "&"}], ",", "segout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"inInst", ",", "outInst", ",", "crdout", ",", "eleout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}]}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd", ",", RowBox[{"{", RowBox[{"dms", ",", "atr", ",", "cns"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "polout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd", ",", RowBox[{"{", RowBox[{"dms", ",", "atr", ",", "cns"}], "}"}], ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "polout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_", ",", "hls_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetHoles", "[", RowBox[{"inInst", ",", " ", "hls"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"polout", ",", "crdout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.6876686346644025`*^9, 3.687668647884422*^9}, {3.687668691164481*^9, 3.687668823124666*^9}, { 3.687668960604859*^9, 3.6876691302750964`*^9}, {3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, { 3.687672494864244*^9, 3.687672495474246*^9}, {3.687672580794365*^9, 3.687672715374554*^9}, {3.687672853854748*^9, 3.687672933284858*^9}, { 3.687672972294914*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.687931334474635*^9, {3.687931387314707*^9, 3.687931400414726*^9}, {3.687931456954805*^9, 3.6879314600748086`*^9}, { 3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.687931751135217*^9}, {3.687931799185285*^9, 3.687931810155302*^9}, { 3.68793185287536*^9, 3.687931875785391*^9}, {3.68803217384746*^9, 3.688032324857671*^9}, {3.68811073769691*^9, 3.68811083105704*^9}, { 3.688182194807842*^9, 3.688182209008861*^9}, {3.688182315870012*^9, 3.688182493260259*^9}, {3.688182760340637*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.688183132471155*^9}, {3.688183628661849*^9, 3.688183675081921*^9}, { 3.688211059016615*^9, 3.6882111198467*^9}, {3.688211189606798*^9, 3.688211227256852*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.68821186039774*^9}, {3.688213969800432*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.688214656047511*^9, 3.688214668457528*^9}, { 3.688214751567642*^9, 3.688214768097669*^9}, {3.688214804297716*^9, 3.688214959597939*^9}, {3.688215020348018*^9, 3.688215213338288*^9}, { 3.688215243738332*^9, 3.688215312948428*^9}, 3.688215544608753*^9, { 3.688540867416464*^9, 3.688540868276465*^9}, {3.688540923456542*^9, 3.688540987616632*^9}, {3.689509628603777*^9, 3.6895096840119457`*^9}, 3.6895097148397093`*^9, {3.689568676097738*^9, 3.689568771827872*^9}, { 3.689737582567273*^9, 3.689737610517312*^9}, {3.689738148338065*^9, 3.689738254678214*^9}, {3.689738292788267*^9, 3.689738346768343*^9}, { 3.689738725788874*^9, 3.689738817909003*^9}, {3.689858527120675*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, { 3.6940970096156654`*^9, 3.694097074705757*^9}, 3.694141398814512*^9, { 3.694354094868929*^9, 3.6943541832790527`*^9}, {3.694920239046096*^9, 3.694920319576208*^9}, {3.694920396206316*^9, 3.694920412426338*^9}, { 3.694920488276445*^9, 3.6949204937164516`*^9}, 3.694920560646546*^9, { 3.695100444594348*^9, 3.6951004570843654`*^9}, {3.697339563447492*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, { 3.697985573722165*^9, 3.697985597992199*^9}, {3.697985642962262*^9, 3.697985671172302*^9}, {3.724464332547879*^9, 3.724464348643357*^9}, { 3.724467403856756*^9, 3.724467437838467*^9}, {3.724467547933581*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, {3.724467772264612*^9, 3.724467824163081*^9}, {3.724467862541559*^9, 3.724467863396864*^9}, { 3.724468018783759*^9, 3.72446802144991*^9}, {3.7244681559004545`*^9, 3.724468185054037*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, { 3.7244686219080153`*^9, 3.7244687024486265`*^9}, {3.724471239123545*^9, 3.724471243073423*^9}, {3.724471282106525*^9, 3.724471282307459*^9}, { 3.724471828313918*^9, 3.724471852982109*^9}, {3.724510926042297*^9, 3.724510971741112*^9}, {3.725418025707011*^9, 3.725418132591786*^9}, { 3.725418186497287*^9, 3.725418198564393*^9}, {3.725418240702896*^9, 3.725418242707837*^9}, 3.725418272982128*^9, {3.725418374214787*^9, 3.72541838162965*^9}, {3.725418413584223*^9, 3.725418415023783*^9}, { 3.725418877464322*^9, 3.725418956995327*^9}, {3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441197`*^9, 3.725419396185589*^9}, { 3.725432214366968*^9, 3.725432235836476*^9}, {3.725432289467839*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, { 3.726401405512204*^9, 3.7264014071162825`*^9}, {3.72640144393233*^9, 3.726401446298113*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, { 3.726401682872032*^9, 3.726401718837957*^9}, {3.726401899357152*^9, 3.726401901021258*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, { 3.726402159599182*^9, 3.7264021616913195`*^9}, {3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.747040836329057*^9}, { 3.74710616636937*^9, 3.747106214420479*^9}, {3.747106746963822*^9, 3.747106834372692*^9}, {3.747106895987136*^9, 3.747106915079779*^9}, { 3.747106958889848*^9, 3.747106998742816*^9}, 3.747107044736511*^9, { 3.747107087544964*^9, 3.747107089357545*^9}, {3.747113800248985*^9, 3.747113811418234*^9}, {3.747113850002859*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.74711434246253*^9, 3.747114343868453*^9}, { 3.747114874445833*^9, 3.747114931572899*^9}, {3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.747115638702848*^9}, { 3.747116431240279*^9, 3.747116433552243*^9}, {3.747116480822291*^9, 3.747116610432179*^9}, {3.747116647876696*^9, 3.74711671028353*^9}, { 3.74865997476248*^9, 3.748660010198181*^9}, {3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, { 3.748660498171374*^9, 3.748660508798976*^9}, {3.7486929231374454`*^9, 3.748692934238252*^9}, {3.748692973777675*^9, 3.7486929903337507`*^9}, { 3.7486930264117804`*^9, 3.748693179945371*^9}, {3.748693249361241*^9, 3.748693272417321*^9}, 3.748693327628136*^9, 3.748693923751941*^9, { 3.7486939698417687`*^9, 3.748693970012789*^9}, {3.748694008103215*^9, 3.748694075714235*^9}, {3.7486942326282196`*^9, 3.748694304005413*^9}, { 3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.748695310476059*^9}, {3.748695384723056*^9, 3.748695811151685*^9}, { 3.748695876602944*^9, 3.7486959097256*^9}, {3.748696422965355*^9, 3.748696457868487*^9}, 3.7487454821763644`*^9, {3.754056041592442*^9, 3.754056060140006*^9}, {3.754056347029888*^9, 3.754056351327733*^9}, { 3.754056854382514*^9, 3.754056862089791*^9}, {3.7540569630968127`*^9, 3.7540569674225426`*^9}, {3.7540570759551015`*^9, 3.7540570801772118`*^9}, {3.754057135076915*^9, 3.754057152630065*^9}, { 3.7540571929041653`*^9, 3.754057236529367*^9}, {3.754057397662035*^9, 3.7540574231277227`*^9}, {3.754057456018913*^9, 3.754057472695193*^9}, { 3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, { 3.7540576696626444`*^9, 3.754057832330846*^9}, {3.754057890394717*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.754058051382696*^9}, { 3.754097890432112*^9, 3.754097919134088*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.754098036324529*^9, 3.754098095196913*^9}, { 3.754098127982014*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.754098388741669*^9}, {3.754098433086689*^9, 3.754098448771526*^9}, { 3.754098518107086*^9, 3.754098541874659*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.754098632933464*^9, 3.754098651832582*^9}, 3.754098694943287*^9, {3.7540987996641817`*^9, 3.7540988293199515`*^9}, { 3.754098922368672*^9, 3.754098946956335*^9}, {3.7541009656118875`*^9, 3.754100966064907*^9}, {3.75412607944704*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.754126497220241*^9, 3.754126628008542*^9}, { 3.754126661315868*^9, 3.754126719835323*^9}, 3.754126796164828*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.754127155311608*^9, 3.754127199236007*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.75412771758806*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.755536568808188*^9, 3.7555368169424*^9}, {3.756619425296663*^9, 3.756619503340211*^9}, { 3.760607372761119*^9, 3.7606074044677906`*^9}, {3.763903763582767*^9, 3.763903966901358*^9}, {3.7639040036658916`*^9, 3.763904035274949*^9}, { 3.763904149198217*^9, 3.763904149842008*^9}, {3.764129506629578*^9, 3.764129629106339*^9}, 3.764129767145048*^9, {3.764129842917159*^9, 3.76412986403855*^9}, {3.764129953949529*^9, 3.7641299638308244`*^9}, { 3.764130242057335*^9, 3.764130264998592*^9}, {3.764130412156185*^9, 3.764130517277567*^9}, {3.764905400658563*^9, 3.764905448073204*^9}, { 3.7661917992707295`*^9, 3.766191811102998*^9}, {3.766193705847564*^9, 3.766193730852714*^9}, {3.766288732159727*^9, 3.766288742157412*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.774166634692407*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.774168184384497*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.774238320348544*^9}, {3.7742384167748957`*^9, 3.774238438885627*^9}, {3.774238499096892*^9, 3.7742385555597315`*^9}, { 3.7742385931019473`*^9, 3.774238669464537*^9}, {3.774239332037335*^9, 3.774239458024664*^9}, {3.774239612785857*^9, 3.774239652432119*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.774239918344379*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.774240620075459*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.774240942030443*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.774241148976334*^9, 3.774241206599957*^9}, { 3.77518955636145*^9, 3.775189557474781*^9}, {3.775189607619177*^9, 3.7751897799277*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, 3.784700029077929*^9, { 3.7866769257536707`*^9, 3.7866769613037777`*^9}, {3.787305359941341*^9, 3.7873054240368595`*^9}, {3.78730664769903*^9, 3.78730665126622*^9}, { 3.787306682536891*^9, 3.787306955112986*^9}, {3.787307227184967*^9, 3.787307234638444*^9}, {3.787307265472159*^9, 3.787307267764142*^9}, { 3.787308049692085*^9, 3.787308062757756*^9}, {3.787313297531843*^9, 3.787313308431161*^9}, 3.787313392724465*^9, 3.787628244885955*^9, 3.787651422801089*^9, {3.787651471253007*^9, 3.787651471569529*^9}, { 3.787653689017965*^9, 3.78765368994078*^9}, {3.843283788165268*^9, 3.843283887212312*^9}, {3.843283923901783*^9, 3.843283925305036*^9}, { 3.843283971324053*^9, 3.8432840064768605`*^9}, {3.843284705110992*^9, 3.843284705510458*^9}, {3.8715241477883415`*^9, 3.871524228218049*^9}, { 3.871524559347787*^9, 3.871524575561017*^9}, {3.871525225491823*^9, 3.8715252312756543`*^9}, {3.8715252858775024`*^9, 3.8715253185721*^9}, { 3.871525441059702*^9, 3.871525493641071*^9}, {3.871525576927189*^9, 3.8715255872926817`*^9}, {3.871541617149444*^9, 3.8715416175306177`*^9}, { 3.879475340694683*^9, 3.879475390255388*^9}, 3.8934645475089855`*^9, 3.893464610678737*^9, {3.893464642938085*^9, 3.8934646694926505`*^9}, 3.894439594316308*^9, 3.894515296283434*^9, {3.894515533115449*^9, 3.89451559365526*^9}, {3.920769260523571*^9, 3.920769326302067*^9}, { 3.921134998509772*^9, 3.921135010219101*^9}, {3.921135058592572*^9, 3.9211351636385517`*^9}, {3.921135326030955*^9, 3.9211353294812965`*^9}, { 3.921135414954527*^9, 3.92113541552635*^9}, 3.92113552877038*^9, { 3.924060504288204*^9, 3.9240605046045322`*^9}, {3.9424515079427013`*^9, 3.942451618687969*^9}, {3.942451863803234*^9, 3.942451985761574*^9}, { 3.942452092226778*^9, 3.942452106176409*^9}, {3.942452242035621*^9, 3.9424522434305344`*^9}}, CellLabel-> "In[309]:=",ExpressionUUID->"49232c9d-9ee3-be43-b3de-3a70de5f0e79"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "SHOULD", " ", "HAVE", " ", "THE", " ", "SAME", " ", "INTERFACE", " ", "AS", " ", "REFINE"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RVEBUILD", "[", RowBox[{"{", 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[{"(*", RowBox[{ RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "\"\\""}], "]"}]}], ";"}], "*)"}], "\[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[{"eleout", ",", "crdout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RVEBUILD", "[", RowBox[{ RowBox[{"{", 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[{"eleout", ",", "crdout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RVEBUILD", "[", RowBox[{ RowBox[{"{", 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[{"polout", ",", "crdout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RVEBUILD", "[", RowBox[{ RowBox[{"{", 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[{"polout", ",", "crdout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RVEBUILD", "[", RowBox[{ RowBox[{"{", 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.733106505293555*^9, 3.733106545513243*^9}, { 3.7331065985294256`*^9, 3.7331066038054595`*^9}, {3.733116942738693*^9, 3.733117072299545*^9}, {3.733117684451476*^9, 3.73311770325035*^9}, { 3.7331179347590604`*^9, 3.733118054709407*^9}, {3.7331180944008336`*^9, 3.7331183637373*^9}, {3.733118429447681*^9, 3.733118466967032*^9}, { 3.7331186831457067`*^9, 3.733118683520801*^9}, {3.73311878775052*^9, 3.7331188031112776`*^9}, {3.733118982057318*^9, 3.733119057018358*^9}, { 3.733120438373245*^9, 3.733120467392242*^9}, {3.733120613813942*^9, 3.73312069735923*^9}, {3.733120769742189*^9, 3.733120840437128*^9}, { 3.733120897536913*^9, 3.733120898161734*^9}, {3.733120950307825*^9, 3.73312096874728*^9}, {3.733121014502126*^9, 3.733121019643283*^9}, { 3.73312105866333*^9, 3.733121116419441*^9}, 3.7331212169925885`*^9, 3.733121511882849*^9, {3.73313538916969*^9, 3.733135436893432*^9}, { 3.7331354941964245`*^9, 3.7331354971967516`*^9}, 3.7331356721337495`*^9, { 3.73313598594795*^9, 3.733136045626433*^9}, {3.733136079160939*^9, 3.733136094912895*^9}, {3.73313612515032*^9, 3.733136255523641*^9}, { 3.733136286980091*^9, 3.733136311373001*^9}, {3.733136365910065*^9, 3.733136378786432*^9}, {3.733136415180851*^9, 3.733136555711646*^9}, { 3.733136629641155*^9, 3.7331366368608675`*^9}, {3.733136716884688*^9, 3.733136730042666*^9}, {3.733136761545972*^9, 3.73313679953416*^9}, { 3.7331368320220976`*^9, 3.733136869291675*^9}, {3.73313695903555*^9, 3.73313701765102*^9}, {3.73313721896905*^9, 3.733137267177514*^9}, { 3.733137326902588*^9, 3.733137394159451*^9}, {3.733137544151798*^9, 3.733137628457588*^9}, {3.733137684072843*^9, 3.733137701574993*^9}, { 3.73313850205002*^9, 3.733138503987999*^9}, {3.733138561525031*^9, 3.733138563400517*^9}, {3.733145706550653*^9, 3.733145714629631*^9}, { 3.733145748180026*^9, 3.73314574941456*^9}, {3.73314578204292*^9, 3.733145782964644*^9}, {3.7331459968966503`*^9, 3.73314605177772*^9}, 3.733146082800341*^9, {3.733146235495568*^9, 3.73314626601443*^9}, { 3.733146510540284*^9, 3.733146640960037*^9}, {3.733146842731382*^9, 3.7331469163828735`*^9}, {3.7331849739785075`*^9, 3.73318500523152*^9}, { 3.733185036328855*^9, 3.733185371567428*^9}, {3.733185406352072*^9, 3.733185406602394*^9}, {3.733185495986588*^9, 3.73318565162829*^9}, { 3.733185705946556*^9, 3.733185718603852*^9}, {3.733185748881719*^9, 3.733185933619708*^9}, {3.733185974452237*^9, 3.733186051460503*^9}, { 3.73318608230724*^9, 3.733186088823869*^9}, {3.733186148590547*^9, 3.7331861806528893`*^9}, {3.73318632946542*^9, 3.733186605494562*^9}, { 3.733186652124388*^9, 3.733186850583209*^9}, {3.733186882211415*^9, 3.733186936510432*^9}, {3.733187041349918*^9, 3.733187041584045*^9}, { 3.733187967498895*^9, 3.7331880319744196`*^9}, {3.733188165191857*^9, 3.7331881933196564`*^9}, 3.733191086909934*^9, {3.7331911351838408`*^9, 3.733191147736865*^9}, 3.733191248493444*^9, {3.733365174148862*^9, 3.73336520537192*^9}, {3.733365247455045*^9, 3.73336530225986*^9}, { 3.733365345435026*^9, 3.733365407212221*^9}, {3.7333654661756344`*^9, 3.7333654809508104`*^9}, {3.733365575431931*^9, 3.733365588319638*^9}, { 3.7333656336593266`*^9, 3.733365826529348*^9}, {3.7333660007878046`*^9, 3.7333661259945803`*^9}, {3.733366213942363*^9, 3.73336638202926*^9}, { 3.733366446943911*^9, 3.7333666851694*^9}, {3.733366725892777*^9, 3.733366848124815*^9}, {3.733367113180627*^9, 3.733367164114697*^9}, { 3.733370116949722*^9, 3.733370123356784*^9}, {3.733370156752156*^9, 3.73337016871292*^9}, 3.733375220779642*^9, {3.733375289256725*^9, 3.733375290146722*^9}, {3.733375322401083*^9, 3.7333753433967476`*^9}, 3.733375419830647*^9, {3.733375489324972*^9, 3.733375497369104*^9}, { 3.7333783197434835`*^9, 3.733378502771296*^9}, {3.733378959210429*^9, 3.7333789691613045`*^9}, {3.733379027665225*^9, 3.73337905657366*^9}, { 3.7333791111712112`*^9, 3.7333791147258387`*^9}, {3.733379242587391*^9, 3.733379246558384*^9}, {3.733460158370412*^9, 3.733460246098426*^9}, { 3.733462208056137*^9, 3.7334622450756254`*^9}, {3.733462341023322*^9, 3.733462399763861*^9}, {3.733462455504184*^9, 3.733462528715052*^9}, { 3.733462570641363*^9, 3.733462694798615*^9}, {3.733462746757235*^9, 3.7334628248123674`*^9}, {3.7334628550187387`*^9, 3.733462904055173*^9}, { 3.7334629671556005`*^9, 3.733462978797456*^9}, {3.733463062056247*^9, 3.733463098169458*^9}, {3.733463140517323*^9, 3.733463149436847*^9}, 3.73346320895872*^9, {3.73346327557519*^9, 3.733463332049864*^9}, { 3.733463446186983*^9, 3.733463809555442*^9}, {3.733463849215938*^9, 3.733463855185268*^9}, {3.733476771625136*^9, 3.733476834063261*^9}, { 3.7334769972290936`*^9, 3.733477008843756*^9}, 3.7334770567957296`*^9, { 3.733477092315215*^9, 3.733477138194766*^9}, {3.733477240436654*^9, 3.733477257634517*^9}, {3.73347729577876*^9, 3.733477363321343*^9}, 3.7334773954102736`*^9, {3.733477440028474*^9, 3.733477481853801*^9}, { 3.73347752130646*^9, 3.733477541080151*^9}, {3.733477571612934*^9, 3.733477597608691*^9}, {3.733479205171806*^9, 3.733479270774158*^9}, { 3.7334793090712047`*^9, 3.733479323235183*^9}, {3.7334793580248003`*^9, 3.733479362279427*^9}, {3.7334794152394114`*^9, 3.7334794170047197`*^9}, { 3.733491484942209*^9, 3.733491537425557*^9}, {3.733491634824994*^9, 3.733491696517039*^9}, {3.733491813974365*^9, 3.733491963722246*^9}, { 3.733492053507163*^9, 3.733492095873432*^9}, {3.733492201044491*^9, 3.73349223247291*^9}, {3.733492270102761*^9, 3.733492286758114*^9}, { 3.7334924280790243`*^9, 3.733492428577374*^9}, {3.733492494149005*^9, 3.73349267849009*^9}, {3.733492725915759*^9, 3.733492758210832*^9}, { 3.733492801429496*^9, 3.733492854145138*^9}, {3.733493039077853*^9, 3.73349307234543*^9}, {3.733493877339528*^9, 3.733493885848643*^9}, { 3.7334939772887754`*^9, 3.733493984944316*^9}, {3.733494116679087*^9, 3.733494120154599*^9}, {3.733494188720145*^9, 3.733494205916135*^9}, 3.733494590845856*^9, {3.733494640839102*^9, 3.7334946554737606`*^9}, { 3.733494712228484*^9, 3.7334947173491*^9}, {3.733494750205426*^9, 3.733494755074922*^9}, {3.733494895653963*^9, 3.7334949139510436`*^9}, { 3.733494964322945*^9, 3.733495004668938*^9}, {3.733495083686107*^9, 3.733495090358919*^9}, {3.733495726850687*^9, 3.733495767611596*^9}, { 3.733495823595611*^9, 3.733495850747309*^9}, {3.733531269271142*^9, 3.733531377653059*^9}, {3.733541219703043*^9, 3.733541244674439*^9}, { 3.733541302852465*^9, 3.7335413136816845`*^9}, {3.733541369703234*^9, 3.733541387736445*^9}, 3.733541439632558*^9, {3.733541531986074*^9, 3.733541575990713*^9}, {3.733541611244411*^9, 3.733541668750541*^9}, { 3.73354170101953*^9, 3.733541720974767*^9}, {3.733541759775745*^9, 3.733541837315197*^9}, {3.7335419016188717`*^9, 3.7335423069717045`*^9}, 3.7335423585396986`*^9, {3.733542402700633*^9, 3.733542430312929*^9}, { 3.7335425030862513`*^9, 3.7335425425435495`*^9}, {3.733542588923504*^9, 3.733542610081944*^9}, {3.733542647038979*^9, 3.733542665806588*^9}, { 3.733542717796409*^9, 3.7335427242502184`*^9}, {3.733542770348896*^9, 3.733542841892899*^9}, {3.733542890663685*^9, 3.733542891351257*^9}, { 3.733542934840231*^9, 3.733543002972442*^9}, {3.733543038038699*^9, 3.733543067229287*^9}, {3.733543129720325*^9, 3.733543161520577*^9}, { 3.733543194461548*^9, 3.733543254092909*^9}, {3.733543289627915*^9, 3.733543324741006*^9}, {3.73354336787052*^9, 3.7335433712146716`*^9}, { 3.733543416547597*^9, 3.7335434591927276`*^9}, {3.733543665339501*^9, 3.7335436937799883`*^9}, {3.7335437704131546`*^9, 3.733543829388089*^9}, { 3.7335439324459085`*^9, 3.733544022080389*^9}, {3.733544078711331*^9, 3.733544088399853*^9}, {3.733544128982297*^9, 3.733544160032542*^9}, { 3.733544248901262*^9, 3.733544604345105*^9}, {3.733544638942462*^9, 3.733544818930303*^9}, {3.733544872623482*^9, 3.7335449297076445`*^9}, { 3.733544973899822*^9, 3.733545007012683*^9}, {3.733545064393718*^9, 3.7335451486035585`*^9}, {3.73354520379685*^9, 3.733545386831838*^9}, { 3.73354545865193*^9, 3.733545492691042*^9}, {3.733545552494231*^9, 3.733545607453182*^9}, {3.733545697728303*^9, 3.733545737795093*^9}, { 3.733545797004427*^9, 3.733545896337118*^9}, {3.7335600445739202`*^9, 3.733560088062917*^9}, {3.733560408903097*^9, 3.733560452829359*^9}, { 3.733560545136847*^9, 3.733560555622002*^9}, {3.733560693089568*^9, 3.733560703559487*^9}, {3.733561239190014*^9, 3.73356124270584*^9}, { 3.733561312635296*^9, 3.733561328793184*^9}, {3.733561472343387*^9, 3.733561488782905*^9}, {3.733561555409105*^9, 3.733561560316155*^9}, { 3.733561687549547*^9, 3.733561696722621*^9}, {3.733561742118102*^9, 3.733561759948123*^9}, 3.733632862308356*^9, {3.733646962487833*^9, 3.733647111081254*^9}, 3.733647151088426*^9, {3.733647324093519*^9, 3.733647378394207*^9}, {3.733647412605115*^9, 3.7336475196609955`*^9}, { 3.733647565706006*^9, 3.7336476022754855`*^9}, {3.733647636405274*^9, 3.733647778494203*^9}, {3.733647819222044*^9, 3.733647983613024*^9}, { 3.733648202187466*^9, 3.733648306425503*^9}, {3.733648423247145*^9, 3.733648477193297*^9}, {3.73364853750661*^9, 3.733648538539187*^9}, { 3.733648657113475*^9, 3.733648690370154*^9}, {3.7336487208134737`*^9, 3.733648776377033*^9}, {3.7336488266999683`*^9, 3.733648877737054*^9}, { 3.7336498837046123`*^9, 3.733649897725542*^9}, 3.7340715959339457`*^9, 3.7340717631159296`*^9, {3.7449685386051035`*^9, 3.744968588958653*^9}, { 3.744968770326353*^9, 3.744968774937871*^9}, 3.76570692642441*^9, { 3.765706983442025*^9, 3.7657069940478077`*^9}, {3.765707081603978*^9, 3.765707218576766*^9}, {3.765707343240278*^9, 3.7657073596828756`*^9}, { 3.765707390879232*^9, 3.7657074162891026`*^9}, {3.765707472333028*^9, 3.765707487356175*^9}, {3.765707565092824*^9, 3.765707578757638*^9}, 3.765767407204428*^9, {3.765767449966214*^9, 3.7657674633232136`*^9}, { 3.7657675043697915`*^9, 3.765767864340949*^9}, {3.765767896643327*^9, 3.7657679003966312`*^9}, {3.765767932129229*^9, 3.7657679379148583`*^9}, { 3.7657681084580746`*^9, 3.765768178628733*^9}, {3.765768270791921*^9, 3.765768312961901*^9}, {3.765768418973206*^9, 3.765768429106756*^9}, { 3.765768462267442*^9, 3.765768479154067*^9}, {3.765768518072398*^9, 3.765768650333042*^9}, {3.765768737763825*^9, 3.765768758878288*^9}, { 3.765769039563476*^9, 3.765769141752368*^9}, {3.76576919660922*^9, 3.765769231264557*^9}, {3.765769275325065*^9, 3.7657692838335104`*^9}, { 3.765770175207812*^9, 3.7657701766388526`*^9}, {3.765770210636591*^9, 3.76577030011668*^9}, {3.765788300650318*^9, 3.7657883124129896`*^9}, { 3.7657884344727173`*^9, 3.765788435191296*^9}, 3.765855279927558*^9, { 3.765855321136859*^9, 3.76585535280104*^9}, {3.765855383346174*^9, 3.765855389054101*^9}, {3.7658558063803697`*^9, 3.765855807282583*^9}, { 3.7658561075242043`*^9, 3.7658561077119493`*^9}, {3.765856467477867*^9, 3.765856469214791*^9}, 3.765856506478204*^9, {3.765856642467798*^9, 3.765856642719104*^9}, 3.765856787727355*^9, {3.76585724817782*^9, 3.765857259172112*^9}, {3.765882931633356*^9, 3.7658829707455597`*^9}, 3.7658837948898473`*^9, {3.765884642337396*^9, 3.7658846698620872`*^9}, { 3.765884708564036*^9, 3.765884776114469*^9}, {3.7658849531933556`*^9, 3.765884993546256*^9}, {3.765885378389629*^9, 3.765885398910281*^9}, { 3.766116478455953*^9, 3.766116493796674*^9}, {3.766475358991497*^9, 3.7664753686989098`*^9}, {3.766477182990874*^9, 3.766477184189871*^9}, { 3.766555907534815*^9, 3.766555916922705*^9}, {3.7665559641654587`*^9, 3.7665559821793814`*^9}, {3.766571836090335*^9, 3.766571914950398*^9}, 3.779631212133787*^9, 3.9211198154281597`*^9}, CellLabel-> "In[323]:=",ExpressionUUID->"3a3ad2a4-afb3-314a-bb84-7df1088e8c0b"] }, Closed]], Cell[CellGroupData[{ Cell["STANDARDFORM etc. defs", "Subsection", CellChangeTimes->{{3.687518097184434*^9, 3.687518099119545*^9}, { 3.822370477924126*^9, 3.8223704849224677`*^9}, {3.847105064772148*^9, 3.847105066683985*^9}, {3.873766824778203*^9, 3.87376682767669*^9}},ExpressionUUID->"8a2c09b6-5b50-2f4c-96c9-\ 3c65af26c783"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E1050", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", "\[Delta]W_", "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", "\[Delta]W"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", "\[Delta]W_"}], "]"}], ":=", " ", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"ELEMENTFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "frule", ",", "ind", ",", "\[Delta]ind"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ind", " ", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]ind", " ", "=", RowBox[{"Union", "[", RowBox[{"\[Delta]dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Delta]ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"frule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"FX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"FY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"FZ", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fz", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"MX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"MY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"My", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"MZ", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mz", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]dof", " ", "/.", "frule"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ind", " ", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]ind", " ", "=", RowBox[{"Union", "[", RowBox[{"\[Delta]dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Delta]ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"EVENT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", "equ", "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", "equ", "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", "\[Delta]W_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "dofall", ",", "dof0", ",", "dof2", ",", "KK", ",", "MM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]W", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb__", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "KK"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof0", "]"}], ",", "\"\<+\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "MM"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof2", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "dofall", ",", "dof0", ",", "dof2", ",", "KK", ",", "MM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", " ", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "KK"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof0", "]"}], ",", "\"\<+\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "MM"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof2", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"TableForm", "[", RowBox[{"ele", ",", RowBox[{"TableDepth", "\[Rule]", "2"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TableForm", "[", RowBox[{"fun", ",", RowBox[{"TableDepth", "\[Rule]", "2"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", RowBox[{"Length", "[", "fun", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\<{X,Y,Z}\>\"", ",", "\"\<{\!\(\*SubscriptBox[\(u\), \(X\)]\),\!\(\*SubscriptBox[\ \(u\), \(Y\)]\),\!\(\*SubscriptBox[\(u\), \(Z\)]\)}\>\"", ",", "\"\<{\!\(\*SubscriptBox[\(\[Theta]\), \ \(X\)]\),\!\(\*SubscriptBox[\(\[Theta]\), \(Y\)]\),\!\(\*SubscriptBox[\(\ \[Theta]\), \(Z\)]\)}\>\"", ",", "\"\<\[CurlyTheta]\>\""}], "}"}]}], "}"}]}]}], "]"}], "}"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.687518152240584*^9, 3.68751815568078*^9}, {3.687520415742049*^9, 3.687520416720104*^9}, 3.68752138033622*^9, {3.687521416058263*^9, 3.687521421832593*^9}, { 3.688053601494135*^9, 3.688053602544136*^9}, {3.688053924504587*^9, 3.688053958964635*^9}, {3.688215750279041*^9, 3.6882158044791164`*^9}, { 3.6882622853518825`*^9, 3.688262377292012*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, {3.688305554797832*^9, 3.688305558147838*^9}, 3.688555694008679*^9, {3.688789105682941*^9, 3.688789118792959*^9}, { 3.689569235320521*^9, 3.68956924151053*^9}, {3.689569289010597*^9, 3.689569306910621*^9}, 3.689569382250727*^9, {3.689569427000789*^9, 3.689569448250819*^9}, 3.689569491990887*^9, {3.689569538710956*^9, 3.689569578131008*^9}, {3.689569627301077*^9, 3.689569645991103*^9}, { 3.689569740191235*^9, 3.689569770221278*^9}, 3.689569801121321*^9, { 3.689744714260333*^9, 3.689744765250405*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, {3.689745080870846*^9, 3.6897450850308523`*^9}, { 3.689931309632269*^9, 3.689931462812485*^9}, {3.689931528902578*^9, 3.68993152955258*^9}, 3.689931777782925*^9, {3.689931815392978*^9, 3.689931942193159*^9}, {3.689932077363344*^9, 3.689932088103359*^9}, { 3.689932151873448*^9, 3.689932152503449*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, {3.6902010125655856`*^9, 3.6902010371956205`*^9}, { 3.690201134205756*^9, 3.690201139305763*^9}, {3.6902012251758833`*^9, 3.690201252925926*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.690201375856095*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.692602139325318*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.692602334505591*^9, 3.692602487035804*^9}, { 3.692602578835933*^9, 3.692602643676024*^9}, {3.692602680546076*^9, 3.692602793886234*^9}, {3.692603389849067*^9, 3.69260341914911*^9}, { 3.692603470019181*^9, 3.692603497029218*^9}, {3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, {3.692603859309725*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, { 3.692623143940215*^9, 3.692623241230352*^9}, {3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, { 3.692690303558846*^9, 3.692690322168873*^9}, {3.692690954409758*^9, 3.692691002209824*^9}, {3.6927712759197345`*^9, 3.692771314639788*^9}, { 3.693190368831787*^9, 3.693190412011845*^9}, {3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.693190766622344*^9}, { 3.693190822932426*^9, 3.69319083728244*^9}, {3.693190970752628*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, { 3.693380931925725*^9, 3.6933809742257843`*^9}, {3.693381048845889*^9, 3.69338104916589*^9}, {3.693717279698076*^9, 3.693717296248099*^9}, 3.694083069643264*^9, {3.694265186313383*^9, 3.694265201753404*^9}, { 3.6943214452576456`*^9, 3.694321472597683*^9}, {3.694321554517798*^9, 3.694321586987844*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, { 3.6994213310795765`*^9, 3.699421377879643*^9}, 3.6994215436398745`*^9, { 3.7242984497704906`*^9, 3.724298492333001*^9}, {3.72441256854047*^9, 3.724412588406049*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, { 3.724423800027227*^9, 3.724423808981761*^9}, {3.724423851341444*^9, 3.72442385406735*^9}, 3.753174258490145*^9, {3.75317433551407*^9, 3.753174346315694*^9}, {3.753174488350924*^9, 3.753174521049276*^9}, { 3.753174634967907*^9, 3.753174647293105*^9}, {3.753175721657942*^9, 3.753175725529492*^9}, {3.755718202522964*^9, 3.7557182030038967`*^9}, { 3.756297307135029*^9, 3.756297308897887*^9}, {3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, { 3.773991430575511*^9, 3.773991431632044*^9}, {3.782112624852463*^9, 3.7821126618917875`*^9}, {3.782112828737658*^9, 3.782113058088851*^9}, 3.782113133221128*^9, {3.78230654015934*^9, 3.782306645788203*^9}, { 3.7823084511158514`*^9, 3.7823084719170256`*^9}, {3.782308968141115*^9, 3.782309014159138*^9}, {3.782309052990318*^9, 3.782309098299096*^9}, { 3.7834165730387535`*^9, 3.783416574885394*^9}, {3.783417720636022*^9, 3.783417723580012*^9}, {3.783417808352388*^9, 3.783417811301102*^9}, { 3.78341790496704*^9, 3.783417957966066*^9}, {3.783420547752492*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, { 3.783420731072624*^9, 3.783420767852456*^9}, {3.783420801192772*^9, 3.783420818492618*^9}, {3.783420890092199*^9, 3.783420899712354*^9}, { 3.783420962622723*^9, 3.783420995272684*^9}, 3.783421034482338*^9, { 3.78342106810227*^9, 3.783421079827581*^9}, {3.783421113532735*^9, 3.783421177198878*^9}, {3.783421696697568*^9, 3.783421697102858*^9}, { 3.783421869632913*^9, 3.783421906748032*^9}, {3.7883262853436*^9, 3.788326302215141*^9}, {3.788326369471481*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.788326475946568*^9}, { 3.788326638117265*^9, 3.788326675253009*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, {3.788327257534025*^9, 3.78832726870627*^9}, { 3.788575008576598*^9, 3.788575085209267*^9}, {3.788575203932117*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.788677156385427*^9}, { 3.788677419098531*^9, 3.788677691450259*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.788678231166575*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, { 3.788678404399561*^9, 3.788678410344158*^9}, {3.788678513776554*^9, 3.7886785139327545`*^9}, {3.788749250626614*^9, 3.788749271502985*^9}, { 3.788749453706733*^9, 3.788749457657827*^9}, {3.7888494712317395`*^9, 3.788849476626989*^9}, {3.789012150355903*^9, 3.789012181832608*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, { 3.7901289319915466`*^9, 3.790128937645911*^9}, {3.790128972298277*^9, 3.790128973869923*^9}, {3.814682368207017*^9, 3.814682369609891*^9}, { 3.814682474988094*^9, 3.8146825013459*^9}, {3.814682565009147*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.814682709438146*^9}, { 3.814682742736359*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, {3.814683865904718*^9, 3.814683921031538*^9}, { 3.817549572368679*^9, 3.817549648245356*^9}, {3.822369804033628*^9, 3.8223698883671684`*^9}, {3.822370507521001*^9, 3.822370508120399*^9}, { 3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.861264607827531*^9}, 3.873766675104046*^9}, CellLabel-> "In[328]:=",ExpressionUUID->"fcd6ae7a-aa79-de48-af86-f0e44f6410af"] }, Closed]], Cell[CellGroupData[{ Cell["MESH etc. defs", "Subsection", CellChangeTimes->{{3.87376670252443*^9, 3.873766708211823*^9}, { 3.873766815230051*^9, 3.873766820478841*^9}},ExpressionUUID->"2881932d-84f9-9e4d-97c1-\ 05f486a72b1a"], 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", "]"}], "]"}], "===", "PLANESTRAIN"}], ")"}]}], ",", RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", "#", ",", "fun"}], "]"}], ",", "None"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"COLORFUNCTION", "[", RowBox[{"min_", ",", "max_"}], "]"}], ":=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "<", "0"}], ",", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "LightGray"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "-", "min"}], ")"}], "/", RowBox[{"(", RowBox[{"0", "-", "min"}], ")"}]}]}], "]"}], ",", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"LightGray", ",", "Red"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "-", "0"}], ")"}], "/", RowBox[{"(", RowBox[{"max", "-", "0"}], ")"}]}]}], "]"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "calculations"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DISP", "[", RowBox[{ RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], ",", "exp_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pick", ",", "labs", ",", "crds", ",", "srule", ",", "val", ",", "min", ",", "max", ",", "grule"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pick", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"AllTrue", "[", RowBox[{"#", ",", "PossibleZeroQ"}], "]"}], "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"crds", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"labs", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"srule", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"val", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"exp", " ", "/.", "#"}], "&"}], ",", "srule"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "val", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}], "=", RowBox[{"MinMax", "[", "val", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"grule", " ", ":=", RowBox[{ RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "\[RuleDelayed]", " ", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"COLORFUNCTION", "[", RowBox[{"min", ",", "max"}], "]"}], "[", RowBox[{"val", "[", RowBox[{"[", "e", "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"ele", "[", RowBox[{"[", RowBox[{"e", ",", "3"}], "]"}], "]"}], "/.", "grule"}]}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "1", ",", RowBox[{"Length", "[", "ele", "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", "labs"}]}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}], " ", "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.687518152240584*^9, 3.68751815568078*^9}, {3.687520415742049*^9, 3.687520416720104*^9}, 3.68752138033622*^9, {3.687521416058263*^9, 3.687521421832593*^9}, { 3.688053601494135*^9, 3.688053602544136*^9}, {3.688053924504587*^9, 3.688053958964635*^9}, {3.688215750279041*^9, 3.6882158044791164`*^9}, { 3.6882622853518825`*^9, 3.688262377292012*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, {3.688305554797832*^9, 3.688305558147838*^9}, 3.688555694008679*^9, {3.688789105682941*^9, 3.688789118792959*^9}, { 3.689569235320521*^9, 3.68956924151053*^9}, {3.689569289010597*^9, 3.689569306910621*^9}, 3.689569382250727*^9, {3.689569427000789*^9, 3.689569448250819*^9}, 3.689569491990887*^9, {3.689569538710956*^9, 3.689569578131008*^9}, {3.689569627301077*^9, 3.689569645991103*^9}, { 3.689569740191235*^9, 3.689569770221278*^9}, 3.689569801121321*^9, { 3.689744714260333*^9, 3.689744765250405*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, {3.689745080870846*^9, 3.6897450850308523`*^9}, { 3.689931309632269*^9, 3.689931462812485*^9}, {3.689931528902578*^9, 3.68993152955258*^9}, 3.689931777782925*^9, {3.689931815392978*^9, 3.689931942193159*^9}, {3.689932077363344*^9, 3.689932088103359*^9}, { 3.689932151873448*^9, 3.689932152503449*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, {3.6902010125655856`*^9, 3.6902010371956205`*^9}, { 3.690201134205756*^9, 3.690201139305763*^9}, {3.6902012251758833`*^9, 3.690201252925926*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.690201375856095*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.692602139325318*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.692602334505591*^9, 3.692602487035804*^9}, { 3.692602578835933*^9, 3.692602643676024*^9}, {3.692602680546076*^9, 3.692602793886234*^9}, {3.692603389849067*^9, 3.69260341914911*^9}, { 3.692603470019181*^9, 3.692603497029218*^9}, {3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, {3.692603859309725*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, { 3.692623143940215*^9, 3.692623241230352*^9}, {3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, { 3.692690303558846*^9, 3.692690322168873*^9}, {3.692690954409758*^9, 3.692691002209824*^9}, {3.6927712759197345`*^9, 3.692771314639788*^9}, { 3.693190368831787*^9, 3.693190412011845*^9}, {3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.693190766622344*^9}, { 3.693190822932426*^9, 3.69319083728244*^9}, {3.693190970752628*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, { 3.693380931925725*^9, 3.6933809742257843`*^9}, {3.693381048845889*^9, 3.69338104916589*^9}, {3.693717279698076*^9, 3.693717296248099*^9}, 3.694083069643264*^9, {3.694265186313383*^9, 3.694265201753404*^9}, { 3.6943214452576456`*^9, 3.694321472597683*^9}, {3.694321554517798*^9, 3.694321586987844*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, { 3.6994213310795765`*^9, 3.699421377879643*^9}, 3.6994215436398745`*^9, { 3.7242984497704906`*^9, 3.724298492333001*^9}, {3.72441256854047*^9, 3.724412588406049*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, { 3.724423800027227*^9, 3.724423808981761*^9}, {3.724423851341444*^9, 3.72442385406735*^9}, 3.753174258490145*^9, {3.75317433551407*^9, 3.753174346315694*^9}, {3.753174488350924*^9, 3.753174521049276*^9}, { 3.753174634967907*^9, 3.753174647293105*^9}, {3.753175721657942*^9, 3.753175725529492*^9}, {3.755718202522964*^9, 3.7557182030038967`*^9}, { 3.756297307135029*^9, 3.756297308897887*^9}, {3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, { 3.773991430575511*^9, 3.773991431632044*^9}, {3.782112624852463*^9, 3.7821126618917875`*^9}, {3.782112828737658*^9, 3.782113058088851*^9}, 3.782113133221128*^9, {3.78230654015934*^9, 3.782306645788203*^9}, { 3.7823084511158514`*^9, 3.7823084719170256`*^9}, {3.782308968141115*^9, 3.782309014159138*^9}, {3.782309052990318*^9, 3.782309098299096*^9}, { 3.7834165730387535`*^9, 3.783416574885394*^9}, {3.783417720636022*^9, 3.783417723580012*^9}, {3.783417808352388*^9, 3.783417811301102*^9}, { 3.78341790496704*^9, 3.783417957966066*^9}, {3.783420547752492*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, { 3.783420731072624*^9, 3.783420767852456*^9}, {3.783420801192772*^9, 3.783420818492618*^9}, {3.783420890092199*^9, 3.783420899712354*^9}, { 3.783420962622723*^9, 3.783420995272684*^9}, 3.783421034482338*^9, { 3.78342106810227*^9, 3.783421079827581*^9}, {3.783421113532735*^9, 3.783421177198878*^9}, {3.783421696697568*^9, 3.783421697102858*^9}, { 3.783421869632913*^9, 3.783421906748032*^9}, {3.7883262853436*^9, 3.788326302215141*^9}, {3.788326369471481*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.788326475946568*^9}, { 3.788326638117265*^9, 3.788326675253009*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, {3.788327257534025*^9, 3.78832726870627*^9}, { 3.788575008576598*^9, 3.788575085209267*^9}, {3.788575203932117*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.788677156385427*^9}, { 3.788677419098531*^9, 3.788677691450259*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.788678231166575*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, { 3.788678404399561*^9, 3.788678410344158*^9}, {3.788678513776554*^9, 3.7886785139327545`*^9}, {3.788749250626614*^9, 3.788749271502985*^9}, { 3.788749453706733*^9, 3.788749457657827*^9}, {3.7888494712317395`*^9, 3.788849476626989*^9}, {3.789012150355903*^9, 3.789012181832608*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, { 3.7901289319915466`*^9, 3.790128937645911*^9}, {3.790128972298277*^9, 3.790128973869923*^9}, {3.814682368207017*^9, 3.814682369609891*^9}, { 3.814682474988094*^9, 3.8146825013459*^9}, {3.814682565009147*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.814682709438146*^9}, { 3.814682742736359*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, {3.814683865904718*^9, 3.814683921031538*^9}, { 3.817549572368679*^9, 3.817549648245356*^9}, {3.822369804033628*^9, 3.8223698883671684`*^9}, {3.822370507521001*^9, 3.822370508120399*^9}, { 3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.861264607827531*^9}, 3.873766675104046*^9, {3.873766838637391*^9, 3.873766871792037*^9}, {3.9093699093028593`*^9, 3.909369923155722*^9}, { 3.9406744601641827`*^9, 3.9406744613848743`*^9}}, CellLabel-> "In[346]:=",ExpressionUUID->"b5b34b88-0a82-4c42-b422-ca078eec224a"] }, Closed]], Cell[CellGroupData[{ Cell["POST defs", "Subsection",ExpressionUUID->"961a742e-a451-0548-8f44-29620723830f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"SHOW", ",", "GRAPH"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"box", " ", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], "*", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"jointsize", " ", "=", "0.02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", "1."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aspectratio", "=", RowBox[{"1", "/", "4"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PRINT", "[", RowBox[{"label_", ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Print", "[", RowBox[{"label", ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"ele", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"fun", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PRINT", "[", RowBox[{"label_", ",", RowBox[{"{", "tab_", "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Print", "[", RowBox[{"label", ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"tab", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{"var_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "ne", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", RowBox[{"Length", "[", "time", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ne", " ", "=", RowBox[{"Length", "[", "var", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"time", "[", RowBox[{"[", "ii", "]"}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"var", "[", RowBox[{"[", "jj", "]"}], "]"}], " ", "/.", " ", RowBox[{"rule", "[", RowBox[{"[", "ii", "]"}], "]"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"sol", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", RowBox[{"AspectRatio", "\[Rule]", "aspectratio"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "ne"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"MODE", ",", "step_", ",", "time_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"funin", " ", "/.", " ", RowBox[{"t", " ", "\[Rule]", " ", "#"}]}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "time"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"funin", " ", "/.", " ", "#"}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "rule"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"DG", ",", "rule_", ",", "time_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "localrule", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"localrule", " ", "=", RowBox[{"rule", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"b_", ",", "0"}], "]"}], "\[Rule]", " ", RowBox[{"a", "[", "b", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"(", RowBox[{"funin", " ", "/.", RowBox[{"localrule", "[", RowBox[{"[", "ii", "]"}], "]"}]}], ")"}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "rule", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "box"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele", ",", RowBox[{"fun", " ", "/.", "rule"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "box"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", "#", "]"}], "&"}], ",", "ele"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"{", "I1_", "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"kx_", ",", "ky_"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "ty_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUET", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "ty_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "mm_", ",", "Ixx_", ",", "Iyy_", ",", "Izz_", ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "Fx_", ",", "Fy_", ",", "Fz_", ",", "Mx_", ",", "My_", ",", "Mz_"}], "}"}]}], "}"}], ",", RowBox[{"{", "I1_", "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", "fx_", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], ",", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}]}], " ", "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "jointsize", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BAR", ",", "list_", ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], ",", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}]}], " ", "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "jointsize", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NC", "=", " ", RowBox[{"SHAPES11", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "ww"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "vv"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"{", "hx", "}"}], "/", "2"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NC", "=", " ", RowBox[{"SHAPES11", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I3", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I3", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "ww"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "vv"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"{", "hx", "}"}], "/", "2"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I2", "]"}], ",", RowBox[{"X", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I2", "]"}], ",", RowBox[{"Y", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I2", "]"}], ",", RowBox[{"Z", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";"}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", "\n", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Polygon", "[", " ", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I1"}], "}"}], "]"}], "+", " ", RowBox[{ RowBox[{"UVW", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I1"}], "}"}], "]"}], "*", "scale"}]}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I3", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}]}], "}"}], "]"}], ":=", "\n", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Polygon", "[", " ", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I4", ",", "I3", ",", "I1"}], "}"}], "]"}], "+", " ", RowBox[{ RowBox[{"UVW", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I4", ",", "I3", ",", "I1"}], "}"}], "]"}], "*", "scale"}]}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I3", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I4", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I4", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.443928906918974*^9, 3.443928929991374*^9}, { 3.443929321457774*^9, 3.443929366962974*^9}, {3.443929418474174*^9, 3.443929420377375*^9}, {3.443929488800974*^9, 3.4439294898461742`*^9}, { 3.443930075892174*^9, 3.443930078840575*^9}, {3.443930455096974*^9, 3.443930459527375*^9}, {3.443930823241374*^9, 3.443930856126174*^9}, { 3.443931095008974*^9, 3.443931111997374*^9}, {3.443931155724174*^9, 3.443931182946175*^9}, {3.443931237046974*^9, 3.443931263410974*^9}, 3.443931316388574*^9, {3.4439313583057756`*^9, 3.443931361909374*^9}, 3.443931433650975*^9, {3.443931519341774*^9, 3.443931526377375*^9}, { 3.443931599338574*^9, 3.443931599915775*^9}, {3.443931654312974*^9, 3.443931663626174*^9}, {3.443931727149374*^9, 3.443931743685377*^9}, { 3.443931775712174*^9, 3.443931903195374*^9}, {3.443932055919374*^9, 3.443932087025774*^9}, {3.443932118069774*^9, 3.443932213385774*^9}, { 3.443932558437174*^9, 3.443932580074374*^9}, {3.443932636171974*^9, 3.443932669587174*^9}, {3.4439327043127756`*^9, 3.443932734670374*^9}, { 3.443932795307575*^9, 3.443932797023574*^9}, {3.443933058434774*^9, 3.443933059136774*^9}, {3.443933108214374*^9, 3.443933109821174*^9}, 3.443933204232374*^9, 3.443933238567974*^9, {3.443933324492774*^9, 3.443933325272774*^9}, {3.443933359343174*^9, 3.443933475204375*^9}, 3.443933509758374*^9, {3.443933589006374*^9, 3.443933589786374*^9}, { 3.443933864798774*^9, 3.443933872177574*^9}, {3.443933907417974*^9, 3.443933934561974*^9}, 3.443934011001974*^9, {3.443934148547174*^9, 3.443934154599975*^9}, {3.443934196688774*^9, 3.443934199559174*^9}, 3.443934615985574*^9, {3.443934665562374*^9, 3.443934690335174*^9}, { 3.443934870905175*^9, 3.443934878829974*^9}, {3.443934986984774*^9, 3.443934989371574*^9}, {3.443936277005175*^9, 3.443936288673974*^9}, 3.443937073322974*^9, {3.4439453557081738`*^9, 3.443945414722974*^9}, { 3.4439454486685743`*^9, 3.443945493908574*^9}, {3.443945592813574*^9, 3.443945602610374*^9}, {3.444042647998565*^9, 3.444042677045765*^9}, 3.4444395736456003`*^9, {3.4444396926112003`*^9, 3.4444397018152*^9}, { 3.446429971702*^9, 3.4464299849308*^9}, {3.4466049799505997`*^9, 3.4466049833514*^9}, {3.4466050206822*^9, 3.446605089025799*^9}, { 3.4466051204285984`*^9, 3.4466052301902*^9}, 3.4771131915032*^9, { 3.5007268004706*^9, 3.500726806523401*^9}, {3.500727240203401*^9, 3.5007272528238*^9}, 3.5007273148494*^9, {3.6880535892141175`*^9, 3.6880535907041197`*^9}},ExpressionUUID->"251ef183-a8dc-ec47-997c-\ 80876d0de3cd"] }, Closed]], Cell[CellGroupData[{ Cell["GRAPHICS defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.734064825975355*^9, 3.734064828569765*^9}, {3.745143805087549*^9, 3.7451438075158496`*^9}, { 3.750748347033251*^9, 3.750748355529561*^9}, {3.78956792066949*^9, 3.789567926782812*^9}, 3.789567958555616*^9},ExpressionUUID->"24c98141-094f-2049-836a-\ 1e84bf150eba"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"BEAM", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", "0.003"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "t_"}], "}"}], ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"CapForm", "[", "\"\\"", "]"}], ",", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], " ", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"ly_", ",", "lz_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"x", " ", "ix"}], "+", RowBox[{"y", " ", "iy"}], "+", RowBox[{"z", " ", "iz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], ".", "T"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", "yz"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ly", ",", RowBox[{"-", "lz"}]}], "}"}]}], "}"}], "/", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pp", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{"d_", ",", "b_", ",", "iy_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"iy", "*", RowBox[{"b", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"iy", "*", RowBox[{"b", "/", "2"}]}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[Rho]_", "}"}], ",", RowBox[{"{", RowBox[{"lx_", ",", "ly_", ",", "lz_", ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pnt", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", "lz"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "pnt"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "t_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"ELEMENT", "[", "nodes_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "r0", ",", "n", ",", "NN", ",", "en", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "face1", ",", "face2", ",", "face3", ",", "face4", ",", "face5", ",", "face6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "n\[Beta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"node", "=", RowBox[{"Flatten", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rn", "=", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"rn", "/", RowBox[{"Norm", "[", "rn", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", "5"}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Gamma]", "->", RowBox[{"t", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face1", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}]}]}], " ", ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face2", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Beta]", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"face3", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Beta]", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face4", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face5", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face6", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Polygon", "[", "face1", "]"}], ",", RowBox[{"Polygon", "[", "face2", "]"}], ",", RowBox[{"Polygon", "[", "face3", "]"}], ",", RowBox[{"Polygon", "[", "face4", "]"}], ",", RowBox[{"Polygon", "[", "face5", "]"}], ",", RowBox[{"Polygon", "[", "face6", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Tiny", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], " ", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "]"}], "*", "scale"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonlinear", " ", "beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]h", ",", "h0", ",", "NN", ",", "r0", ",", "u", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}]}], "+", RowBox[{"\[Xi]", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r0"}], ".", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r0"}]}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"r0", "+", RowBox[{"{", RowBox[{"u", ",", "0", ",", "w"}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", "0.05"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_Real", ",", "FY_Real", ",", "FZ_Real"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "r0"}], "}"}], ",", RowBox[{ RowBox[{"L", "=", RowBox[{"Max", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"MinMax", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "i"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", RowBox[{ RowBox[{"L", "/", "10"}], "*", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "/", RowBox[{"Max", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "]"}], ",", RowBox[{"1", "/", "100"}]}], "]"}]}]}]}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, 3.734064961166012*^9, {3.7340649924958353`*^9, 3.73406500711212*^9}, { 3.734065080806053*^9, 3.7340651183371983`*^9}, {3.734071708226326*^9, 3.734071710654184*^9}, {3.734073364096154*^9, 3.734073544150256*^9}, { 3.734073575450083*^9, 3.734073641576833*^9}, {3.734073691752476*^9, 3.7340736979070516`*^9}, {3.734073822724674*^9, 3.734073837462171*^9}, { 3.7340739034480777`*^9, 3.734073926441464*^9}, {3.7340739810895205`*^9, 3.734073989147008*^9}, {3.734074207086114*^9, 3.734074217687344*^9}, { 3.7340743130118575`*^9, 3.7340743136367188`*^9}, 3.734147513058416*^9, { 3.734147568916667*^9, 3.734147593930639*^9}, {3.734147807211531*^9, 3.734147828748175*^9}, {3.734147861578357*^9, 3.73414788566536*^9}, 3.73414797622887*^9, {3.734148333604216*^9, 3.7341483447645597`*^9}, { 3.734148391271126*^9, 3.734148430462343*^9}, {3.7341486538224015`*^9, 3.734148655872754*^9}, {3.734780635679473*^9, 3.7347806548690386`*^9}, { 3.734780765771411*^9, 3.734780780367008*^9}, {3.734780999671393*^9, 3.734781008203253*^9}, {3.734842705355623*^9, 3.734842741187677*^9}, { 3.734842781191771*^9, 3.7348428157425947`*^9}, {3.7352741876350036`*^9, 3.735274188984682*^9}, {3.744334694805724*^9, 3.744334695602414*^9}, { 3.744334726907612*^9, 3.744334727704249*^9}, {3.744370855629226*^9, 3.744370857925562*^9}, {3.744371036055887*^9, 3.744371037368114*^9}, { 3.744372868147454*^9, 3.744372879644797*^9}, {3.744372944801361*^9, 3.744372946519667*^9}, 3.744427237889816*^9, {3.745026981644952*^9, 3.745026983254672*^9}, {3.746150345449201*^9, 3.746150396452739*^9}, { 3.746150497725909*^9, 3.7461505005843096`*^9}, {3.746150558945475*^9, 3.746150615776053*^9}, {3.746150984703903*^9, 3.74615099456116*^9}, { 3.750748457386656*^9, 3.75074846753214*^9}, {3.750748881443331*^9, 3.7507488854690557`*^9}, {3.750749005058874*^9, 3.750749023499106*^9}, { 3.7507501792180104`*^9, 3.750750248150975*^9}, {3.7507502795426817`*^9, 3.750750280787862*^9}, {3.7507503174292965`*^9, 3.750750366591306*^9}, { 3.750750397245795*^9, 3.750750418733373*^9}, {3.7507505335852304`*^9, 3.750750827854561*^9}, {3.75075086073532*^9, 3.750750874987307*^9}, { 3.750750906727187*^9, 3.750750925222521*^9}, {3.750751196480165*^9, 3.750751249809139*^9}, {3.760607688544195*^9, 3.7606077135130415`*^9}, 3.760608746337007*^9, {3.765086128848972*^9, 3.765086135973978*^9}, { 3.765086334880218*^9, 3.765086340797302*^9}, {3.853205819769258*^9, 3.8532058295626307`*^9}, {3.853205931683282*^9, 3.853205950913233*^9}, { 3.853206459482326*^9, 3.853206497658714*^9}, 3.8532069619654517`*^9}, CellLabel-> "In[352]:=",ExpressionUUID->"8afe8f0d-1492-714b-be92-fad455510067"] }, Closed]], Cell[CellGroupData[{ Cell["SHOW3D defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.745143810516633*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607741638811*^9, 3.760607749187194*^9}, {3.760608900875217*^9, 3.760608911376729*^9}, {3.873767332289979*^9, 3.8737673340685797`*^9}},ExpressionUUID->"b42aaa1c-73c5-e444-9b1e-\ 45a63707b6e5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", "#", ",", "fun"}], " ", "]"}], "&"}], ",", "ele"}], "]"}], "]"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "and", " ", "MEC"}], "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"typ_", ",", "pro_", ",", "nod_"}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"LINK", ",", "typ_", ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, 3.914116660274355*^9}, CellLabel-> "In[362]:=",ExpressionUUID->"f3102a5e-06c7-9843-b780-df3c0e1e7257"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"constraint", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, { 3.914116660274355*^9, 3.914116676583498*^9}, {3.914116707937298*^9, 3.914116727973816*^9}}, CellLabel-> "In[367]:=",ExpressionUUID->"c3517871-74ba-8440-8799-e13ea477205c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"force", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "r0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Max", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"MinMax", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "i"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", RowBox[{ RowBox[{"L", "/", "10"}], "*", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "/", RowBox[{"Max", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "]"}], ",", RowBox[{"1", "/", "100"}]}], "]"}]}]}]}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"xyz_", ",", "mc_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "crd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "xyz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"FORCEFORM", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", RowBox[{"r", "[", RowBox[{"[", "#", "]"}], "]"}], "]"}], "&"}], ",", "mc"}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, { 3.914116660274355*^9, 3.914116676583498*^9}}, CellLabel-> "In[368]:=",ExpressionUUID->"b45ddfad-62ae-2340-96d6-44b7c91c8c73"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", "iy_", ",", RowBox[{"{", RowBox[{"yz_", ",", "mc_"}], "}"}]}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", "mc"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"zy", ",", "pn", ",", "t", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zy", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "t"}]}], "}"}]}], "}"}], "/", "2"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "b"}], "}"}], " ", "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iy", "^", "3"}], "/", "Iz"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iz", "^", "3"}], "/", "Iy"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"zy", ",", "pn"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"zy", ",", "pn", ",", "t", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zy", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "t"}]}], "}"}]}], "}"}], "/", "2"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "b"}], "}"}], " ", "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iy", "^", "3"}], "/", "Iz"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iz", "^", "3"}], "/", "Iy"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"zy", ",", "pn"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}]}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"crd", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ 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]", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, { 3.891396723599313*^9, 3.891396763527814*^9}, {3.8913967992800713`*^9, 3.891396810581273*^9}, {3.891397253531287*^9, 3.891397264039032*^9}, { 3.891397342619819*^9, 3.891397353090503*^9}, {3.891397414307041*^9, 3.8913974148457775`*^9}, {3.891397466855936*^9, 3.891397483533609*^9}, { 3.891397588012713*^9, 3.891397588552843*^9}, {3.914116640678644*^9, 3.9141166450783386`*^9}, {3.920780228573538*^9, 3.920780233622095*^9}, { 3.921307822130327*^9, 3.921307851229769*^9}, {3.921307896552864*^9, 3.9213079046404057`*^9}, 3.9213080502168865`*^9}, CellLabel-> "In[371]:=",ExpressionUUID->"9f632ed9-76d5-c84a-a0b8-8cc7b3c239f9"], 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[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r0", ",", "r0\[Alpha]", ",", "r0\[Beta]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "\[Rho]", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "pn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{ RowBox[{"(", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "n"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Prism", "[", "pp", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"four", " ", "node"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r0", ",", "r0\[Alpha]", ",", "r0\[Beta]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "\[Rho]", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "pn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{ RowBox[{"(", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "n"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Hexahedron", "[", "pp", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, {3.846128946122293*^9, 3.846128968019552*^9}, { 3.846129003512868*^9, 3.8461290485155616`*^9}, {3.84612912918378*^9, 3.846129173768606*^9}, {3.8461293216071515`*^9, 3.846129324863345*^9}, { 3.846129415192334*^9, 3.846129416208379*^9}, {3.8461294959672627`*^9, 3.846129565497211*^9}, {3.84612986121124*^9, 3.8461298706686964`*^9}, { 3.891140939157926*^9, 3.8911409429731197`*^9}, {3.891396284929349*^9, 3.891396311010934*^9}, {3.9140493512961*^9, 3.91404935961582*^9}, { 3.914116607421397*^9, 3.914116632017269*^9}, {3.9213076930091553`*^9, 3.921307703201014*^9}}, CellLabel-> "In[376]:=",ExpressionUUID->"ee8679c5-21f0-6945-a15c-714f9fce234e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"solid", " ", "element", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"mat_", ",", "for_"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "pn", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pn", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Tetrahedron", "[", "pn", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"mat_", ",", "for_"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"pn", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nn", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nn", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Hexahedron", "[", "pn", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.76509175174972*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.77518988887262*^9, 3.775189913786336*^9}, {3.775189948686561*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.787979867637468*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, {3.9141165059887753`*^9, 3.914116547730739*^9}}, CellLabel-> "In[386]:=",ExpressionUUID->"de3097dc-f7ca-2e46-b6bb-67cd51bad51c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"project", " ", "definitions"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"CORNERE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i3", ",", "r0", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr2", "=", RowBox[{ RowBox[{"i2", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{"r0", ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr2"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr3"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PIVOTA", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i3", ",", "r0", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr2", "=", RowBox[{ RowBox[{"i2", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", RowBox[{"d", "/", "4"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", RowBox[{"d", "/", "4"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr2"}], ",", RowBox[{"r0", "+", "dr2"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr3"}], ",", RowBox[{"r0", "+", "dr3"}]}], "}"}], ",", "d"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SLEEVEA", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i3", ",", "r0", ",", "r1", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r1", "=", RowBox[{"r0", "+", RowBox[{"i2", "*", RowBox[{"d", "/", "2"}]}], "+", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", RowBox[{"d", "/", "2"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", RowBox[{"l", "/", "2"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", RowBox[{"l", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", RowBox[{"d", "/", "8"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", RowBox[{"d", "/", "8"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr1"}], ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r1", "-", "dr3"}], ",", RowBox[{"r1", "+", "dr3"}]}], "}"}], ",", "d"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "first", " ", "order", " ", "beam", " ", "model", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", RowBox[{"{", RowBox[{"iyr_", ",", "\[Alpha]_"}], "}"}], ",", "pol_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ixr", ",", "izr", ",", "ix", ",", "iy", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ixr", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"izr", "=", RowBox[{"ixr", "\[Cross]", "iyr"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", " ", "=", "ixr"}], ";", "\[IndentingNewLine]", RowBox[{"iy", " ", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", " ", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"pol", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"jj", "+", "1"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"jj", "+", "1"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"nn", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pol", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"scale", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"ix", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"iy", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"iz", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ "AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", "iy_", ",", "pol_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"pol", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"jj", "+", "1"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"jj", "+", "1"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"nn", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pol", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "d_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"CIRCLE", "[", "d", "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"BEAMFORM", "=", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"POINTFORM", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "x"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "x"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], "]"}], "}"}], ",", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_", ",", "t_"}], "]"}], ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"x", " ", "ix"}], "+", RowBox[{"y", " ", "iy"}], "+", RowBox[{"z", " ", "iz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], ".", "T"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", "yz"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ly", ",", RowBox[{"-", "lz"}]}], "}"}]}], "}"}], "/", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pp", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORCEFORM", "=", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[Rho]_", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"HEXAHEDRON", "[", RowBox[{"lx_", ",", "ly_", ",", "lz_"}], "]"}], ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "T", ",", "pnt", ",", "crd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pnt", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", "lz"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "pnt"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"FORCEFORM", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763794`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497163`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726153`*^9, 3.775189913786336*^9}, {3.7751899486865587`*^9, 3.7751899522127547`*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374645`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.891228490107478*^9, 3.891228495943495*^9}}, CellLabel-> "In[400]:=",ExpressionUUID->"0f5f9213-5aa9-db44-964f-7b40ae9bf90d"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Building blocks", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, {3.473055192524*^9, 3.473055199133*^9}, { 3.47305542959*^9, 3.4730554407939997`*^9}, {3.4734696797594*^9, 3.4734696967634*^9}, {3.4933064685896*^9, 3.493306471148*^9}, { 3.556872529139889*^9, 3.5568725438967333`*^9}, 3.556872692951258*^9, { 3.5576544837556367`*^9, 3.557654488685245*^9}, {3.685248903610102*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}, { 3.813031714323161*^9, 3.813031718925788*^9}, {3.813031758195632*^9, 3.813031764803319*^9}, {3.813032384726508*^9, 3.813032390240255*^9}, { 3.814583256251114*^9, 3.8145832796753936`*^9}, {3.819600542414885*^9, 3.8196005483154497`*^9}, {3.819950294085473*^9, 3.8199503065825105`*^9}},ExpressionUUID->"6a385782-eb61-456f-9f91-\ 380d4036a0d8"], Cell[CellGroupData[{ Cell["APPROXIMATIONS", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.6618219059243097`*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036443`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.7807552452476187`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.812782454243184*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874376`*^9}, {3.8145817138547506`*^9, 3.814581739504287*^9}, { 3.814581776238999*^9, 3.814581799742174*^9}, {3.814581962677523*^9, 3.8145819647221575`*^9}, {3.814599819024694*^9, 3.814599846730754*^9}, { 3.8153778767843127`*^9, 3.815377881775329*^9}, {3.8199410957155104`*^9, 3.81994109881959*^9}},ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-\ 42a83bd3e7cd"], Cell[CellGroupData[{ Cell[TextData[{ "LINEAR ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "c8b3e187-d6d4-4a10-9d91-60e9247e2e5a"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}, {3.819854195004692*^9, 3.819854197490559*^9}, 3.819941078108614*^9, {3.819947685840877*^9, 3.8199477222022824`*^9}, { 3.8199479521208344`*^9, 3.8199479622931805`*^9}},ExpressionUUID->"162ac754-d74f-4ca6-80c8-\ d8d961edea19"], Cell[BoxData[{ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1"}, {"x1", "x2"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, {"y1", "y2", "y3"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"}, {"u4"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1"}, {"x1", "x2", "x3", "x4"}, {"y1", "y2", "y3", "y4"}, {"z1", "z2", "z3", "z4"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"}, {"z"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.819600288176886*^9, 3.819600290595418*^9}, { 3.819793832823107*^9, 3.8197939441926823`*^9}, {3.8198542169513407`*^9, 3.819854304992836*^9}, {3.8199401440223775`*^9, 3.819940145175245*^9}, { 3.819940216079404*^9, 3.8199402350359707`*^9}, {3.8199402668370905`*^9, 3.819940270118642*^9}, {3.819941117148842*^9, 3.819941292564108*^9}, { 3.819941392926919*^9, 3.819941410180554*^9}, {3.819947320586339*^9, 3.8199473306436186`*^9}, {3.819947369119611*^9, 3.81994762763954*^9}}, CellLabel-> "In[461]:=",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUADRATIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "9f431e87-135f-41fb-85e4-ea581823e804"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}, { 3.819949640075619*^9, 3.819949650844132*^9}},ExpressionUUID->"8b303821-a3bc-4d02-b626-\ 00ac8af3f93c"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, { SuperscriptBox["x1", "2"], SuperscriptBox["x2", "2"], SuperscriptBox["x3", "2"]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.819948366415674*^9, 3.819948549388113*^9}, { 3.819948591314469*^9, 3.819948845089001*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707313`*^9}, { 3.819949721403361*^9, 3.819949748157431*^9}, 3.8199499668780727`*^9, { 3.819950073810108*^9, 3.8199500897824917`*^9}, {3.8199501689926205`*^9, 3.819950173688433*^9}, {3.8199502200208435`*^9, 3.819950224828543*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUBIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "1"], TraditionalForm]],ExpressionUUID-> "c01813c7-0c55-4a5c-a2e6-8d68d976fd14"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}},ExpressionUUID->"efb27dda-7a73-487d-b443-\ 3bf17635a222"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"du1"}, {"u2"}, {"du2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "1", "0"}, {"x1", "1", "x2", "1"}, { SuperscriptBox["x1", "2"], RowBox[{"2", "x1"}], SuperscriptBox["x2", "2"], RowBox[{"2", "x2"}]}, { SuperscriptBox["x1", "3"], RowBox[{"3", SuperscriptBox["x1", "2"]}], SuperscriptBox["x2", "3"], RowBox[{"3", SuperscriptBox["x2", "2"]}]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]}, { SuperscriptBox["x", "3"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.819948366415674*^9, 3.819948549388113*^9}, { 3.819948591314469*^9, 3.819948845089001*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707313`*^9}}, CellLabel-> "In[465]:=",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NN", " ", "=", " ", RowBox[{"a", "+", RowBox[{"b", " ", "x"}], "+", RowBox[{"c", " ", "y"}], "+", RowBox[{"d", " ", "x", " ", "y"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], ")"}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"NN", " ", "/.", "sol"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.822031610182944*^9, 3.822031900626928*^9}}, CellLabel-> "In[466]:=",ExpressionUUID->"5f613cb9-a9e2-4794-85a6-86c846186544"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "0"}], ",", RowBox[{"b", "\[Rule]", "0"}], ",", RowBox[{"c", "\[Rule]", FractionBox["1", "L"]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"-", FractionBox["1", SuperscriptBox["L", "2"]]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.822031789655941*^9, 3.8220319015494275`*^9}, 3.853032924662415*^9}, CellLabel-> "Out[467]=",ExpressionUUID->"84d03451-e88f-406c-9148-b5d4913b09f7"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"L", "-", "x"}], ")"}], " ", "y"}], SuperscriptBox["L", "2"]]], "Output", CellChangeTimes->{{3.822031789655941*^9, 3.8220319015494275`*^9}, 3.853032924677374*^9}, CellLabel-> "Out[468]=",ExpressionUUID->"d2fcd6f9-9b75-4a34-97bf-6cbadd9df4e4"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIRTUAL WORK DENSITIES", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.6618219059243097`*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036443`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.7807552452476187`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.812782454243184*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874376`*^9}, {3.8145817138547506`*^9, 3.814581739504287*^9}, { 3.814581776238999*^9, 3.814581799742174*^9}, {3.814581962677523*^9, 3.8145819647221575`*^9}, {3.814599819024694*^9, 3.814599846730754*^9}, { 3.8146008007283373`*^9, 3.81460080653517*^9}, {3.815970350460278*^9, 3.81597035188518*^9}},ExpressionUUID->"afb80a20-e5d9-4db8-bc99-\ 2e402a0d6607"], Cell[CellGroupData[{ Cell["BEAM MODEL", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278803`*^9, 3.815555097192521*^9}, {3.81597039148044*^9, 3.815970392981469*^9}, {3.8197932900575747`*^9, 3.819793291008457*^9}},ExpressionUUID->"b1de8e05-e4e5-4906-a827-\ 733bd6c4e2d5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bar", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Exx", ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}]}], ";", " ", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Delta]", "[", "Exx", "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", "Exx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], " ", "fx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "u", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "u"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], "\[CapitalEpsilon]", " ", "A", " ", "\[Alpha]", " ", "\[CapitalDelta]\[CurlyTheta]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}], "]"}]}], " ", "k", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8122458946247797`*^9, 3.8122459117806687`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289288`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.812347096607202*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907797`*^9, 3.812347520634344*^9}, {3.812347575873441*^9, 3.812347579567418*^9}, { 3.812347749289109*^9, 3.812347762488459*^9}, {3.812347828223141*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943895`*^9, 3.8123481287065563`*^9}, {3.812348160659023*^9, 3.812348163527281*^9}, {3.812937300280417*^9, 3.8129374795649176`*^9}, { 3.812937560814893*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, {3.8129378361071234`*^9, 3.812937884842545*^9}, { 3.812937928137231*^9, 3.812937963479135*^9}, {3.812949534707676*^9, 3.812949648561287*^9}, {3.81303179182392*^9, 3.8130318138107257`*^9}, { 3.813031849106337*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.813035680999578*^9}, {3.813035723222085*^9, 3.8130357590144258`*^9}, { 3.813035862400596*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, {3.814582008240017*^9, 3.81458202487157*^9}, { 3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.81459987410084*^9, 3.814600136314242*^9}, {3.8146008155128937`*^9, 3.8146008175253997`*^9}, { 3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994*^9, 3.814601353039859*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, {3.81460648702644*^9, 3.814606490130829*^9}, 3.814606610960127*^9, {3.814606651276392*^9, 3.814606660664742*^9}, { 3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159703281352882`*^9, 3.8159703402311783`*^9}, {3.819793304529253*^9, 3.819793376237859*^9}, { 3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708922`*^9, 3.819853318519034*^9}, {3.8198534731601105`*^9, 3.81985350017823*^9}, { 3.822014194195599*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014371257183*^9}, {3.822014420871383*^9, 3.82201455714007*^9}, { 3.8220147683440948`*^9, 3.822014852498207*^9}, 3.822014890162271*^9, { 3.8220186983475327`*^9, 3.8220188522089043`*^9}, {3.8226254483668633`*^9, 3.8226254538325567`*^9}, {3.822625497769276*^9, 3.8226255989801593`*^9}, { 3.822625660413871*^9, 3.8226257244889565`*^9}, {3.822625784898554*^9, 3.8226257884059076`*^9}, {3.822625841405484*^9, 3.82262595974108*^9}, { 3.822626497029248*^9, 3.8226265279080334`*^9}, {3.822626574578147*^9, 3.822626587819417*^9}, {3.822626633786963*^9, 3.8226266353557687`*^9}, { 3.822626757328236*^9, 3.8226267614127035`*^9}, {3.822793793405351*^9, 3.822793877446885*^9}, {3.822793932631747*^9, 3.822793990580744*^9}, { 3.82279402359865*^9, 3.8227940749755487`*^9}}, CellLabel-> "In[469]:=",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"torsion", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "]"}]}], " ", "G", " ", "Ip", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]", "]"}], " ", "mx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Phi]", "]"}]}], " ", "\[Rho]", " ", "Irr", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8122458946247797`*^9, 3.8122459117806687`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289288`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.812347096607202*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907797`*^9, 3.812347520634344*^9}, {3.812347575873441*^9, 3.812347579567418*^9}, { 3.812347749289109*^9, 3.812347762488459*^9}, {3.812347828223141*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943895`*^9, 3.8123481287065563`*^9}, {3.812348160659023*^9, 3.812348163527281*^9}, {3.812937300280417*^9, 3.8129374795649176`*^9}, { 3.812937560814893*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, {3.8129378361071234`*^9, 3.812937884842545*^9}, { 3.812937928137231*^9, 3.812937963479135*^9}, {3.812949534707676*^9, 3.812949648561287*^9}, {3.81303179182392*^9, 3.8130318138107257`*^9}, { 3.813031849106337*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.813035680999578*^9}, {3.813035723222085*^9, 3.8130357590144258`*^9}, { 3.813035862400596*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, {3.814582008240017*^9, 3.81458202487157*^9}, { 3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.81459987410084*^9, 3.814600136314242*^9}, {3.8146008155128937`*^9, 3.8146008175253997`*^9}, { 3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994*^9, 3.814601353039859*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, {3.81460648702644*^9, 3.814606490130829*^9}, 3.814606610960127*^9, {3.814606651276392*^9, 3.814606660664742*^9}, { 3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159703281352882`*^9, 3.8159703402311783`*^9}, {3.819793304529253*^9, 3.819793376237859*^9}, { 3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708922`*^9, 3.819853318519034*^9}, {3.8198534731601105`*^9, 3.81985350017823*^9}, { 3.822014194195599*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014346401341*^9}, {3.822014904572884*^9, 3.8220149367236567`*^9}, { 3.822794250933531*^9, 3.822794256864659*^9}}, CellLabel-> "In[476]:=",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xz", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "w"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.822794147993034*^9}, { 3.822794180887678*^9, 3.8227942482556634`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.822794528561179*^9}, {3.822794611759951*^9, 3.822794721694448*^9}}, CellLabel-> "In[479]:=",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xy", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "v", "]"}], " ", "fy"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "v", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "v"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "v"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.822794147993034*^9}, { 3.822794180887678*^9, 3.8227942482556634`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.822794528561179*^9}, {3.822794611759951*^9, 3.822794721694448*^9}, {3.822800306589834*^9, 3.822800386059091*^9}}, CellLabel-> "In[483]:=",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"uZ", "[", "0", "]"}], " ", "4", " ", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}], " ", "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}], "]"}], "\[CapitalEpsilon]", " ", "A", " ", FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{"\[Delta]wint", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}]}], "]"}], "+", RowBox[{"F", " ", RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "\[Delta]W", "]"}]}]}]], "Input", CellChangeTimes->{{3.82279483009081*^9, 3.822794969956561*^9}, { 3.822795020470271*^9, 3.8227951518811617`*^9}, {3.822795344383899*^9, 3.822795351564015*^9}, {3.822795991762432*^9, 3.8227960047802234`*^9}}, CellLabel-> "In[487]:=",ExpressionUUID->"19bb77ba-380c-49d2-99b3-5d1a77644648"], Cell[BoxData[ RowBox[{ RowBox[{"F", " ", RowBox[{"\[Delta]uZ", "[", "0", "]"}]}], "-", FractionBox[ RowBox[{"64", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "Iyy", " ", RowBox[{"uZ", "[", "0", "]"}]}], "+", RowBox[{"2", " ", "A", " ", SuperscriptBox[ RowBox[{"uZ", "[", "0", "]"}], "3"]}]}], ")"}], " ", RowBox[{"\[Delta]uZ", "[", "0", "]"}]}], RowBox[{"5", " ", SuperscriptBox["L", "3"]}]]}]], "Output", CellChangeTimes->{3.853032925061337*^9}, CellLabel-> "Out[490]=",ExpressionUUID->"a07f3917-4445-4893-bac5-45a1114501cc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376175716915*^9}, { 3.815555061285624*^9, 3.8155550857667847`*^9}, {3.815970383671178*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.822013855091523*^9, 3.8220138550928526`*^9}},ExpressionUUID->"d7109425-1791-4931-ad0b-\ bad3a9ba7ad1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"thin", " ", "slab", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{"h\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], " ", FractionBox[ RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]", " "}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}]}], " ", "t", " ", "k"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853400372193*^9}, {3.820995440322495*^9, 3.820995464460252*^9}, { 3.821411602113981*^9, 3.821411613520486*^9}, {3.822013466437859*^9, 3.822013494212563*^9}, {3.822013636172348*^9, 3.822013660653085*^9}, { 3.822013694064325*^9, 3.8220137095733585`*^9}, {3.822013740034285*^9, 3.8220138276621084`*^9}, {3.822013865712245*^9, 3.8220141198601246`*^9}, { 3.8220145897943444`*^9, 3.822014632748041*^9}, {3.822018553668655*^9, 3.8220186366280785`*^9}, 3.8222202914316864`*^9, {3.822284129118959*^9, 3.822284130436101*^9}, {3.822285758917274*^9, 3.822285839222003*^9}, { 3.8226263917600307`*^9, 3.822626400054607*^9}, {3.822626471378187*^9, 3.822626472382482*^9}, {3.822626695952267*^9, 3.822626747776212*^9}, { 3.822626796327529*^9, 3.8226269739859304`*^9}, {3.8226270696375046`*^9, 3.822627097464016*^9}, {3.82262738419366*^9, 3.822627384868784*^9}, { 3.8226275012187433`*^9, 3.8226275136853914`*^9}, {3.8227023828653297`*^9, 3.822702630787526*^9}, {3.8227027245174074`*^9, 3.82270283265123*^9}, { 3.822702868916325*^9, 3.822702874231553*^9}, {3.822702931109446*^9, 3.822702940209586*^9}, {3.822703290165615*^9, 3.822703320158644*^9}, { 3.8228004802034807`*^9, 3.822800485425867*^9}, {3.822800521161858*^9, 3.8228005919369607`*^9}, {3.823135482928742*^9, 3.8231354842107*^9}, { 3.851847556164915*^9, 3.851847597203542*^9}}, CellLabel-> "In[491]:=",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[Rho]"}], "12"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942403`*^9}, { 3.82099550430188*^9, 3.820995603399565*^9}, {3.821411597204849*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.822012228548747*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.822012458930317*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.822013584589524*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.82262747007555*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}}, CellLabel-> "In[499]:=",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"shallow", " ", "nonlinear", " ", "plate"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942403`*^9}, { 3.82099550430188*^9, 3.820995603399565*^9}, {3.821411597204849*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.822012228548747*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.822012458930317*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.822013584589524*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.82262747007555*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}, {3.853218494706453*^9, 3.853218677855839*^9}, {3.853218715456251*^9, 3.8532187197553587`*^9}, 3.8532187862418203`*^9, {3.8532228638308563`*^9, 3.85322287562099*^9}},ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-\ 55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376175716915*^9}, { 3.815555061285624*^9, 3.8155550857667847`*^9}, {3.815970383671178*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.819853555422123*^9, 3.8198535571357107`*^9}},ExpressionUUID->"fb5115cb-5c46-462d-b545-\ 09d24c3dbd84"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], "2"]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", " ", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Nu]"}]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1", "-", "\[Nu]"}], "\[Nu]", "\[Nu]"}, {"\[Nu]", RowBox[{"1", "-", "\[Nu]"}], "\[Nu]"}, {"\[Nu]", "\[Nu]", RowBox[{"1", "-", "\[Nu]"}]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{"2", "+", RowBox[{"2", "\[Nu]"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"}, {"w"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"}, {"fz"} }], "\[NoBreak]", ")"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853400372193*^9}, {3.819853568522805*^9, 3.819853574857469*^9}, { 3.8198536434093485`*^9, 3.819853647541463*^9}, {3.8198536777405787`*^9, 3.819853767687767*^9}, {3.819853815679607*^9, 3.8198540710650525`*^9}, { 3.8220149705414286`*^9, 3.822014991080544*^9}, {3.822015024732211*^9, 3.822015493649189*^9}, {3.8220155277480507`*^9, 3.822015651179119*^9}, 3.822015690035177*^9, {3.8220157282408*^9, 3.822015819731036*^9}, { 3.822018449619231*^9, 3.8220185243444552`*^9}, {3.822220449505496*^9, 3.822220581738879*^9}}, CellLabel-> "In[504]:=",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\ \\\"x\\\"}]], \\\"u\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\ \[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \\\"}\\\"}]}], \ \\\"}\\\"}], \\\"+\\\", RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", \ RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{SuperscriptBox[RowBox[{\ \\\"(\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\ \"u\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\ \", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \ \\\"v\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\ \\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\"w\\\ \"}], \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}]}], \\\"}\\\"}]}]}]\\) are not the same \ shape.\"", 2, 505, 5, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925407507*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zz\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{FractionBox[RowBox[{\ \\\"\[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"1\\\", \\\"-\\\", \ \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\", \\\",\\\", \\\"\[Nu]\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\"}], \\\ \"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \\\ \"\[Nu]\\\", \\\",\\\", RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}]}], \ \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \ \\\"+\\\", \\\"\[Nu]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ \")\\\"}]}]], \\\".\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]}]\\) are not the same shape.\"", 2, 507, 6, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925423025*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yz\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zx\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*FractionBox[RowBox[{\\\"\ \[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", \\\"\[Gamma]xy\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]yz\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]zx\\\", \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{\ \\\"2\\\", \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Nu]\\\"}]}]]\\) are \ not the same shape.\"", 2, 507, 7, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925562045*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Problems and solutions", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, {3.473055192524*^9, 3.473055199133*^9}, { 3.47305542959*^9, 3.4730554407939997`*^9}, {3.4734696797594*^9, 3.4734696967634*^9}, {3.4933064685896*^9, 3.493306471148*^9}, { 3.556872529139889*^9, 3.5568725438967333`*^9}, 3.556872692951258*^9, { 3.5576544837556367`*^9, 3.557654488685245*^9}, {3.685248903610102*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}},ExpressionUUID->"c094e867-eedb-49ea-81fe-\ 4ac178148a9f"], Cell[CellGroupData[{ Cell["INTRODUCTION (week 2)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.66182190592431*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.685876411703644*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.69079328920778*^9, 3.753071235456575*^9, 3.7866746400333786`*^9, { 3.816933130133701*^9, 3.816933146198868*^9}, {3.8187683453801126`*^9, 3.8187683495925474`*^9}},ExpressionUUID->"4b032a41-028b-4092-b65a-\ 9e634ae03405"], Cell[CellGroupData[{ Cell["Lecture example 1.1 (structure analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.818903771638553*^9, 3.818903776541187*^9}},ExpressionUUID->"9aac42a8-292f-4229-ba7a-\ ff683fbe5b47"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759193`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126263`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.818903903343067*^9, 3.818904167227741*^9}, { 3.818904329868784*^9, 3.818904360696265*^9}, 3.818904432229208*^9, { 3.818932203173953*^9, 3.818932219421686*^9}, 3.8189390550786867`*^9, { 3.81907738355456*^9, 3.8190773971877785`*^9}}, CellLabel-> "In[388]:=",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.2 (displacement analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}},ExpressionUUID->"61bce4a2-2758-460e-9011-\ 10d261d3455b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856436`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759184`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126253`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.8189322784076986`*^9, 3.818932279384528*^9}, 3.818939038386253*^9}, CellLabel->"In[6]:=",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.3 (vibration analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, 3.818905799942091*^9},ExpressionUUID->"5f18722c-d360-4af9-9f52-\ 1aaae1c2afe0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ini", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", RowBox[{"a", "/", "2"}]}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "a"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "ini"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856436`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759184`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126253`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.8189324188198233`*^9, 3.818932419716118*^9}, {3.818933917456164*^9, 3.818933953146742*^9}, {3.8189342859506845`*^9, 3.818934335588433*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.4 (stability analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}},ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-\ 7e504f9c030c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856436`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759184`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126253`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.818932589763369*^9, 3.8189325919837103`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.5 (large displacement analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}, {3.818906680532697*^9, 3.818906710304649*^9}, { 3.818907219119192*^9, 3.818907222320526*^9}, {3.819104609063642*^9, 3.81910461349381*^9}},ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-\ 11727f8765cd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"a", "\[Rule]", RowBox[{ RowBox[{"-", "L"}], "/", "10"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}]}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759193`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126263`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.818906926514065*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, 3.818939166730035*^9, { 3.8189392811217995`*^9, 3.818939308027191*^9}, {3.818939612512598*^9, 3.818939625554674*^9}, {3.8189396888230515`*^9, 3.818939690546791*^9}, { 3.818941306347761*^9, 3.8189413069023876`*^9}, {3.818941353674148*^9, 3.818941366867316*^9}, 3.819104686652321*^9, {3.850615302098191*^9, 3.850615307831856*^9}, {3.850615350957108*^9, 3.850615422642296*^9}, { 3.850615456420259*^9, 3.8506155467512794`*^9}}, CellLabel-> "In[391]:=",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.6 (thermo-mechanical analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}, {3.818906680532697*^9, 3.818906710304649*^9}, { 3.8189071749677935`*^9, 3.818907184003142*^9}, {3.818907228710081*^9, 3.818907236014058*^9}, {3.819104708530879*^9, 3.819104713378007*^9}},ExpressionUUID->"5de18652-2348-4485-9982-\ 16fe2124dc17"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856436`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759184`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126253`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.818906926514065*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, {3.819011234808808*^9, 3.819011267096024*^9}, {3.81901130156429*^9, 3.819011303017789*^9}, { 3.850614543193836*^9, 3.850614549498017*^9}, {3.8506150595049334`*^9, 3.85061507150959*^9}, {3.850615129445158*^9, 3.8506151582241964`*^9}, { 3.8506156789915085`*^9, 3.850615685597824*^9}, 3.88206293458878*^9}, CellLabel->"In[20]:=",ExpressionUUID->"35452574-3b83-4220-8780-2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604853`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}},ExpressionUUID->"87164790-bcae-4741-ba81-\ 0a41275accf6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"w1", ",", "w2", ",", "w3"}], "]"}], ";"}], "\[IndentingNewLine]", 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.732963880717304*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.732964246813935*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.733064354789534*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.733105095695474*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.768357067417464*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088815`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.881823815363229*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.881904586816615*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, {3.8820645695351*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, { 3.882064757755306*^9, 3.882064854460331*^9}, {3.945130664257183*^9, 3.945130701967331*^9}}, CellLabel-> "In[166]:=",ExpressionUUID->"8a6264be-0729-7a4f-96d5-db91eff31694"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604857`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}, 3.8820648728970056`*^9},ExpressionUUID->"dae3bd26-a29b-7142-866b-\ 9633fb5e10b5"], 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.732963880717304*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.732964246813935*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.733064354789534*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.733105095695474*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.768357067417464*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088815`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.881823815363229*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.881904586816615*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, {3.8820645695351*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, { 3.882064757755306*^9, 3.882064854460331*^9}, {3.8820649167673025`*^9, 3.88206496989681*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"f71e10c3-03b0-af4a-8f62-1a9330b67ca4"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (analytical solution)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604857`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064878837919*^9, 3.8820648810216274`*^9}, {3.8821505174563293`*^9, 3.8821505582112355`*^9}},ExpressionUUID->"b17217b2-2353-1144-b24c-\ 01e5fa948bb9"], 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[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aa", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ FractionBox["3", RowBox[{"4", " ", "\[Pi]"}]], RowBox[{"(", RowBox[{"3", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ma", ":=", RowBox[{ RowBox[{"aa", "*", "u"}], "/.", "val"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"gr1", "=", RowBox[{"Plot", "[", RowBox[{"ma", ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \(2\)]\), \ \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.732963880717304*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.732964246813935*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.733064354789534*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.733105095695474*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.768357067417464*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.81858893460888*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.881823815363229*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.881904586816615*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, 3.882065037491746*^9, { 3.882065080910858*^9, 3.882065337758348*^9}, {3.945319096467552*^9, 3.94531910650494*^9}, {3.945321537369795*^9, 3.945321559014776*^9}, { 3.9453216304298725`*^9, 3.94532165862714*^9}, 3.9453928376984406`*^9, 3.9453929390236454`*^9},ExpressionUUID->"230fb2dd-8092-ac4c-860b-\ 76ee76346993"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (simulation data)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604853`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726397862908*^9}, { 3.81858697660985*^9, 3.818586979564518*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.881217589618954*^9, 3.881217594377773*^9}, {3.882063012466925*^9, 3.882063022902251*^9}, 3.882065502228348*^9, {3.8820661755074587`*^9, 3.88206617566441*^9}, {3.882150408430088*^9, 3.88215041408447*^9}, { 3.8821504968526525`*^9, 3.882150531282355*^9}, {3.9453932474738426`*^9, 3.945393263056225*^9}, {3.945393746126478*^9, 3.9453937535542297`*^9}},ExpressionUUID->"aac723d5-53c6-0945-a5e3-\ 4bee57202cf3"], Cell[BoxData[{ 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[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Poisson", " ", "ratio", " ", "0.1"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dat", "=", 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]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", 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"]}]]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"KK", " ", "=", 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"]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", "KK", "]"}], ".", "FF"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Poisson", " ", "ratio", " ", "0.4"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dat", "=", 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[{ RowBox[{"data", "=", 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"]}]]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"KK", " ", "=", 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"]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a4", ",", "b4"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", "KK", "]"}], ".", "FF"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "compare", "*)"}]}], "\[IndentingNewLine]", RowBox[{"gr2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a1", " ", "u"}], "+", RowBox[{"b1", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{ RowBox[{"a4", " ", "u"}], "+", RowBox[{"b4", " ", SuperscriptBox["u", "3"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ FractionBox["u", "t"], ",", FractionBox[ RowBox[{"m", " ", "g", " ", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.732963880717304*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.732964246813935*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.733064354789534*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.733105095695474*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766726409922574*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.766726823044849*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.76673764617572*^9}, {3.766753557627868*^9, 3.766753567823385*^9}, { 3.766753600132004*^9, 3.766753665145244*^9}, {3.76675371609384*^9, 3.766753765991606*^9}, {3.766753804364827*^9, 3.766753808023478*^9}, { 3.766753888049261*^9, 3.7667538883438697`*^9}, 3.768354669925649*^9, { 3.768354953226757*^9, 3.768354970698362*^9}, {3.768355007095215*^9, 3.768355024734041*^9}, {3.786677211862581*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973163`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.786677605209071*^9}, { 3.786677717034564*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.787582948307924*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.817522366725713*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.850882673763413*^9, 3.850882680403383*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.881210786670344*^9}, {3.881211107895405*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.881211420851748*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.88121159370508*^9}, { 3.881211624550127*^9, 3.881211675239558*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.881212272347547*^9, 3.881212326655923*^9}, 3.881212932784515*^9, 3.881287482607715*^9, {3.881808149177123*^9, 3.881808322076841*^9}, {3.88180839183644*^9, 3.881808424957499*^9}, { 3.881808492494951*^9, 3.881808514856808*^9}, {3.881808546913206*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.881821815580055*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.881823760214083*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.88190059400862*^9, 3.881900596305593*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.881903651765631*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.882062974953603*^9, 3.882062978980215*^9}, { 3.882065424011973*^9, 3.8820654735248575`*^9}, {3.8820656556559987`*^9, 3.882065996201406*^9}, {3.882066051819203*^9, 3.8820660925936437`*^9}, { 3.882066168840043*^9, 3.882066171095505*^9}, {3.882066246607629*^9, 3.8820668803161163`*^9}, {3.91368863576951*^9, 3.9136886721269255`*^9}, { 3.913689245925317*^9, 3.913689254682008*^9}, {3.913689564301339*^9, 3.9136895754547544`*^9}, {3.9453933748425293`*^9, 3.945393428109148*^9}, { 3.9453934647204647`*^9, 3.9453935125157547`*^9}, {3.945393548607279*^9, 3.945393736670988*^9}, {3.9453938076334915`*^9, 3.9453938103905945`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"d3684fb8-5007-3a47-bac0-050cf7cd75a4"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (physical experiment)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604853`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726397862908*^9}, { 3.81858697660985*^9, 3.818586979564518*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.881217589618954*^9, 3.881217594377773*^9}, {3.882063012466925*^9, 3.882063022902251*^9}, 3.882065502228348*^9, 3.882150416650697*^9, { 3.882150488104493*^9, 3.88215051059935*^9}},ExpressionUUID->"5009326f-ec18-1545-9df2-\ e9200b0bfa18"], 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[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "strongly", " ", "rounded", " ", "data", " ", "to", " ", "be", " ", "replaced", " ", "by", " ", "measured", " ", "values"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dat", "=", 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]"}], "\n", RowBox[{ RowBox[{ RowBox[{"data", "=", 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"]}]]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"KK", " ", "=", 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"]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a3"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", "KK", "]"}], ".", "FF"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"gr3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"a1", " ", "u"}], "+", RowBox[{"a3", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ FractionBox["u", "t"], ",", FractionBox[ RowBox[{"m", " ", "g", " ", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.732963880717304*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.732964246813935*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.733064354789534*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.733105095695474*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766726409922574*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.766726823044849*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.76673764617572*^9}, {3.766753557627868*^9, 3.766753567823385*^9}, { 3.766753600132004*^9, 3.766753665145244*^9}, {3.76675371609384*^9, 3.766753765991606*^9}, {3.766753804364827*^9, 3.766753808023478*^9}, { 3.766753888049261*^9, 3.7667538883438697`*^9}, 3.768354669925649*^9, { 3.768354953226757*^9, 3.768354970698362*^9}, {3.768355007095215*^9, 3.768355024734041*^9}, {3.786677211862581*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973177`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.786677605209071*^9}, { 3.786677717034564*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.787582948307924*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.817522366725713*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.850882673763413*^9, 3.850882680403383*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.881210786670344*^9}, {3.881211107895405*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.881211420851748*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.88121159370508*^9}, { 3.881211624550127*^9, 3.881211675239558*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.881212272347547*^9, 3.881212326655923*^9}, 3.881212932784515*^9, 3.881287482607715*^9, {3.881808149177123*^9, 3.881808322076841*^9}, {3.88180839183644*^9, 3.881808424957499*^9}, { 3.881808492494951*^9, 3.881808514856808*^9}, {3.881808546913206*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.881821815580055*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.881823760214083*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.88190059400862*^9, 3.881900596305593*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.881903651765631*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.882062974953603*^9, 3.882062978980215*^9}, { 3.882065424011973*^9, 3.8820654735248566`*^9}, {3.8820656556559987`*^9, 3.882065996201406*^9}, {3.882066051819203*^9, 3.8820660925936437`*^9}, { 3.913689221508959*^9, 3.913689230807315*^9}, {3.9136894977557273`*^9, 3.9136895359009423`*^9}, {3.91368959585709*^9, 3.913689611921653*^9}, { 3.945320766821348*^9, 3.945320941032734*^9}, {3.945320997629286*^9, 3.945320998616183*^9}, {3.945321080874312*^9, 3.945321190808588*^9}, { 3.945321287486561*^9, 3.945321321798491*^9}, {3.9453214140369267`*^9, 3.945321416157723*^9}, {3.945321515303461*^9, 3.945321527936611*^9}, 3.945321568282715*^9, {3.9453216407318373`*^9, 3.9453216699042625`*^9}, { 3.945392959506092*^9, 3.9453929606075096`*^9}, {3.945393012863884*^9, 3.9453930446758823`*^9}, {3.9453930865209904`*^9, 3.9453931465446777`*^9}, 3.9453932106793785`*^9, {3.9453938299415016`*^9, 3.945393831619425*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"176f575f-78d1-a842-8d35-b362b7aa665f"] }, Closed]], Cell[CellGroupData[{ Cell["Small displacement FEM simulation", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604853`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.733184924598254*^9, 3.7331849405062194`*^9}, { 3.733186311322669*^9, 3.733186314119838*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.765706832976385*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.766555590685497*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.816934891197394*^9}, { 3.8185891808580103`*^9, 3.818589189499062*^9}, {3.81876856459061*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.881629411483649*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.882056162050333*^9, 3.882056173944016*^9}, { 3.882063089159107*^9, 3.882063104456729*^9}, {3.882065400593013*^9, 3.8820654011268682`*^9}, {3.882065555305724*^9, 3.8820655885644617`*^9}},ExpressionUUID->"6ec5922a-1d6a-9b48-968e-\ 6cd75b80d9ec"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"parameters", " ", "and", " ", "region"}], "*)"}], "\[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[{"\[ScriptCapitalR]", "=", RowBox[{"Region", "[", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "/.", "val"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"triangle", " ", "element", " ", "representation"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ae", "=", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"MaxCellMeasure", "\[Rule]", "Ae"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[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]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]n", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}]}], "}"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.881281835862448*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.881282027294843*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.881631465538903*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.881631580455498*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.88163617959987*^9, 3.881636180121649*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, { 3.881637581637206*^9, 3.881637582386245*^9}, {3.881637681612921*^9, 3.881637682656345*^9}, {3.881637913599838*^9, 3.88163791499751*^9}, { 3.881638411573781*^9, 3.881638414087544*^9}, {3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, { 3.8816402341253767`*^9, 3.881640247025017*^9}, {3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, { 3.881808811712034*^9, 3.8818088123069353`*^9}, {3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.881899827740927*^9}, { 3.881900438068577*^9, 3.881900439768372*^9}, {3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.881904149147517*^9, 3.881904150093765*^9}, { 3.913688746058327*^9, 3.913688747246232*^9}, {3.913689646044672*^9, 3.913689647749171*^9}, {3.913691049579733*^9, 3.9136910536390514`*^9}, { 3.913692443648219*^9, 3.913692443798464*^9}, {3.945305046001971*^9, 3.945305087648887*^9}, {3.94530512119541*^9, 3.945305124019287*^9}, 3.945305211553337*^9, {3.945305339750608*^9, 3.9453053556325912`*^9}, { 3.945305543552384*^9, 3.9453055685350246`*^9}, 3.9453055994904957`*^9, { 3.9453057022486095`*^9, 3.9453059235423145`*^9}, {3.9453060047417774`*^9, 3.94530602592408*^9}, 3.945306058503058*^9, {3.945306167901081*^9, 3.9453061791282063`*^9}, {3.945306227895499*^9, 3.945306312678448*^9}, { 3.945306354928484*^9, 3.94530635549646*^9}, {3.94530650054014*^9, 3.945306634270389*^9}, {3.945306714209406*^9, 3.945306719118372*^9}, { 3.945306774606407*^9, 3.945306774828949*^9}, {3.94530681938373*^9, 3.945306965775479*^9}, {3.945307003512108*^9, 3.9453075240378284`*^9}, { 3.945307729567091*^9, 3.945307730345892*^9}, 3.945321620810217*^9, 3.945321695854435*^9, {3.945321814938799*^9, 3.945321815465475*^9}, 3.945321881005583*^9, {3.9453219304657803`*^9, 3.945321931623368*^9}, { 3.94532198770517*^9, 3.945321987854599*^9}, 3.945393305693905*^9, 3.945393864737499*^9, 3.9453941938193016`*^9, {3.945395938139265*^9, 3.9453960057283573`*^9}, {3.9453960914487705`*^9, 3.9453960925022144`*^9}, {3.9453963752856903`*^9, 3.945396430792282*^9}, { 3.9453964613774223`*^9, 3.9453964802460213`*^9}, {3.9453965783722153`*^9, 3.9453965863693924`*^9}, {3.9453966392153854`*^9, 3.945396641202318*^9}}, CellLabel-> "In[268]:=",ExpressionUUID->"edbdeb9e-dd40-f940-94aa-d56e00d9c02b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"boundary", " ", "conditions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Bn", "=", RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lin", "=", RowBox[{"MeshCells", "[", RowBox[{"Bn", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bbn", "=", RowBox[{"MeshRegion", "[", RowBox[{"crd", ",", "lin"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", RowBox[{"lin", "/.", RowBox[{ RowBox[{"Point", "[", "any_", "]"}], "->", "any"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]n", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"bbn", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}]}], "}"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.881281835862448*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.881282027294843*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.881631465538903*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.881631580455498*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.88163617959987*^9, 3.881636180121649*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, { 3.881637581637206*^9, 3.881637582386245*^9}, {3.881637681612921*^9, 3.881637682656345*^9}, {3.881637913599838*^9, 3.88163791499751*^9}, { 3.881638411573781*^9, 3.881638414087544*^9}, {3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, { 3.8816402341253767`*^9, 3.881640247025017*^9}, {3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, { 3.881808811712034*^9, 3.8818088123069353`*^9}, {3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.881899827740927*^9}, { 3.881900438068577*^9, 3.881900439768372*^9}, {3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.881904149147517*^9, 3.881904150093765*^9}, { 3.913688746058327*^9, 3.913688747246232*^9}, {3.913689646044672*^9, 3.913689647749171*^9}, {3.913691049579733*^9, 3.9136910536390514`*^9}, { 3.913692443648219*^9, 3.913692443798464*^9}, {3.945305046001971*^9, 3.945305087648887*^9}, {3.94530512119541*^9, 3.945305124019287*^9}, 3.945305211553337*^9, {3.945305339750608*^9, 3.9453053556325912`*^9}, { 3.945305543552384*^9, 3.9453055685350246`*^9}, 3.9453055994904957`*^9, { 3.9453057022486095`*^9, 3.945305740156868*^9}, {3.945307411379822*^9, 3.945307417241974*^9}, {3.945307767010163*^9, 3.945307785142925*^9}, { 3.945307841809822*^9, 3.9453081434754143`*^9}, {3.945308177181099*^9, 3.9453081832302036`*^9}, {3.945308292758524*^9, 3.945308316267063*^9}, { 3.945308352561495*^9, 3.9453084053264713`*^9}, 3.9453084884956017`*^9, 3.945318758852442*^9, 3.9453187943484554`*^9, {3.945318887582342*^9, 3.945318954272236*^9}, 3.9453938930188637`*^9, 3.945396499269449*^9, { 3.9453965494630527`*^9, 3.9453965572262096`*^9}}, CellLabel-> "In[278]:=",ExpressionUUID->"b646ade6-4732-3e45-9a1f-f93437b51d33"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "desciption", " ", "tables"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"Map", "[", 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"}], "]"}], " ", "/.", " ", "cnd"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.881284700400412*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432547`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.881452828573584*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.881636257292321*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.881648654185782*^9, 3.881648677610757*^9}, {3.881649196403632*^9, 3.881649227707165*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.88180801958478*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.881808966034879*^9, 3.881809019745599*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.9453049909165688`*^9, 3.945305027980821*^9}, {3.9453051890478*^9, 3.945305194705862*^9}, { 3.945305481128805*^9, 3.945305482724392*^9}, {3.945308260164633*^9, 3.945308276855633*^9}, {3.945308563827844*^9, 3.945308571506075*^9}, { 3.9453188245395336`*^9, 3.945318827445563*^9}, {3.945321945251681*^9, 3.945321948908898*^9}, {3.9453939175569744`*^9, 3.9453939662662277`*^9}, { 3.945394205947193*^9, 3.945394207619131*^9}, {3.945396043198185*^9, 3.945396046988901*^9}, 3.9453961042315903`*^9, 3.945396633573452*^9}, CellLabel-> "In[283]:=",ExpressionUUID->"69a36cb0-5f88-8743-9152-cbd61c700498"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mass", "-", RowBox[{"displacement", " ", "data"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ml", "=", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"dat", "=", 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[{"uZ", "[", "org", "]"}]}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "ml"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.881284700400412*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432547`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.881452828573584*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.881636257292321*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.881648654185782*^9, 3.881648677610757*^9}, {3.881649196403632*^9, 3.881649227707165*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.88180801958478*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.881808966034879*^9, 3.881809019745599*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.9453049909165688`*^9, 3.945305002623789*^9}, {3.9453086889261017`*^9, 3.9453087976790485`*^9}, 3.9453088581177692`*^9, 3.9453940016731815`*^9, 3.9453940899814415`*^9, 3.9453967350494137`*^9},ExpressionUUID->"4ade6000-31b4-4143-b49d-\ a1040ba66c2b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"data", " ", "processing"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "t"], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "g", " ", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotStyle", "->", "Blue"}]}], "]"}], ",", "gr1", ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \ \(2\)]\), \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}], ",", "All"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8818092563443813`*^9, 3.8818093088172956`*^9}, { 3.88180938743329*^9, 3.881809400467074*^9}, 3.881809556236254*^9, { 3.881809740669452*^9, 3.8818097454802237`*^9}, 3.8819001341679945`*^9, { 3.881900236170672*^9, 3.8819003358922*^9}, {3.881900413964295*^9, 3.881900416263238*^9}, {3.881900740837849*^9, 3.881900741732616*^9}, { 3.8819043081158466`*^9, 3.881904375005348*^9}, {3.8819046449406395`*^9, 3.8819047357146864`*^9}, {3.881904768266941*^9, 3.8819047752725286`*^9}, { 3.881904910319787*^9, 3.881904948501974*^9}, {3.945308826409939*^9, 3.945308839714079*^9}, {3.945319014865848*^9, 3.945319048797418*^9}, { 3.945319119776701*^9, 3.945319121913471*^9}, {3.9453214352485733`*^9, 3.945321437616749*^9}, {3.945394079962179*^9, 3.945394083892172*^9}, { 3.945394115694607*^9, 3.945394123032385*^9}, {3.945394153370035*^9, 3.945394173359707*^9}, {3.945396191209049*^9, 3.9453961913617573`*^9}, { 3.945396237852854*^9, 3.945396238011175*^9}}, CellLabel-> "In[292]:=",ExpressionUUID->"5eaebe92-259a-6148-b488-8043e0caa7de"] }, Closed]], Cell[CellGroupData[{ Cell["Large displacement FEM simulation", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604853`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.685323466333524*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.733184924598254*^9, 3.7331849405062194`*^9}, { 3.733186311322669*^9, 3.733186314119838*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.765706832976385*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.766555590685497*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.816934891197394*^9}, { 3.8185891808580103`*^9, 3.818589189499062*^9}, {3.81876856459061*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.881629411483649*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.882056162050333*^9, 3.882056173944016*^9}, { 3.882063089159107*^9, 3.882063104456729*^9}, {3.882065400593013*^9, 3.8820654011268682`*^9}, {3.882065555305724*^9, 3.8820655885644617`*^9}, { 3.9453943940966377`*^9, 3.945394396879202*^9}},ExpressionUUID->"553cba30-4b91-7346-a27b-\ ede3ef1cee97"], 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[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"Region", "[", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "/.", "val"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"triangle", " ", "element", " ", "representation"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ae", "=", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"MaxCellMeasure", "\[Rule]", "Ae"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[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]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]n", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}]}], "}"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.881281835862448*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.881282027294843*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.881631465538903*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.881631580455498*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.88163617959987*^9, 3.881636180121649*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, { 3.881637581637206*^9, 3.881637582386245*^9}, {3.881637681612921*^9, 3.881637682656345*^9}, {3.881637913599838*^9, 3.88163791499751*^9}, { 3.881638411573781*^9, 3.881638414087544*^9}, {3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, { 3.8816402341253767`*^9, 3.881640247025017*^9}, {3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, { 3.881808811712034*^9, 3.8818088123069353`*^9}, {3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.881899827740927*^9}, { 3.881900438068577*^9, 3.881900439768372*^9}, {3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.881904149147517*^9, 3.881904150093765*^9}, { 3.913688746058327*^9, 3.913688747246232*^9}, {3.913689646044672*^9, 3.913689647749171*^9}, {3.913691049579733*^9, 3.9136910536390514`*^9}, { 3.913692443648219*^9, 3.913692443798464*^9}, {3.945305046001971*^9, 3.945305087648887*^9}, {3.94530512119541*^9, 3.945305124019287*^9}, 3.945305211553337*^9, {3.945305339750608*^9, 3.9453053556325912`*^9}, { 3.945305543552384*^9, 3.9453055685350246`*^9}, 3.9453055994904957`*^9, { 3.9453057022486095`*^9, 3.9453059235423145`*^9}, {3.9453060047417774`*^9, 3.94530602592408*^9}, 3.945306058503058*^9, {3.945306167901081*^9, 3.9453061791282063`*^9}, {3.945306227895499*^9, 3.945306312678448*^9}, { 3.945306354928484*^9, 3.94530635549646*^9}, {3.94530650054014*^9, 3.945306634270389*^9}, {3.945306714209406*^9, 3.945306719118372*^9}, { 3.945306774606407*^9, 3.945306774828949*^9}, {3.94530681938373*^9, 3.945306965775479*^9}, {3.945307003512108*^9, 3.9453075240378284`*^9}, { 3.945307729567091*^9, 3.945307730345892*^9}, 3.945321620810217*^9, 3.945321695854435*^9, {3.945321814938799*^9, 3.945321815465475*^9}, 3.945321881005583*^9, {3.9453219304657803`*^9, 3.945321931623368*^9}, { 3.94532198770517*^9, 3.945321987854599*^9}, 3.945393305693905*^9, 3.945393864737499*^9, 3.9453941938193016`*^9, 3.9453944607611256`*^9}, CellLabel-> "In[126]:=",ExpressionUUID->"580dabf2-1fc6-3943-8886-0239b5d1c8d1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"boundary", " ", "conditions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Bn", "=", RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lin", "=", RowBox[{"MeshCells", "[", RowBox[{"Bn", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bbn", "=", RowBox[{"MeshRegion", "[", RowBox[{"crd", ",", "lin"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", RowBox[{"lin", "/.", RowBox[{ RowBox[{"Point", "[", "any_", "]"}], "->", "any"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "org", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uY", "[", "org", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]n", ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"bbn", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}]}], "]"}]}], "}"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.881281835862448*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.881282027294843*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.881631465538903*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.881631580455498*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.88163617959987*^9, 3.881636180121649*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, { 3.881637581637206*^9, 3.881637582386245*^9}, {3.881637681612921*^9, 3.881637682656345*^9}, {3.881637913599838*^9, 3.88163791499751*^9}, { 3.881638411573781*^9, 3.881638414087544*^9}, {3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, { 3.8816402341253767`*^9, 3.881640247025017*^9}, {3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, { 3.881808811712034*^9, 3.8818088123069353`*^9}, {3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.881899827740927*^9}, { 3.881900438068577*^9, 3.881900439768372*^9}, {3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.881904149147517*^9, 3.881904150093765*^9}, { 3.913688746058327*^9, 3.913688747246232*^9}, {3.913689646044672*^9, 3.913689647749171*^9}, {3.913691049579733*^9, 3.9136910536390514`*^9}, { 3.913692443648219*^9, 3.913692443798464*^9}, {3.945305046001971*^9, 3.945305087648887*^9}, {3.94530512119541*^9, 3.945305124019287*^9}, 3.945305211553337*^9, {3.945305339750608*^9, 3.9453053556325912`*^9}, { 3.945305543552384*^9, 3.9453055685350246`*^9}, 3.9453055994904957`*^9, { 3.9453057022486095`*^9, 3.945305740156868*^9}, {3.945307411379822*^9, 3.945307417241974*^9}, {3.945307767010163*^9, 3.945307785142925*^9}, { 3.945307841809822*^9, 3.9453081434754143`*^9}, {3.945308177181099*^9, 3.9453081832302036`*^9}, {3.945308292758524*^9, 3.945308316267063*^9}, { 3.945308352561495*^9, 3.9453084053264713`*^9}, 3.9453084884956017`*^9, 3.945318758852442*^9, 3.9453187943484554`*^9, {3.945318887582342*^9, 3.945318954272236*^9}, 3.9453938930188637`*^9, {3.945394472961725*^9, 3.9453944892181034`*^9}, 3.9453967525374947`*^9, 3.94539679769643*^9}, CellLabel-> "In[294]:=",ExpressionUUID->"068dc10e-05b0-7244-bdc2-6351029e317b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "desciption", " ", "tables"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"Map", "[", 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[{ 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"}], "]"}], " ", "/.", " ", "cnd"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.881284700400412*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432547`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.881452828573584*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.881636257292321*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.881648654185782*^9, 3.881648677610757*^9}, {3.881649196403632*^9, 3.881649227707165*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.88180801958478*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.881808966034879*^9, 3.881809019745599*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.9453049909165688`*^9, 3.945305027980821*^9}, {3.9453051890478*^9, 3.945305194705862*^9}, { 3.945305481128805*^9, 3.945305482724392*^9}, {3.945308260164633*^9, 3.945308276855633*^9}, {3.945308563827844*^9, 3.945308571506075*^9}, { 3.9453188245395336`*^9, 3.945318827445563*^9}, {3.945321945251681*^9, 3.945321948908898*^9}, {3.9453939175569744`*^9, 3.9453939662662277`*^9}, { 3.945394205947193*^9, 3.945394207619131*^9}, 3.945394589152809*^9, { 3.945396818050318*^9, 3.94539682046764*^9}}, CellLabel-> "In[299]:=",ExpressionUUID->"9c94b632-728c-1a44-8c5c-fbfe1ae51402"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"mass", "-", RowBox[{"displacement", " ", "data"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ml", "=", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 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[{"dat", "=", 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[{"uZ", "[", "org", "]"}]}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "ml"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.881279189954867*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.881284700400412*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432547`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.881452828573584*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.881636257292321*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.881648654185782*^9, 3.881648677610757*^9}, {3.881649196403632*^9, 3.881649227707165*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.88180801958478*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.881808966034879*^9, 3.881809019745599*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.9453049909165688`*^9, 3.945305002623789*^9}, {3.9453086889261017`*^9, 3.9453087976790485`*^9}, 3.9453088581177692`*^9, 3.9453940016731815`*^9, 3.9453940899814415`*^9, { 3.9453946770905647`*^9, 3.94539472125193*^9}, {3.945394756642248*^9, 3.945394757775158*^9}}, CellLabel-> "In[148]:=",ExpressionUUID->"4ae05ff9-5a72-b34d-8022-2c9906f608d6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"data", " ", "processing"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "t"], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "g", " ", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat"}], "]"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotStyle", "->", "Blue"}]}], "]"}], ",", "gr3", ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ FractionBox["u", "t"], ",", FractionBox[ RowBox[{"m", " ", "g", " ", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}], ",", "All"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8818092563443813`*^9, 3.8818093088172956`*^9}, { 3.88180938743329*^9, 3.881809400467074*^9}, 3.881809556236254*^9, { 3.881809740669452*^9, 3.8818097454802237`*^9}, 3.8819001341679945`*^9, { 3.881900236170672*^9, 3.8819003358922*^9}, {3.881900413964295*^9, 3.881900416263238*^9}, {3.881900740837849*^9, 3.881900741732616*^9}, { 3.8819043081158466`*^9, 3.881904375005348*^9}, {3.8819046449406395`*^9, 3.8819047357146864`*^9}, {3.881904768266941*^9, 3.8819047752725286`*^9}, { 3.881904910319787*^9, 3.881904948501974*^9}, {3.945308826409939*^9, 3.945308839714079*^9}, {3.945319014865848*^9, 3.945319048797418*^9}, { 3.945319119776701*^9, 3.945319121913471*^9}, {3.9453214352485733`*^9, 3.945321437616749*^9}, {3.945394079962179*^9, 3.945394083892172*^9}, { 3.945394115694607*^9, 3.945394123032385*^9}, {3.945394153370035*^9, 3.945394173359707*^9}, {3.945395678942644*^9, 3.9453957099642296`*^9}, { 3.9453957640962296`*^9, 3.945395764218237*^9}, 3.9453957988763103`*^9, 3.94539687756818*^9},ExpressionUUID->"ccce9606-484f-b548-a43c-\ dc1bfc9f7ec3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["DISPLACEMENT ANALYSIS (week 3)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.66182190592431*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.685876411703644*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.69079328920778*^9, 3.753071235456575*^9, 3.7866746400333786`*^9},ExpressionUUID->"412ad72e-a677-b540-b0a0-\ 4e587654952c"], Cell[CellGroupData[{ Cell["Lecture example 2.1 (bar)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.787624831636009*^9, 3.787624839161375*^9}, 3.819515906084639*^9},ExpressionUUID->"3a20cfd7-abd2-0545-8fc8-\ 80911e4b1908"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.442646589285642*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759203`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.690793541912627*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.81951574949915*^9, 3.819515754203024*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"2941f191-754a-ed45-8d6b-0862561c90b4"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.2 (beam truss)", "Subsubsection", CellChangeTimes->{ 3.4734694944314*^9, 3.599224766420371*^9, 3.686233709964648*^9, 3.686290219307787*^9, {3.686290301227902*^9, 3.686290301967902*^9}, { 3.6863951855946074`*^9, 3.686395186494609*^9}, {3.6864635001634054`*^9, 3.6864635018334074`*^9}, {3.692021469465041*^9, 3.692021471095044*^9}, 3.787624846976976*^9, 3.819515911959202*^9},ExpressionUUID->"b56eb4cf-423e-a742-83d3-\ 78b1c523c0ea"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "f"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.62978336224795*^9, 3.6297833821535845`*^9}, {3.629783466362533*^9, 3.629783471978543*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.62978400545268*^9, 3.62978400563988*^9}, {3.629784041629145*^9, 3.629784042237544*^9}, { 3.629784285878772*^9, 3.629784299357196*^9}, {3.629784645038203*^9, 3.6297846906682825`*^9}, {3.6297850092208424`*^9, 3.629785101651005*^9}, { 3.629785975190139*^9, 3.629786017294613*^9}, {3.629786068306703*^9, 3.6297860840939302`*^9}, {3.629786362148819*^9, 3.6297864363425493`*^9}, { 3.629786900072529*^9, 3.629786945484209*^9}, 3.629786990225087*^9, { 3.629787120366516*^9, 3.6297871260449266`*^9}, {3.629787266780774*^9, 3.629787391144192*^9}, {3.629787459706314*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.629788565935456*^9, 3.629788575529473*^9}, {3.629789227875819*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.629789333285203*^9}, { 3.629791455653332*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.629870255964194*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.630658602728892*^9}, { 3.630658768962784*^9, 3.630658991185174*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.630673485449588*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.630675282296249*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.630675469236941*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.630675737496383*^9}, {3.630675897804008*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.685252345393893*^9, 3.68525240748398*^9}, {3.685252549068148*^9, 3.685252567028177*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.685271461053181*^9, 3.685271466233188*^9}, { 3.685340224314878*^9, 3.685340242554904*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, 3.686395242074687*^9, { 3.686659082190265*^9, 3.686659133750337*^9}, {3.686659210920446*^9, 3.6866592825905457`*^9}, 3.686659319650598*^9, 3.692021466075037*^9, { 3.6920215028250885`*^9, 3.6920215243751183`*^9}, {3.692021558445167*^9, 3.692021647645292*^9}, 3.692021691165352*^9, {3.752975656227773*^9, 3.752975673716866*^9}, {3.819523472816743*^9, 3.819523475913159*^9}, { 3.8197802724004292`*^9, 3.819780276349952*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"77700759-7a19-1a48-be8a-fe48c92ae9dc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.7876248508872967`*^9, 3.8195159139209347`*^9},ExpressionUUID->"140cb21b-fdfd-544c-9e97-\ bad2cad3a4e6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, {3.753006222114415*^9, 3.753006264963928*^9}, { 3.787625003286798*^9, 3.78762500483702*^9}, 3.819780438938782*^9}, CellLabel->"In[13]:=",ExpressionUUID->"cd2769f4-5868-3842-8605-7b33cc4318e5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.4 (beam)", "Subsubsection", CellChangeTimes->{ 3.4734694944314*^9, 3.599224766420371*^9, 3.686233709964648*^9, 3.686290219307787*^9, {3.686290301227902*^9, 3.686290301967902*^9}, { 3.686377587511134*^9, 3.686377589931137*^9}, 3.6864635125734224`*^9, { 3.6920273329210854`*^9, 3.692027334031087*^9}, {3.787624857073228*^9, 3.787624858265213*^9}, 3.819515917947086*^9},ExpressionUUID->"0ca25a2c-88e2-5644-a76d-\ 08ec84787534"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ "A", ",", "\[CapitalIota]yy", ",", "\[CapitalIota]zz", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.62978336224795*^9, 3.6297833821535845`*^9}, {3.629783466362533*^9, 3.629783471978543*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.62978400545268*^9, 3.62978400563988*^9}, {3.629784041629145*^9, 3.629784042237544*^9}, { 3.629784285878772*^9, 3.629784299357196*^9}, {3.629784645038203*^9, 3.6297846906682825`*^9}, {3.6297850092208424`*^9, 3.629785101651005*^9}, { 3.629785975190139*^9, 3.629786017294613*^9}, {3.629786068306703*^9, 3.6297860840939302`*^9}, {3.629786362148819*^9, 3.6297864363425493`*^9}, { 3.629786900072529*^9, 3.629786945484209*^9}, 3.629786990225087*^9, { 3.629787120366516*^9, 3.6297871260449266`*^9}, {3.629787266780774*^9, 3.629787391144192*^9}, {3.629787459706314*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.629788565935456*^9, 3.629788575529473*^9}, {3.629789227875819*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.629789333285203*^9}, { 3.629791455653332*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.629870255964194*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.630658602728892*^9}, { 3.630658768962784*^9, 3.630658991185174*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.630673485449588*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.630675282296249*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.630675469236941*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.630675737496383*^9}, {3.630675897804008*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.685252345393893*^9, 3.68525240748398*^9}, {3.685252549068148*^9, 3.685252567028177*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.685271461053181*^9, 3.685271466233188*^9}, { 3.685340224314878*^9, 3.685340242554904*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, {3.686377605391159*^9, 3.6863776382012053`*^9}, {3.686379134233299*^9, 3.6863791914533796`*^9}, { 3.692059670428982*^9, 3.692059704899029*^9}, {3.723798411849661*^9, 3.723798434904174*^9}, {3.723798791899322*^9, 3.7237987936592455`*^9}, { 3.723799349340538*^9, 3.723799350506401*^9}, 3.753006485592584*^9, { 3.75300740903244*^9, 3.7530074156090126`*^9}, {3.8197805328576946`*^9, 3.8197805360133047`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"447cf9e3-ba4c-d841-8d94-a7c9122fd169"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.5 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.473469503105*^9, {3.599225885667139*^9, 3.599225887617143*^9}, { 3.686233649684563*^9, 3.686233650204564*^9}, 3.686290918768766*^9, 3.686291030808923*^9, {3.6863793069335413`*^9, 3.6863793075335417`*^9}, 3.686463514823425*^9, {3.6920597199190507`*^9, 3.692059720879052*^9}, { 3.692059925419338*^9, 3.692059927729341*^9}, {3.787624862002798*^9, 3.7876248627953*^9}, 3.81951592114197*^9},ExpressionUUID->"7a2f6df1-6524-3f49-8020-\ 957585e09bab"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.442646954776645*^9, 3.442646959269444*^9}, { 3.630368423748622*^9, 3.630368519220789*^9}, {3.6303685521992474`*^9, 3.6303685620584645`*^9}, 3.6303705303858223`*^9, {3.685262281457055*^9, 3.685262388467205*^9}, {3.685262467037316*^9, 3.685262481977336*^9}, { 3.68526278509776*^9, 3.685262791257769*^9}, 3.685267202483945*^9, { 3.685271553953312*^9, 3.685271559193319*^9}, {3.685343078299064*^9, 3.685343089408699*^9}, 3.686379355343609*^9, {3.6863831012088532`*^9, 3.68638310635886*^9}, {3.686394209423241*^9, 3.686394266353321*^9}, 3.68760004884201*^9, {3.692059987549425*^9, 3.692060000999444*^9}, 3.692060112739601*^9, {3.692060203029727*^9, 3.692060219839751*^9}, { 3.723943463177676*^9, 3.723943469317417*^9}, {3.723943597251667*^9, 3.723943612704048*^9}, {3.724054731755507*^9, 3.724054735286746*^9}, { 3.753007457114498*^9, 3.75300757271215*^9}, {3.8197805851870413`*^9, 3.81978060109126*^9}, {3.8197811716809254`*^9, 3.8197811892458363`*^9}, { 3.8197812993773036`*^9, 3.819781344958915*^9}, {3.849338627434058*^9, 3.849338634162207*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"1b3bdd0a-768d-fa4a-8ebf-88f74d6a588c"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6a (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.755435763828392*^9, { 3.7876248662926164`*^9, 3.7876248671217155`*^9}, 3.819515922929814*^9},ExpressionUUID->"c59c805a-d435-5541-a252-\ e5fd525952c1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"block", " ", "to", " ", "localize", " ", "variables"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "val", ",", "w", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol", ",", "w0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox["x", "L"], " ", ")"}], "2"], RowBox[{"a", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], "*", RowBox[{"\[CapitalEpsilon]", "/", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["t", "3"], "12"], "E\[Sigma]"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}]}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wext", "[", "w_", "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "p"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], "+", RowBox[{"\[Delta]wext", "[", "w", "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{ StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], ",", RowBox[{"H", ">", "0"}]}], "}"}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", "=", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}]}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", " ", "//.", "val"}], " ", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4467277951594*^9, 3.4467279649186*^9}, 3.446728037053*^9, {3.4467281489206*^9, 3.4467281816806*^9}, { 3.4467282630708*^9, 3.4467282697788*^9}, 3.4467284401292*^9, { 3.574470787150603*^9, 3.5744707892254057`*^9}, {3.574470823030665*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.574470916303229*^9}, { 3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.574471033974235*^9}, 3.604299208289191*^9, {3.604299253819795*^9, 3.604299278050181*^9}, {3.604299318865515*^9, 3.6042993269519796`*^9}, { 3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427601*^9, 3.604305989248181*^9}, {3.604306056094299*^9, 3.604306314961153*^9}, { 3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, {3.604308992623457*^9, 3.604309008441884*^9}, { 3.6043109233452473`*^9, 3.604311002296986*^9}, {3.604311041094255*^9, 3.604311044713461*^9}, {3.604311077301918*^9, 3.604311301021912*^9}, 3.604311474057415*^9, {3.604311572431188*^9, 3.604311574973995*^9}, { 3.604311620541672*^9, 3.604311622413676*^9}, {3.604311654861735*^9, 3.604311738571479*^9}, {3.604311961932672*^9, 3.604311987984718*^9}, { 3.604312252108781*^9, 3.604312271562016*^9}, {3.604312318159297*^9, 3.604312461367549*^9}, {3.604312525982863*^9, 3.604312531801673*^9}, { 3.604312575060549*^9, 3.6043125754037495`*^9}, {3.604312772666098*^9, 3.604312785458118*^9}, {3.636082009030026*^9, 3.6360821021793537`*^9}, { 3.636082135359248*^9, 3.6360821994179153`*^9}, {3.6360822411353016`*^9, 3.636082308140134*^9}, {3.636082428925042*^9, 3.636082467283236*^9}, 3.636082772513695*^9, {3.636455026326277*^9, 3.636455043447257*^9}, 3.63645529332755*^9, 3.636455373217118*^9, {3.636455466633462*^9, 3.6364555214936*^9}, 3.6673026911198535`*^9, {3.688993360197467*^9, 3.688993409407536*^9}, {3.688993441347581*^9, 3.68899349791766*^9}, { 3.688998643522042*^9, 3.688998810972276*^9}, {3.689070158580252*^9, 3.6890701724702716`*^9}, {3.75186550410758*^9, 3.7518656604145575`*^9}, { 3.751865728032886*^9, 3.751865773303449*^9}, {3.751865812403625*^9, 3.7518658214955225`*^9}, {3.751865855237538*^9, 3.7518658598771863`*^9}, { 3.7518659717099*^9, 3.751866085179107*^9}, 3.751970256071211*^9, { 3.753762979087547*^9, 3.7537629902408724`*^9}, {3.753764460655489*^9, 3.753764491257679*^9}, {3.755352253831594*^9, 3.755352276164716*^9}, { 3.787485543690708*^9, 3.787485549161389*^9}, 3.787485623549152*^9, { 3.787486067951891*^9, 3.787486076053173*^9}, {3.787494602777807*^9, 3.7874946422828565`*^9}, {3.78749467607176*^9, 3.78749468646475*^9}, { 3.787535715793891*^9, 3.787535739520609*^9}, {3.787583561143423*^9, 3.78758356240777*^9}, {3.819515723763521*^9, 3.819515731584694*^9}, { 3.85063826104118*^9, 3.8506382622126656`*^9}, {3.85069882110884*^9, 3.850699020708857*^9}, {3.850790712020523*^9, 3.850790722706362*^9}, { 3.850790761779279*^9, 3.850790798616454*^9}, {3.850790863990443*^9, 3.85079088717745*^9}, {3.851132701102967*^9, 3.851132856682681*^9}, { 3.945740520186075*^9, 3.9457405247792263`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"48add26d-582e-534d-a833-9089376ddd92"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6b (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.787484770540332*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.787624902432246*^9}, 3.8195159245188584`*^9},ExpressionUUID->"4152460a-aef9-8543-ad41-\ 5ed15c7ef7b8"], 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]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "7", "]"}], "/.", "sol"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585377`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851132967713168*^9, 3.851132969332811*^9}, {3.9140365190689354`*^9, 3.914036598321518*^9}, {3.91403668302675*^9, 3.914036690858591*^9}, { 3.91411537678154*^9, 3.91411537932197*^9}, {3.9457405560106983`*^9, 3.9457406171822453`*^9}, {3.945740657855791*^9, 3.9457406581622887`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"234e3896-da69-364d-8544-c8b4b3071ed3"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6c (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403304`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787583842760546*^9, 3.787583846863057*^9}, {3.787624871323914*^9, 3.787624892334219*^9}, 3.819515926239003*^9},ExpressionUUID->"062780b4-5340-a64d-bb47-\ 697465fb60a0"], 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.002"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"MeshRegion", "[", RowBox[{"crd", ",", "nod"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.756443404858537*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.787583859418512*^9, {3.787584745638142*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, { 3.787626222566106*^9, 3.7876263421533413`*^9}, {3.787626618958929*^9, 3.787626769278859*^9}, {3.78762684083017*^9, 3.787626977343978*^9}, { 3.787627036414548*^9, 3.787627070893828*^9}, {3.787627116121263*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, { 3.787627439600284*^9, 3.78762754940958*^9}, {3.787627582858582*^9, 3.78762760510789*^9}, {3.787627643428895*^9, 3.787627945738302*^9}, { 3.787627998554865*^9, 3.7876280606848803`*^9}, {3.787628100992851*^9, 3.787628119386298*^9}, {3.787628305002683*^9, 3.787628320747191*^9}, { 3.787628360297442*^9, 3.787628369532871*^9}, {3.7876284743277445`*^9, 3.78762853794334*^9}, {3.787628585293813*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.787629511602801*^9, { 3.787629704647373*^9, 3.787629705628329*^9}, {3.787629738731262*^9, 3.787629757779501*^9}, 3.787629810670388*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.787629992849468*^9, {3.787650664761368*^9, 3.7876506804881225`*^9}, {3.787653344430348*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, 3.78765405058292*^9, { 3.78765411755648*^9, 3.7876541249132113`*^9}, {3.787654198335023*^9, 3.787654200402335*^9}, {3.787654259858419*^9, 3.787654273263777*^9}, { 3.787654576327304*^9, 3.787654600865675*^9}, {3.787654632137179*^9, 3.787654660777486*^9}, {3.849339047133091*^9, 3.84933905664736*^9}, { 3.850637993079445*^9, 3.8506380126114783`*^9}, {3.850638046294045*^9, 3.8506380669349008`*^9}, {3.850638100377042*^9, 3.85063810577764*^9}, { 3.8506382329360204`*^9, 3.850638238073007*^9}, 3.8507911757405424`*^9, { 3.850791329287785*^9, 3.8507913294289546`*^9}, {3.850791394259633*^9, 3.850791394433782*^9}, {3.850791437007037*^9, 3.8507914371461887`*^9}, { 3.850791661541446*^9, 3.85079166166672*^9}, {3.850791947541059*^9, 3.850791948524747*^9}, {3.91403696425935*^9, 3.9140369643849125`*^9}, { 3.914037007257742*^9, 3.914037007347155*^9}, {3.914037052151785*^9, 3.914037077662985*^9}, {3.914115294246872*^9, 3.914115302713714*^9}, { 3.9457407841809883`*^9, 3.945740784299547*^9}}, CellLabel-> "In[388]:=",ExpressionUUID->"deea5cb6-2b05-9b41-95c8-69e93698e459"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "condition", " ", "at", " ", "the", " ", "clamped", " ", "boundaries"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bnd2", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "2"}], "]"}]}], "]"}], "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bnd4", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "4"}], "]"}]}], "]"}], "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"Flatten", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "#", "]"}], "\[Rule]", "0"}]}], "}"}], "&"}], ",", RowBox[{"Join", "[", RowBox[{"bnd2", ",", "bnd4"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n", 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[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "solution"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "5", "]"}], " ", "/.", "sol"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "sol", "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.756443404858537*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.787583859418512*^9, {3.787584745638142*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, { 3.787626222566106*^9, 3.7876263421533413`*^9}, {3.787626618958929*^9, 3.787626769278859*^9}, {3.78762684083017*^9, 3.787626977343978*^9}, { 3.787627036414548*^9, 3.787627070893828*^9}, {3.787627116121263*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, { 3.787627439600284*^9, 3.78762754940958*^9}, {3.787627582858582*^9, 3.78762760510789*^9}, {3.787627643428895*^9, 3.787627945738302*^9}, { 3.787627998554865*^9, 3.7876280606848803`*^9}, {3.787628100992851*^9, 3.787628119386298*^9}, {3.787628305002683*^9, 3.787628320747191*^9}, { 3.787628360297442*^9, 3.787628369532871*^9}, {3.7876284743277445`*^9, 3.78762853794334*^9}, {3.787628585293813*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.787629511602801*^9, { 3.787629704647373*^9, 3.787629705628329*^9}, {3.787629738731262*^9, 3.787629757779501*^9}, 3.787629810670388*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.787629992849468*^9, {3.787650664761368*^9, 3.7876506804881225`*^9}, {3.787653344430348*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, {3.78765405058292*^9, 3.787654070902216*^9}, 3.787654213377517*^9, {3.787654285875464*^9, 3.787654287552429*^9}, {3.787654363512497*^9, 3.787654382879185*^9}, 3.78771085179297*^9, {3.84933901209382*^9, 3.849339018841712*^9}, { 3.850638127788494*^9, 3.850638129701925*^9}, {3.850638173389373*^9, 3.8506381744526567`*^9}, {3.850791086419498*^9, 3.850791100119047*^9}, { 3.850791460607442*^9, 3.8507914660338907`*^9}, {3.914036857456402*^9, 3.914036903584659*^9}, {3.914036933629257*^9, 3.914036943956938*^9}, { 3.914036983562092*^9, 3.9140369910654297`*^9}}, CellLabel-> "In[394]:=",ExpressionUUID->"24d7eeae-0a24-1146-b654-a845d77ac627"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (bar truss)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.5674300455873165`*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, {3.686462478831975*^9, 3.6864624804619775`*^9}, {3.692004483813607*^9, 3.692004508753642*^9}, 3.787624916590842*^9},ExpressionUUID->"5c5271d1-0c41-7042-b99c-\ 91f02de5881d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.686462484531983*^9, 3.686462628752185*^9}, {3.6864627547623615`*^9, 3.686462780662398*^9}, 3.687600063012029*^9, {3.692004516933654*^9, 3.69200472173394*^9}, {3.7238001148135943`*^9, 3.72380011594358*^9}, { 3.7552812833582325`*^9, 3.755281465277815*^9}, {3.755281499276145*^9, 3.755281574314885*^9}, {3.819777247860895*^9, 3.819777263728089*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"875762d8-9370-484f-a380-38edd0e78ab6"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam structure)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.567430045587318*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, 3.686463173752948*^9, 3.692004488803614*^9, {3.692004765984002*^9, 3.6920047817840242`*^9}, 3.7876249198908176`*^9},ExpressionUUID->"5c45dced-e16a-4f48-b0bc-\ 0721270f9f31"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, 3.6876000739430437`*^9, {3.69200479275404*^9, 3.6920050211343594`*^9}, { 3.723800088983532*^9, 3.723800090369502*^9}, {3.755281662771347*^9, 3.755281668907722*^9}, {3.819777312265813*^9, 3.8197773157181125`*^9}, { 3.819781904225833*^9, 3.819781980419295*^9}, {3.819782020668747*^9, 3.819782026383217*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"49b52746-4624-724a-a60b-aa6904485961"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, 3.567430048036519*^9, {3.567430197047981*^9, 3.567430205846396*^9}, { 3.5992247831280007`*^9, 3.599224789570812*^9}, {3.686233716864658*^9, 3.6862337397746897`*^9}, {3.68629059311831*^9, 3.6862906012683215`*^9}, 3.692004491293617*^9, {3.692005080664443*^9, 3.692005087424453*^9}, 3.78762492757936*^9},ExpressionUUID->"b8d77b38-d068-164b-bf0b-\ 8f18363e53bc"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.567430226922035*^9, 3.567430240790459*^9}, {3.567488739432561*^9, 3.567488848804353*^9}, { 3.567489228738623*^9, 3.5674892390034404`*^9}, {3.62978936549926*^9, 3.629789551950788*^9}, {3.629790193501915*^9, 3.62979028126767*^9}, { 3.629791512889832*^9, 3.62979152889546*^9}, 3.629791607815998*^9, { 3.629870491103406*^9, 3.629870525875867*^9}, {3.630569827149594*^9, 3.630569846992729*^9}, {3.630570058718839*^9, 3.630570068503399*^9}, 3.6305701178622217`*^9, {3.630570274365174*^9, 3.630570286132846*^9}, { 3.630588429326602*^9, 3.6305884379378176`*^9}, {3.630588892460216*^9, 3.6305889218974676`*^9}, {3.6305890060752153`*^9, 3.630589009351221*^9}, { 3.630589067086923*^9, 3.630589069551728*^9}, {3.685260934525169*^9, 3.6852609544951973`*^9}, {3.685260985325241*^9, 3.685261056135341*^9}, { 3.6852611137454205`*^9, 3.685261294805674*^9}, 3.685261943976583*^9, 3.685267231203985*^9, {3.6852714918932247`*^9, 3.6852714982332335`*^9}, { 3.685341844218479*^9, 3.685341907732112*^9}, {3.685876041473126*^9, 3.6858760505831385`*^9}, 3.686290656018399*^9, {3.686290701298462*^9, 3.6862907191684866`*^9}, 3.6876000892040653`*^9, {3.692005099424469*^9, 3.692005126334507*^9}, {3.692005295634743*^9, 3.692005364734839*^9}, { 3.6920073658081074`*^9, 3.692007368868112*^9}, {3.755281747342649*^9, 3.7552817544032793`*^9}, {3.8197773382954226`*^9, 3.819777342270657*^9}, 3.8197821573500376`*^9}, CellLabel-> "In[115]:=",ExpressionUUID->"fac9cf72-403b-8e4e-99a6-3e0dfcfdb027"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam truss)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, {3.473061742094*^9, 3.473061762285*^9}, 3.567430050922524*^9, {3.567431829809649*^9, 3.56743183009045*^9}, { 3.567431908886188*^9, 3.567431917965404*^9}, {3.599224811863251*^9, 3.599224812268852*^9}, 3.686290397238036*^9, {3.68646345367334*^9, 3.6864634569533443`*^9}, 3.6864663436772566`*^9, {3.686650112822079*^9, 3.6866501251020966`*^9}, {3.692007265767968*^9, 3.692007266607969*^9}, { 3.723800212618948*^9, 3.723800221804382*^9}, 3.787624930628697*^9},ExpressionUUID->"d02e711e-8378-6640-83bf-\ d80016988bb7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4730617731*^9, 3.567431929993025*^9, { 3.567431974016302*^9, 3.5674320810480905`*^9}, {3.567489090990381*^9, 3.567489159552501*^9}, {3.629790618836662*^9, 3.629790760937312*^9}, 3.629790820435816*^9, 3.629791112530729*^9, {3.629791153356*^9, 3.629791155321604*^9}, {3.629791373097986*^9, 3.629791381459601*^9}, { 3.630553231368241*^9, 3.6305532595738544`*^9}, {3.685261672976204*^9, 3.685261743386302*^9}, {3.68526183461643*^9, 3.6852619078265347`*^9}, 3.685262033236707*^9, {3.68526207754677*^9, 3.685262079426772*^9}, 3.6852672173839655`*^9, {3.6852715282732754`*^9, 3.685271533543282*^9}, { 3.685346747734944*^9, 3.685346764006874*^9}, 3.687600229404261*^9, 3.6920072921580048`*^9, {3.6920172043090706`*^9, 3.692017263929154*^9}, { 3.692017430049386*^9, 3.692017460239428*^9}, {3.692017504419491*^9, 3.692017581889599*^9}, {3.7238003598908434`*^9, 3.72380039128267*^9}, { 3.755281842923458*^9, 3.755281878876894*^9}, 3.7552820401590757`*^9, { 3.755282088789769*^9, 3.7552820920530305`*^9}, {3.819782282769621*^9, 3.819782296979185*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"cd855572-b77f-564e-9e3c-22b1dacf1fa0"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, 3.787624933146837*^9},ExpressionUUID->"4dcac30f-9644-0a4c-b456-\ 8153658cb62f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.819782394768776*^9, 3.819782395299322*^9}, { 3.850699113589163*^9, 3.850699114830697*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"1a3f835b-ac03-2642-baad-9940408f1849"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.5674300455873165`*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, 3.6862904664481325`*^9, 3.686458624014577*^9, 3.686463177452954*^9, {3.686463277853094*^9, 3.686463284393102*^9}, 3.692004496313625*^9, {3.6920057803254223`*^9, 3.692005780945423*^9}, 3.723800228134458*^9, 3.787624935467222*^9},ExpressionUUID->"4f7428d6-cc4a-cd48-8836-\ 6b8a404cb771"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"m", " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.6862904953181734`*^9, 3.6862905374482317`*^9}, 3.687600158424163*^9, { 3.692005777055418*^9, 3.6920058190554767`*^9}, {3.692007331208059*^9, 3.69200733928807*^9}, {3.723800525178776*^9, 3.7238005261261005`*^9}, { 3.755282243395219*^9, 3.755282245406639*^9}, {3.755282315713289*^9, 3.755282333070498*^9}, {3.81977742531068*^9, 3.8197774297587566`*^9}, { 3.819782480155594*^9, 3.819782595987687*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"095055e6-9015-094d-bc41-d90d54eb0e97"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.692004498783628*^9, { 3.692006070175828*^9, 3.692006073605833*^9}, 3.72380023043182*^9, 3.787624938042087*^9},ExpressionUUID->"16682a47-8021-2d48-8ecc-\ d076e4743662"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", " ", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"p", " ", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.692006063845819*^9, 3.692006215986033*^9}, { 3.692006278026119*^9, 3.692006360616235*^9}, {3.72380056109401*^9, 3.723800562397469*^9}, {3.755282537168726*^9, 3.755282773413573*^9}, { 3.755283052582584*^9, 3.755283052984254*^9}, {3.819778134314925*^9, 3.819778134798916*^9}, {3.819778172830922*^9, 3.819778178063283*^9}, { 3.819778263451173*^9, 3.8197782788524485`*^9}, {3.819782701677379*^9, 3.8197828017916217`*^9}, {3.8506991448914785`*^9, 3.850699152453859*^9}, { 3.914037366243889*^9, 3.9140373804521065`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"929d22c7-d69c-054f-b39e-82c732d298ce"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.723800751264373*^9, 3.723800756977186*^9}, 3.787624940487248*^9},ExpressionUUID->"9462c346-e1a6-3340-9473-\ ad2e8240f0d6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.686650165202153*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, 3.723800734382908*^9, {3.723801165592532*^9, 3.72380116701786*^9}, {3.755346276432062*^9, 3.755346282581628*^9}, { 3.819782887020639*^9, 3.8197829001345263`*^9}, {3.850699178533646*^9, 3.850699180254986*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"0fb97799-9218-c54b-a86b-bbfe7871f9c3"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (structure)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686463534413453*^9, 3.692004501493633*^9, {3.723800620598589*^9, 3.723800620691759*^9}, {3.723801233232855*^9, 3.7238012573010836`*^9}, 3.787624943642918*^9},ExpressionUUID->"a6ef3c99-2399-5042-9ac2-\ 536b6ee50115"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.6920064252563243`*^9, 3.692006513386449*^9}, {3.692007015637617*^9, 3.69200708896772*^9}, {3.755346344589837*^9, 3.755346363639088*^9}, { 3.819782973965758*^9, 3.8197829746637726`*^9}, {3.850699199483954*^9, 3.850699210218806*^9}, {3.9140374252634287`*^9, 3.91403743362931*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"c8a72e95-23a8-fd4a-93e9-16e643161698"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate bending mode)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.75535162028418*^9, 3.755351621212493*^9}, 3.755438873215465*^9, { 3.755438925281444*^9, 3.75543892920196*^9}, 3.755438960659221*^9, 3.787624948518618*^9, 3.7877081438848276`*^9, 3.7877106066678777`*^9, 3.9457412652525787`*^9, 3.945741320954569*^9},ExpressionUUID->"e358c892-1b34-5649-a883-\ ad6c1514711a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]W", ",", "\[CapitalOmega]", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", FractionBox["y", "L"]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], "]"}], " ", "F"}]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, 3.755346424741544*^9, {3.7553464606567307`*^9, 3.755346499889244*^9}, { 3.7553465641565332`*^9, 3.7553465866992493`*^9}, 3.755352181219705*^9, { 3.8197830540070057`*^9, 3.819783114655628*^9}, {3.819783147386803*^9, 3.819783172063084*^9}, {3.8197928508538337`*^9, 3.819792907159875*^9}, { 3.850699232073991*^9, 3.850699376103595*^9}, {3.8511331557648935`*^9, 3.851133177216421*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"674b624e-bd7c-f144-9ea8-179db12a24d0"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar structure)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, { 3.7553481278960447`*^9, 3.75534813971142*^9}, {3.755351432742616*^9, 3.75535143857418*^9}, {3.881205298470283*^9, 3.881205300914299*^9}},ExpressionUUID->"73452f71-cef5-9e44-9f99-\ 9a474b6e2e4a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", RowBox[{"P", "/", "L"}]}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "P"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.755351451611568*^9, 3.755351510181407*^9}, {3.755351564011986*^9, 3.7553515656706686`*^9}, {3.787709262831045*^9, 3.78770926747865*^9}, { 3.8197897248576317`*^9, 3.81978972525374*^9}, {3.81979129812329*^9, 3.819791303703355*^9}, 3.819791338734643*^9, {3.850699536859164*^9, 3.85069953805099*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"0aa73f20-4e1a-6f44-8751-c90558c57bcd"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar element)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, { 3.7553481278960447`*^9, 3.75534813971142*^9}, {3.88120530305619*^9, 3.881205305352699*^9}},ExpressionUUID->"61e34ba6-b14c-c545-9b5a-\ 9d02caddf881"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.81985560583586*^9, 3.81985560715914*^9}, 3.819855639149332*^9, { 3.8506995593066325`*^9, 3.850699559924745*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"e2f41d25-0c59-e747-9e01-f5c4bf499e03"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, 3.567430048036519*^9, {3.567430197047981*^9, 3.567430205846396*^9}, { 3.5992247831280007`*^9, 3.599224789570812*^9}, {3.686233716864658*^9, 3.6862337397746897`*^9}, {3.68629059311831*^9, 3.6862906012683215`*^9}, 3.692004491293617*^9, {3.692005080664443*^9, 3.692005087424453*^9}, { 3.7238016457050695`*^9, 3.72380164857003*^9}, {3.755346653452105*^9, 3.755346654634207*^9}, {3.8812052612268715`*^9, 3.8812052765856037`*^9}},ExpressionUUID->"ff7cea05-24d7-e94d-9a0e-\ 2d091cd48c34"], 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[{"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[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "L"}], " ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.567430226922035*^9, 3.567430240790459*^9}, {3.567488739432561*^9, 3.567488848804353*^9}, { 3.567489228738623*^9, 3.5674892390034404`*^9}, {3.62978936549926*^9, 3.629789551950788*^9}, {3.629790193501915*^9, 3.62979028126767*^9}, { 3.629791512889832*^9, 3.62979152889546*^9}, 3.629791607815998*^9, { 3.629870491103406*^9, 3.629870525875867*^9}, {3.630569827149594*^9, 3.630569846992729*^9}, {3.630570058718839*^9, 3.630570068503399*^9}, 3.6305701178622217`*^9, {3.630570274365174*^9, 3.630570286132846*^9}, { 3.630588429326602*^9, 3.6305884379378176`*^9}, {3.630588892460216*^9, 3.6305889218974676`*^9}, {3.6305890060752153`*^9, 3.630589009351221*^9}, { 3.630589067086923*^9, 3.630589069551728*^9}, {3.685260934525169*^9, 3.6852609544951973`*^9}, {3.685260985325241*^9, 3.685261056135341*^9}, { 3.6852611137454205`*^9, 3.685261294805674*^9}, 3.685261943976583*^9, 3.685267231203985*^9, {3.6852714918932247`*^9, 3.6852714982332335`*^9}, { 3.685341844218479*^9, 3.685341907732112*^9}, {3.685876041473126*^9, 3.6858760505831385`*^9}, 3.686290656018399*^9, {3.686290701298462*^9, 3.6862907191684866`*^9}, 3.6876000892040653`*^9, {3.692005099424469*^9, 3.692005126334507*^9}, {3.692005295634743*^9, 3.692005364734839*^9}, { 3.6920073658081074`*^9, 3.692007368868112*^9}, {3.723801696129915*^9, 3.723801805136783*^9}, {3.755346661138646*^9, 3.7553468118982153`*^9}, { 3.75534710857136*^9, 3.755347166185311*^9}, {3.787637090745477*^9, 3.787637216549518*^9}, {3.819783343573612*^9, 3.819783424599503*^9}, { 3.9457416540084057`*^9, 3.945741815106104*^9}, {3.945741864123169*^9, 3.945741866450941*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"1f435368-3e16-4849-bb1d-529a03f9845a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam structure)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.7238019986456356`*^9, 3.723802005404753*^9}, { 3.755347238509882*^9, 3.755347246000849*^9}, {3.881205268160168*^9, 3.8812052792203903`*^9}},ExpressionUUID->"797da4af-b50a-524e-9f22-\ 7d83cffc05c8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.686650165202153*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.7238020220566053`*^9, 3.723802033852277*^9}, { 3.7238020769072275`*^9, 3.723802128986509*^9}, {3.7238021621517096`*^9, 3.723802245010724*^9}, {3.723802283265064*^9, 3.723802336595177*^9}, 3.723802402136009*^9, 3.723802432333054*^9, {3.755347265559884*^9, 3.7553473060631647`*^9}, {3.755347343708659*^9, 3.755347428680601*^9}, { 3.787638865656962*^9, 3.787638869316835*^9}, {3.819788782147968*^9, 3.819788782738602*^9}, {3.850699406492807*^9, 3.850699411807452*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"f67d5bbc-cf80-da49-a07a-b0fb18cb5ab6"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (plate bending)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.723802446254207*^9, 3.723802463707958*^9}, { 3.7553474763676414`*^9, 3.75534748379393*^9}, {3.787633609669371*^9, 3.787633614740041*^9}, {3.881205282037093*^9, 3.881205287078536*^9}},ExpressionUUID->"d93dbbf3-60ce-3a42-861c-\ 236403f7debe"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"R", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["F", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "->", "0"}], ",", RowBox[{"y", "->", "0"}]}], "}"}]}], ")"}]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.686650165202153*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.723802484790901*^9, 3.723802499197665*^9}, { 3.7238025319830265`*^9, 3.723802564716956*^9}, {3.723802608386079*^9, 3.723802674992315*^9}, {3.723802720756008*^9, 3.723802818918144*^9}, { 3.723802858515747*^9, 3.723802861259667*^9}, {3.755347519931821*^9, 3.755347550666892*^9}, {3.755347600502432*^9, 3.7553476976960354`*^9}, { 3.7876336452513876`*^9, 3.787633782499028*^9}, {3.819788880883937*^9, 3.819788998621375*^9}, {3.819789154036225*^9, 3.819789200160994*^9}, { 3.819789231642615*^9, 3.81978927602325*^9}, {3.819789326683582*^9, 3.8197893816473036`*^9}, {3.819789441296125*^9, 3.819789469001286*^9}, { 3.8197895293743763`*^9, 3.8197896174515867`*^9}, {3.850699429169247*^9, 3.850699501883779*^9}, {3.851133304879807*^9, 3.851133328802708*^9}, { 3.882588311058855*^9, 3.882588472972661*^9}, {3.8825886030413275`*^9, 3.882588624616124*^9}, {3.8825886648654957`*^9, 3.882588714089068*^9}}, CellLabel-> "In[388]:=",ExpressionUUID->"ea4af5cb-c8cd-a04f-83da-0d3e651d8645"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIBRATION ANALYSIS (week 4)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4932789338394*^9, 3.493278944697*^9}, 3.493306237067601*^9, { 3.493870833212584*^9, 3.493870838516244*^9}, {3.5566240340051107`*^9, 3.556624040463522*^9}, 3.619407916962384*^9, {3.6924123022392583`*^9, 3.692412310189269*^9}, 3.753071243176319*^9, 3.78667464222047*^9},ExpressionUUID->"d6d02511-0275-a94d-b6ac-\ 8bccccb64d31"], Cell[CellGroupData[{ Cell["Lecture example 3.1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242746`*^9}, {3.787803673092881*^9, 3.787803679378704*^9}, 3.82002459370605*^9},ExpressionUUID->"d62094fd-aa45-8949-838c-\ 47f5cfee1c15"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalOmega]2", "=", RowBox[{"(", GridBox[{ {"3", RowBox[{ RowBox[{"-", "1"}], "/", "3"}]}, { RowBox[{"-", "3"}], "3"} }], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "\[CapitalOmega]2", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Sqrt", "[", "val", "]"}]}]}], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.72448682200508*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.724486949659159*^9}, {3.724486989272713*^9, 3.7244870143222284`*^9}, { 3.724490936279661*^9, 3.724491010626911*^9}, {3.724491047177368*^9, 3.724491106948316*^9}, {3.724495033934505*^9, 3.7244950625113554`*^9}, { 3.85139370048866*^9, 3.8513937647740607`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"86b72a4c-51cb-d343-85a4-1cbe4a385b23"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.2 (ode)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242756`*^9}, {3.692855267934506*^9, 3.692855272014512*^9}, 3.787803686654455*^9, 3.820024595889677*^9},ExpressionUUID->"d38ea566-d096-ef4e-9ebc-\ a9cce74af44c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MM", "=", RowBox[{"m", RowBox[{"(", GridBox[{ {"0", "1"}, {"1", "0"} }], ")"}]}]}], ";", " ", RowBox[{"KK", "=", RowBox[{"k", RowBox[{"(", GridBox[{ { RowBox[{"-", "1"}], "1"}, {"1", RowBox[{"-", "1"}]} }], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", "val", "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.6928553102645617`*^9, 3.692855394424683*^9}, {3.851393780093685*^9, 3.851393872788854*^9}, {3.8513939134173965`*^9, 3.851393942741399*^9}, 3.883443268244711*^9}, CellLabel->"In[11]:=",ExpressionUUID->"5313e4a1-321e-424d-82d5-482462d2773d"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.3 (bar structure)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616558180996*^9}, 3.787803700161643*^9, 3.820024597714839*^9},ExpressionUUID->"80e9f849-c812-b141-817c-\ 29e3db4603c0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, { 3.6926777445380497`*^9, 3.69267776592808*^9}, {3.6926948008051434`*^9, 3.69269481310516*^9}, {3.6926949183153076`*^9, 3.6926949195553093`*^9}, { 3.6928546233135996`*^9, 3.6928546243636017`*^9}, {3.692854687563693*^9, 3.6928548011538525`*^9}, {3.692854847613918*^9, 3.6928548503039217`*^9}, { 3.69285492225402*^9, 3.692854923784023*^9}, {3.692855453534766*^9, 3.692855477104799*^9}, {3.756618747609501*^9, 3.7566188279765987`*^9}, { 3.7566188619999294`*^9, 3.756618981627329*^9}, {3.756619574245274*^9, 3.7566195805721426`*^9}, {3.756619612517589*^9, 3.756619616079483*^9}, { 3.7566197161185665`*^9, 3.756619733973471*^9}, {3.7882441687016416`*^9, 3.788244211754738*^9}, {3.788244272436096*^9, 3.78824427308834*^9}, 3.788244403420265*^9, {3.820025067066265*^9, 3.820025096859448*^9}, { 3.820025153417162*^9, 3.820025155783327*^9}, {3.850794221377445*^9, 3.8507942337721004`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"96b7a50f-9d6a-744d-bc1f-d9792387b037"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.4 (bar truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.7557191504411116`*^9, 3.7878037030530243`*^9, 3.7882445751277742`*^9, 3.8200245994156294`*^9},ExpressionUUID->"6e60def8-e392-cb4f-a722-\ 85ae783d971d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", OverscriptBox["U", "."]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448424`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.692855893315378*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.72429732021502*^9, 3.724297324409199*^9}, {3.724297387527439*^9, 3.724297390176303*^9}, {3.724297489356834*^9, 3.7242974986059*^9}, { 3.724297536463794*^9, 3.724297599229539*^9}, {3.724297724331859*^9, 3.7242977252218814`*^9}, {3.75307152810109*^9, 3.7530715577593584`*^9}, { 3.753071592776411*^9, 3.7530716192701263`*^9}, {3.753079890337639*^9, 3.753079910015238*^9}, {3.788077556292513*^9, 3.788077560461995*^9}, 3.788077612775126*^9, {3.82002517421471*^9, 3.820025200885493*^9}, 3.8204702417446294`*^9, {3.820470330146205*^9, 3.820470391166701*^9}, { 3.820470434077013*^9, 3.820470435462103*^9}, {3.820470474734195*^9, 3.820470531412328*^9}, {3.850796354640504*^9, 3.850796364032633*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"20f437c5-06a7-3a4a-98b8-c00e57ccf984"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Lecture example", StyleBox[" ", FontColor->GrayLevel[0]], "3.5 (solid)" }], "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.78780371289613*^9, 3.787803721386668*^9}, 3.820024601172648*^9},ExpressionUUID->"fecff752-853d-bf48-8d09-\ 24915bcb318a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.692695317325865*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.724303840459796*^9, 3.724303841561829*^9}, {3.724303879564316*^9, 3.724303894223379*^9}, 3.7243039281242995`*^9, 3.724304089062259*^9, {3.724423222711531*^9, 3.724423243110194*^9}, 3.724423598723547*^9, {3.724463041661843*^9, 3.724463049647305*^9}, {3.7244630934956675`*^9, 3.7244632541685715`*^9}, { 3.72446356412341*^9, 3.724463638943798*^9}, {3.72446370987291*^9, 3.724463778130144*^9}, {3.724463812618352*^9, 3.724463883547698*^9}, { 3.724463917785564*^9, 3.7244640373763766`*^9}, {3.724464085350275*^9, 3.724464220520729*^9}, {3.724464316140095*^9, 3.724464324422034*^9}, { 3.724464381428324*^9, 3.724464454982666*^9}, {3.7244713771886415`*^9, 3.7244713848341866`*^9}, {3.724471420086172*^9, 3.724471422815348*^9}, { 3.724486692210102*^9, 3.7244866984451756`*^9}, {3.724555736695492*^9, 3.724555737789098*^9}, 3.724555838936*^9, 3.753072258430368*^9, { 3.755721147524676*^9, 3.755721172313273*^9}, 3.787894131266028*^9, 3.788077650022805*^9, {3.820025985576888*^9, 3.820025987333465*^9}, { 3.8200260200845194`*^9, 3.8200260249775887`*^9}, {3.820026116812697*^9, 3.820026130634335*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"edde57d8-4fc8-2e4a-8b01-15bb0aa01318"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.6 (beam)", "Subsubsection", CellChangeTimes->{ 3.493898298796033*^9, 3.557721748078542*^9, {3.692536423145355*^9, 3.692536450625394*^9}, {3.6926054332359257`*^9, 3.6926054525459566`*^9}, 3.69261651130093*^9, 3.692616585331034*^9, {3.755721309140517*^9, 3.755721316132911*^9}, {3.755722559939822*^9, 3.755722564665438*^9}, 3.78780372656058*^9, 3.820024603173844*^9, {3.820029883755011*^9, 3.8200299159157624`*^9}},ExpressionUUID->"2917428d-39b4-ed4b-9d7f-\ 384c93f316ab"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], " ", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938984436576324`*^9, 3.4938984505060325`*^9}, { 3.4939508930964003`*^9, 3.4939508993052*^9}, 3.5007186129984*^9, { 3.692536436605374*^9, 3.692536507425473*^9}, {3.6925365733255653`*^9, 3.69253658391558*^9}, {3.6925366551056795`*^9, 3.692536696275738*^9}, 3.692536781945857*^9, 3.692536825315918*^9, {3.6925369042360287`*^9, 3.692536960336108*^9}, {3.692537436846774*^9, 3.6925374748468275`*^9}, { 3.692537506446872*^9, 3.692537543896924*^9}, {3.6925384725244083`*^9, 3.692538507064457*^9}, {3.692538541444505*^9, 3.6925385532045217`*^9}, { 3.692538591154575*^9, 3.6925388837549844`*^9}, {3.692539113345305*^9, 3.6925391566234407`*^9}, {3.6925393311497364`*^9, 3.692539439369888*^9}, { 3.692539579530084*^9, 3.692539592770103*^9}, {3.692539800900394*^9, 3.692539874350497*^9}, {3.69254008407079*^9, 3.6925400981808105`*^9}, { 3.692540281981068*^9, 3.6925402985610905`*^9}, 3.692540330111135*^9, { 3.692540625661548*^9, 3.692540659601597*^9}, {3.692540713921673*^9, 3.692540842291852*^9}, {3.692540939781988*^9, 3.692540965192024*^9}, { 3.692541020762102*^9, 3.692541021512103*^9}, {3.6925410776721816`*^9, 3.692541095012206*^9}, {3.692542771504553*^9, 3.692542820804621*^9}, { 3.69259963100324*^9, 3.6925996373546033`*^9}, {3.692600739241358*^9, 3.69260087649155*^9}, 3.692601242522064*^9, 3.692601292102132*^9, { 3.6926014023522863`*^9, 3.692601430842326*^9}, {3.6926021565553417`*^9, 3.692602173695366*^9}, {3.692602818836269*^9, 3.69260281947627*^9}, { 3.692603523289254*^9, 3.692603523869256*^9}, 3.692603706969513*^9, { 3.692604877223151*^9, 3.692604895363177*^9}, {3.692605009033335*^9, 3.692605020963352*^9}, 3.692623323970467*^9, {3.692623397890571*^9, 3.692623415880596*^9}, {3.6926953498559113`*^9, 3.692695352475915*^9}, { 3.692702706197453*^9, 3.692702716667467*^9}, {3.692702815217605*^9, 3.692702828447624*^9}, {3.6927713388298225`*^9, 3.6927713433298283`*^9}, { 3.692858789939437*^9, 3.692858819149478*^9}, {3.724549846206141*^9, 3.724549943983004*^9}, {3.724550010823572*^9, 3.724550067544624*^9}, { 3.724557628664399*^9, 3.724557643852253*^9}, {3.724557692950014*^9, 3.724557709686152*^9}, {3.724557743595968*^9, 3.724557747868984*^9}, { 3.724557786013905*^9, 3.724557792611299*^9}, {3.7245578833218794`*^9, 3.7245578838691053`*^9}, {3.724558827336274*^9, 3.724558898176444*^9}, { 3.724558935228176*^9, 3.724558988552925*^9}, {3.724559339693288*^9, 3.724559376000408*^9}, {3.755722026667111*^9, 3.755722040084095*^9}, { 3.756798537284498*^9, 3.756798578243656*^9}, {3.756798669627799*^9, 3.7567986729551954`*^9}, {3.756798753405105*^9, 3.756798757013638*^9}, 3.8200270638226805`*^9, {3.820027800698624*^9, 3.820027802357981*^9}, { 3.850796567070136*^9, 3.8507965763999834`*^9}, {3.914724196108894*^9, 3.914724239084713*^9}, {3.914808979752441*^9, 3.914808994323759*^9}, { 3.914809049131389*^9, 3.914809075323383*^9}, {3.9148102953996143`*^9, 3.914810299772089*^9}, 3.914810888696478*^9}, CellLabel->"In[27]:=",ExpressionUUID->"b16f1bd9-afdc-0d4e-b5a0-ad358e72da8b"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.692859033309777*^9, 3.6928590340097756`*^9}, {3.755722529254018*^9, 3.75572255367753*^9}, 3.787803749802318*^9, 3.8200246120636396`*^9, {3.820029874369141*^9, 3.820029874901998*^9}},ExpressionUUID->"44c10090-82aa-b948-8e1e-\ 2c1d99fb6533"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.692859047249797*^9, 3.6928591207299*^9}, {3.724558341263359*^9, 3.7245583544585257`*^9}, {3.7245593962612076`*^9, 3.724559397823843*^9}, 3.787894208588889*^9, {3.8200286793925047`*^9, 3.8200286799010334`*^9}, { 3.8200287132036333`*^9, 3.820028715346983*^9}, {3.8518338780309815`*^9, 3.851833910613217*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"820f6c5e-ba77-e147-b46e-95bbdecab756"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.8 (beam and rigid body)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, 3.692859036409782*^9, 3.787803754681381*^9, 3.8200246140907764`*^9},ExpressionUUID->"ef7bbdf5-c11a-3342-9e93-\ b282012781a8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"m", " ", RowBox[{ RowBox[{"L", "^", "2"}], "/", "5"}], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.692699048081089*^9, 3.692699048901091*^9}, { 3.6926995790618324`*^9, 3.692699589401847*^9}, {3.6926996396619177`*^9, 3.69269965575194*^9}, {3.6926997301520443`*^9, 3.692699736682053*^9}, { 3.692858978739701*^9, 3.6928589854697056`*^9}, {3.692859254510087*^9, 3.692859294020142*^9}, {3.755722787395869*^9, 3.755722808123771*^9}, 3.7557231852619715`*^9, {3.755723220656005*^9, 3.755723263671439*^9}, { 3.755723435970131*^9, 3.755723458365805*^9}, 3.756001870205928*^9, { 3.788245381106416*^9, 3.7882453893709884`*^9}, {3.788245616548293*^9, 3.788245627763839*^9}, {3.820029466509404*^9, 3.82002949697728*^9}, { 3.8204708439732113`*^9, 3.820470844932032*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"66a77dec-d279-d445-9231-db01ab743bb2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9a (plate bending)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147644742329*^9, 3.724147660776068*^9}, { 3.724318554593711*^9, 3.724318567030655*^9}, {3.724318639035441*^9, 3.72431864778099*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.756168889253424*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9, {3.8514029661882205`*^9, 3.851402967215026*^9}, { 3.851404172035494*^9, 3.851404176827886*^9}, 3.882926811450559*^9},ExpressionUUID->"4998c72b-c7d6-664b-a997-\ 12de336e44e3"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"h", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"\[Rho]", "\[Rule]", "100"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W", ",", "equ", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "t", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"x", " "}], "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", " "}], "L"], ")"}], "2"]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"H", ">", "0"}]}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"equ", " ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"\[Delta]a", "[", "t", "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"f", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{"a", "[", "t", "]"}]}], "]"}], "/", RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{ SuperscriptBox["a", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f", "/.", "val"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, {3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, { 3.7243189720383396`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, { 3.724319254042012*^9, 3.724319356123252*^9}, {3.724319391282081*^9, 3.72431954051195*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, { 3.756167762169789*^9, 3.756167773023137*^9}, {3.75616841215146*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, {3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, {3.756168892902129*^9, 3.756168895433659*^9}, {3.75616897494083*^9, 3.756169048281694*^9}, { 3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, {3.7561693934476376`*^9, 3.756169399702859*^9}, { 3.820471718532618*^9, 3.820471721437819*^9}, {3.820471897247976*^9, 3.820472076545085*^9}, {3.820472129390857*^9, 3.82047229648011*^9}, { 3.820472329751877*^9, 3.820472814886578*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, {3.820472916718054*^9, 3.820472939308642*^9}, { 3.820472984885528*^9, 3.8204730343634863`*^9}, {3.8204730817979555`*^9, 3.820473114451143*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}, { 3.851402974205838*^9, 3.851403093026737*^9}, {3.851403138080176*^9, 3.851403172991445*^9}, {3.851403240832218*^9, 3.851403242746932*^9}, { 3.85140337932438*^9, 3.851403410529518*^9}, {3.85140347082749*^9, 3.85140347792332*^9}, {3.851403692532213*^9, 3.85140373493817*^9}, { 3.851403795084531*^9, 3.851403811863141*^9}, {3.851403847434928*^9, 3.8514039179686537`*^9}, {3.851403953359006*^9, 3.851404046096203*^9}, { 3.8514040929851227`*^9, 3.851404104212208*^9}, {3.851404207642264*^9, 3.8514042103962193`*^9}, {3.851404251408242*^9, 3.8514043054509754`*^9}, { 3.852171342323964*^9, 3.852171362537833*^9}, {3.8521722168961735`*^9, 3.852172217231166*^9}, 3.882926769654783*^9}, CellLabel->"In[39]:=",ExpressionUUID->"79e6d9ec-ad6f-b846-9fdb-5557722505b4"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9b (plate bending)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.787484770540332*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.787624902432246*^9}, 3.8195159245188584`*^9, {3.851404160604777*^9, 3.85140418663118*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.882926819367149*^9},ExpressionUUID->"d31880e0-1750-cf46-8d94-\ 6358329b63fb"], 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[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "5"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.756443404858537*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851404334099336*^9, 3.8514044427104735`*^9}, {3.85140448033487*^9, 3.851404528280829*^9}, {3.851404675799127*^9, 3.8514047382171335`*^9}, { 3.8514048639344797`*^9, 3.851405048797428*^9}, {3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.851407688703299*^9}, { 3.851407773017706*^9, 3.851407781195134*^9}, {3.851407884878668*^9, 3.851407886958976*^9}, {3.851407930628368*^9, 3.8514079496190023`*^9}, { 3.851408774043013*^9, 3.85140879767111*^9}, {3.851414393446686*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, { 3.851414604135325*^9, 3.8514146600460863`*^9}, {3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, { 3.851835458306039*^9, 3.851835462056913*^9}, {3.8518357385467224`*^9, 3.851835743411894*^9}, {3.852173361088862*^9, 3.852173361466459*^9}, { 3.852174390177535*^9, 3.852174390585162*^9}, {3.882924960308901*^9, 3.882925025061228*^9}, {3.8829250626334286`*^9, 3.882925072868449*^9}, { 3.882925271115169*^9, 3.882925278849551*^9}, {3.8829254194825335`*^9, 3.8829254221100664`*^9}, {3.882925467395959*^9, 3.882925470498024*^9}, { 3.882925512990931*^9, 3.882925529056815*^9}, {3.882925679726142*^9, 3.882925681729703*^9}, {3.8829266400699396`*^9, 3.882926640555963*^9}, { 3.8829266900308228`*^9, 3.882926690362383*^9}, {3.882926760767342*^9, 3.882926761097072*^9}, {3.914812868488554*^9, 3.914812879948671*^9}, { 3.914813011070423*^9, 3.9148130318837337`*^9}, {3.9148132160662537`*^9, 3.914813216865528*^9}, {3.914821027719108*^9, 3.9148210440900784`*^9}, { 3.9148210808318005`*^9, 3.9148210812668343`*^9}, {3.9148211656193466`*^9, 3.914821180821665*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"32c4e497-d27d-a84c-bdae-a7bb028b4895"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.7238984640156884`*^9, 3.7238984642268667`*^9}, {3.78780376721542*^9, 3.787803773959956*^9}},ExpressionUUID->"cc27216d-8ca4-f64c-9777-\ aac0bc03329f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"4", "0"}, { RowBox[{"-", "1"}], "1"} }], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "AA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"square", " ", "root", " ", "of", " ", "the", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SQRTA", "=", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"Sqrt", "[", "val", "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "SQRTA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix", " ", "again"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"SQRTA", ".", "SQRTA"}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.787989450252692*^9, 3.787989564120285*^9}, 3.787989599184903*^9, {3.8513953218783903`*^9, 3.851395338086149*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"a1a79b53-f314-b847-b288-783019b329ef"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (mass matrix)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770332958414*^9}, { 3.723898467783272*^9, 3.7238984690825796`*^9}, 3.788323982435176*^9},ExpressionUUID->"fe7abcf4-43cb-0943-9835-\ 2275ff1d8979"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", FractionBox["x", "h"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"]}], ",", " ", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"], " ", RowBox[{"(", " ", RowBox[{ FractionBox["x", "h"], "-", "1"}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"A", " ", "\[Rho]", " ", "h"}], "420"], RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"420", " ", "/", RowBox[{"(", RowBox[{"A", " ", "\[Rho]", " ", "h"}], ")"}]}], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"A", " ", "\[Rho]", " ", RowBox[{"Outer", "[", RowBox[{"Times", ",", "NN", ",", "NN"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9}, CellLabel->"In[57]:=",ExpressionUUID->"ffb9a09e-36d0-a245-bacf-e8b61bb17bc2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.558404692981371*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.692770778739039*^9}, { 3.7238984714976816`*^9, 3.723898472723172*^9}, 3.787803783214076*^9, { 3.8200299016182303`*^9, 3.820029908762121*^9}},ExpressionUUID->"a7d5ce3a-ff56-cb44-ae9d-\ c2c267294216"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.558404667864934*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.692770930049248*^9, 3.692770955389285*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.692771242659688*^9}, 3.692771357129848*^9, {3.694688152497208*^9, 3.694688172367236*^9}, { 3.694688206217283*^9, 3.69468822500731*^9}, {3.787990670100729*^9, 3.787990730568595*^9}, {3.788247494355724*^9, 3.78824751934991*^9}, { 3.788323884969909*^9, 3.788323899310143*^9}, {3.820029639027835*^9, 3.820029643030367*^9}, {3.8204711842343283`*^9, 3.82047118526092*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"a238a1fc-55cb-fb48-b6ec-be60d253dc21"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.558404692981371*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.692770778739039*^9}, 3.692771448509976*^9, {3.723898475265663*^9, 3.7238984765616097`*^9}, 3.7878037851088552`*^9},ExpressionUUID->"4eb58270-a31d-0746-9704-\ 7daf0790c472"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Notice", " ", "that", " ", "the", " ", "outcome", " ", "is", " ", "a", " ", "DAE"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.558404667864934*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.692770930049248*^9, 3.692770955389285*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.692771242659688*^9}, 3.692771357129848*^9, {3.692771480630021*^9, 3.692771506500057*^9}, { 3.692771639520243*^9, 3.692771640700245*^9}, {3.6927831457021666`*^9, 3.6927831608780346`*^9}, {3.692784340726518*^9, 3.692784341439559*^9}, { 3.692853611021569*^9, 3.692853615591575*^9}, {3.692853732211738*^9, 3.692853733971741*^9}, {3.692855043364188*^9, 3.692855061004216*^9}, { 3.7241471535011015`*^9, 3.72414718348577*^9}, {3.7561285637728353`*^9, 3.756128570544354*^9}, {3.7561286039354935`*^9, 3.7561286436098185`*^9}, { 3.788247754027643*^9, 3.7882477631278453`*^9}, 3.788323871033355*^9, { 3.8200296822958837`*^9, 3.8200296874979696`*^9}, {3.82047123032232*^9, 3.8204712313140793`*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"0c831dca-e338-1c4b-af90-11dbdc3a1185"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.692691217030125*^9, {3.724147332033448*^9, 3.724147341617281*^9}, 3.787803789591028*^9},ExpressionUUID->"893b8c10-e641-f74b-b6a6-\ a8957492bda6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{"1", "/", "5"}], " ", "m", " ", SuperscriptBox["L", "2"], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692691236800154*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, { 3.6928607128321285`*^9, 3.692860713632129*^9}, {3.692860762222198*^9, 3.692860774902216*^9}, {3.788247837339185*^9, 3.788247879734177*^9}, 3.788323863754079*^9, {3.82002974696036*^9, 3.820029763651271*^9}, { 3.820471421059429*^9, 3.8204714221072345`*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"78c78191-1f6e-1e41-904f-a1b558e511a9"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, {3.7238984792910604`*^9, 3.723898480878615*^9}, 3.724147396313452*^9, 3.787803791500831*^9, {3.8200298618306556`*^9, 3.820029864453811*^9}, {3.820029930033001*^9, 3.820029930658329*^9}},ExpressionUUID->"49775c60-63e1-a143-a0fe-\ e8cc9d6e0d37"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.724643750333593*^9, 3.724643767124245*^9}, {3.7246438175496655`*^9, 3.724643833455995*^9}, {3.724756528265935*^9, 3.724756535705496*^9}, 3.78832385530049*^9, {3.820029801163093*^9, 3.820029855655175*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"b0cb64cb-5ec4-664e-a542-8d911b94268e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147617138194*^9, 3.724147631820558*^9}, 3.7561657335722027`*^9, 3.787803793661124*^9},ExpressionUUID->"59424dbe-4c00-5e44-a74f-\ c14b2825be6f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Theta]Y2", " ", "=", " ", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "/.", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, {3.788248230022855*^9, 3.7882482592696548`*^9}, { 3.78824833634833*^9, 3.788248343272706*^9}, {3.8200299414032726`*^9, 3.820029943336417*^9}, {3.820029996475786*^9, 3.820030000803342*^9}, 3.820471517540506*^9}, CellLabel->"In[77]:=",ExpressionUUID->"f0b870ed-7670-174b-82b6-8fa35ede1540"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "2"}], ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692860961962478*^9, 3.692861003972536*^9}, { 3.692861119532698*^9, 3.6928611624827585`*^9}, 3.692861212462828*^9, { 3.788248269799512*^9, 3.78824829352197*^9}, {3.78824834932462*^9, 3.788248352056753*^9}, {3.820029955212651*^9, 3.820030007977022*^9}, 3.820471542695532*^9}, CellLabel->"In[81]:=",ExpressionUUID->"3a8144d3-0eb0-7946-b97e-91908ea04fcb"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.724552750965875*^9, 3.724552771340017*^9}, 3.7561657371136637`*^9, 3.787803796484321*^9, {3.820030036266352*^9, 3.820030041779605*^9}},ExpressionUUID->"70b1dd53-67de-604a-8004-\ 652d95a868c5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.6928600883112545`*^9, 3.692860095201264*^9}, {3.724510813340685*^9, 3.724510843923993*^9}, {3.724511089489906*^9, 3.724511136236665*^9}, { 3.7245111759684496`*^9, 3.724511180004063*^9}, {3.724511214282744*^9, 3.724511357099068*^9}, {3.72451139044884*^9, 3.724511390894336*^9}, { 3.724511435438853*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, {3.724511739941152*^9, 3.724511744483248*^9}, { 3.724511791958761*^9, 3.724511792442217*^9}, {3.724511945279776*^9, 3.7245119591135845`*^9}, {3.724512176870897*^9, 3.72451218423262*^9}, { 3.724512227324604*^9, 3.724512228468808*^9}, {3.724512261539966*^9, 3.724512272739452*^9}, {3.724512387480114*^9, 3.724512394482444*^9}, { 3.724512486447604*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.724512564259039*^9}, {3.724512686336095*^9, 3.724512686647025*^9}, { 3.724552398639561*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.724552490677614*^9}, {3.7245525335305943`*^9, 3.724552549337282*^9}, { 3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.724552701097404*^9}, {3.72455278275163*^9, 3.724552841959256*^9}, { 3.756129737744466*^9, 3.756129757650621*^9}, {3.756166282287259*^9, 3.756166283261844*^9}, {3.820030049104014*^9, 3.820030053912527*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"11e6a169-3341-d74f-92d2-1b49b0fbfb07"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (bar truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, {3.692860264491501*^9, 3.6928602694915085`*^9}, { 3.723898500282627*^9, 3.723898503824809*^9}, 3.724147406515576*^9, { 3.724147638325242*^9, 3.724147639726355*^9}, 3.7561673435357966`*^9, 3.787803799028024*^9},ExpressionUUID->"9aa43e1c-8081-e641-8410-\ 1acfee268cc7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", " ", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"U", " ", "=", " ", RowBox[{ RowBox[{"uZ", "[", "2", "]"}], " ", "/.", " ", "sol"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.692855510844842*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.692855893315378*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.692860293101541*^9, 3.6928603882816744`*^9}, {3.6928604508717623`*^9, 3.692860476661798*^9}, {3.756167401988189*^9, 3.756167413743063*^9}, { 3.756167458288184*^9, 3.7561674667464952`*^9}, {3.756167612300265*^9, 3.756167626175462*^9}, {3.788248557810114*^9, 3.788248586015726*^9}, { 3.8200300876828213`*^9, 3.820030094371929*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"2c5ba1c3-04e1-474d-8298-5eb4292b9587"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"STEP2", ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.692855510844842*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.692855893315378*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.692860293101541*^9, 3.692860442871751*^9}, {3.692860490661818*^9, 3.6928605008218317`*^9}, 3.724148526274141*^9, {3.7561674288237047`*^9, 3.756167432358683*^9}, {3.7561674878338723`*^9, 3.756167499857013*^9}, { 3.788248572061515*^9, 3.7882485780249004`*^9}, {3.820030106297032*^9, 3.820030112781686*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"7ae0d7f6-6012-6240-a5d3-88d6a9f17acd"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147644742329*^9, 3.724147660776068*^9}, { 3.724318554593711*^9, 3.724318567030655*^9}, {3.724318639035441*^9, 3.72431864778099*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.756168889253424*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9},ExpressionUUID->"d8c7d0b8-3e17-6248-bb59-\ 3d1cc154d344"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "U", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "wm", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "[", "t", "]"}], " ", "x", " ", RowBox[{"y", "/", SuperscriptBox["L", "2"]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "any_", "]"}], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Delta]a", "[", "any_", "]"}], "[", "t", "]"}], "\[Rule]", RowBox[{"\[Delta]a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"a", "[", "any_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "2"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[" ", "OperatorCharacter"], StyleBox["/.", "OperatorCharacter"], StyleBox["rule", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", "\[Delta]W"}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, {3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, { 3.7243189720383396`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, { 3.724319254042012*^9, 3.724319356123252*^9}, {3.724319391282081*^9, 3.72431954051195*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, { 3.756167762169789*^9, 3.756167773023137*^9}, {3.75616841215146*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, {3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, {3.756168892902129*^9, 3.756168895433659*^9}, {3.75616897494083*^9, 3.756169048281694*^9}, { 3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, {3.7561693934476376`*^9, 3.756169399702859*^9}, { 3.820471718532618*^9, 3.820471721437819*^9}, {3.820471897247976*^9, 3.820472076545085*^9}, {3.820472129390857*^9, 3.82047229648011*^9}, { 3.820472329751877*^9, 3.820472814886578*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, {3.820472916718054*^9, 3.820472939308642*^9}, { 3.820472984885528*^9, 3.8204730343634863`*^9}, {3.8204730817979555`*^9, 3.820473114451143*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}, { 3.914814462417311*^9, 3.914814464095634*^9}, {3.914814551268999*^9, 3.914814570545519*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"29ded0e6-07f8-a24b-b928-966c105e9845"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242756`*^9}, {3.7561697245665956`*^9, 3.756169731003918*^9}, {3.881205999464633*^9, 3.881206001858594*^9}},ExpressionUUID->"45f3eae2-347f-674a-a5a3-\ c785f2834f28"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"2", "1"}, {"1", "2"} }], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.72448682200508*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.724486949659159*^9}, {3.724486989272713*^9, 3.7244870143222284`*^9}, { 3.724490936279661*^9, 3.724491010626911*^9}, {3.724491047177368*^9, 3.724491106948316*^9}, {3.724495033934505*^9, 3.7244950625113554`*^9}, { 3.756169740366756*^9, 3.7561698534389057`*^9}, {3.756170216621559*^9, 3.756170222933326*^9}, {3.788153927974463*^9, 3.788153933243031*^9}, { 3.851396491623579*^9, 3.8513965092572613`*^9}, {3.883180256775795*^9, 3.883180283902807*^9}, {3.8831803326051817`*^9, 3.8831803648014402`*^9}, { 3.883181114227376*^9, 3.883181136456712*^9}, {3.883183131529642*^9, 3.883183131982475*^9}}, CellLabel-> "In[493]:=",ExpressionUUID->"3cb68cda-128e-5c4a-a8af-17685a73e59b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242756`*^9}, {3.7561697245665956`*^9, 3.756169731003918*^9}, {3.7561699168665485`*^9, 3.756169926040078*^9}, { 3.851396588241513*^9, 3.851396588803507*^9}, {3.8812060041856337`*^9, 3.881206006272649*^9}},ExpressionUUID->"11dd0418-facb-394c-9be5-\ 9d3aee8082f0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", "V"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.756170020583084*^9, 3.756170122811846*^9}, { 3.756170186032323*^9, 3.756170193896617*^9}, {3.7561702297956877`*^9, 3.7561702556648417`*^9}, 3.756170292887568*^9, {3.788151753693509*^9, 3.788151756661628*^9}, {3.788151796952374*^9, 3.7881519195047984`*^9}, { 3.78815195737908*^9, 3.788151961328389*^9}, {3.788152060927085*^9, 3.788152065563151*^9}, {3.788152223800831*^9, 3.788152287912534*^9}, { 3.788152359096402*^9, 3.7881523643461895`*^9}, {3.851390292117335*^9, 3.851390292755409*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"6bbd7008-6316-c04a-8d12-bd8670f6d3c1"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (torsion)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.692691217030125*^9, 3.7241476428310194`*^9, { 3.7561696233666773`*^9, 3.7561696272662334`*^9}, {3.881206010425768*^9, 3.881206014655202*^9}},ExpressionUUID->"798de53c-35a5-404d-9596-\ b6de6828a2a1"], 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"}], "}"}], "]"}], "\n", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692691236800154*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, { 3.6928607128321285`*^9, 3.692860713632129*^9}, {3.692860762222198*^9, 3.692860774902216*^9}, {3.7244128700993214`*^9, 3.724412970122797*^9}, { 3.724413067099133*^9, 3.724413071778134*^9}, 3.724413162525893*^9, 3.724413211976151*^9, {3.756009769254346*^9, 3.7560097984891305`*^9}, { 3.756009857247945*^9, 3.756009862164278*^9}, {3.756009902579606*^9, 3.756009932708223*^9}, {3.78815401519639*^9, 3.7881540650661416`*^9}, { 3.788157472499207*^9, 3.788157475676734*^9}, {3.788157524305654*^9, 3.788157681083987*^9}, {3.788157722103042*^9, 3.788157724162849*^9}, { 3.788167388102944*^9, 3.788167431276744*^9}, {3.7881674649924383`*^9, 3.788167466142986*^9}, {3.788167519535819*^9, 3.788167566471314*^9}, { 3.788167604092924*^9, 3.788167608914926*^9}, {3.788167661942783*^9, 3.788167695393477*^9}, {3.788167773185461*^9, 3.78816778551669*^9}, { 3.7881678334032145`*^9, 3.788167858613688*^9}, {3.788167891417267*^9, 3.788167896762458*^9}, 3.788167932902671*^9, {3.788167983998193*^9, 3.788168018338616*^9}, {3.788168061655179*^9, 3.788168061955825*^9}, { 3.788168189290164*^9, 3.788168248400946*^9}, {3.788168299928436*^9, 3.788168333348833*^9}, {3.788168367778096*^9, 3.788168391510321*^9}, { 3.788168427513071*^9, 3.78816847687361*^9}, {3.788168526669993*^9, 3.788168542590762*^9}, {3.788248712205905*^9, 3.7882487460135994`*^9}, { 3.820991819550814*^9, 3.820991829836608*^9}, {3.820993961804452*^9, 3.820993979061395*^9}, {3.8209940160718555`*^9, 3.820994046208595*^9}, { 3.851395882047143*^9, 3.85139588849801*^9}, {3.851396260037772*^9, 3.851396299542898*^9}, {3.851826584458306*^9, 3.8518266442053823`*^9}, { 3.883183202013617*^9, 3.883183305732654*^9}, {3.883183455565381*^9, 3.883183469500197*^9}, 3.883444047076141*^9, {3.88344410294254*^9, 3.883444110673493*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"5edc25b9-7bcf-484f-9d17-aab89ff9e4b3"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.724147644742329*^9, {3.756169630729544*^9, 3.756169634741873*^9}, {3.881206016790565*^9, 3.8812060221914024`*^9}, { 3.883444342707282*^9, 3.883444343620839*^9}},ExpressionUUID->"d4daae07-88b1-2d40-b56e-\ de66e930fa51"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, {3.7244132320712056`*^9, 3.724413340132728*^9}, { 3.7244133787614613`*^9, 3.72441343334622*^9}, 3.7244134790769606`*^9, { 3.756083191326631*^9, 3.756083210075788*^9}, {3.788239176072998*^9, 3.7882391831676254`*^9}, {3.788239221854759*^9, 3.788239251871309*^9}, { 3.788239300862713*^9, 3.78823930409668*^9}, {3.788239355028654*^9, 3.788239391212795*^9}, {3.851396395663067*^9, 3.8513964045571775`*^9}, { 3.883444213995908*^9, 3.883444336353151*^9}, {3.883444371641893*^9, 3.8834444151311393`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"bbc8010a-abf8-734b-b60d-7fa3bd28dca0"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.724552750965875*^9, 3.724552771340017*^9}, {3.756082802720545*^9, 3.756082814674419*^9}, {3.756169638505012*^9, 3.756169642626027*^9}, { 3.881206024041909*^9, 3.8812060285959883`*^9}},ExpressionUUID->"f23a179b-72a9-6b43-9c29-\ f31f1b03289d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.6928600883112545`*^9, 3.692860095201264*^9}, {3.724510813340685*^9, 3.724510843923993*^9}, {3.724511089489906*^9, 3.724511136236665*^9}, { 3.7245111759684496`*^9, 3.724511180004063*^9}, {3.724511214282744*^9, 3.724511357099068*^9}, {3.72451139044884*^9, 3.724511390894336*^9}, { 3.724511435438853*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, {3.724511739941152*^9, 3.724511744483248*^9}, { 3.724511791958761*^9, 3.724511792442217*^9}, {3.724511945279776*^9, 3.7245119591135845`*^9}, {3.724512176870897*^9, 3.72451218423262*^9}, { 3.724512227324604*^9, 3.724512228468808*^9}, {3.724512261539966*^9, 3.724512272739452*^9}, {3.724512387480114*^9, 3.724512394482444*^9}, { 3.724512486447604*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.724512564259039*^9}, {3.724512686336095*^9, 3.724512686647025*^9}, { 3.724552398639561*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.724552490677614*^9}, {3.7245525335305943`*^9, 3.724552549337282*^9}, { 3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.724552701097404*^9}, {3.72455278275163*^9, 3.724552841959256*^9}, 3.756082823673523*^9, {3.756082858149851*^9, 3.75608296491168*^9}, { 3.78823639018388*^9, 3.788236434946477*^9}, 3.788248792157753*^9, { 3.851396431326043*^9, 3.851396432629086*^9}, {3.8829277935664372`*^9, 3.8829278247524242`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"d4cea849-27a4-0543-917a-725c8a80876a"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["STABILITY ANALYSIS (week 5)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.474260234908738*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.4932790718214*^9, 3.4932790791534*^9}, 3.4933062444776*^9, { 3.4950884313529997`*^9, 3.49508843741*^9}, {3.556624077057487*^9, 3.556624081066694*^9}, 3.55662411296815*^9, 3.619407923793773*^9, { 3.6929652502711906`*^9, 3.692965262811208*^9}, 3.753071245965652*^9, 3.7866746442735834`*^9, {3.788503131545534*^9, 3.788503133806125*^9}, { 3.788595834713565*^9, 3.7885958369488535`*^9}},ExpressionUUID->"8e55be6d-f485-d54e-827e-\ 08af4ea6b9c1"], Cell[CellGroupData[{ Cell["Lecture example 4.1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.693118843765126*^9, 3.693118845845129*^9}, {3.693218849401043*^9, 3.693218859311056*^9}, {3.7887479930494013`*^9, 3.788747995545307*^9}, 3.788748026336192*^9, 3.8209949267048826`*^9, 3.82161384593501*^9},ExpressionUUID->"f0091076-f7fc-5d40-8eb6-\ b23879c3e327"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.693212952706787*^9, 3.6932129823968287`*^9}, 3.693213467247507*^9, { 3.693213537497606*^9, 3.693213550937625*^9}, {3.693381863369029*^9, 3.693381881739055*^9}, {3.693381912409099*^9, 3.6933820064392295`*^9}, { 3.6933820370092726`*^9, 3.6933820461892853`*^9}, {3.693382100929363*^9, 3.6933821288894014`*^9}, {3.6933824368598323`*^9, 3.693382462739868*^9}, { 3.693382545779985*^9, 3.693382576760028*^9}, {3.6933826141100807`*^9, 3.69338261425008*^9}, {3.693382657220141*^9, 3.6933826812701745`*^9}, { 3.693459467865974*^9, 3.693459506396028*^9}, {3.724756588022208*^9, 3.724756591619181*^9}, {3.756264691579814*^9, 3.756264745142851*^9}, { 3.756297352118715*^9, 3.756297363296737*^9}, {3.756354367377921*^9, 3.756354402022817*^9}, {3.756354503721473*^9, 3.756354518145298*^9}, { 3.756354577259649*^9, 3.75635458078909*^9}, 3.788518279999304*^9, { 3.788574025729101*^9, 3.788574029610507*^9}, {3.788574327177696*^9, 3.788574337315638*^9}, {3.788574370184829*^9, 3.788574390177449*^9}, { 3.788574558310573*^9, 3.788574561866705*^9}, {3.7885749091230097`*^9, 3.788574909469074*^9}, {3.78883280122558*^9, 3.788832801475511*^9}, { 3.850964677630747*^9, 3.850964681411261*^9}, {3.8519921582317715`*^9, 3.851992170966121*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"2f56d354-aa07-f546-82c8-021022c8f4a5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.2 (truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, {3.788748002129151*^9, 3.788748030379919*^9}, 3.820994928778037*^9, 3.8216138491335354`*^9},ExpressionUUID->"8a320d27-4d52-7046-ae91-\ 13298ef0b155"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448434`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153787`*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.693219141801452*^9}, { 3.693219256141612*^9, 3.693219262091621*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.693222086439575*^9, 3.6932220972695894`*^9}, {3.6933108503929462`*^9, 3.693310866912968*^9}, { 3.7247570961974816`*^9, 3.724757114347347*^9}, {3.724757453331685*^9, 3.724757454325657*^9}, {3.756265531029621*^9, 3.756265550206148*^9}, { 3.756265772588833*^9, 3.7562658449593987`*^9}, {3.7562661007343545`*^9, 3.756266105210259*^9}, {3.756267778188237*^9, 3.756267782135869*^9}, { 3.756297557622207*^9, 3.7562975640313606`*^9}, {3.788575454272171*^9, 3.788575455203708*^9}, 3.788834268666679*^9, {3.788834320638523*^9, 3.788834348828912*^9}, {3.850965304883685*^9, 3.850965317023302*^9}, { 3.850965467547227*^9, 3.850965521691221*^9}, {3.850965677474887*^9, 3.850965680130317*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"76478e8e-a444-374b-b59d-b1f60be74963"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3a (plate )", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, 3.756360691654639*^9, {3.788748005621221*^9, 3.788748032773177*^9}, 3.820994931205215*^9, 3.8216138511743236`*^9, 3.852338051047749*^9},ExpressionUUID->"33f156d2-6c77-6648-a3fc-\ 6ba0fc12e421"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "1000"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", "*", RowBox[{"10", "^", "6"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "\[Delta]wint", ",", "\[Delta]wsta"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ StyleBox["Print", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["sol", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "//.", "val"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.724986821227579*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.756356116074851*^9, 3.756356120183282*^9}, {3.756356648982922*^9, 3.756356657840175*^9}, {3.788834572625896*^9, 3.788834618899085*^9}, 3.788936990423038*^9, {3.8209956217654243`*^9, 3.8209956870168357`*^9}, { 3.820995730092198*^9, 3.820995747209697*^9}, 3.820995793359754*^9, { 3.850965869737995*^9, 3.850965953030941*^9}, {3.850966036515455*^9, 3.850966037463144*^9}, {3.8523386081362963`*^9, 3.8523386861808577`*^9}, { 3.8523387379162607`*^9, 3.852338855522773*^9}, {3.8523388859408307`*^9, 3.852338902296262*^9}, {3.85233998421307*^9, 3.852339992832653*^9}, { 3.852340409713179*^9, 3.852340458988041*^9}, {3.8523420674574647`*^9, 3.852342118525632*^9}, {3.852345892964356*^9, 3.852345908082739*^9}, { 3.852358319661192*^9, 3.852358338990722*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"4d0b1143-fce8-5741-b6c6-168968010e8d"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3b (plate )", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403304`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322457`*^9}, 3.8195159245188594`*^9, {3.851404160604777*^9, 3.85140418663118*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.8518339806890965`*^9, {3.852338060272331*^9, 3.8523380646606827`*^9}},ExpressionUUID->"e57a23cb-d249-9f49-9ef9-\ 7920502614cc"], 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[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726176`*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618133`*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585386`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.7873246428692327`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.7875368085159025`*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851404334099336*^9, 3.8514044427104735`*^9}, {3.85140448033487*^9, 3.851404528280829*^9}, {3.851404675799127*^9, 3.8514047382171335`*^9}, { 3.8514048639344797`*^9, 3.851405048797428*^9}, {3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.851407688703299*^9}, { 3.851407773017706*^9, 3.851407781195134*^9}, {3.851407884878668*^9, 3.851407886958976*^9}, {3.851407930628368*^9, 3.8514079496190023`*^9}, { 3.851408774043013*^9, 3.85140879767111*^9}, {3.851414393446686*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, { 3.851414604135325*^9, 3.8514146600460863`*^9}, {3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, { 3.851833990202461*^9, 3.851834032488775*^9}, {3.851834067359583*^9, 3.851834088777607*^9}, {3.85183413027966*^9, 3.85183413636305*^9}, { 3.8518342009484644`*^9, 3.851834369129287*^9}, {3.8518344143060737`*^9, 3.851834414983051*^9}, {3.851834455386955*^9, 3.851834543885075*^9}, { 3.8518347971351566`*^9, 3.851834801759319*^9}, {3.851835132695306*^9, 3.851835247924095*^9}, {3.851835295849347*^9, 3.851835329468197*^9}, 3.851835409451404*^9, {3.851835498320532*^9, 3.8518355048099184`*^9}, { 3.852338074803082*^9, 3.852338264306811*^9}, {3.8523383137720175`*^9, 3.852338478052122*^9}, {3.852338528637382*^9, 3.8523385640260878`*^9}, { 3.852338917588834*^9, 3.852338932826299*^9}, {3.852338962951957*^9, 3.852338975351894*^9}, {3.852339008354312*^9, 3.852339059295692*^9}, { 3.85233909941183*^9, 3.852339099778098*^9}, {3.8523392626639595`*^9, 3.8523392811947136`*^9}, {3.8523393634846168`*^9, 3.8523394295923953`*^9}, {3.8523394782379665`*^9, 3.852339478823139*^9}, { 3.852339593926757*^9, 3.852339671084174*^9}, {3.852339711931484*^9, 3.852339784041746*^9}, {3.852339827771785*^9, 3.8523398280877805`*^9}, { 3.852339885054994*^9, 3.852339906414003*^9}, {3.852340395971958*^9, 3.8523403966426587`*^9}, {3.8523404751881375`*^9, 3.852340475781088*^9}, { 3.852340520073232*^9, 3.852340532179105*^9}, {3.852340612157866*^9, 3.852340785094775*^9}, {3.852340819276718*^9, 3.85234085816973*^9}, { 3.852340942090009*^9, 3.852340966879814*^9}, {3.852341026617176*^9, 3.852341139673197*^9}, {3.8523412660930223`*^9, 3.852341295802722*^9}, { 3.852341443502568*^9, 3.852341499929787*^9}, {3.8523415713395557`*^9, 3.8523415826878004`*^9}, {3.852341616970917*^9, 3.85234161803918*^9}, { 3.852341731621508*^9, 3.8523418610746107`*^9}, {3.852341941277248*^9, 3.852341973008494*^9}, {3.852342006990124*^9, 3.852342007408225*^9}, 3.852345951600083*^9, {3.852358553283052*^9, 3.852358553659275*^9}, { 3.852358591760822*^9, 3.8523586243402624`*^9}, {3.883879387933689*^9, 3.883879393597911*^9}, {3.883879696584765*^9, 3.88387970392874*^9}, { 3.883879762993813*^9, 3.883879763957988*^9}, {3.9153283499467144`*^9, 3.915328350298055*^9}, {3.9153284227324257`*^9, 3.91532842306686*^9}, { 3.9153285165075493`*^9, 3.915328624031639*^9}, {3.915328661107851*^9, 3.915328661419256*^9}, {3.915328768972639*^9, 3.915328799513494*^9}, { 3.9466930070277576`*^9, 3.9466930073981876`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"b138b54a-7af7-e64d-b9b0-d669ea000eec"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.4 (truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, 3.693306283079224*^9, {3.725021164213514*^9, 3.725021164371165*^9}, {3.7887480090753746`*^9, 3.788748035234958*^9}, 3.820994933226786*^9, 3.821613854016477*^9, {3.915328573388504*^9, 3.915328576231159*^9}},ExpressionUUID->"e8a1f98a-408c-8641-b85e-\ ad75459aef2c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448434`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153787`*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.693219141801452*^9}, { 3.693219256141612*^9, 3.693219262091621*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.693222086439575*^9, 3.6932220972695894`*^9}, {3.693306292479238*^9, 3.693306418469414*^9}, 3.693306456369467*^9, {3.693306595829663*^9, 3.6933066138196874`*^9}, { 3.693306650569739*^9, 3.693306653189742*^9}, {3.693309085270472*^9, 3.693309087550475*^9}, {3.693310327132211*^9, 3.6933103356922226`*^9}, 3.693310369872271*^9, {3.693310470252411*^9, 3.693310489332438*^9}, 3.693380841575601*^9, {3.7247583889821615`*^9, 3.724758390348864*^9}, { 3.725021816037766*^9, 3.725021819733665*^9}, {3.7250219746947784`*^9, 3.72502200025261*^9}, {3.725022093649005*^9, 3.725022237603272*^9}, { 3.7250224542170396`*^9, 3.725022522035033*^9}, {3.725022679332588*^9, 3.725022704699949*^9}, {3.725022740940689*^9, 3.725022817280752*^9}, 3.725022850568372*^9, {3.756359751407002*^9, 3.7563598068261595`*^9}, { 3.7563598644359274`*^9, 3.756359867482433*^9}, {3.756451754376941*^9, 3.7564517906965075`*^9}, {3.788835297331105*^9, 3.788835324873559*^9}, { 3.788835362168055*^9, 3.788835402651895*^9}, 3.788836723146744*^9, 3.788836921564518*^9, {3.788837233063264*^9, 3.788837239768136*^9}, { 3.788837442853516*^9, 3.788837474666474*^9}, {3.788837525277843*^9, 3.788837553081115*^9}, {3.788937058688222*^9, 3.788937067270863*^9}, { 3.8210034460614004`*^9, 3.821003455194581*^9}, 3.821153077125378*^9, { 3.851992493464256*^9, 3.851992500294387*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"3d99cd5f-ee87-d340-8198-0bb01f1c9604"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764523`*^9, 3.725024106360828*^9}, { 3.7250241751824203`*^9, 3.725024175334324*^9}, {3.788748048003364*^9, 3.788748054932249*^9}},ExpressionUUID->"dfe79472-347b-da4b-ad91-\ d67724c0e2c3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216745`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.693190707582261*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858546`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.850967109212525*^9, 3.850967111163235*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"6b8d3b8d-5871-7849-ac19-536a9884f6d7"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, 3.788748063127517*^9},ExpressionUUID->"b52c81bb-69fe-7d42-bd08-\ 2778d4d4ead5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.725024237507194*^9}, {3.756794146965371*^9, 3.75679418142634*^9}, {3.850967135594717*^9, 3.850967137461238*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"94913b26-9713-1d4b-948c-4c103a65fae1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, 3.725024360634966*^9, 3.788748067180313*^9},ExpressionUUID->"36941488-4c7f-264c-a121-\ cdb4f3b6a0ff"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.725024237507194*^9}, {3.725024378941745*^9, 3.725024406343743*^9}, {3.756794241693478*^9, 3.756794243255564*^9}, { 3.821003668368051*^9, 3.821003675582391*^9}, {3.850967165278871*^9, 3.850967167210659*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"d486f47c-c74c-e14e-8ec1-14a5aa3c20aa"] }, 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->"dcc356e7-2a09-9348-9635-\ f76536dc6038"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.69338113518601*^9, 3.69338114969603*^9}, {3.725024496244114*^9, 3.725024503014704*^9}, {3.756794516238365*^9, 3.7567945170664887`*^9}, { 3.756800697920469*^9, 3.7568007144705143`*^9}, {3.7568007575697813`*^9, 3.756800758085305*^9}, {3.8509671904069457`*^9, 3.85096719249596*^9}, { 3.883882973109865*^9, 3.8838831040455194`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"5f3e857b-f7dc-a443-bc0b-0ab3fb54cfff"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.7250245231315*^9, 3.72502455622487*^9, 3.7567964396238413`*^9, 3.788748075435411*^9},ExpressionUUID->"88cb6509-a52c-274f-86d3-\ 6bf9c0056611"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.693381184076079*^9, 3.693381186676082*^9}, {3.72502465423594*^9, 3.725024658292693*^9}, {3.756796446919061*^9, 3.756796472772376*^9}, { 3.8509672172375956`*^9, 3.850967223320303*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"69c8bd00-bb3c-2641-a3fd-b169f6a0db09"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.6932973174666743`*^9, {3.7250246897196236`*^9, 3.725024690280113*^9}, {3.7567965014531136`*^9, 3.756796501671861*^9}, 3.788748083302801*^9},ExpressionUUID->"eeac354e-83b9-774d-84b7-\ 088379966ffb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.69329733021669*^9, 3.693297434086836*^9}, {3.693381220626129*^9, 3.6933812440971646`*^9}, 3.725024713426996*^9, {3.756796704436857*^9, 3.7567967060458655`*^9}, {3.850967268464264*^9, 3.850967274798299*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"54616558-12cf-9c4c-a633-cf1ddc309d7c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.693142094747249*^9, 3.693298925868924*^9, { 3.7250253226298213`*^9, 3.725025323475069*^9}, 3.756796766937865*^9, 3.788748086145274*^9},ExpressionUUID->"89867e1d-8d10-a446-b816-\ 963d91fc14a9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931421018572598`*^9, 3.693142185437377*^9}, {3.693381313068259*^9, 3.693381318928268*^9}, { 3.756796779122508*^9, 3.756796780606487*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"3b3ffb59-3d42-f640-bb28-fb562155f983"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, 3.693370799325358*^9, 3.72502550453412*^9, 3.756796830657314*^9, 3.7887480892105436`*^9},ExpressionUUID->"85a334d4-c99d-a547-9322-\ 4d11f3e8c6c7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"7", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "L"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501783`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693381352298314*^9, 3.693381360658326*^9}, {3.69346018351458*^9, 3.69346018454458*^9}, { 3.693460277494711*^9, 3.6934602906747293`*^9}, {3.693460328224782*^9, 3.693460473154985*^9}, {3.6934605861451435`*^9, 3.693460590465149*^9}, { 3.693460627595201*^9, 3.6934608558655205`*^9}, {3.6934609279556217`*^9, 3.69346093378563*^9}, {3.693461071075822*^9, 3.6934610732858253`*^9}, { 3.6934617808668156`*^9, 3.693461781226816*^9}, {3.693461815406864*^9, 3.693461824246877*^9}, {3.69346185489692*^9, 3.6934618984369802`*^9}, { 3.6934619751070876`*^9, 3.693461978447092*^9}, {3.6934621984574003`*^9, 3.69346223375745*^9}, {3.693462346117607*^9, 3.6934624185677085`*^9}, { 3.72502542640604*^9, 3.725025427855894*^9}, {3.756796952722471*^9, 3.756796954268941*^9}, {3.821066361356242*^9, 3.821066365768322*^9}, { 3.82106642496561*^9, 3.821066437123183*^9}, {3.8210667024813805`*^9, 3.821066774667529*^9}, {3.8210668836756763`*^9, 3.8210668862200065`*^9}, { 3.821152628904124*^9, 3.821152633672795*^9}, {3.821152687932913*^9, 3.821152705567244*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"b5610804-fdf8-1c4a-8124-1a84f7e08ac5"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.725025573634933*^9, 3.725025582913336*^9}, 3.756797263336627*^9, 3.788748091540877*^9},ExpressionUUID->"1c45adbf-e9a3-7f48-9fda-\ a743478f1bd7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"NOTICE", ":", " ", RowBox[{ "the", " ", "outcome", " ", "of", " ", "the", " ", "hand", " ", "calculation", " ", RowBox[{"(", RowBox[{"analytical", " ", "solution"}], ")"}], " ", "and", " ", "the", " ", "one", " ", "by", " ", "the", " ", "code", " ", RowBox[{"(", RowBox[{"numerical", " ", "solution"}], ")"}], " ", "differ", " ", "due", " ", "to", " ", "discretization", " ", RowBox[{"error", ".", "\[IndentingNewLine]", "The"}], " ", "solution", " ", "by", " ", "FEM", " ", "converges", " ", "to", " ", "the", " ", "analytical", " ", "solution", " ", "when", " ", "the", " ", "mesh", " ", "is", " ", "refined"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], " ", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "5", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501783`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.756797338506524*^9, 3.756797339818715*^9}, {3.7568008125108557`*^9, 3.756800814869681*^9}, {3.821004013888099*^9, 3.821004031969683*^9}, { 3.8210040880487194`*^9, 3.821004095892504*^9}, {3.8519936603511744`*^9, 3.8519936750219097`*^9}, {3.8519937307384048`*^9, 3.851993734346714*^9}, { 3.851993768822936*^9, 3.8519937697449074`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"ccfeda88-982b-7943-946b-26a63d660e53"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.756361573013221*^9, 3.756361580747472*^9}, 3.756797545973561*^9, {3.7567975787939982`*^9, 3.756797579621932*^9}, 3.788748094743372*^9},ExpressionUUID->"cad3b930-426c-0e4b-ab6e-\ f0b8eaaf3d1e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["Grid", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501783`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.7567975871357956`*^9, 3.756797612661065*^9}, {3.756797653667085*^9, 3.756797672662643*^9}, {3.756797924163059*^9, 3.756797942533155*^9}, { 3.756798013969554*^9, 3.756798015453564*^9}, {3.7567983041359205`*^9, 3.756798330801605*^9}, {3.788937859790479*^9, 3.788937864770252*^9}, { 3.821004214806291*^9, 3.8210042284122076`*^9}, {3.8509674829508924`*^9, 3.8509675434163094`*^9}, {3.850967579439263*^9, 3.8509675852019043`*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"c7953539-398d-8241-94df-ce04540b77ef"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764523`*^9, 3.725024106360828*^9}, { 3.7250241751824203`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.75679974081704*^9}, {3.881206064362952*^9, 3.881206066933009*^9}},ExpressionUUID->"363f50bb-0725-f74a-85cb-\ 2cf3e6c93217"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216745`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.693190707582261*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858546`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.756799750939721*^9, 3.756799769107328*^9}, { 3.788849300089596*^9, 3.7888493641716824`*^9}, {3.7888494139346*^9, 3.7888494286062584`*^9}, {3.8509679745270205`*^9, 3.850967976044734*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"aa948868-cf66-0d46-98aa-fc8250c8b4b4"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764523`*^9, 3.725024106360828*^9}, { 3.7250241751824203`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.75679974081704*^9}, 3.756799812706525*^9, {3.8812060688923984`*^9, 3.881206071438624*^9}},ExpressionUUID->"6ea9352b-8104-9447-8d24-\ 73a804b4af34"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216745`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.693190707582261*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858546`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.756799750939721*^9, 3.756799769107328*^9}, { 3.756799861288275*^9, 3.756799866162119*^9}, {3.756799899607374*^9, 3.756799904293829*^9}, {3.7567999450186663`*^9, 3.756799956968975*^9}, 3.756800144331313*^9, {3.756800239090415*^9, 3.7568002683648157`*^9}, { 3.756800429170906*^9, 3.756800642636543*^9}, {3.85096799619191*^9, 3.85096800193428*^9}, 3.883882813483242*^9}, CellLabel->"In[88]:=",ExpressionUUID->"cb25a19c-86f4-6249-9acc-9ee83297a66c"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, {3.7567988696810017`*^9, 3.756798876476287*^9}, { 3.8812060746627274`*^9, 3.881206079624403*^9}},ExpressionUUID->"3f8336d3-fc8d-9649-80c0-\ 83dc69685306"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "p"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.725024237507194*^9}, {3.756794146965371*^9, 3.75679418142634*^9}, {3.756799517431947*^9, 3.756799522727543*^9}, { 3.788843854837902*^9, 3.788843875913063*^9}, {3.788843907038912*^9, 3.7888439554722376`*^9}, {3.788843993884048*^9, 3.788844021087784*^9}, { 3.788844053360984*^9, 3.788844071769227*^9}, {3.8509675986277914`*^9, 3.850967600568553*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"c1c9862d-f073-174e-a8fb-e87985f495e0"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.7250245231315*^9, {3.756799565561209*^9, 3.756799571966011*^9}, {3.788840101401081*^9, 3.788840103479334*^9}, { 3.881206083621595*^9, 3.88120608769934*^9}},ExpressionUUID->"65c65abf-00d6-4545-8f15-\ 0c80ab1c3103"], 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", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.693381184076079*^9, 3.693381186676082*^9}, {3.725024574725236*^9, 3.725024588839964*^9}, {3.756795212116538*^9, 3.7567952132725544`*^9}, { 3.7888401120623245`*^9, 3.788840168934473*^9}, 3.9466940100455513`*^9},ExpressionUUID->"e9099eb3-df17-b64b-98d1-\ c89e044d17d9"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.7567983913186803`*^9, 3.756798392302821*^9}, { 3.756798873024024*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.789183186974915*^9, {3.881206091573702*^9, 3.881206095983837*^9}},ExpressionUUID->"96906825-6a88-924d-bc5e-\ 428cfe7a4e5a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501783`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.756798398207693*^9, 3.7567984239828525`*^9}, {3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.788748442385915*^9}, { 3.7887485191144743`*^9, 3.788748649781055*^9}, {3.788748687254717*^9, 3.788748961457423*^9}, {3.788748991789321*^9, 3.78874899810791*^9}, { 3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, {3.788749332203596*^9, 3.788749333422468*^9}, { 3.788749518740166*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, {3.788749746115291*^9, 3.7887498407885494`*^9}, { 3.788749893111492*^9, 3.788750023856191*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, {3.788750264719532*^9, 3.788750294322283*^9}, { 3.788750325600979*^9, 3.788750332029645*^9}, {3.788750851647632*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.788750940486631*^9, 3.7887509949082747`*^9}, {3.788751123863784*^9, 3.788751128299989*^9}, 3.788751244897051*^9, {3.788752133868101*^9, 3.788752205827488*^9}, { 3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.788783437020838*^9}, {3.78878353177704*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, {3.7888305028927555`*^9, 3.788830652045955*^9}, { 3.78883071809201*^9, 3.788830782514884*^9}, {3.788830877589118*^9, 3.78883105094988*^9}, {3.788831085701442*^9, 3.788831095283891*^9}, { 3.788831424648365*^9, 3.7888314269780006`*^9}, {3.788831670881442*^9, 3.788831708303049*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.788831938690636*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.788832358859887*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.788832476064368*^9}, {3.788832538780415*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.788838618137361*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.789183359762609*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.821004593298056*^9, 3.8210045972144156`*^9}, { 3.821004634135273*^9, 3.8210046864976444`*^9}, {3.821004739070804*^9, 3.821004740017123*^9}, {3.850967673178307*^9, 3.850967750562674*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"165a7e07-2c2f-244b-bf7f-5d44ad98d78b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.7567983913186803`*^9, 3.756798392302821*^9}, { 3.756798873024024*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.789183186974915*^9, 3.8210045757349916`*^9, { 3.8812060981399984`*^9, 3.8812061029075594`*^9}},ExpressionUUID->"0bfeed4c-b7b2-304e-800e-\ b00e6af7b224"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "=", RowBox[{ RowBox[{"a", "[", "1", "]"}], RowBox[{"(", RowBox[{"x", "/", "L"}], " ", ")"}]}]}], ",", " ", RowBox[{"v", "=", "0"}], ",", RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "Nxx", ",", "Nyy", ",", "Nxy", ",", "Mxx", ",", "Myy", ",", "Mxy", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[CapitalGamma]", ",", "\[Delta]W"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Nxx", ",", "Nyy", ",", "Nxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Mxx", ",", "Myy", ",", "Mxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Mxx"}, {"Myy"}, {"Mxy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}]}, {"0"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], StyleBox[ RowBox[{"Integrate", "[", RowBox[{"\[Delta]wext", " ", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalGamma]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"H", ">", "0"}]}]}], "]"}], "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501783`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.756798398207693*^9, 3.7567984239828525`*^9}, {3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.788748442385915*^9}, { 3.7887485191144743`*^9, 3.788748649781055*^9}, {3.788748687254717*^9, 3.788748961457423*^9}, {3.788748991789321*^9, 3.78874899810791*^9}, { 3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, {3.788749332203596*^9, 3.788749333422468*^9}, { 3.788749518740166*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, {3.788749746115291*^9, 3.7887498407885494`*^9}, { 3.788749893111492*^9, 3.788750023856191*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, {3.788750264719532*^9, 3.788750294322283*^9}, { 3.788750325600979*^9, 3.788750332029645*^9}, {3.788750851647632*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.788750940486631*^9, 3.7887509949082747`*^9}, {3.788751123863784*^9, 3.788751128299989*^9}, 3.788751244897051*^9, {3.788752133868101*^9, 3.788752205827488*^9}, { 3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.788783437020838*^9}, {3.78878353177704*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, {3.7888305028927555`*^9, 3.788830652045955*^9}, { 3.78883071809201*^9, 3.788830782514884*^9}, {3.788830877589118*^9, 3.78883105094988*^9}, {3.788831085701442*^9, 3.788831095283891*^9}, { 3.788831424648365*^9, 3.7888314269780006`*^9}, {3.788831670881442*^9, 3.788831708303049*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.788831938690636*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.788832358859887*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.788832476064368*^9}, {3.788832538780415*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.788838618137361*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.789183359762609*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.8210048275148125`*^9, 3.821004828986367*^9}, { 3.821004880937112*^9, 3.821004916999135*^9}, {3.821004956835596*^9, 3.821004958617885*^9}, {3.821005018894418*^9, 3.821005022253108*^9}, { 3.8210050574197173`*^9, 3.821005155404633*^9}, {3.821005192513445*^9, 3.821005212994562*^9}, {3.821005250295355*^9, 3.821005276846246*^9}, { 3.821005307393458*^9, 3.821005494052012*^9}, {3.8210055542551365`*^9, 3.821005578232196*^9}, {3.821005628809768*^9, 3.821005687149138*^9}, { 3.821005752261304*^9, 3.8210057747204976`*^9}, {3.821005808015217*^9, 3.8210058204076123`*^9}, 3.8210058571785417`*^9, {3.821005934714407*^9, 3.8210060005564404`*^9}, {3.8210061543710423`*^9, 3.821006264566473*^9}, { 3.821006298742633*^9, 3.821006329464186*^9}, {3.850967798925559*^9, 3.850967922006175*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"33055b65-97e3-4648-8054-9389a5683a1e"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["NONLINEAR ANALYSIS (week 6)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.474260234908738*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.475846189336139*^9, 3.475846200661739*^9}, {3.4932790852218*^9, 3.493279095939*^9}, 3.4933062471764*^9, {3.495765883575599*^9, 3.4957658864927998`*^9}, {3.5566241871999807`*^9, 3.556624190959587*^9}, { 3.622806150174709*^9, 3.622806154790973*^9}, 3.693717161087909*^9, 3.753071247963187*^9, 3.786674646491544*^9, {3.789440471859059*^9, 3.789440476512408*^9}, {3.8530301289001417`*^9, 3.853030131242997*^9}},ExpressionUUID->"f761a8e1-ba49-164f-bb93-\ a768e5e7cc5f"], Cell[CellGroupData[{ Cell["Lecture example 5.1 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879837`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.694084104105713*^9, 3.694084119395734*^9}, 3.725367865956423*^9, 3.725416995739205*^9, 3.725619293450783*^9, 3.7894404895193176`*^9, 3.789440520087886*^9, { 3.821613788368214*^9, 3.821613819178653*^9}},ExpressionUUID->"824834e3-adc0-9e49-a812-\ cbc5fa219a2e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", "0.2"}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "3"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", " ", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, 3.725367939183186*^9, {3.725416801610667*^9, 3.725416803739372*^9}, {3.725417020175501*^9, 3.725417208382349*^9}, { 3.7254172395621457`*^9, 3.725417331171501*^9}, {3.72541736659235*^9, 3.7254174053459697`*^9}, {3.725417533992443*^9, 3.725417563861587*^9}, { 3.7254176054682207`*^9, 3.725417705116496*^9}, {3.725417754682612*^9, 3.72541776095835*^9}, {3.7254178550580482`*^9, 3.725417924563362*^9}, { 3.725417994971918*^9, 3.725418003642275*^9}, {3.725419046991951*^9, 3.7254190552133617`*^9}, {3.725419417230313*^9, 3.72541944937505*^9}, { 3.725419481847333*^9, 3.725419485387669*^9}, {3.7254195657537193`*^9, 3.725419650915449*^9}, {3.725419711549879*^9, 3.7254197315678887`*^9}, { 3.7254197742112017`*^9, 3.7254197805431004`*^9}, {3.725419829789277*^9, 3.725419874631874*^9}, 3.725419908765535*^9, {3.725537594052678*^9, 3.7255377029827504`*^9}, 3.7256193854673696`*^9, 3.725702820357547*^9, { 3.725702854576565*^9, 3.725702865028237*^9}, {3.756832416999443*^9, 3.756832462271259*^9}, {3.789440802913806*^9, 3.789440809277025*^9}, 3.7894411773565855`*^9, {3.821615147466235*^9, 3.821615153888829*^9}, { 3.821620611340539*^9, 3.821620645941663*^9}, {3.852693575912036*^9, 3.852693580202025*^9}, {3.852693867597412*^9, 3.852693881304184*^9}, { 3.8530309367110014`*^9, 3.8530310058199186`*^9}, 3.853031080312402*^9, { 3.853031119109433*^9, 3.853031143011203*^9}, {3.853031199178816*^9, 3.85303120695147*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"82df7def-a913-c44b-8be2-67d55bd10ac2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.2 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879823`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.693722041065507*^9, 3.693896864902024*^9, 3.694084124905741*^9, 3.725368143386225*^9, 3.725422724931479*^9, { 3.725619397031089*^9, 3.725619400828313*^9}, 3.78944049266901*^9, 3.789440522746374*^9, {3.821613791241439*^9, 3.82161379143657*^9}, 3.8216138269048543`*^9},ExpressionUUID->"7b8f6e4c-eccf-c04a-a61c-\ b80822b4c222"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"DISP", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], " ", "/.", "sol"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693722084405568*^9, 3.693722276057837*^9}, 3.693722322227901*^9, 3.693722372317971*^9, {3.693722442468069*^9, 3.693722451698082*^9}, { 3.693723787907967*^9, 3.6937237904979744`*^9}, {3.693724137228457*^9, 3.693724139258459*^9}, {3.693724172548506*^9, 3.6937241752985096`*^9}, { 3.693724292058673*^9, 3.693724295128678*^9}, 3.69373755113851*^9, { 3.693896878692043*^9, 3.693896901652075*^9}, {3.7253681563091784`*^9, 3.725368157559586*^9}, {3.72542273277819*^9, 3.725422854026498*^9}, { 3.725422885282486*^9, 3.7254228865161843`*^9}, {3.725422942650051*^9, 3.725423062788546*^9}, 3.725423150321371*^9, {3.7254316686112456`*^9, 3.725431674781223*^9}, {3.725538838588361*^9, 3.725538851246591*^9}, 3.72561943608208*^9, {3.7257026059808226`*^9, 3.72570261040317*^9}, { 3.725702644912425*^9, 3.725702648725309*^9}, {3.725702796521108*^9, 3.725702797865259*^9}, {3.72575626980612*^9, 3.725756351318025*^9}, { 3.725756456625953*^9, 3.725756477189308*^9}, {3.725756544097674*^9, 3.725756583186432*^9}, {3.7257566457338176`*^9, 3.725756743136969*^9}, { 3.725756778112492*^9, 3.725756778494486*^9}, {3.725761648915716*^9, 3.725761713922561*^9}, {3.725765194189823*^9, 3.725765206503494*^9}, { 3.7257652623736453`*^9, 3.7257652896111813`*^9}, {3.725765341710131*^9, 3.725765462395775*^9}, {3.725769869462216*^9, 3.7257699169022665`*^9}, { 3.7894412582865963`*^9, 3.7894412708273396`*^9}, {3.7894413278185287`*^9, 3.789441329143035*^9}, 3.789441601886338*^9, {3.789441642006256*^9, 3.789441643130957*^9}, {3.789441907932015*^9, 3.789441908494623*^9}, { 3.789442049256173*^9, 3.789442072736273*^9}, {3.821621298176068*^9, 3.821621308481735*^9}, {3.8526939057531366`*^9, 3.852693916313658*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"65f4f22b-29d9-0843-94e1-33aedf21642e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.694086478127248*^9, 3.694086479657249*^9}, 3.7256194498022785`*^9, 3.789440495427185*^9, 3.789440526797804*^9, {3.821613793957991*^9, 3.8216137941890326`*^9}, 3.821613829297106*^9},ExpressionUUID->"1aef3306-0070-1f4d-bbf0-\ 6c0e358ec14b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.692695317325865*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.694086539407334*^9}, {3.694086588927404*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.694086756997641*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.7894421264127007`*^9, 3.78944213687227*^9}, {3.789443395559586*^9, 3.7894434045015726`*^9}, {3.7894434621551476`*^9, 3.789443464833054*^9}, { 3.853031271219007*^9, 3.853031299008956*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"fff5295f-b195-7145-8a4e-f708e52d7572"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.4 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, {3.725621905609552*^9, 3.725621910203785*^9}, 3.789440497743353*^9, 3.789440529440142*^9, {3.789616129613903*^9, 3.7896161325182133`*^9}, {3.821613801831195*^9, 3.821613831936789*^9}},ExpressionUUID->"d09cca50-fcfe-2f4c-8c6a-\ a2984fed7de9"], 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.5602210407725725`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694064706369087*^9, 3.694064712349095*^9}, 3.694064814159237*^9, { 3.7256219225800886`*^9, 3.7256219748824816`*^9}, {3.821772649461963*^9, 3.8217726509231224`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"2df868f6-3e38-bf4b-90b6-76e00a45d0b3"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.5 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879837`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.693901495502507*^9, 3.6939015033425198`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.789440502156151*^9, 3.7894405325936704`*^9, 3.8217726748188057`*^9},ExpressionUUID->"ac0022a5-a92e-834b-a8b6-\ 3e031530ba3e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, {3.693901542752574*^9, 3.693901557752598*^9}, { 3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, { 3.693901827053971*^9, 3.693901833313979*^9}, {3.693902871886434*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.693903230356936*^9, {3.725622627200715*^9, 3.725622636357994*^9}, { 3.725622670908451*^9, 3.725622676455966*^9}, {3.725622713881729*^9, 3.7256227145067945`*^9}, {3.725622814767364*^9, 3.7256228380354414`*^9}, { 3.789444895683393*^9, 3.789444900781643*^9}, {3.821772681889474*^9, 3.821772691294238*^9}, {3.82177290591377*^9, 3.8217729142460537`*^9}, { 3.852696295749216*^9, 3.852696315470949*^9}, {3.853031378522255*^9, 3.853031397591965*^9}, 3.8530314366225433`*^9}, CellLabel->"In[30]:=",ExpressionUUID->"ad1c9c7d-8513-dd4e-a0f4-fbc3c8c1d438"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.6 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879823`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.693901495502507*^9, 3.6939015033425193`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.725622469610036*^9, 3.789440504983571*^9, 3.789440536851226*^9, { 3.821613806131517*^9, 3.821613806325562*^9}},ExpressionUUID->"5f8a392c-782e-c44c-8f19-\ 517c4d0f99d6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", " ", RowBox[{"A", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, {3.693901542752574*^9, 3.693901557752598*^9}, { 3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, { 3.693901827053971*^9, 3.693901833313979*^9}, {3.693902871886434*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.693903230356936*^9, {3.7256231338316407`*^9, 3.725623166444374*^9}, { 3.725623223340996*^9, 3.725623223731613*^9}, {3.78944492033692*^9, 3.7894449444018607`*^9}, {3.821772950085473*^9, 3.821772963956665*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"1a9a48a5-58da-6a43-85a7-796659085b6d"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (spring)", "Subsubsection", CellChangeTimes->{{3.623115527697212*^9, 3.623115537121752*^9}, { 3.693839654576663*^9, 3.693839677996696*^9}, 3.725511558702956*^9, { 3.725621898421294*^9, 3.725621899858948*^9}, {3.789956416920804*^9, 3.789956421197747*^9}},ExpressionUUID->"8cda5265-cd0e-9a4d-950f-\ 761bc5bdac9a"], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", "4"}], "-", RowBox[{"(", RowBox[{"a", "-", RowBox[{"a", "^", "2"}], "+", RowBox[{ RowBox[{"a", "^", "3"}], "/", "3"}]}], ")"}]}], "\[Equal]", "0"}], ",", "a", ",", "Reals"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.693839700606727*^9, 3.693839706596736*^9}, { 3.7258583766945887`*^9, 3.725858514740307*^9}, {3.725858989058057*^9, 3.725859005231624*^9}, {3.7894450781230726`*^9, 3.789445086798571*^9}, { 3.789445123852199*^9, 3.7894451303609877`*^9}, {3.789445227887929*^9, 3.789445286978237*^9}, {3.853031487036024*^9, 3.853031516290058*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"af0753fc-560d-da46-bd83-2e191cb66d17"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.7574772683958*^9, 3.757477270754499*^9}, 3.7894405584275*^9},ExpressionUUID->"46e6d11d-e626-a24e-b902-2958308943b6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757477295865029*^9, 3.757477301767279*^9}, {3.757477333536891*^9, 3.757477336868082*^9}, { 3.7894453325389366`*^9, 3.789445358114713*^9}, {3.8217731177026515`*^9, 3.821773135240704*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"b480b79a-6b8d-f441-a2c7-ec69dfad503b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.725511564062546*^9, 3.725625311162457*^9, 3.7894405617112646`*^9},ExpressionUUID->"94572680-b6c8-924a-b6e3-\ fe6b472722a0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", RowBox[{ RowBox[{"a", "[", "2", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.69407958990419*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.725604769771058*^9}, { 3.725605100772751*^9, 3.725605136125828*^9}, {3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.757477540477742*^9}, 3.757477907422058*^9, {3.789445391534886*^9, 3.789445395253693*^9}, { 3.821773174203444*^9, 3.821773183146188*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"7346f1db-003e-5347-a3c7-e9b6779c8563"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, 3.725625314225254*^9, 3.7894405642067876`*^9},ExpressionUUID->"21d18b71-b3c1-1f43-bc8e-\ abdf103c232d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "h", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725605220875243*^9, 3.725605256707104*^9}, {3.7574779149067807`*^9, 3.757477933470075*^9}, { 3.789445420263571*^9, 3.789445453371543*^9}, {3.8217732116204844`*^9, 3.821773228375927*^9}, {3.853031583718212*^9, 3.853031642120866*^9}, { 3.916185887764015*^9, 3.9161858964937487`*^9}, {3.9161860973742867`*^9, 3.916186101980148*^9}, {3.9474740168369637`*^9, 3.9474740390994587`*^9}},ExpressionUUID->"17a71444-7d6a-d246-bf40-\ 2e5f91bd31d2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.694067326282754*^9, 3.725511573876234*^9, 3.725625318506969*^9, 3.789440568716662*^9},ExpressionUUID->"0d573542-96b3-8b40-9f0d-\ f1bbf7f018fc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"g", "\[Rule]", "10."}], ",", RowBox[{"\[Rho]", "->", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.6940673358027673`*^9, 3.694067439482912*^9}, 3.725605406295211*^9, {3.725605452096917*^9, 3.725605453284552*^9}, {3.757478082268685*^9, 3.75747813974619*^9}, { 3.7574782361050873`*^9, 3.7574782462962294`*^9}, 3.757478313116293*^9, 3.7574784080512347`*^9, {3.757478440370651*^9, 3.757478441201786*^9}, { 3.789445502413628*^9, 3.789445505678503*^9}, {3.821773261997*^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[30]:=",ExpressionUUID->"b2998c9a-8ae8-c04a-82bd-97fa5a663402"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, 3.7256055657495413`*^9, 3.7256253208821793`*^9, 3.789440571521383*^9},ExpressionUUID->"7b27434a-e0fa-0443-be47-\ e4846cc9de38"], 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.5602210407725716`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, {3.694065539960253*^9, 3.694065548660265*^9}, 3.694067257222657*^9, {3.725605573234694*^9, 3.725605582626178*^9}, { 3.7256056129888973`*^9, 3.725605751800364*^9}, 3.725605788178935*^9, { 3.75747883408612*^9, 3.7574788831159344`*^9}, {3.7894455582931757`*^9, 3.789445561116359*^9}, {3.821773433471787*^9, 3.821773440018031*^9}, { 3.853032006421949*^9, 3.853032013225816*^9}, {3.853032099465707*^9, 3.8530321012045107`*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"c3ceebd8-4590-b74c-aeac-860aff1a4647"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, 3.725625327336037*^9, 3.757429808988515*^9, { 3.75747944029515*^9, 3.757479442795718*^9}, 3.789440574620819*^9},ExpressionUUID->"da3541eb-fcdc-c648-945c-\ 482f44e76021"], 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.5602210407725716`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694064706369087*^9, 3.694064712349095*^9}, 3.694064814159237*^9, { 3.757479006718543*^9, 3.7574790329387393`*^9}, {3.757479092367199*^9, 3.7574791238375545`*^9}, {3.789445596603827*^9, 3.789445599893951*^9}, { 3.8217734770561576`*^9, 3.821773478385603*^9}, {3.853032132143128*^9, 3.8530321395013227`*^9}, {3.9474741608350983`*^9, 3.947474181319845*^9}},ExpressionUUID->"922cb3b4-3727-8c4c-9ade-\ eb0deba7dea3"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (bar-slab structure)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.694000913010317*^9, 3.7256065797642317`*^9, { 3.725606890687307*^9, 3.7256068999228387`*^9}, {3.7256070257017245`*^9, 3.725607038640582*^9}, 3.757429551201259*^9, 3.789440578103948*^9},ExpressionUUID->"fd560e3c-e6fd-ae4b-a49c-\ 77822e2a285e"], 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.5602210407725716`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694000920380327*^9, 3.694000948260366*^9}, {3.694001010960454*^9, 3.6940011008205795`*^9}, {3.694064269308474*^9, 3.694064314118537*^9}, 3.6940644008986583`*^9, {3.694064645619001*^9, 3.694064674919041*^9}, { 3.7256066079390864`*^9, 3.725606648115192*^9}, {3.75747929130151*^9, 3.757479338941169*^9}, {3.789445623243403*^9, 3.789445626465139*^9}, { 3.821773508757564*^9, 3.8217735199487343`*^9}, {3.853032185344742*^9, 3.853032196438659*^9}, {3.947474216723711*^9, 3.9474742355070972`*^9}},ExpressionUUID->"2bca2379-b0e4-3e43-b0a4-\ 20bf50870687"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.725607064440168*^9, 3.725607133619341*^9}, 3.725625333930484*^9, {3.757428024654767*^9, 3.757428030688318*^9}, { 3.757479448872733*^9, 3.757479450987108*^9}, 3.789440582295444*^9},ExpressionUUID->"dcd7c0ad-7ca9-8749-b450-\ 0ca8e9188b0b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100."}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"g", "\[Rule]", "10"}], ",", RowBox[{"\[Rho]", " ", "\[Rule]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "t"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], "/", "2"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725716`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, 3.72560709045855*^9, 3.725607178967879*^9, { 3.7256072733243494`*^9, 3.7256072756058626`*^9}, {3.725608309756126*^9, 3.725608311647198*^9}, {3.725771734466016*^9, 3.7257721969195395`*^9}, { 3.725772232838031*^9, 3.7257722332153444`*^9}, {3.725772288027615*^9, 3.725772479650519*^9}, {3.725772530529035*^9, 3.72577257412286*^9}, { 3.725791415940133*^9, 3.725791520523611*^9}, 3.725791696980189*^9, { 3.725791734069311*^9, 3.7257917344076343`*^9}, {3.7257923081234202`*^9, 3.7257923707246*^9}, {3.725859595496999*^9, 3.725859664785538*^9}, { 3.725891504696448*^9, 3.725891709651156*^9}, {3.725892062990927*^9, 3.725892063347079*^9}, {3.725892218379181*^9, 3.725892220354437*^9}, { 3.725892259206426*^9, 3.725892259334041*^9}, 3.725892329129791*^9, { 3.725892416753545*^9, 3.7258924714289207`*^9}, {3.7258925212512045`*^9, 3.725892591360572*^9}, {3.725941541310729*^9, 3.7259415780623493`*^9}, { 3.757428049418125*^9, 3.757428054913843*^9}, {3.757428087909403*^9, 3.7574280934841433`*^9}, {3.7574284280978804`*^9, 3.7574284568388243`*^9}, {3.757479457969281*^9, 3.757479477327525*^9}, { 3.789445656969535*^9, 3.789445664100904*^9}, {3.789527751387431*^9, 3.789527797080281*^9}, {3.8217735920327053`*^9, 3.8217736608186865`*^9}, { 3.853032230222368*^9, 3.85303223679877*^9}, {3.947474281200571*^9, 3.947474302340143*^9}},ExpressionUUID->"598d6c43-cead-e74a-b860-\ b7d11b278f7e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.694080983509343*^9, 3.6940809892393517`*^9}, { 3.694083731665191*^9, 3.694083732515193*^9}, {3.725591075758112*^9, 3.7255910824931192`*^9}, 3.757417720496823*^9, {3.7574795432836018`*^9, 3.757479545931784*^9}, 3.789440584620143*^9},ExpressionUUID->"6382cac5-ee3f-4a45-9222-\ c47497de777c"], 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.5602210407725716`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.694081082649483*^9}, { 3.694081113009525*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.694082832592935*^9, 3.6940828345429354`*^9}, {3.725591085384094*^9, 3.7255911544538746`*^9}, {3.725591817757676*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.757416801791027*^9, 3.757416821306521*^9}, 3.7574795541241035`*^9, {3.757479595088483*^9, 3.757479596023892*^9}, {3.757479635696697*^9, 3.757479653341745*^9}, { 3.789445694157391*^9, 3.789445701224625*^9}, {3.8217736706623697`*^9, 3.821773694070822*^9}, {3.821773731752405*^9, 3.821773734571*^9}, { 3.821780323407436*^9, 3.8217803662117853`*^9}, {3.853032278923683*^9, 3.853032287932805*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"dfff7412-f2b4-984e-bc72-fdcf44a0cfba"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.821775715744479*^9, 3.821775719024729*^9}, {3.881206136600945*^9, 3.881206139142698*^9}},ExpressionUUID->"6c65d98c-f59c-8545-aece-\ 22b298134713"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757479831786548*^9, 3.757479924484078*^9}, {3.757479975770355*^9, 3.7574799982811112`*^9}, { 3.757480089314517*^9, 3.757480102569118*^9}, {3.757480606602792*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, { 3.7894568754764276`*^9, 3.789456972569411*^9}, {3.789527942374906*^9, 3.789527942729209*^9}, {3.789536132513161*^9, 3.7895361346615615`*^9}, { 3.789536399082477*^9, 3.789536421795721*^9}, {3.789536454915404*^9, 3.789536455571832*^9}, {3.8217758025127687`*^9, 3.8217758072277403`*^9}, 3.821775926515878*^9}, CellLabel->"In[87]:=",ExpressionUUID->"962aed7e-8f95-d644-adc2-3738056ddbc1"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.725511564062546*^9, 3.725625311162457*^9, { 3.757484623695022*^9, 3.757484629267005*^9}, {3.881206140976477*^9, 3.8812061432675786`*^9}},ExpressionUUID->"c8954b62-f712-4f49-ab27-\ d821229617f2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.69407958990419*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.725604769771058*^9}, { 3.725605100772751*^9, 3.725605136125828*^9}, {3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.757477540477742*^9}, 3.757477907422058*^9, {3.757484640636358*^9, 3.757484666183015*^9}, 3.757484700716534*^9, {3.757484732772525*^9, 3.757484789221012*^9}, 3.75748483146574*^9, {3.789537267060418*^9, 3.789537278515034*^9}, { 3.853033225058108*^9, 3.853033227017321*^9}, 3.884648932725034*^9}, CellLabel-> "In[110]:=",ExpressionUUID->"9d73f3b6-7cb8-3640-9d93-e494763f26f3"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.881206145544849*^9, 3.8812061500156794`*^9}},ExpressionUUID->"c27bba05-ced0-2440-b93a-\ 4022a25ef5e8"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757479831786548*^9, 3.757479924484078*^9}, {3.757479975770355*^9, 3.7574799982811112`*^9}, { 3.757480089314517*^9, 3.757480102569118*^9}, {3.757480606602792*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, { 3.7894568754764276`*^9, 3.789456972569411*^9}, {3.789527942374906*^9, 3.789527942729209*^9}, {3.821774005946034*^9, 3.821774007482941*^9}, { 3.8217740392795753`*^9, 3.821774041748979*^9}, {3.821774080885614*^9, 3.821774082008611*^9}, {3.8217743771908073`*^9, 3.82177441796832*^9}, { 3.821775449472017*^9, 3.821775450119286*^9}, 3.8530323229130535`*^9, { 3.853032459025534*^9, 3.853032460771165*^9}}, CellLabel-> "In[393]:=",ExpressionUUID->"2c59d258-1304-a94d-8ef2-89e7c960e996"], 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[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "A"}], " ", "g", " ", "\[Rho]"}]}], "}"}]}], "}"}], RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]} }, 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}, {"model", "properties", "geometry"}}]]]}, {""}, { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"{X,Y,Z}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(u\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(u\\), \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\ \\(u\\), \\(Z\\)]\\)}\"\>", HoldForm], TagBox["\<\"{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(X\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \ \\(Y\\)]\\),\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(Z\\)]\\)}\"\>", HoldForm]}, { TagBox["1", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["2", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2}, { "{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.947831179122305*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"22200f38-f048-6d41-ac6e-f6709f9efdf7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Delta]W = -\"\>", "\[InvisibleSpace]", SuperscriptBox[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"\[Delta]uZ", "[", "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]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ RowBox[{"A", " ", RowBox[{"(", RowBox[{ RowBox[{"g", " ", SuperscriptBox["L", "4"], " ", "\[Rho]"}], "+", RowBox[{"\[CapitalEpsilon]", " ", RowBox[{"uZ", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["L", "2"]}], "-", RowBox[{"3", " ", "L", " ", RowBox[{"uZ", "[", "2", "]"}]}], "+", SuperscriptBox[ RowBox[{"uZ", "[", "2", "]"}], "2"]}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["L", "3"]}]]} }, 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$]]]}], SequenceForm["\[Delta]W = -", MatrixForm[{ $CellContext`\[Delta]uZ[2]}]^$CellContext`T, MatrixForm[{ Rational[1, 2] $CellContext`A $CellContext`L^(-3) ($CellContext`g $CellContext`L^4 \ $CellContext`\[Rho] + $CellContext`\[CapitalEpsilon] $CellContext`uZ[2] ( 2 $CellContext`L^2 - 3 $CellContext`L $CellContext`uZ[2] + $CellContext`uZ[2]^2))}]], Editable->False]], "Print", CellChangeTimes->{3.947831179151087*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"df11f3d1-a045-5a46-b7da-f336583d0eac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"uZ", "[", "2", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"g", " ", SuperscriptBox["L", "2"], " ", "\[Rho]"}], RowBox[{"2", " ", "\[CapitalEpsilon]"}]]}]}], "}"}]], "Output", CellChangeTimes->{3.9478311793129597`*^9}, CellLabel-> "Out[397]=",ExpressionUUID->"a5ef9eb3-6901-9048-9a94-44ebd727af3f"] }, Open ]], Cell[BoxData[ TagBox[GridBox[{ { FractionBox[ RowBox[{"A", " ", RowBox[{"(", RowBox[{ RowBox[{"g", " ", SuperscriptBox["L", "4"], " ", "\[Rho]"}], "+", RowBox[{"\[CapitalEpsilon]", " ", RowBox[{"uZ", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["L", "2"]}], "-", RowBox[{"3", " ", "L", " ", RowBox[{"uZ", "[", "2", "]"}]}], "+", SuperscriptBox[ RowBox[{"uZ", "[", "2", "]"}], "2"]}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["L", "3"]}]]} }, 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]], "Input",ExpressionUUID->"4fac46eb-e2ce-104c-9b13-90c99eb09575"] }, Open ]], Cell[CellGroupData[{ Cell["Assignment 4 (bar structure)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.6938398962370014`*^9, 3.7255115616720285`*^9, 3.725625308724648*^9, 3.757477396494967*^9, {3.757481085296235*^9, 3.757481094257138*^9}, {3.8812061522403245`*^9, 3.8812061563225017`*^9}},ExpressionUUID->"53df34da-a2b6-fc4e-b6c2-\ 7ee9c86e9550"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "100."}]}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938399692971034`*^9, 3.6938400282071857`*^9}, { 3.6938400695572433`*^9, 3.693840082837262*^9}, {3.693840140197343*^9, 3.6938401716273866`*^9}, {3.693840240457484*^9, 3.693840254527503*^9}, { 3.6940795213440943`*^9, 3.6940795257441*^9}, {3.7256045368402443`*^9, 3.725604579344708*^9}, {3.757481102253356*^9, 3.757481164282356*^9}, { 3.757481194330432*^9, 3.75748129838559*^9}, {3.757481353914442*^9, 3.757481419932939*^9}, {3.757481946737595*^9, 3.757481990731213*^9}, 3.7574820869091225`*^9, {3.757482122166311*^9, 3.757482122302759*^9}, { 3.821774589054889*^9, 3.821774665005913*^9}, {3.821775402089509*^9, 3.821775422114235*^9}, {3.853033107381581*^9, 3.853033141062274*^9}, { 3.916060075342417*^9, 3.916060106359705*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"0cfd0329-6e46-7b4e-86de-aa22b7e10882"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.694080983509343*^9, 3.6940809892393517`*^9}, { 3.694083731665191*^9, 3.694083732515193*^9}, {3.725591075758112*^9, 3.7255910824931192`*^9}, 3.725595925542554*^9, {3.757482185630768*^9, 3.7574821879362445`*^9}, {3.881206158691961*^9, 3.8812061627877555`*^9}},ExpressionUUID->"bc24a997-66b2-5547-b709-\ e9d27fa1f1f1"], Cell[CellGroupData[{ 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[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725744`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.694081082649483*^9}, { 3.694081113009525*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.694082832592935*^9, 3.6940828345429354`*^9}, {3.725591085384094*^9, 3.7255911544538746`*^9}, {3.725591817757676*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.725595945794539*^9, 3.725596052648704*^9}, 3.725596310097999*^9, 3.725597765225474*^9, { 3.7256002235096517`*^9, 3.725600225384837*^9}, 3.725601577369067*^9, { 3.7256024833399587`*^9, 3.725602485246642*^9}, {3.72560256753648*^9, 3.7256025692711873`*^9}, {3.7259408859758453`*^9, 3.725940887709132*^9}, { 3.725948705880571*^9, 3.7259487077258434`*^9}, {3.725949106810832*^9, 3.725949108652855*^9}, {3.75748219356618*^9, 3.75748221683813*^9}, { 3.757482288987244*^9, 3.757482355027481*^9}, 3.7574823860843687`*^9, { 3.7574829602375355`*^9, 3.757482961024153*^9}, 3.7574830010830545`*^9, { 3.789528195024557*^9, 3.789528198196429*^9}, {3.821775513385226*^9, 3.821775546830598*^9}, {3.821775613600021*^9, 3.821775685087927*^9}, { 3.94783029838031*^9, 3.94783030001832*^9}},ExpressionUUID->"2924ab6b-a734-2e41-98bb-\ bf713fc08af6"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"model\"\>", HoldForm], TagBox["\<\"properties\"\>", HoldForm], TagBox["\<\"geometry\"\>", HoldForm]}, { TagBox["1", HoldForm], "PLANE", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}, { TagBox["2", HoldForm], "FORCE", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], RowBox[{"Point", "[", RowBox[{"{", "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["1", HoldForm], RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["2", HoldForm], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}, { TagBox["3", HoldForm], RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{"L", " ", RowBox[{"a", "[", "0", "]"}]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableDepth -> 2, TableHeadings -> {{1, 2, 3}, { "{X,Y,Z}", "{\!\(\*SubscriptBox[\(u\), \(X\)]\),\!\(\*SubscriptBox[\(u\), \(Y\ \)]\),\!\(\*SubscriptBox[\(u\), \(Z\)]\)}", "{\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\),\!\(\*SubscriptBox[\(\ \[Theta]\), \(Y\)]\),\!\(\*SubscriptBox[\(\[Theta]\), \(Z\)]\)}", "\[CurlyTheta]"}}]]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.947830270262747*^9}, CellLabel-> "Out[390]=",ExpressionUUID->"5a39005c-e53b-8743-ac78-99cfdc5bcdb5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Delta]W = -\"\>", "\[InvisibleSpace]", SuperscriptBox[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"\[Delta]a", "[", "0", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "T"], "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"F", " ", "L"}], "+", FractionBox[ RowBox[{ SuperscriptBox["L", "2"], " ", "t", " ", "\[CapitalEpsilon]", " ", RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Nu]", "-", SuperscriptBox[ RowBox[{"a", "[", "0", "]"}], "2"]}], ")"}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[Nu]", "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$]]]}], SequenceForm["\[Delta]W = -", MatrixForm[{ $CellContext`\[Delta]a[0]}]^$CellContext`T, MatrixForm[{$CellContext`F $CellContext`L + Rational[1, 4] $CellContext`L^2 $CellContext`t $CellContext`\[CapitalEpsilon] (-1 + \ $CellContext`\[Nu]^2)^(-1) $CellContext`a[ 0] (-1 + $CellContext`\[Nu] - $CellContext`a[0]^2)}]], Editable->False]], "Print", CellChangeTimes->{3.9478302703917217`*^9}, CellLabel-> "During evaluation of \ In[388]:=",ExpressionUUID->"36fe38af-9dc7-6e44-aa4e-6898080f52e9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "[", "0", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"4", " ", "F", " ", "L", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], RowBox[{ SqrtBox[ SuperscriptBox["L", "4"]], " ", "t", " ", "\[CapitalEpsilon]"}]]}]}], "}"}]], "Output", CellChangeTimes->{3.9478302770936413`*^9}, CellLabel-> "Out[392]=",ExpressionUUID->"de2f4f0e-29a4-5c46-ac10-68df963d665a"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["THERMO-MECHANICAL ANALYSIS (week 7)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.474260234908738*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.475846189336139*^9, 3.475846200661739*^9}, {3.478256973369199*^9, 3.4782570107312*^9}, {3.480123551083801*^9, 3.480123567495*^9}, { 3.480123621705*^9, 3.480123624903*^9}, {3.4806711082098*^9, 3.4806711221874*^9}, 3.4932793244166*^9, {3.4932794430078*^9, 3.4932794467362003`*^9}, 3.4933062560684*^9, 3.4933063832108*^9, { 3.4993508417324*^9, 3.4993508506556*^9}, {3.556624315771208*^9, 3.556624319733615*^9}, {3.6258072267653346`*^9, 3.625807232594666*^9}, { 3.694170937062989*^9, 3.694170967183031*^9}, 3.7530712518136296`*^9, 3.786674648814556*^9},ExpressionUUID->"43a53a10-46cd-0444-a7db-\ 8eb500e43819"], Cell[CellGroupData[{ Cell["Lecture example 6.1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, 3.726228603741245*^9, 3.790133203599983*^9, 3.790133334060174*^9, 3.8222827885111046`*^9},ExpressionUUID->"6b521199-a272-3c45-86fe-\ eae93eb6b6a0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "3"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"L", "/", "3"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, 3.694321161157248*^9, {3.726228620805838*^9, 3.726228757804364*^9}, {3.7262287989808445`*^9, 3.726228805372174*^9}, { 3.726307977457318*^9, 3.726308020131757*^9}, {3.7264017436165357`*^9, 3.72640178352305*^9}, {3.7264019537489176`*^9, 3.726401957040406*^9}, { 3.726402214267608*^9, 3.726402218486952*^9}, 3.7264023700160475`*^9, 3.726402480673145*^9, 3.726402544409398*^9, {3.7576854743135223`*^9, 3.757685482154978*^9}, 3.757685551287126*^9, {3.8223700571434655`*^9, 3.822370084352723*^9}, 3.822370427162765*^9, {3.822370686877767*^9, 3.822370688321907*^9}, {3.853210161799122*^9, 3.8532101666054835`*^9}, { 3.8532101973125954`*^9, 3.8532102139581337`*^9}, {3.8532102444456997`*^9, 3.853210267026037*^9}, {3.8532103315393543`*^9, 3.85321047360437*^9}, { 3.8539220670092926`*^9, 3.853922093943622*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"e19b56a2-184d-fe46-a556-eebacd6482e6"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.726228956887848*^9, 3.7262289611229377`*^9}, 3.790133209281815*^9, 3.79013333701427*^9, 3.822282790665161*^9},ExpressionUUID->"6991bcd9-890e-b841-8c36-\ a10e418ee264"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, 3.694321161157248*^9, {3.757685613033372*^9, 3.7576856239578505`*^9}, {3.8223707404873266`*^9, 3.822370745052121*^9}, { 3.8532105085811586`*^9, 3.853210517669177*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"befa8fd3-cc5f-5d40-850c-90b0e6053134"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.694086478127248*^9, 3.694086479657249*^9}, {3.694527958552099*^9, 3.694527959642101*^9}, 3.726229008596427*^9, 3.7901333397983*^9, 3.8222827963204393`*^9},ExpressionUUID->"5f3a35e1-c06c-544d-9d5e-\ 50fcaea42282"], 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[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "/.", RowBox[{"\[Nu]", "->", "0"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.692695317325865*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.694086539407334*^9}, {3.694086588927404*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.6940867569976397`*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.6945279734021196`*^9, 3.694528026032194*^9}, {3.694578550066427*^9, 3.6945785683464537`*^9}, {3.694578605956504*^9, 3.6945786374265485`*^9}, 3.694578861606862*^9, {3.726229172285854*^9, 3.726229172942167*^9}, { 3.726370894343026*^9, 3.7263709151890526`*^9}, 3.726370949425577*^9, { 3.757746365026296*^9, 3.757746365750707*^9}, {3.822370788479022*^9, 3.822370790971359*^9}, {3.853211959109535*^9, 3.853211976923761*^9}, { 3.9479824566846695`*^9, 3.9479824627593384`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"43e393f8-5ccd-184f-91bf-db08ff5585d0"] }, 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.694171041083136*^9}, 3.69435160335544*^9, {3.6943533950379486`*^9, 3.694353399057955*^9}, 3.69452785716196*^9, 3.726229235417214*^9, 3.7901333429549065`*^9, 3.8222827981893544`*^9},ExpressionUUID->"17699dd1-f25d-694f-9a19-\ e34e215982b0"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.694351611965454*^9, 3.694351647105502*^9}, {3.694351682395551*^9, 3.69435172440561*^9}, {3.694351953315931*^9, 3.694351961645942*^9}, { 3.69435227463638*^9, 3.694352284516394*^9}, {3.694527885081996*^9, 3.694527886972*^9}, {3.726367237897143*^9, 3.726367307373107*^9}, { 3.757746592466322*^9, 3.7577465938551464`*^9}, {3.822370824852784*^9, 3.8223708528069544`*^9}, {3.853212288934053*^9, 3.853212298143783*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"26cd9ef7-f2f9-6743-af35-bb7ff76d8e53"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.5 (plate)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, {3.726205883565295*^9, 3.726205885049831*^9}, 3.726229327442833*^9, {3.7577467035580034`*^9, 3.7577467044452553`*^9}, 3.790133345955064*^9, 3.822282801134905*^9},ExpressionUUID->"5830dd55-7be5-8a4b-86b5-\ aa114dd70d74"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[CapitalDelta]\[CurlyTheta]", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"]}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146646`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625737`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.7249868212275786`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.726206333728132*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.726206519325805*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, 3.757746711561335*^9, { 3.757746928634151*^9, 3.757746956452608*^9}, {3.790562134068997*^9, 3.790562144580222*^9}, {3.790562842691299*^9, 3.790562853795657*^9}, { 3.82229041422389*^9, 3.8222904484586935`*^9}, {3.8222905396678267`*^9, 3.822290621977132*^9}, {3.8222908062333317`*^9, 3.822290910384088*^9}, { 3.82229104434663*^9, 3.822291057762763*^9}, 3.822291090107176*^9, 3.822291237551684*^9, {3.822291323763043*^9, 3.822291351423003*^9}, { 3.8222913877665834`*^9, 3.822291413365552*^9}, {3.85321265478815*^9, 3.8532127425832305`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"94140293-f0fd-7341-a5ab-058629d3260f"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.72622158520062*^9, 3.790133570993006*^9, {3.790133686084855*^9, 3.790133688198171*^9}},ExpressionUUID->"7bd5d1d7-8155-bb4b-8258-\ 745ed502ca17"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "1", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.6945792415273957`*^9, 3.694579314717497*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.7264646047356343`*^9, 3.726464609439276*^9}, {3.726464678493162*^9, 3.726464682868911*^9}, {3.758007980609372*^9, 3.7580080180068483`*^9}, 3.7580080766027403`*^9, 3.8223709049177957`*^9, {3.8532127808477497`*^9, 3.853212811144683*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"2b4e7abb-dd81-3242-8f9d-b97ea34e2bab"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075096`*^9, 3.790133574425227*^9, 3.790133710048728*^9},ExpressionUUID->"8d130408-2b8a-6345-84ee-\ 67932c3d8655"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.726464532353*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.758008181593988*^9, 3.7580081866865425`*^9}, {3.758008239533526*^9, 3.7580083000659113`*^9}, {3.822370934113742*^9, 3.822370938403273*^9}, { 3.853214062412082*^9, 3.8532140706327295`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"51e4ac9b-b721-6840-8dfa-44a243515fb0"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.694324628676102*^9, 3.694324631986107*^9}, 3.6944060216654315`*^9, 3.7262215999677*^9, 3.726224687827624*^9, 3.758008381328991*^9, {3.758009251812319*^9, 3.758009264561188*^9}, 3.7901335767519727`*^9, 3.790133712716427*^9},ExpressionUUID->"941c9479-7853-904b-9fc9-\ 4c9177e2e83f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", RowBox[{"uZ", "[", "2", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694324638476116*^9, 3.6943248045763497`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.6945795367478075`*^9, 3.694579566187848*^9}, {3.726402666829811*^9, 3.726402670383405*^9}, { 3.726465914917368*^9, 3.7264659162925*^9}, {3.758009211337441*^9, 3.7580092179296255`*^9}, {3.8223709655616674`*^9, 3.822370968398084*^9}, { 3.853214161748463*^9, 3.853214183919198*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"73cc2acd-d467-f54e-9a90-65ae565a118b"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.694324628676102*^9, 3.694324631986107*^9}, 3.694327323881875*^9, 3.694406024055435*^9, 3.726221604764799*^9, 3.726224691734134*^9, 3.7580092950074606`*^9, 3.790133580363652*^9, 3.790133715603956*^9},ExpressionUUID->"51fa043e-42e4-6d4b-8446-\ b2c1de8c002d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694324638476116*^9, 3.6943248045763497`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.69432737006194*^9, 3.694327448852052*^9}, 3.694419382534791*^9, {3.7580103793082*^9, 3.758010389133934*^9}, {3.82237099593052*^9, 3.822370998714036*^9}, { 3.853214217906112*^9, 3.853214224120651*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"04c5d814-81d5-d340-934e-c5be13c9c115"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.6944312298724194`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, 3.7901335828870125`*^9, 3.790133718434207*^9},ExpressionUUID->"997feb2b-8bcb-b640-a2a5-\ 13721a0b6aae"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.694431266404508*^9}, {3.694431473032326*^9, 3.694431491689392*^9}, {3.694431792456571*^9, 3.694431802442142*^9}, 3.694431834732989*^9, {3.758024452401914*^9, 3.7580244589711*^9}, { 3.822371024737362*^9, 3.822371040825352*^9}, 3.8532142715195665`*^9}, CellLabel->"In[48]:=",ExpressionUUID->"0014647e-733c-6248-9ace-d2dab92c563e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.726224696312886*^9, 3.7262249172111826`*^9, {3.7580244975473247`*^9, 3.7580245477488456`*^9}, 3.790133585140024*^9, 3.7901337229271984`*^9},ExpressionUUID->"1c54a4fa-61e6-354c-ac93-\ 380c7d89a519"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262248580015106`*^9, 3.726224868877959*^9}, {3.758024561586712*^9, 3.7580245682001767`*^9}, {3.82237107153525*^9, 3.822371073954781*^9}, 3.853214306941168*^9}, CellLabel->"In[53]:=",ExpressionUUID->"5d769f11-6b7c-7148-9a98-175d932b70ea"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, 3.758024692368653*^9, 3.7901335915540752`*^9, 3.7901337251492295`*^9},ExpressionUUID->"9cbaebfa-7ed1-5740-8680-\ 228ffd633ee0"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.758024649839114*^9, 3.758024663579355*^9}, {3.822371096134485*^9, 3.822371115052908*^9}, {3.853214342204943*^9, 3.853214362206827*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"07b18365-4eea-1e40-9f5c-b0f4e79cda4e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.726213788988196*^9, 3.726213794488776*^9}, {3.75802473191534*^9, 3.758024734229988*^9}, 3.790133593902794*^9, 3.790133727042786*^9},ExpressionUUID->"c3406730-371f-5c49-982a-\ 095ec8be9acf"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262140346078444`*^9, 3.72621405415678*^9}, {3.7262141086781483`*^9, 3.726214166277943*^9}, {3.726214525816331*^9, 3.7262145263633146`*^9}, { 3.726214569727258*^9, 3.726214575524747*^9}, {3.726226638345352*^9, 3.726226638689148*^9}, {3.758024742273337*^9, 3.758024748620539*^9}, { 3.82237114956907*^9, 3.8223711637889395`*^9}, 3.8532143956016684`*^9}, CellLabel->"In[63]:=",ExpressionUUID->"2811e9a3-2ebc-944c-a50e-ec644d89ed36"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.72622158520062*^9, { 3.726226718228784*^9, 3.726226721713334*^9}, {3.7580248169988203`*^9, 3.758024819056037*^9}, 3.790133596138479*^9, 3.790133729247693*^9},ExpressionUUID->"f9eaf288-7650-9b40-9126-\ 0da287a12c87"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", " ", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.6945792415273957`*^9, 3.694579314717497*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.726226731058295*^9, 3.7262268937472987`*^9}, {3.758024835013898*^9, 3.758024846532082*^9}, {3.822371189664237*^9, 3.822371193232697*^9}, { 3.8532144304204135`*^9, 3.853214441853069*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"945c7425-3f90-ec4e-b939-a7cfd39310c6"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (plate)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, {3.726205883565295*^9, 3.726205885049831*^9}, { 3.7262067305356245`*^9, 3.726206738333324*^9}, {3.757747029517936*^9, 3.757747030066859*^9}, {3.7580248225537596`*^9, 3.75802482473052*^9}, 3.790133598222252*^9, 3.7901337315379953`*^9},ExpressionUUID->"f6884a1f-3ab6-a745-a483-\ 9bea45ce4845"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalOmega]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146646`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625737`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.7249868212275786`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.726206333728132*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.726206519325805*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, {3.726206752741091*^9, 3.7262067959487677`*^9}, {3.758024898326041*^9, 3.758024922957539*^9}, { 3.790563741361431*^9, 3.790563745218274*^9}, {3.8222916789160852`*^9, 3.8222917385257483`*^9}, {3.853216051232878*^9, 3.853216125366497*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"4b73511a-3976-744e-a336-e29adba0923e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075096`*^9, 3.7579961343745155`*^9, {3.7580340701852493`*^9, 3.758034071905482*^9}, {3.881206283342308*^9, 3.881206285984279*^9}},ExpressionUUID->"3090e643-802a-0a47-ac33-\ f8c6c6beabc1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.726464532353*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.758034080038931*^9, 3.758034162389186*^9}, {3.790135407955392*^9, 3.790135457759217*^9}, { 3.822371577744916*^9, 3.82237158008466*^9}, {3.8532166227812743`*^9, 3.853216632770188*^9}, {3.853921208762747*^9, 3.853921300214926*^9}, { 3.853921347174339*^9, 3.8539213777174582`*^9}, {3.8539215174836116`*^9, 3.853921536931364*^9}, {3.881206226061395*^9, 3.881206227311369*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"4fc3f6b8-7ffc-904a-9a64-82a0827ba427"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.6944312298724194`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, {3.758034254108346*^9, 3.758034259770264*^9}, { 3.881206287836726*^9, 3.881206289986452*^9}},ExpressionUUID->"3ac4e637-7778-4a4b-807f-\ 350b37b7851c"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.694431266404508*^9}, {3.694431473032326*^9, 3.694431491689392*^9}, {3.694431792456571*^9, 3.694431802442142*^9}, 3.694431834732989*^9, {3.758024452401914*^9, 3.7580244589711*^9}, { 3.758034298112458*^9, 3.758034338813531*^9}, 3.758034384209874*^9, { 3.758034554681752*^9, 3.758034556090353*^9}, {3.790135821402534*^9, 3.7901358306030035`*^9}, {3.8223716085615296`*^9, 3.822371616180161*^9}, { 3.853216677493239*^9, 3.8532166827890825`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"5a1c56a4-e456-c649-aca7-d75ee2aad3cf"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075096`*^9, 3.7579961343745155`*^9, {3.881206292447297*^9, 3.881206297422981*^9}},ExpressionUUID->"a7fdb9fd-44fa-9f4b-829d-\ 4bbe366f815f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.726464532353*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.7901290539312696`*^9, 3.790129079209365*^9}, 3.790129123742439*^9, 3.790134159993813*^9, { 3.822371348551828*^9, 3.822371351437115*^9}, {3.853216159628018*^9, 3.853216171686645*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"60568e4c-a3ea-604a-9786-5a073cae9aa3"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694406019025428*^9, { 3.694423989046864*^9, 3.6944239974668765`*^9}, {3.7262246384942493`*^9, 3.726224644510517*^9}, 3.7579982269300756`*^9, {3.8812063028666697`*^9, 3.881206308777199*^9}},ExpressionUUID->"d22c8811-c281-5f4e-9a65-\ bb5efbd6c8ba"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"4", "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173876`*^9, 3.694321282127418*^9}, {3.694424008136892*^9, 3.69442402814692*^9}, 3.6945798778882847`*^9, 3.69534335139094*^9, { 3.726402609129484*^9, 3.726402618632744*^9}, {3.726465882296791*^9, 3.726465882687396*^9}, 3.757998251252205*^9, {3.7579982838698497`*^9, 3.7579982907273293`*^9}, {3.790051020706258*^9, 3.790051030075369*^9}, { 3.822371375469983*^9, 3.822371378140842*^9}, {3.853216197933406*^9, 3.853216206620552*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"c90e0340-2a35-4942-b2d8-b13f8cdc2bc1"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, { 3.758004525770962*^9, 3.75800453036374*^9}, 3.790664201546558*^9, { 3.881206313582735*^9, 3.8812063183696957`*^9}},ExpressionUUID->"f5ebcaac-7d32-b745-8f7b-\ 526b194a91cb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.758004555107847*^9, 3.758004623903921*^9}, {3.7580073627335653`*^9, 3.758007365529795*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, { 3.758007652134451*^9, 3.7580076757538967`*^9}, {3.7580077486896343`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, { 3.7901345399911*^9, 3.790134540526645*^9}, {3.790134593346095*^9, 3.790134594099427*^9}, {3.790664206724592*^9, 3.7906642332850227`*^9}, { 3.822371406006948*^9, 3.8223714241545277`*^9}, {3.8532163314339643`*^9, 3.8532163356909313`*^9}, {3.9165335846196423`*^9, 3.916533604181089*^9}, { 3.916533650201376*^9, 3.9165336505801167`*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"14da74e5-7f12-e742-a346-fe2a93ffbf2c"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467077`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, { 3.758004525770962*^9, 3.75800453036374*^9}, 3.822292107186874*^9, { 3.8812063211174097`*^9, 3.881206325533219*^9}},ExpressionUUID->"8148549e-9da7-1946-bac9-\ 4c8f5be51476"], 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.4994881831441984`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.758004555107847*^9, 3.758004623903921*^9}, {3.7580073627335653`*^9, 3.758007365529795*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, { 3.758007652134451*^9, 3.7580076757538967`*^9}, {3.7580077486896343`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, { 3.7901345399911*^9, 3.790134540526645*^9}, {3.790134593346095*^9, 3.790134594099427*^9}, {3.8223714777672*^9, 3.822371481761523*^9}, { 3.822371523791158*^9, 3.822371525768871*^9}, {3.8532163712164097`*^9, 3.853216374423115*^9}, {3.853216444844831*^9, 3.853216446816645*^9}, { 3.853216554311017*^9, 3.853216575510727*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"98019c9b-cb0f-fb47-95ee-903372ed2f7a"] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{615.8571428571428, 441.4285714285714}, WindowMargins->{{87.42857142857142, Automatic}, { Automatic, 10.285714285714285`}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, TaggingRules-><|"TryRealOnly" -> False|>, FrontEndVersion->"14.0 for Microsoft Windows (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"76641b04-0615-4ae6-91c5-3bb72ff35351" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1732, 25, 160, "Title",ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-59c8faa291c7"], Cell[CellGroupData[{ Cell[2324, 51, 898, 14, 66, "Section",ExpressionUUID->"bfb4b998-3e37-4b47-b315-8d973fbc66ac"], Cell[CellGroupData[{ Cell[3247, 69, 156, 2, 53, "Subsection",ExpressionUUID->"95f06f7a-2839-3f41-967e-d5278b2742cc"], Cell[3406, 73, 32420, 731, 1645, "Input",ExpressionUUID->"93615ac2-498f-c14d-8736-a177764b48ff", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[35863, 809, 88, 0, 37, "Subsection",ExpressionUUID->"9a420395-e947-da48-b72a-03916678fad4"], Cell[35954, 811, 33123, 973, 1420, "Input",ExpressionUUID->"fb97c993-0041-e74e-ac9a-995943d9af1a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[69114, 1789, 87, 0, 37, "Subsection",ExpressionUUID->"55defa93-aae1-9b4e-92fe-ae9e548b2856"], Cell[69204, 1791, 59984, 1599, 3333, "Input",ExpressionUUID->"2d76251a-cd2e-b644-9e23-3a8cb495be5c", InitializationCell->True], Cell[CellGroupData[{ Cell[129213, 3394, 4481, 127, 313, "Input",ExpressionUUID->"10242183-ad58-434c-9294-fb2696a42035"], Cell[133697, 3523, 549, 13, 31, "Output",ExpressionUUID->"cca15f1f-0a40-e547-995b-e97139d487be"], Cell[134249, 3538, 362, 7, 47, "Output",ExpressionUUID->"fe35b754-192e-2947-9c0c-a945f019dd7b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[134660, 3551, 92, 0, 37, "Subsection",ExpressionUUID->"5f278777-966f-3942-9590-e81f6f8507c9"], Cell[134755, 3553, 7120, 206, 513, "Input",ExpressionUUID->"139bfdb6-4a48-9449-9c7e-4471a7259dba", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[141924, 3765, 1114, 17, 52, "Section",ExpressionUUID->"c3bccd40-ae7b-014b-b49d-25e2d5562c5d"], Cell[CellGroupData[{ Cell[143063, 3786, 267, 4, 53, "Subsection",ExpressionUUID->"b066fc59-8ae6-0c40-9554-834b09637c31"], Cell[143333, 3792, 839, 21, 86, "Input",ExpressionUUID->"46e4611b-325a-484d-bc89-f696fd1164aa"] }, Closed]], Cell[CellGroupData[{ Cell[144209, 3818, 371, 6, 37, "Subsection",ExpressionUUID->"6a02052d-83f9-be47-bda9-131ff2843ee7"], Cell[144583, 3826, 18155, 446, 748, "Input",ExpressionUUID->"874e2150-e050-9645-adfb-e8c2ce87629a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[162775, 4277, 273, 4, 37, "Subsection",ExpressionUUID->"923d7f57-2e72-c547-8d89-705fe63e41ac"], Cell[163051, 4283, 20827, 520, 935, "Input",ExpressionUUID->"3d779d39-7008-6349-9890-f718fbc43c00", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[183915, 4808, 324, 5, 37, "Subsection",ExpressionUUID->"4c711735-c5d9-b549-8858-be87849b711e"], Cell[184242, 4815, 10020, 221, 441, "Input",ExpressionUUID->"e0d72bfe-2568-ab49-bc25-60832d0cd6b6", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[194299, 5041, 373, 6, 37, "Subsection",ExpressionUUID->"a0463c17-fcea-cd4c-b80f-ab426fec7d7c"], Cell[194675, 5049, 11104, 241, 405, "Input",ExpressionUUID->"ff85631e-c009-8542-bda7-5a5f6a109cdf", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[205816, 5295, 423, 6, 37, "Subsection",ExpressionUUID->"b80f619f-5e35-2642-9000-c558af7daf28"], Cell[206242, 5303, 4887, 79, 95, "Input",ExpressionUUID->"c498c24f-8e68-d24f-adcd-dc5b7962a18f", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[211178, 5388, 1118, 17, 52, "Section",ExpressionUUID->"1429dc8a-3dcd-554f-a5e7-acfbd60b9d67"], Cell[CellGroupData[{ Cell[212321, 5409, 553, 8, 53, "Subsection",ExpressionUUID->"d303ace8-69a0-6a49-9c17-74a26680f881"], Cell[212877, 5419, 15372, 349, 501, "Input",ExpressionUUID->"4887cf15-25b4-2e4f-ad4c-c35467bed3d9", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[228286, 5773, 477, 7, 37, "Subsection",ExpressionUUID->"b85bd865-6f05-3644-a5cc-2543edfbec91"], Cell[228766, 5782, 15997, 373, 557, "Input",ExpressionUUID->"07242536-24a9-7d41-b2f0-133c615af288", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[244800, 6160, 576, 8, 37, "Subsection",ExpressionUUID->"aec0c035-3317-a641-9d9f-8153f0c9d8e6"], Cell[245379, 6170, 6690, 115, 215, "Input",ExpressionUUID->"2324784d-4aae-a044-b1d3-7dbaa7841841", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[252106, 6290, 630, 9, 37, "Subsection",ExpressionUUID->"2983caa7-04cf-254c-a249-2a5b95b6d727"], Cell[252739, 6301, 8446, 160, 291, "Input",ExpressionUUID->"a3634a73-ffce-4440-b130-3bc7f1221f6f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[261222, 6466, 680, 10, 37, "Subsection",ExpressionUUID->"cce62c42-e7c3-eb4c-b5f5-92ad9b1b5d50"], Cell[261905, 6478, 6792, 116, 215, "Input",ExpressionUUID->"5410f203-6dce-bb45-9294-6695db820e77", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[268746, 6600, 1113, 17, 52, "Section",ExpressionUUID->"9c9dfa8f-9a5c-124b-9afd-93c71180a4fa"], Cell[CellGroupData[{ Cell[269884, 6621, 275, 5, 53, "Subsection",ExpressionUUID->"faad4daf-a055-ce45-aa74-e99a7e3c1235", InitializationCell->True], Cell[270162, 6628, 30355, 604, 1415, "Input",ExpressionUUID->"ca1da197-b2be-9d44-9ca1-b9c0e317f9f0", InitializationCell->True], Cell[300520, 7234, 24730, 471, 862, "Input",ExpressionUUID->"ab26f259-34b9-e142-a3ef-cc6a77ed6721", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[325287, 7710, 272, 5, 37, "Subsection",ExpressionUUID->"9aa6552b-65d5-3d43-942a-a5d4b28254f7", InitializationCell->True], Cell[325562, 7717, 19204, 361, 710, "Input",ExpressionUUID->"e8dc3d16-51cd-4f46-badf-3242cf481aa0", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[344803, 8083, 272, 5, 37, "Subsection",ExpressionUUID->"99ea1874-0e39-1244-972f-247ff6c9c67a", InitializationCell->True], Cell[345078, 8090, 13512, 221, 158, "Input",ExpressionUUID->"65d3c51f-bb47-f341-9a21-f854884394c2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[358627, 8316, 296, 5, 37, "Subsection",ExpressionUUID->"61bc9274-c35a-b245-84aa-e20e38bd100b", InitializationCell->True], Cell[358926, 8323, 21098, 423, 634, "Input",ExpressionUUID->"ef8adc58-f4c2-ac48-bced-0a7fcbb63cf6", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[380061, 8751, 397, 7, 37, "Subsection",ExpressionUUID->"f50f8d17-dba9-dc4c-9c50-1d3ead81ff8e", InitializationCell->True], Cell[380461, 8760, 20799, 406, 770, "Input",ExpressionUUID->"476e5f87-99f4-6240-8290-5b052913facd", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[401297, 9171, 324, 6, 37, "Subsection",ExpressionUUID->"edcdd538-3a8b-a743-b3e5-632caf2f0c58", InitializationCell->True], Cell[401624, 9179, 10366, 277, 881, "Input",ExpressionUUID->"d5c3c22b-9c89-c44c-befc-5dde67b19cc7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[412027, 9461, 369, 6, 37, "Subsection",ExpressionUUID->"7fa84bd1-ad2a-764f-99d7-171633963fd3", InitializationCell->True], Cell[412399, 9469, 21408, 392, 710, "Input",ExpressionUUID->"b09116a1-9a7b-b242-a873-18fdc42a9f6a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[433844, 9866, 372, 6, 37, "Subsection",ExpressionUUID->"0147ed45-0479-c649-8330-7961963a35e2", InitializationCell->True], Cell[434219, 9874, 14160, 215, 101, "Input",ExpressionUUID->"1b8174aa-1967-7f42-a4a8-7937e248372a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[448416, 10094, 422, 7, 37, "Subsection",ExpressionUUID->"be160c14-cdd0-da47-a6d0-0387073a16b9", InitializationCell->True], Cell[448841, 10103, 13737, 201, 101, "Input",ExpressionUUID->"ee947aec-3e70-e442-a968-641d7047adf2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[462615, 10309, 564, 8, 37, "Subsection",ExpressionUUID->"9cc4e34b-3cb1-fd46-bc08-683a1b30b697"], Cell[463182, 10319, 50385, 762, 273, "Input",ExpressionUUID->"823cdbb6-b812-ce41-8a7b-92819d0fe8b5", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[513604, 11086, 616, 9, 37, "Subsection",ExpressionUUID->"f81a4125-e38c-0c4f-9ca3-2540d4402538"], Cell[514223, 11097, 47140, 711, 310, "Input",ExpressionUUID->"2cc033cd-03da-3d47-be32-4f02ffa94cff", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[561400, 11813, 616, 9, 37, "Subsection",ExpressionUUID->"22b113f4-b49f-5946-91d1-0d1b0b339a4c"], Cell[562019, 11824, 46174, 648, 82, "Input",ExpressionUUID->"af82dcd8-a308-d14d-ac69-4580fb09923d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[608230, 12477, 563, 8, 37, "Subsection",ExpressionUUID->"dd7b6154-a294-f448-aa94-a5aced5344d2"], Cell[608796, 12487, 23779, 620, 1672, "Input",ExpressionUUID->"78657288-5b78-3843-9357-9a56bcd0dc14", InitializationCell->True], Cell[632578, 13109, 179419, 3615, 5183, "Input",ExpressionUUID->"aeb97daa-d42a-9f4d-af00-c3ef7c348256", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[812034, 16729, 621, 9, 37, "Subsection",ExpressionUUID->"bedce7dd-c90f-1f49-a198-caee1a5bd51a"], Cell[812658, 16740, 423077, 8282, 14387, "Input",ExpressionUUID->"8b240eaf-b3ca-074a-bb81-ce88cbfe072c"] }, Closed]], Cell[CellGroupData[{ Cell[1235772, 25027, 398, 6, 37, "Subsection",ExpressionUUID->"cdf867e1-791d-5047-88d1-cbd345735f41"], Cell[1236173, 25035, 25795, 632, 1614, "Input",ExpressionUUID->"71699e80-a447-7249-8729-f662f8fe3bbb", InitializationCell->True], Cell[1261971, 25669, 17321, 435, 1226, "Input",ExpressionUUID->"a8c5f611-e2b5-404e-bd2a-337c0090a62e"] }, Closed]], Cell[CellGroupData[{ Cell[1279329, 26109, 298, 5, 37, "Subsection",ExpressionUUID->"e924ff1e-36f1-4443-83c5-b7e6ccbf94e2"], Cell[1279630, 26116, 67664, 1196, 1097, "Input",ExpressionUUID->"6f3f4b48-0d3f-dd44-9b2d-be1a62e0e6d6", InitializationCell->True], Cell[1347297, 27314, 57283, 978, 1158, "Input",ExpressionUUID->"5df3dfdd-ed35-7146-9614-8523d46f2822"] }, Closed]], Cell[CellGroupData[{ Cell[1404617, 28297, 716, 10, 37, "Subsection",ExpressionUUID->"199952cc-2444-b94f-9e93-e54f4f6a5fad"], Cell[1405336, 28309, 54986, 881, 648, "Input",ExpressionUUID->"77ba44d1-cec8-154b-b96d-7ca6426cfb3a"] }, Closed]], Cell[CellGroupData[{ Cell[1460359, 29195, 319, 5, 37, "Subsection",ExpressionUUID->"d478adbb-16e6-1740-b819-a971be708c1b"], Cell[1460681, 29202, 419736, 9115, 17505, "Input",ExpressionUUID->"ebf00eba-5af1-af42-8441-35269156842b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1880466, 38323, 1038, 16, 52, "Section",ExpressionUUID->"aa073f39-1f2f-c040-b333-60bbbccdbd54"], Cell[CellGroupData[{ Cell[1881529, 38343, 268, 4, 53, "Subsection",ExpressionUUID->"45830126-03b9-2b40-afc8-a3d608261205"], Cell[1881800, 38349, 28253, 504, 807, "Input",ExpressionUUID->"ffe68bda-5d79-f349-93cc-456ca2a01ebb", InitializationCell->True], Cell[1910056, 38855, 32711, 637, 902, "Input",ExpressionUUID->"b77703bd-bcec-ca41-99eb-2614515272c0", InitializationCell->True], Cell[1942770, 39494, 31228, 590, 920, "Input",ExpressionUUID->"96b0a714-8ef4-744e-9e67-d47903a128ca", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1974035, 40089, 322, 5, 37, "Subsection",ExpressionUUID->"a203620a-2d4f-3546-ac26-a34defe4dda0"], Cell[1974360, 40096, 41056, 865, 1624, "Input",ExpressionUUID->"a5608058-8104-634f-802a-57bea674bf83", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2015453, 40966, 223, 4, 37, "Subsection",ExpressionUUID->"c59b5893-0d95-5040-bba9-0277b80fedfe"], Cell[2015679, 40972, 31005, 629, 1091, "Input",ExpressionUUID->"55ff4f53-d3e5-234d-9239-4453da852a4e", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2046721, 41606, 267, 4, 37, "Subsection",ExpressionUUID->"040139eb-8c87-6546-a2f2-ea500f882953"], Cell[2046991, 41612, 19469, 321, 348, "Input",ExpressionUUID->"3440354f-0046-204a-854d-f44f4e6bfd5d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2066497, 41938, 301, 5, 37, "Subsection",ExpressionUUID->"7aed83a6-d624-cf4f-8700-d6188f6b41a1"], Cell[2066801, 41945, 32662, 672, 1110, "Input",ExpressionUUID->"c613e353-12a4-344d-991c-8448d1ec8cdd", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2099500, 42622, 222, 4, 37, "Subsection",ExpressionUUID->"656b4897-ce3f-c94f-bb42-fcf376b2f612"], Cell[2099725, 42628, 32155, 664, 1245, "Input",ExpressionUUID->"ed5d3a40-7df2-8047-8005-79133adbd8c4", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2131917, 43297, 505, 7, 37, "Subsection",ExpressionUUID->"45ab09b3-e3df-d348-aa9d-f34c409f1e03"], Cell[2132425, 43306, 86762, 1631, 2506, "Input",ExpressionUUID->"8701fdbf-858f-e344-b01b-28a20910bf20", InitializationCell->True], Cell[2219190, 44939, 25990, 639, 1402, "Input",ExpressionUUID->"5f9e817a-ae22-4748-8bea-ac4a594ef15e"] }, Closed]], Cell[CellGroupData[{ Cell[2245217, 45583, 299, 5, 37, "Subsection",ExpressionUUID->"08acebcf-6de2-8a48-8a4b-c4ad549d5805"], Cell[2245519, 45590, 21783, 548, 1400, "Input",ExpressionUUID->"5392ff32-198a-d742-a101-b064df5ea82f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2267339, 46143, 552, 8, 37, "Subsection",ExpressionUUID->"358818e7-1209-db48-88ea-f86b441c339b"], Cell[2267894, 46153, 69179, 1187, 1266, "Input",ExpressionUUID->"d39c9729-9a7d-f545-b70c-43ffef0988b0", InitializationCell->True], Cell[2337076, 47342, 66227, 1132, 1193, "Input",ExpressionUUID->"74c372dd-0f16-164d-ab44-259b5d2e6f9a"] }, Closed]], Cell[CellGroupData[{ Cell[2403340, 48479, 495, 7, 37, "Subsection",ExpressionUUID->"b7284bae-7407-8449-ad5a-66882dde0555"], Cell[2403838, 48488, 89279, 1698, 2546, "Input",ExpressionUUID->"a44aeb1d-212d-d44d-9ebb-55a9564dd1f9", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2493166, 50192, 1040, 16, 52, "Section",ExpressionUUID->"ea72da7a-fbfb-a24c-b3df-3442394212a4"], Cell[CellGroupData[{ Cell[2494231, 50212, 275, 4, 53, "Subsection",ExpressionUUID->"e4c9a62b-6806-4e4e-a8c8-a85ea513ea51"], Cell[2494509, 50218, 41262, 859, 1833, "Input",ExpressionUUID->"ad8ee51f-c300-e84e-a524-9e36bb9c017a", InitializationCell->True], Cell[2535774, 51079, 30537, 594, 976, "Input",ExpressionUUID->"1da0ead2-8957-b54b-aedf-836865619472", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2566348, 51678, 253, 4, 37, "Subsection",ExpressionUUID->"53358e4e-3f9d-b547-b0d3-06dd7d8d7c82"], Cell[2566604, 51684, 27877, 547, 977, "Input",ExpressionUUID->"5299daa9-f079-4242-ad63-423aab46ae47", InitializationCell->True], Cell[2594484, 52233, 29493, 589, 1033, "Input",ExpressionUUID->"a02b564c-3333-a34c-96c1-748614788b47", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2624014, 52827, 273, 4, 37, "Subsection",ExpressionUUID->"831b1387-ebc3-0b4d-a2d0-054ae7c1401e"], Cell[2624290, 52833, 27420, 539, 940, "Input",ExpressionUUID->"cc7a5a51-8f4a-5a44-953a-1d5be9c1c8df", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2651747, 53377, 303, 5, 37, "Subsection",ExpressionUUID->"0e853dc2-c272-654b-bb07-c3f9db699b18"], Cell[2652053, 53384, 29394, 590, 1112, "Input",ExpressionUUID->"521523a2-6dbf-9b49-a0d5-5049b4aef3a0", InitializationCell->True], Cell[2681450, 53976, 98387, 2319, 6600, "Input",ExpressionUUID->"11fe3b57-3ba9-a34d-87f0-3f50b8531c6d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2779886, 56301, 1035, 16, 52, "Section",ExpressionUUID->"c049d55a-1bc2-0646-92f9-6f7142dc0936"], Cell[CellGroupData[{ Cell[2780946, 56321, 237, 4, 53, "Subsection",ExpressionUUID->"9cd0bc16-cfcf-7546-bbb1-8a138423edda"], Cell[2781186, 56327, 41342, 886, 2540, "Input",ExpressionUUID->"c8af7fd6-e69a-8d40-ae53-bd27d1179685", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[2822565, 57218, 233, 4, 53, "Subsection",ExpressionUUID->"57ba751f-c498-1e43-9425-6fb2a123c315"], Cell[2822801, 57224, 26462, 524, 1284, "Input",ExpressionUUID->"785c340b-3c11-444d-9ed7-8ea0864cf5da", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2849300, 57753, 208, 4, 37, "Subsection",ExpressionUUID->"1350ff1d-8fc3-c34c-86ae-f17afb45d4c4"], Cell[2849511, 57759, 24978, 474, 993, "Input",ExpressionUUID->"5a06cae0-d88b-cf4c-bcde-19954af428b3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2874526, 58238, 306, 5, 37, "Subsection",ExpressionUUID->"48606689-d665-714c-8744-f93a6b1946d0"], Cell[2874835, 58245, 29907, 621, 1300, "Input",ExpressionUUID->"352e3fa0-1604-8e46-832e-76f1e19daefe", InitializationCell->True], Cell[2904745, 58868, 3387, 93, 256, "Input",ExpressionUUID->"b3bfccc9-b2fa-0d44-b5d6-f6d36e0e3c48"] }, Closed]], Cell[CellGroupData[{ Cell[2908169, 58966, 310, 5, 37, "Subsection",ExpressionUUID->"d6216333-c6ba-5342-ab71-44bc91625a2e"], Cell[2908482, 58973, 13919, 217, 171, "Input",ExpressionUUID->"8fcfaa11-af17-374d-9119-05a01bc9c84f", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2922450, 59196, 991, 16, 52, "Section",ExpressionUUID->"7634b03b-2084-7e42-96f2-627a3d78e4a5"], Cell[CellGroupData[{ Cell[2923466, 59216, 431, 7, 53, "Subsection",ExpressionUUID->"38115cfd-4fad-5742-9919-a19133824093"], Cell[2923900, 59225, 19480, 468, 1281, "Input",ExpressionUUID->"59418ba3-63c8-9a43-8618-85480d363afb", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2943417, 59698, 86, 0, 37, "Subsection",ExpressionUUID->"9e50311c-4f64-674d-ba94-145c2265d0ac"], Cell[2943506, 59700, 15188, 404, 1110, "Input",ExpressionUUID->"f479c190-fc6c-504e-b6f0-90477411a621", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2958731, 60109, 210, 4, 37, "Subsection",ExpressionUUID->"c34e56cf-8e98-de46-88bb-0d4476a9830f"], Cell[2958944, 60115, 153415, 3832, 8016, "Input",ExpressionUUID->"c45a6771-1da4-3c40-a623-eba9b76cb09c", InitializationCell->True], Cell[3112362, 63949, 98818, 2497, 5184, "Input",ExpressionUUID->"68c9e649-e216-9d46-a153-e323b232c5f0"], Cell[3211183, 66448, 14850, 331, 713, "Input",ExpressionUUID->"d5c1fec4-a7d3-2a4a-b523-378c05e9ade1"], Cell[3226036, 66781, 14171, 327, 846, "Input",ExpressionUUID->"d13506c9-d451-f24f-a320-16c5fff621a8"], Cell[3240210, 67110, 49022, 1197, 2634, "Input",ExpressionUUID->"da578a00-d7fa-6b49-853a-57a8cb384e3f"], Cell[CellGroupData[{ Cell[3289257, 68311, 2493, 66, 161, "Input",ExpressionUUID->"ad5f64c8-ce41-854f-bacf-a194ec8454bb"], Cell[3291753, 68379, 1375, 42, 51, "Output",ExpressionUUID->"ff0dccbd-4257-fc49-8bc2-ce8b6ee6a637"] }, Open ]], Cell[3293143, 68424, 13049, 307, 694, "Input",ExpressionUUID->"0b2ca0bd-2009-7647-90fd-a312067764e5"], Cell[3306195, 68733, 27580, 510, 827, "Input",ExpressionUUID->"dc646b30-346b-ef46-bcbe-a5563ae14a3c"] }, Closed]], Cell[CellGroupData[{ Cell[3333812, 69248, 212, 4, 37, "Subsection",ExpressionUUID->"eb08ec26-5557-7147-981d-53138a6b2a02"], Cell[3334027, 69254, 28184, 596, 1110, "Input",ExpressionUUID->"3fbe8299-798b-7043-acf9-cf1de22b51bd", InitializationCell->True], Cell[3362214, 69852, 12807, 246, 503, "Input",ExpressionUUID->"ee008cf1-1a0c-d740-b522-b2a603563d63"], Cell[CellGroupData[{ Cell[3375046, 70102, 6880, 105, 85, "Input",ExpressionUUID->"6f741fa4-f607-8a4c-a913-cb66a9cec896"], Cell[3381929, 70209, 784, 22, 31, "Output",ExpressionUUID->"1a1f9b06-6871-7241-991a-2920c01e0f3f"] }, Open ]], Cell[3382728, 70234, 16752, 343, 618, "Input",ExpressionUUID->"dd872757-297d-9346-a707-60f3f72edfaf"] }, Closed]], Cell[CellGroupData[{ Cell[3399517, 70582, 310, 5, 37, "Subsection",ExpressionUUID->"1df0585d-100a-0246-901d-8312b5fa8eaa"], Cell[3399830, 70589, 16201, 354, 920, "Input",ExpressionUUID->"e0c29413-e717-f040-9434-074c4c27bdc3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3416068, 70948, 354, 6, 37, "Subsection",ExpressionUUID->"764a9de0-670c-d64b-87ed-081047a41ce5"], Cell[3416425, 70956, 11052, 243, 424, "Input",ExpressionUUID->"f4278d0e-283d-c342-a7fe-e84192420ec8", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3427514, 71204, 217, 4, 37, "Subsection",ExpressionUUID->"74deb461-b661-2640-822d-00a01b64d4b4"], Cell[3427734, 71210, 41233, 841, 3392, "Input",ExpressionUUID->"49232c9d-9ee3-be43-b3de-3a70de5f0e79", InitializationCell->True], Cell[3468970, 72053, 24223, 446, 1452, "Input",ExpressionUUID->"3a3ad2a4-afb3-314a-bb84-7df1088e8c0b", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3493230, 72504, 315, 5, 37, "Subsection",ExpressionUUID->"8a2c09b6-5b50-2f4c-96c9-3c65af26c783"], Cell[3493548, 72511, 61992, 1388, 4463, "Input",ExpressionUUID->"fcd6ae7a-aa79-de48-af86-f0e44f6410af", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3555577, 73904, 210, 4, 37, "Subsection",ExpressionUUID->"2881932d-84f9-9e4d-97c1-05f486a72b1a"], Cell[3555790, 73910, 23835, 510, 938, "Input",ExpressionUUID->"b5b34b88-0a82-4c42-b422-ca078eec224a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3579662, 74425, 86, 0, 37, "Subsection",ExpressionUUID->"961a742e-a451-0548-8f44-29620723830f"], Cell[3579751, 74427, 49116, 1259, 2901, "Input",ExpressionUUID->"251ef183-a8dc-ec47-997c-80876d0de3cd"] }, Closed]], Cell[CellGroupData[{ Cell[3628904, 75691, 430, 7, 37, "Subsection",ExpressionUUID->"24c98141-094f-2049-836a-1e84bf150eba"], Cell[3629337, 75700, 73490, 1869, 4113, "Input",ExpressionUUID->"8afe8f0d-1492-714b-be92-fad455510067", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3702864, 77574, 450, 7, 37, "Subsection",ExpressionUUID->"b42aaa1c-73c5-e444-9b1e-45a63707b6e5"], Cell[3703317, 77583, 14134, 240, 272, "Input",ExpressionUUID->"f3102a5e-06c7-9843-b780-df3c0e1e7257", InitializationCell->True], Cell[3717454, 77825, 12229, 179, 82, "Input",ExpressionUUID->"c3517871-74ba-8440-8799-e13ea477205c", InitializationCell->True], Cell[3729686, 78006, 17686, 327, 330, "Input",ExpressionUUID->"b45ddfad-62ae-2340-96d6-44b7c91c8c73", InitializationCell->True], Cell[3747375, 78335, 33259, 742, 1327, "Input",ExpressionUUID->"9f632ed9-76d5-c84a-a0b8-8cc7b3c239f9", InitializationCell->True], Cell[3780637, 79079, 33293, 738, 1434, "Input",ExpressionUUID->"ee8679c5-21f0-6945-a15c-714f9fce234e", InitializationCell->True], Cell[3813933, 79819, 14254, 241, 272, "Input",ExpressionUUID->"de3097dc-f7ca-2e46-b6bb-67cd51bad51c", InitializationCell->True], Cell[3828190, 80062, 85656, 2140, 4398, "Input",ExpressionUUID->"0f5f9213-5aa9-db44-964f-7b40ae9bf90d"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3913907, 82209, 967, 15, 72, "Title",ExpressionUUID->"6a385782-eb61-456f-9f91-380d4036a0d8"], Cell[CellGroupData[{ Cell[3914899, 82228, 1358, 19, 53, "Subsection",ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-42a83bd3e7cd"], Cell[CellGroupData[{ Cell[3916282, 82251, 586, 13, 43, "Subsubsection",ExpressionUUID->"162ac754-d74f-4ca6-80c8-d8d961edea19"], Cell[3916871, 82266, 2387, 72, 175, "Input",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[3919295, 82343, 509, 12, 34, "Subsubsection",ExpressionUUID->"8b303821-a3bc-4d02-b626-00ac8af3f93c"], Cell[3919807, 82357, 1243, 33, 60, "Input",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[3921087, 82395, 456, 11, 34, "Subsubsection",ExpressionUUID->"efb27dda-7a73-487d-b443-3bf17635a222"], Cell[3921546, 82408, 1332, 41, 80, "Input",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"], Cell[CellGroupData[{ Cell[3922903, 82453, 1988, 56, 160, "Input",ExpressionUUID->"5f613cb9-a9e2-4794-85a6-86c846186544"], Cell[3924894, 82511, 485, 14, 50, "Output",ExpressionUUID->"84d03451-e88f-406c-9148-b5d4913b09f7"], Cell[3925382, 82527, 321, 9, 50, "Output",ExpressionUUID->"d2fcd6f9-9b75-4a34-97bf-6cbadd9df4e4"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3925764, 82543, 1363, 19, 37, "Subsection",ExpressionUUID->"afb80a20-e5d9-4db8-bc99-2e402a0d6607"], Cell[CellGroupData[{ Cell[3927152, 82566, 310, 5, 43, "Subsubsection",ExpressionUUID->"b1de8e05-e4e5-4906-a827-733bd6c4e2d5"], Cell[3927465, 82573, 5961, 127, 331, "Input",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[3933429, 82702, 3517, 66, 160, "Input",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[3936949, 82770, 2249, 63, 200, "Input",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[3939201, 82835, 2295, 63, 200, "Input",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"], Cell[CellGroupData[{ Cell[3941521, 82902, 2054, 58, 140, "Input",ExpressionUUID->"19bb77ba-380c-49d2-99b3-5d1a77644648"], Cell[3943578, 82962, 632, 18, 50, "Output",ExpressionUUID->"a07f3917-4445-4893-bac5-45a1114501cc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[3944259, 82986, 338, 5, 34, "Subsubsection",ExpressionUUID->"d7109425-1791-4931-ad0b-bad3a9ba7ad1"], Cell[3944600, 82993, 10326, 278, 520, "Input",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[3954929, 83273, 8883, 229, 401, "Input",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[3963815, 83504, 6780, 168, 273, "Input",ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell[3970632, 83677, 338, 5, 34, "Subsubsection",ExpressionUUID->"fb5115cb-5c46-462d-b545-09d24c3dbd84"], Cell[CellGroupData[{ Cell[3970995, 83686, 10251, 299, 408, "Input",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[3981249, 83987, 2588, 39, 50, "Message",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[3983840, 84028, 1690, 27, 50, "Message",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[3985533, 84057, 950, 17, 50, "Message",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3986556, 84082, 676, 11, 72, "Title",ExpressionUUID->"c094e867-eedb-49ea-81fe-4ac178148a9f"], Cell[CellGroupData[{ Cell[3987257, 84097, 1061, 15, 54, "Subsection",ExpressionUUID->"4b032a41-028b-4092-b65a-9e634ae03405"], Cell[CellGroupData[{ Cell[3988343, 84116, 482, 7, 44, "Subsubsection",ExpressionUUID->"9aac42a8-292f-4229-ba7a-ff683fbe5b47"], Cell[3988828, 84125, 5745, 129, 294, "Input",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell[3994610, 84259, 487, 7, 36, "Subsubsection",ExpressionUUID->"61bce4a2-2758-460e-9011-10d261d3455b"], Cell[3995100, 84268, 4499, 95, 200, "Input",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell[3999636, 84368, 556, 8, 36, "Subsubsection",ExpressionUUID->"5f18722c-d360-4af9-9f52-1aaae1c2afe0"], Cell[4000195, 84378, 5818, 126, 237, "Input",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell[4006050, 84509, 582, 8, 36, "Subsubsection",ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-7e504f9c030c"], Cell[4006635, 84519, 5774, 120, 200, "Input",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell[4012446, 84644, 736, 10, 36, "Subsubsection",ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-11727f8765cd"], Cell[4013185, 84656, 6410, 132, 237, "Input",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell[4019632, 84793, 788, 11, 36, "Subsubsection",ExpressionUUID->"5de18652-2348-4485-9982-16fe2124dc17"], Cell[4020423, 84806, 6314, 127, 200, "Input",ExpressionUUID->"35452574-3b83-4220-8780-2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell[4026774, 84938, 1571, 22, 36, "Subsubsection",ExpressionUUID->"87164790-bcae-4741-ba81-0a41275accf6"], Cell[4028348, 84962, 4923, 93, 142, "Input",ExpressionUUID->"8a6264be-0729-7a4f-96d5-db91eff31694"] }, Closed]], Cell[CellGroupData[{ Cell[4033308, 85060, 1599, 23, 36, "Subsubsection",ExpressionUUID->"dae3bd26-a29b-7142-866b-9633fb5e10b5"], Cell[4034910, 85085, 4050, 63, 85, "Input",ExpressionUUID->"f71e10c3-03b0-af4a-8f62-1a9330b67ca4"] }, Closed]], Cell[CellGroupData[{ Cell[4038997, 85153, 1649, 23, 36, "Subsubsection",ExpressionUUID->"b17217b2-2353-1144-b24c-01e5fa948bb9"], Cell[4040649, 85178, 5397, 101, 211, "Input",ExpressionUUID->"230fb2dd-8092-ac4c-860b-76ee76346993"] }, Closed]], Cell[CellGroupData[{ Cell[4046083, 85284, 1720, 24, 36, "Subsubsection",ExpressionUUID->"aac723d5-53c6-0945-a5e3-4bee57202cf3"], Cell[4047806, 85310, 11531, 278, 581, "Input",ExpressionUUID->"d3684fb8-5007-3a47-bac0-050cf7cd75a4"] }, Closed]], Cell[CellGroupData[{ Cell[4059374, 85593, 1547, 22, 36, "Subsubsection",ExpressionUUID->"5009326f-ec18-1545-9df2-e9200b0bfa18"], Cell[4060924, 85617, 9175, 194, 305, "Input",ExpressionUUID->"176f575f-78d1-a842-8d35-b362b7aa665f"] }, Closed]], Cell[CellGroupData[{ Cell[4070136, 85816, 1947, 27, 36, "Subsubsection",ExpressionUUID->"6ec5922a-1d6a-9b48-968e-6cd75b80d9ec"], Cell[4072086, 85845, 8175, 160, 351, "Input",ExpressionUUID->"edbdeb9e-dd40-f940-94aa-d56e00d9c02b"], Cell[4080264, 86007, 6263, 113, 218, "Input",ExpressionUUID->"b646ade6-4732-3e45-9a1f-f93437b51d33"], Cell[4086530, 86122, 7487, 138, 200, "Input",ExpressionUUID->"69a36cb0-5f88-8743-9152-cbd61c700498"], Cell[4094020, 86262, 6021, 98, 180, "Input",ExpressionUUID->"4ade6000-31b4-4143-b49d-a1040ba66c2b"], Cell[4100044, 86362, 2649, 60, 197, "Input",ExpressionUUID->"5eaebe92-259a-6148-b488-8043e0caa7de"] }, Closed]], Cell[CellGroupData[{ Cell[4102730, 86427, 1999, 28, 36, "Subsubsection",ExpressionUUID->"553cba30-4b91-7346-a27b-ede3ef1cee97"], Cell[4104732, 86457, 7783, 153, 294, "Input",ExpressionUUID->"580dabf2-1fc6-3943-8886-0239b5d1c8d1"], Cell[4112518, 86612, 6594, 122, 237, "Input",ExpressionUUID->"068dc10e-05b0-7244-bdc2-6351029e317b"], Cell[4119115, 86736, 7591, 141, 200, "Input",ExpressionUUID->"9c94b632-728c-1a44-8c5c-fbfe1ae51402"], Cell[4126709, 86879, 6801, 121, 200, "Input",ExpressionUUID->"4ae05ff9-5a72-b34d-8022-2c9906f608d6"], Cell[4133513, 87002, 2682, 63, 197, "Input",ExpressionUUID->"ccce9606-484f-b548-a43c-dc1bfc9f7ec3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4136244, 87071, 970, 14, 38, "Subsection",ExpressionUUID->"412ad72e-a677-b540-b0a0-4e587654952c"], Cell[CellGroupData[{ Cell[4137239, 87089, 441, 7, 44, "Subsubsection",ExpressionUUID->"3a20cfd7-abd2-0545-8fc8-80911e4b1908"], Cell[4137683, 87098, 5007, 113, 377, "Input",ExpressionUUID->"2941f191-754a-ed45-8d6b-0862561c90b4"] }, Closed]], Cell[CellGroupData[{ Cell[4142727, 87216, 477, 8, 36, "Subsubsection",ExpressionUUID->"b56eb4cf-423e-a742-83d3-78b1c523c0ea"], Cell[4143207, 87226, 6560, 146, 370, "Input",ExpressionUUID->"77700759-7a19-1a48-be8a-fe48c92ae9dc"] }, Closed]], Cell[CellGroupData[{ Cell[4149804, 87377, 520, 8, 36, "Subsubsection",ExpressionUUID->"140cb21b-fdfd-544c-9e97-bad2cad3a4e6"], Cell[4150327, 87387, 3622, 90, 348, "Input",ExpressionUUID->"cd2769f4-5868-3842-8605-7b33cc4318e5"] }, Closed]], Cell[CellGroupData[{ Cell[4153986, 87482, 469, 8, 36, "Subsubsection",ExpressionUUID->"0ca25a2c-88e2-5644-a76d-08ec84787534"], Cell[4154458, 87492, 5311, 108, 306, "Input",ExpressionUUID->"447cf9e3-ba4c-d841-8d94-a7c9122fd169"] }, Closed]], Cell[CellGroupData[{ Cell[4159806, 87605, 546, 9, 36, "Subsubsection",ExpressionUUID->"7a2f6df1-6524-3f49-8020-957585e09bab"], Cell[4160355, 87616, 3667, 87, 327, "Input",ExpressionUUID->"1b3bdd0a-768d-fa4a-8ebf-88f74d6a588c"] }, Closed]], Cell[CellGroupData[{ Cell[4164059, 87708, 843, 12, 36, "Subsubsection",ExpressionUUID->"c59c805a-d435-5541-a252-e5fd525952c1"], Cell[4164905, 87722, 8440, 186, 460, "Input",ExpressionUUID->"48add26d-582e-534d-a833-9089376ddd92"] }, Closed]], Cell[CellGroupData[{ Cell[4173382, 87913, 965, 14, 36, "Subsubsection",ExpressionUUID->"4152460a-aef9-8543-ad41-5ed15c7ef7b8"], Cell[4174350, 87929, 16537, 344, 666, "Input",ExpressionUUID->"234e3896-da69-364d-8544-c8b4b3071ed3"] }, Closed]], Cell[CellGroupData[{ Cell[4190924, 88278, 1011, 14, 36, "Subsubsection",ExpressionUUID->"062780b4-5340-a64d-bb47-697465fb60a0"], Cell[4191938, 88294, 12462, 213, 237, "Input",ExpressionUUID->"deea5cb6-2b05-9b41-95c8-69e93698e459"], Cell[4204403, 88509, 13152, 241, 390, "Input",ExpressionUUID->"24d7eeae-0a24-1146-b654-a845d77ac627"] }, Closed]], Cell[CellGroupData[{ Cell[4217592, 88755, 507, 7, 36, "Subsubsection",ExpressionUUID->"5c5271d1-0c41-7042-b99c-91f02de5881d"], Cell[4218102, 88764, 5782, 152, 472, "Input",ExpressionUUID->"875762d8-9370-484f-a380-38edd0e78ab6"] }, Closed]], Cell[CellGroupData[{ Cell[4223921, 88921, 510, 7, 36, "Subsubsection",ExpressionUUID->"5c45dced-e16a-4f48-b0bc-0721270f9f31"], Cell[4224434, 88930, 4252, 106, 264, "Input",ExpressionUUID->"49b52746-4624-724a-a60b-aa6904485961"] }, Closed]], Cell[CellGroupData[{ Cell[4228723, 89041, 628, 9, 36, "Subsubsection",ExpressionUUID->"b8d77b38-d068-164b-bf0b-8f18363e53bc"], Cell[4229354, 89052, 4374, 102, 243, "Input",ExpressionUUID->"fac9cf72-403b-8e4e-99a6-3e0dfcfdb027"] }, Closed]], Cell[CellGroupData[{ Cell[4233765, 89159, 698, 10, 36, "Subsubsection",ExpressionUUID->"d02e711e-8378-6640-83bf-d80016988bb7"], Cell[4234466, 89171, 4073, 100, 264, "Input",ExpressionUUID->"cd855572-b77f-564e-9e3c-22b1dacf1fa0"] }, Closed]], Cell[CellGroupData[{ Cell[4238576, 89276, 614, 9, 36, "Subsubsection",ExpressionUUID->"4dcac30f-9644-0a4c-b456-8153658cb62f"], Cell[4239193, 89287, 2979, 68, 158, "Input",ExpressionUUID->"1a3f835b-ac03-2642-baad-9940408f1849"] }, Closed]], Cell[CellGroupData[{ Cell[4242209, 89360, 622, 9, 36, "Subsubsection",ExpressionUUID->"4f7428d6-cc4a-cd48-8836-6b8a404cb771"], Cell[4242834, 89371, 3989, 97, 243, "Input",ExpressionUUID->"095055e6-9015-094d-bc41-d90d54eb0e97"] }, Closed]], Cell[CellGroupData[{ Cell[4246860, 89473, 716, 10, 36, "Subsubsection",ExpressionUUID->"16682a47-8021-2d48-8ecc-d076e4743662"], Cell[4247579, 89485, 4198, 97, 264, "Input",ExpressionUUID->"929d22c7-d69c-054f-b39e-82c732d298ce"] }, Closed]], Cell[CellGroupData[{ Cell[4251814, 89587, 644, 9, 36, "Subsubsection",ExpressionUUID->"9462c346-e1a6-3340-9473-ad2e8240f0d6"], Cell[4252461, 89598, 3161, 81, 243, "Input",ExpressionUUID->"0fb97799-9218-c54b-a86b-bbfe7871f9c3"] }, Closed]], Cell[CellGroupData[{ Cell[4255659, 89684, 717, 10, 36, "Subsubsection",ExpressionUUID->"a6ef3c99-2399-5042-9ac2-536b6ee50115"], Cell[4256379, 89696, 4216, 104, 264, "Input",ExpressionUUID->"c8a72e95-23a8-fd4a-93e9-16e643161698"] }, Closed]], Cell[CellGroupData[{ Cell[4260632, 89805, 1045, 15, 36, "Subsubsection",ExpressionUUID->"e358c892-1b34-5649-a883-ad6c1514711a"], Cell[4261680, 89822, 5581, 135, 290, "Input",ExpressionUUID->"674b624e-bd7c-f144-9ea8-179db12a24d0"] }, Closed]], Cell[CellGroupData[{ Cell[4267298, 89962, 743, 11, 36, "Subsubsection",ExpressionUUID->"73452f71-cef5-9e44-9f99-9a474b6e2e4a"], Cell[4268044, 89975, 3587, 82, 201, "Input",ExpressionUUID->"0aa73f20-4e1a-6f44-8751-c90558c57bcd"] }, Closed]], Cell[CellGroupData[{ Cell[4271668, 90062, 691, 10, 36, "Subsubsection",ExpressionUUID->"61e34ba6-b14c-c545-9b5a-9d02caddf881"], Cell[4272362, 90074, 3134, 71, 222, "Input",ExpressionUUID->"e2f41d25-0c59-e747-9e01-f5c4bf499e03"] }, Closed]], Cell[CellGroupData[{ Cell[4275533, 90150, 752, 11, 36, "Subsubsection",ExpressionUUID->"ff7cea05-24d7-e94d-9a0e-2d091cd48c34"], Cell[4276288, 90163, 4735, 111, 293, "Input",ExpressionUUID->"1f435368-3e16-4849-bb1d-529a03f9845a"] }, Closed]], Cell[CellGroupData[{ Cell[4281060, 90279, 722, 10, 36, "Subsubsection",ExpressionUUID->"797da4af-b50a-524e-9f22-7d83cffc05c8"], Cell[4281785, 90291, 3742, 93, 243, "Input",ExpressionUUID->"f67d5bbc-cf80-da49-a07a-b0fb18cb5ab6"] }, Closed]], Cell[CellGroupData[{ Cell[4285564, 90389, 768, 11, 36, "Subsubsection",ExpressionUUID->"d93dbbf3-60ce-3a42-861c-236403f7debe"], Cell[4286335, 90402, 5713, 139, 266, "Input",ExpressionUUID->"ea4af5cb-c8cd-a04f-83da-0d3e651d8645"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4292097, 90547, 593, 9, 38, "Subsection",ExpressionUUID->"d6d02511-0275-a94d-b6ac-8bccccb64d31"], Cell[CellGroupData[{ Cell[4292715, 90560, 487, 8, 44, "Subsubsection",ExpressionUUID->"d62094fd-aa45-8949-838c-47f5cfee1c15"], Cell[4293205, 90570, 1598, 33, 133, "Input",ExpressionUUID->"86b72a4c-51cb-d343-85a4-1cbe4a385b23"] }, Closed]], Cell[CellGroupData[{ Cell[4294840, 90608, 500, 8, 36, "Subsubsection",ExpressionUUID->"d38ea566-d096-ef4e-9ebc-a9cce74af44c"], Cell[4295343, 90618, 1815, 45, 176, "Input",ExpressionUUID->"5313e4a1-321e-424d-82d5-482462d2773d"] }, Closed]], Cell[CellGroupData[{ Cell[4297195, 90668, 476, 7, 36, "Subsubsection",ExpressionUUID->"80e9f849-c812-b141-817c-29e3db4603c0"], Cell[4297674, 90677, 6323, 146, 370, "Input",ExpressionUUID->"96b7a50f-9d6a-744d-bc1f-d9792387b037"] }, Closed]], Cell[CellGroupData[{ Cell[4304034, 90828, 528, 8, 36, "Subsubsection",ExpressionUUID->"6e60def8-e392-cb4f-a722-85ae783d971d"], Cell[4304565, 90838, 6397, 148, 380, "Input",ExpressionUUID->"20f437c5-06a7-3a4a-98b8-c00e57ccf984"] }, Closed]], Cell[CellGroupData[{ Cell[4310999, 90991, 677, 15, 36, "Subsubsection",ExpressionUUID->"fecff752-853d-bf48-8d09-24915bcb318a"], Cell[4311679, 91008, 5298, 113, 264, "Input",ExpressionUUID->"edde57d8-4fc8-2e4a-8b01-15bb0aa01318"] }, Closed]], Cell[CellGroupData[{ Cell[4317014, 91126, 517, 8, 36, "Subsubsection",ExpressionUUID->"2917428d-39b4-ed4b-9d7f-384c93f316ab"], Cell[4317534, 91136, 4929, 96, 243, "Input",ExpressionUUID->"b16f1bd9-afdc-0d4e-b5a0-ad358e72da8b"] }, Closed]], Cell[CellGroupData[{ Cell[4322500, 91237, 569, 8, 36, "Subsubsection",ExpressionUUID->"44c10090-82aa-b948-8e1e-2c1d99fb6533"], Cell[4323072, 91247, 3054, 73, 222, "Input",ExpressionUUID->"820f6c5e-ba77-e147-b46e-95bbdecab756"] }, Closed]], Cell[CellGroupData[{ Cell[4326163, 91325, 414, 7, 36, "Subsubsection",ExpressionUUID->"ef7bbdf5-c11a-3342-9e93-b282012781a8"], Cell[4326580, 91334, 3926, 97, 306, "Input",ExpressionUUID->"66a77dec-d279-d445-9231-db01ab743bb2"] }, Closed]], Cell[CellGroupData[{ Cell[4330543, 91436, 804, 12, 36, "Subsubsection",ExpressionUUID->"4998c72b-c7d6-664b-a997-12de336e44e3"], Cell[4331350, 91450, 8374, 190, 396, "Input",ExpressionUUID->"79e6d9ec-ad6f-b846-9fdb-5557722505b4"] }, Closed]], Cell[CellGroupData[{ Cell[4339761, 91645, 1081, 15, 36, "Subsubsection",ExpressionUUID->"d31880e0-1750-cf46-8d94-6358329b63fb"], Cell[4340845, 91662, 17671, 360, 666, "Input",ExpressionUUID->"32c4e497-d27d-a84c-bdae-a7bb028b4895"] }, Closed]], Cell[CellGroupData[{ Cell[4358553, 92027, 461, 7, 36, "Subsubsection",ExpressionUUID->"cc27216d-8ca4-f64c-9777-aac0bc03329f"], Cell[4359017, 92036, 2422, 55, 367, "Input",ExpressionUUID->"a1a79b53-f314-b847-b288-783019b329ef"] }, Closed]], Cell[CellGroupData[{ Cell[4361476, 92096, 435, 7, 36, "Subsubsection",ExpressionUUID->"fe7abcf4-43cb-0943-9835-2275ff1d8979"], Cell[4361914, 92105, 2173, 62, 133, "Input",ExpressionUUID->"ffb9a09e-36d0-a245-bacf-e8b61bb17bc2"] }, Closed]], Cell[CellGroupData[{ Cell[4364124, 92172, 401, 7, 36, "Subsubsection",ExpressionUUID->"a7d5ce3a-ff56-cb44-ae9d-c2c267294216"], Cell[4364528, 92181, 3900, 97, 306, "Input",ExpressionUUID->"a238a1fc-55cb-fb48-b6ec-be60d253dc21"] }, Closed]], Cell[CellGroupData[{ Cell[4368465, 92283, 373, 6, 36, "Subsubsection",ExpressionUUID->"4eb58270-a31d-0746-9704-7daf0790c472"], Cell[4368841, 92291, 4601, 117, 370, "Input",ExpressionUUID->"0c831dca-e338-1c4b-af90-11dbdc3a1185"] }, Closed]], Cell[CellGroupData[{ Cell[4373479, 92413, 471, 8, 36, "Subsubsection",ExpressionUUID->"893b8c10-e641-f74b-b6a6-a8957492bda6"], Cell[4373953, 92423, 3715, 87, 312, "Input",ExpressionUUID->"78c78191-1f6e-1e41-904f-a1b558e511a9"] }, Closed]], Cell[CellGroupData[{ Cell[4377705, 92515, 546, 8, 36, "Subsubsection",ExpressionUUID->"49775c60-63e1-a143-a0fe-e8cc9d6e0d37"], Cell[4378254, 92525, 3223, 81, 285, "Input",ExpressionUUID->"b0cb64cb-5ec4-664e-a542-8d911b94268e"] }, Closed]], Cell[CellGroupData[{ Cell[4381514, 92611, 473, 8, 36, "Subsubsection",ExpressionUUID->"59424dbe-4c00-5e44-a74f-c14b2825be6f"], Cell[4381990, 92621, 3508, 84, 306, "Input",ExpressionUUID->"f0b870ed-7670-174b-82b6-8fa35ede1540"], Cell[4385501, 92707, 3079, 72, 285, "Input",ExpressionUUID->"3a8144d3-0eb0-7946-b97e-91908ea04fcb"] }, Closed]], Cell[CellGroupData[{ Cell[4388617, 92784, 614, 9, 36, "Subsubsection",ExpressionUUID->"70b1dd53-67de-604a-8004-652d95a868c5"], Cell[4389234, 92795, 5581, 129, 370, "Input",ExpressionUUID->"11e6a169-3341-d74f-92d2-1b49b0fbfb07"] }, Closed]], Cell[CellGroupData[{ Cell[4394852, 92929, 642, 9, 36, "Subsubsection",ExpressionUUID->"9aa43e1c-8081-e641-8410-1acfee268cc7"], Cell[4395497, 92940, 6280, 144, 454, "Input",ExpressionUUID->"2c5ba1c3-04e1-474d-8298-5eb4292b9587"], Cell[4401780, 93086, 6165, 143, 391, "Input",ExpressionUUID->"7ae0d7f6-6012-6240-a5d3-88d6a9f17acd"] }, Closed]], Cell[CellGroupData[{ Cell[4407982, 93234, 670, 10, 36, "Subsubsection",ExpressionUUID->"d8c7d0b8-3e17-6248-bb59-3d1cc154d344"], Cell[4408655, 93246, 7795, 180, 445, "Input",ExpressionUUID->"29ded0e6-07f8-a24b-b928-966c105e9845"] }, Closed]], Cell[CellGroupData[{ Cell[4416487, 93431, 507, 8, 36, "Subsubsection",ExpressionUUID->"45f3eae2-347f-674a-a5a3-c785f2834f28"], Cell[4416997, 93441, 1982, 38, 155, "Input",ExpressionUUID->"3cb68cda-128e-5c4a-a8af-17685a73e59b"] }, Closed]], Cell[CellGroupData[{ Cell[4419016, 93484, 597, 9, 36, "Subsubsection",ExpressionUUID->"11dd0418-facb-394c-9be5-9d3aee8082f0"], Cell[4419616, 93495, 2791, 74, 285, "Input",ExpressionUUID->"6bbd7008-6316-c04a-8d12-bd8670f6d3c1"] }, Closed]], Cell[CellGroupData[{ Cell[4422444, 93574, 521, 8, 36, "Subsubsection",ExpressionUUID->"798de53c-35a5-404d-9596-b6de6828a2a1"], Cell[4422968, 93584, 5614, 117, 348, "Input",ExpressionUUID->"5edc25b9-7bcf-484f-9d17-aab89ff9e4b3"] }, Closed]], Cell[CellGroupData[{ Cell[4428619, 93706, 541, 9, 36, "Subsubsection",ExpressionUUID->"d4daae07-88b1-2d40-b56e-de66e930fa51"], Cell[4429163, 93717, 3371, 76, 306, "Input",ExpressionUUID->"bbc8010a-abf8-734b-b60d-7fa3bd28dca0"] }, Closed]], Cell[CellGroupData[{ Cell[4432571, 93798, 661, 10, 36, "Subsubsection",ExpressionUUID->"f23a179b-72a9-6b43-9c29-f31f1b03289d"], Cell[4433235, 93810, 4535, 97, 327, "Input",ExpressionUUID->"d4cea849-27a4-0543-917a-725c8a80876a"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4437819, 93913, 862, 13, 38, "Subsection",ExpressionUUID->"8e55be6d-f485-d54e-827e-08af4ea6b9c1"], Cell[CellGroupData[{ Cell[4438706, 93930, 487, 8, 45, "Subsubsection",ExpressionUUID->"f0091076-f7fc-5d40-8eb6-b23879c3e327"], Cell[4439196, 93940, 5244, 112, 257, "Input",ExpressionUUID->"2f56d354-aa07-f546-82c8-021022c8f4a5"] }, Closed]], Cell[CellGroupData[{ Cell[4444477, 94057, 595, 9, 37, "Subsubsection",ExpressionUUID->"8a320d27-4d52-7046-ae91-13298ef0b155"], Cell[4445075, 94068, 6944, 159, 387, "Input",ExpressionUUID->"76478e8e-a444-374b-b59d-b1f60be74963"] }, Closed]], Cell[CellGroupData[{ Cell[4452056, 94232, 1012, 14, 37, "Subsubsection",ExpressionUUID->"33f156d2-6c77-6648-a3fc-6ba0fc12e421"], Cell[4453071, 94248, 8243, 192, 405, "Input",ExpressionUUID->"4d0b1143-fce8-5741-b6c6-168968010e8d"] }, Closed]], Cell[CellGroupData[{ Cell[4461351, 94445, 1133, 16, 37, "Subsubsection",ExpressionUUID->"e57a23cb-d249-9f49-9ef9-7920502614cc"], Cell[4462487, 94463, 17936, 345, 523, "Input",ExpressionUUID->"b138b54a-7af7-e64d-b9b0-d669ea000eec"] }, Closed]], Cell[CellGroupData[{ Cell[4480460, 94813, 713, 10, 37, "Subsubsection",ExpressionUUID->"e8a1f98a-408c-8641-b85e-ad75459aef2c"], Cell[4481176, 94825, 7531, 163, 359, "Input",ExpressionUUID->"3d99cd5f-ee87-d340-8198-0bb01f1c9604"] }, Closed]], Cell[CellGroupData[{ Cell[4488744, 94993, 513, 8, 37, "Subsubsection",ExpressionUUID->"dfe79472-347b-da4b-ad91-d67724c0e2c3"], Cell[4489260, 95003, 4569, 102, 257, "Input",ExpressionUUID->"6b8d3b8d-5871-7849-ac19-536a9884f6d7"] }, Closed]], Cell[CellGroupData[{ Cell[4493866, 95110, 389, 7, 37, "Subsubsection",ExpressionUUID->"b52c81bb-69fe-7d42-bd08-2778d4d4ead5"], Cell[4494258, 95119, 4130, 96, 257, "Input",ExpressionUUID->"94913b26-9713-1d4b-948c-4c103a65fae1"] }, Closed]], Cell[CellGroupData[{ Cell[4498425, 95220, 411, 7, 37, "Subsubsection",ExpressionUUID->"36941488-4c7f-264c-a121-cdb4f3b6a0ff"], Cell[4498839, 95229, 4310, 100, 257, "Input",ExpressionUUID->"d486f47c-c74c-e14e-8ec1-14a5aa3c20aa"] }, Closed]], Cell[CellGroupData[{ Cell[4503186, 95334, 363, 6, 37, "Subsubsection",ExpressionUUID->"dcc356e7-2a09-9348-9635-f76536dc6038"], Cell[4503552, 95342, 4948, 118, 295, "Input",ExpressionUUID->"5f3e857b-f7dc-a443-bc0b-0ab3fb54cfff"] }, Closed]], Cell[CellGroupData[{ Cell[4508537, 95465, 460, 8, 37, "Subsubsection",ExpressionUUID->"88cb6509-a52c-274f-86d3-6bf9c0056611"], Cell[4509000, 95475, 5444, 130, 314, "Input",ExpressionUUID->"69c8bd00-bb3c-2641-a3fd-b169f6a0db09"] }, Closed]], Cell[CellGroupData[{ Cell[4514481, 95610, 515, 8, 37, "Subsubsection",ExpressionUUID->"eeac354e-83b9-774d-84b7-088379966ffb"], Cell[4514999, 95620, 5303, 127, 295, "Input",ExpressionUUID->"54616558-12cf-9c4c-a633-cf1ddc309d7c"] }, Closed]], Cell[CellGroupData[{ Cell[4520339, 95752, 509, 8, 37, "Subsubsection",ExpressionUUID->"89867e1d-8d10-a446-b816-963d91fc14a9"], Cell[4520851, 95762, 4092, 94, 238, "Input",ExpressionUUID->"3b3ffb59-3d42-f640-bb28-fb562155f983"] }, Closed]], Cell[CellGroupData[{ Cell[4524980, 95861, 535, 9, 37, "Subsubsection",ExpressionUUID->"85a334d4-c99d-a547-9322-4d11f3e8c6c7"], Cell[4525518, 95872, 8420, 200, 409, "Input",ExpressionUUID->"b5610804-fdf8-1c4a-8124-1a84f7e08ac5"] }, Closed]], Cell[CellGroupData[{ Cell[4533975, 96077, 586, 9, 37, "Subsubsection",ExpressionUUID->"1c45adbf-e9a3-7f48-9fda-a743478f1bd7"], Cell[4534564, 96088, 9037, 210, 501, "Input",ExpressionUUID->"ccfeda88-982b-7943-946b-26a63d660e53"] }, Closed]], Cell[CellGroupData[{ Cell[4543638, 96303, 734, 11, 37, "Subsubsection",ExpressionUUID->"cad3b930-426c-0e4b-ab6e-f0b8eaaf3d1e"], Cell[4544375, 96316, 8303, 184, 309, "Input",ExpressionUUID->"c7953539-398d-8241-94df-ce04540b77ef"] }, Closed]], Cell[CellGroupData[{ Cell[4552715, 96505, 559, 9, 37, "Subsubsection",ExpressionUUID->"363f50bb-0725-f74a-85cb-2cf3e6c93217"], Cell[4553277, 96516, 4719, 104, 257, "Input",ExpressionUUID->"aa948868-cf66-0d46-98aa-fc8250c8b4b4"] }, Closed]], Cell[CellGroupData[{ Cell[4558033, 96625, 583, 9, 37, "Subsubsection",ExpressionUUID->"6ea9352b-8104-9447-8d24-73a804b4af34"], Cell[4558619, 96636, 5041, 106, 276, "Input",ExpressionUUID->"cb25a19c-86f4-6249-9acc-9ee83297a66c"] }, Closed]], Cell[CellGroupData[{ Cell[4563697, 96747, 462, 8, 37, "Subsubsection",ExpressionUUID->"3f8336d3-fc8d-9649-80c0-83dc69685306"], Cell[4564162, 96757, 5394, 128, 295, "Input",ExpressionUUID->"c1c9862d-f073-174e-a8fb-e87985f495e0"] }, Closed]], Cell[CellGroupData[{ Cell[4569593, 96890, 529, 9, 37, "Subsubsection",ExpressionUUID->"65c65abf-00d6-4545-8f15-0c80ab1c3103"], Cell[4570125, 96901, 4212, 96, 238, "Input",ExpressionUUID->"e9099eb3-df17-b64b-98d1-c89e044d17d9"] }, Closed]], Cell[CellGroupData[{ Cell[4574374, 97002, 807, 12, 37, "Subsubsection",ExpressionUUID->"96906825-6a88-924d-bc5e-428cfe7a4e5a"], Cell[4575184, 97016, 10160, 209, 301, "Input",ExpressionUUID->"165a7e07-2c2f-244b-bf7f-5d44ad98d78b"] }, Closed]], Cell[CellGroupData[{ Cell[4585381, 97230, 839, 13, 37, "Subsubsection",ExpressionUUID->"0bfeed4c-b7b2-304e-800e-b00e6af7b224"], Cell[4586223, 97245, 14436, 324, 545, "Input",ExpressionUUID->"33055b65-97e3-4648-8054-9389a5683a1e"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4600708, 97575, 888, 13, 38, "Subsection",ExpressionUUID->"f761a8e1-ba49-164f-bb93-a768e5e7cc5f"], Cell[CellGroupData[{ Cell[4601621, 97592, 542, 9, 45, "Subsubsection",ExpressionUUID->"824834e3-adc0-9e49-a812-cbc5fa219a2e"], Cell[4602166, 97603, 6592, 144, 259, "Input",ExpressionUUID->"82df7def-a913-c44b-8be2-67d55bd10ac2"] }, Closed]], Cell[CellGroupData[{ Cell[4608795, 97752, 582, 9, 37, "Subsubsection",ExpressionUUID->"7b8f6e4c-eccf-c04a-a61c-b80822b4c222"], Cell[4609380, 97763, 7177, 165, 299, "Input",ExpressionUUID->"65f4f22b-29d9-0843-94e1-33aedf21642e"] }, Closed]], Cell[CellGroupData[{ Cell[4616594, 97933, 737, 11, 37, "Subsubsection",ExpressionUUID->"1aef3306-0070-1f4d-bbf0-6c0e358ec14b"], Cell[4617334, 97946, 4595, 101, 179, "Input",ExpressionUUID->"fff5295f-b195-7145-8a4e-f708e52d7572"] }, Closed]], Cell[CellGroupData[{ Cell[4621966, 98052, 579, 9, 37, "Subsubsection",ExpressionUUID->"d09cca50-fcfe-2f4c-8c6a-a2984fed7de9"], Cell[4622548, 98063, 3319, 85, 179, "Input",ExpressionUUID->"2df868f6-3e38-bf4b-90b6-76e00a45d0b3"] }, Closed]], Cell[CellGroupData[{ Cell[4625904, 98153, 496, 8, 37, "Subsubsection",ExpressionUUID->"ac0022a5-a92e-834b-a8b6-3e031530ba3e"], Cell[4626403, 98163, 6099, 146, 273, "Input",ExpressionUUID->"ad1c9c7d-8513-dd4e-a0f4-fbc3c8c1d438"] }, Closed]], Cell[CellGroupData[{ Cell[4632539, 98314, 542, 9, 37, "Subsubsection",ExpressionUUID->"5f8a392c-782e-c44c-8f19-517c4d0f99d6"], Cell[4633084, 98325, 5067, 119, 219, "Input",ExpressionUUID->"1a9a48a5-58da-6a43-85a7-796659085b6d"] }, Closed]], Cell[CellGroupData[{ Cell[4638188, 98449, 346, 5, 37, "Subsubsection",ExpressionUUID->"8cda5265-cd0e-9a4d-950f-761bc5bdac9a"], Cell[4638537, 98456, 813, 18, 33, "Input",ExpressionUUID->"af0753fc-560d-da46-bd83-2e191cb66d17"] }, Closed]], Cell[CellGroupData[{ Cell[4639387, 98479, 387, 6, 37, "Subsubsection",ExpressionUUID->"46e6d11d-e626-a24e-b902-2958308943b6"], Cell[4639777, 98487, 4247, 101, 180, "Input",ExpressionUUID->"b480b79a-6b8d-f441-a2c7-ec69dfad503b"] }, Closed]], Cell[CellGroupData[{ Cell[4644061, 98593, 293, 5, 37, "Subsubsection",ExpressionUUID->"94572680-b6c8-924a-b6e3-fe6b472722a0"], Cell[4644357, 98600, 4268, 102, 206, "Input",ExpressionUUID->"7346f1db-003e-5347-a3c7-e9b6779c8563"] }, Closed]], Cell[CellGroupData[{ Cell[4648662, 98707, 319, 6, 37, "Subsubsection",ExpressionUUID->"21d18b71-b3c1-1f43-bc8e-abdf103c232d"], Cell[4648984, 98715, 5154, 129, 273, "Input",ExpressionUUID->"17a71444-7d6a-d246-bf40-2e5f91bd31d2"] }, Closed]], Cell[CellGroupData[{ Cell[4654175, 98849, 339, 6, 37, "Subsubsection",ExpressionUUID->"0d573542-96b3-8b40-9f0d-f1bbf7f018fc"], Cell[4654517, 98857, 4461, 100, 220, "Input",ExpressionUUID->"b2998c9a-8ae8-c04a-82bd-97fa5a663402"] }, Closed]], Cell[CellGroupData[{ Cell[4659015, 98962, 324, 6, 37, "Subsubsection",ExpressionUUID->"7b27434a-e0fa-0443-be47-e4846cc9de38"], Cell[4659342, 98970, 4419, 112, 260, "Input",ExpressionUUID->"c3ceebd8-4590-b74c-aeac-860aff1a4647"] }, Closed]], Cell[CellGroupData[{ Cell[4663798, 99087, 499, 8, 37, "Subsubsection",ExpressionUUID->"da3541eb-fcdc-c648-945c-482f44e76021"], Cell[4664300, 99097, 4178, 104, 246, "Input",ExpressionUUID->"922cb3b4-3727-8c4c-9ade-eb0deba7dea3"] }, Closed]], Cell[CellGroupData[{ Cell[4668515, 99206, 511, 8, 37, "Subsubsection",ExpressionUUID->"fd560e3c-e6fd-ae4b-a49c-77822e2a285e"], Cell[4669029, 99216, 5102, 128, 273, "Input",ExpressionUUID->"2bca2379-b0e4-3e43-b0a4-20bf50870687"] }, Closed]], Cell[CellGroupData[{ Cell[4674168, 99349, 494, 8, 37, "Subsubsection",ExpressionUUID->"dcd7c0ad-7ca9-8749-b450-0ca8e9188b0b"], Cell[4674665, 99359, 5270, 119, 233, "Input",ExpressionUUID->"598d6c43-cead-e74a-b860-b7d11b278f7e"] }, Closed]], Cell[CellGroupData[{ Cell[4679972, 99483, 551, 9, 37, "Subsubsection",ExpressionUUID->"6382cac5-ee3f-4a45-9222-c47497de777c"], Cell[4680526, 99494, 4932, 118, 273, "Input",ExpressionUUID->"dfff7412-f2b4-984e-bc72-fdcf44a0cfba"] }, Closed]], Cell[CellGroupData[{ Cell[4685495, 99617, 412, 7, 37, "Subsubsection",ExpressionUUID->"6c65d98c-f59c-8545-aece-22b298134713"], Cell[4685910, 99626, 3934, 86, 153, "Input",ExpressionUUID->"962aed7e-8f95-d644-adc2-3738056ddbc1"] }, Closed]], Cell[CellGroupData[{ Cell[4689881, 99717, 362, 6, 37, "Subsubsection",ExpressionUUID->"c8954b62-f712-4f49-ab27-d821229617f2"], Cell[4690246, 99725, 3726, 83, 140, "Input",ExpressionUUID->"9d73f3b6-7cb8-3640-9d93-e494763f26f3"] }, Closed]], Cell[CellGroupData[{ Cell[4694009, 99813, 364, 6, 37, "Subsubsection",ExpressionUUID->"c27bba05-ced0-2440-b93a-4022a25ef5e8"], Cell[CellGroupData[{ Cell[4694398, 99823, 4212, 93, 257, "Input",ExpressionUUID->"2c59d258-1304-a94d-8ef2-89e7c960e996"], Cell[4698613, 99918, 4216, 118, 139, "Output",ExpressionUUID->"22200f38-f048-6d41-ac6e-f6709f9efdf7"], Cell[4702832, 100038, 2503, 67, 35, "Print",ExpressionUUID->"df11f3d1-a045-5a46-b7da-f336583d0eac"], Cell[4705338, 100107, 389, 11, 50, "Output",ExpressionUUID->"a5ef9eb3-6901-9048-9a94-44ebd727af3f"] }, Open ]], Cell[4705742, 100121, 1058, 30, 41, "Input",ExpressionUUID->"4fac46eb-e2ce-104c-9b13-90c99eb09575"] }, Open ]], Cell[CellGroupData[{ Cell[4706837, 100156, 427, 7, 45, "Subsubsection",ExpressionUUID->"53df34da-a2b6-fc4e-b6c2-7ee9c86e9550"], Cell[4707267, 100165, 6347, 153, 273, "Input",ExpressionUUID->"0cfd0329-6e46-7b4e-86de-aa22b7e10882"] }, Closed]], Cell[CellGroupData[{ Cell[4713651, 100323, 571, 9, 37, "Subsubsection",ExpressionUUID->"bc24a997-66b2-5547-b709-e9d27fa1f1f1"], Cell[CellGroupData[{ Cell[4714247, 100336, 4374, 101, 276, "Input",ExpressionUUID->"2924ab6b-a734-2e41-98bb-bf713fc08af6"], Cell[4718624, 100439, 4519, 128, 150, "Output",ExpressionUUID->"5a39005c-e53b-8743-ac78-99cfdc5bcdb5"], Cell[4723146, 100569, 2359, 64, 39, "Print",ExpressionUUID->"36fe38af-9dc7-6e44-aa4e-6898080f52e9"], Cell[4725508, 100635, 482, 15, 52, "Output",ExpressionUUID->"de2f4f0e-29a4-5c46-ac10-68df963d665a"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[4726051, 100657, 1044, 15, 38, "Subsection",ExpressionUUID->"43a53a10-46cd-0444-a7db-8eb500e43819"], Cell[CellGroupData[{ Cell[4727120, 100676, 273, 4, 45, "Subsubsection",ExpressionUUID->"6b521199-a272-3c45-86fe-eae93eb6b6a0"], Cell[4727396, 100682, 5456, 141, 333, "Input",ExpressionUUID->"e19b56a2-184d-fe46-a556-eebacd6482e6"] }, Closed]], Cell[CellGroupData[{ Cell[4732889, 100828, 300, 5, 37, "Subsubsection",ExpressionUUID->"6991bcd9-890e-b841-8c36-a10e418ee264"], Cell[4733192, 100835, 3782, 96, 314, "Input",ExpressionUUID->"befa8fd3-cc5f-5d40-850c-90b0e6053134"] }, Closed]], Cell[CellGroupData[{ Cell[4737011, 100936, 710, 11, 37, "Subsubsection",ExpressionUUID->"5f3a35e1-c06c-544d-9d5e-50fcaea42282"], Cell[4737724, 100949, 5688, 119, 333, "Input",ExpressionUUID->"43e393f8-5ccd-184f-91bf-db08ff5585d0"] }, Closed]], Cell[CellGroupData[{ Cell[4743449, 101073, 446, 7, 37, "Subsubsection",ExpressionUUID->"17699dd1-f25d-694f-9a19-e34e215982b0"], Cell[4743898, 101082, 3461, 88, 276, "Input",ExpressionUUID->"26cd9ef7-f2f9-6743-af35-bb7ff76d8e53"] }, Closed]], Cell[CellGroupData[{ Cell[4747396, 101175, 1039, 15, 37, "Subsubsection",ExpressionUUID->"5830dd55-7be5-8a4b-86b5-aa114dd70d74"], Cell[4748438, 101192, 7660, 174, 339, "Input",ExpressionUUID->"94140293-f0fd-7341-a5ab-058629d3260f"] }, Closed]], Cell[CellGroupData[{ Cell[4756135, 101371, 321, 5, 37, "Subsubsection",ExpressionUUID->"7bd5d1d7-8155-bb4b-8258-745ed502ca17"], Cell[4756459, 101378, 2913, 70, 219, "Input",ExpressionUUID->"2b4e7abb-dd81-3242-8f9d-b97ea34e2bab"] }, Closed]], Cell[CellGroupData[{ Cell[4759409, 101453, 322, 5, 37, "Subsubsection",ExpressionUUID->"8d130408-2b8a-6345-84ee-67932c3d8655"], Cell[4759734, 101460, 3738, 91, 276, "Input",ExpressionUUID->"51e4ac9b-b721-6840-8dfa-44a243515fb0"] }, Closed]], Cell[CellGroupData[{ Cell[4763509, 101556, 468, 7, 37, "Subsubsection",ExpressionUUID->"941c9479-7853-904b-9fc9-4c9177e2e83f"], Cell[4763980, 101565, 5197, 134, 359, "Input",ExpressionUUID->"73cc2acd-d467-f54e-9a90-65ae565a118b"] }, Closed]], Cell[CellGroupData[{ Cell[4769214, 101704, 444, 7, 37, "Subsubsection",ExpressionUUID->"51fa043e-42e4-6d4b-8446-b2c1de8c002d"], Cell[4769661, 101713, 4906, 127, 333, "Input",ExpressionUUID->"04c5d814-81d5-d340-934e-c5be13c9c115"] }, Closed]], Cell[CellGroupData[{ Cell[4774604, 101845, 543, 8, 37, "Subsubsection",ExpressionUUID->"997feb2b-8bcb-b640-a2a5-13721a0b6aae"], Cell[4775150, 101855, 3740, 90, 276, "Input",ExpressionUUID->"0014647e-733c-6248-9ace-d2dab92c563e"] }, Closed]], Cell[CellGroupData[{ Cell[4778927, 101950, 519, 8, 37, "Subsubsection",ExpressionUUID->"1c54a4fa-61e6-354c-ac93-380c7d89a519"], Cell[4779449, 101960, 4024, 99, 295, "Input",ExpressionUUID->"5d769f11-6b7c-7148-9a98-175d932b70ea"] }, Closed]], Cell[CellGroupData[{ Cell[4783510, 102064, 541, 8, 37, "Subsubsection",ExpressionUUID->"9cbaebfa-7ed1-5740-8680-228ffd633ee0"], Cell[4784054, 102074, 4981, 121, 314, "Input",ExpressionUUID->"07b18365-4eea-1e40-9f5c-b0f4e79cda4e"] }, Closed]], Cell[CellGroupData[{ Cell[4789072, 102200, 512, 8, 37, "Subsubsection",ExpressionUUID->"c3406730-371f-5c49-982a-095ec8be9acf"], Cell[4789587, 102210, 4179, 101, 295, "Input",ExpressionUUID->"2811e9a3-2ebc-944c-a50e-ec644d89ed36"] }, Closed]], Cell[CellGroupData[{ Cell[4793803, 102316, 395, 6, 37, "Subsubsection",ExpressionUUID->"f9eaf288-7650-9b40-9126-0da287a12c87"], Cell[4794201, 102324, 3325, 85, 257, "Input",ExpressionUUID->"945c7425-3f90-ec4e-b939-a7cfd39310c6"] }, Closed]], Cell[CellGroupData[{ Cell[4797563, 102414, 1114, 16, 37, "Subsubsection",ExpressionUUID->"f6884a1f-3ab6-a745-a483-9bea45ce4845"], Cell[4798680, 102432, 6956, 160, 339, "Input",ExpressionUUID->"4b73511a-3976-744e-a336-e29adba0923e"] }, Closed]], Cell[CellGroupData[{ Cell[4805673, 102597, 394, 6, 37, "Subsubsection",ExpressionUUID->"3090e643-802a-0a47-ac33-f8c6c6beabc1"], Cell[4806070, 102605, 3556, 83, 276, "Input",ExpressionUUID->"4fc3f6b8-7ffc-904a-9a64-82a0827ba427"] }, Closed]], Cell[CellGroupData[{ Cell[4809663, 102693, 587, 9, 37, "Subsubsection",ExpressionUUID->"3ac4e637-7778-4a4b-807f-350b37b7851c"], Cell[4810253, 102704, 3675, 85, 238, "Input",ExpressionUUID->"5a1c56a4-e456-c649-aca7-d75ee2aad3cf"] }, Closed]], Cell[CellGroupData[{ Cell[4813965, 102794, 342, 5, 37, "Subsubsection",ExpressionUUID->"a7fdb9fd-44fa-9f4b-829d-4bbe366f815f"], Cell[4814310, 102801, 4286, 107, 314, "Input",ExpressionUUID->"60568e4c-a3ea-604a-9786-5a073cae9aa3"] }, Closed]], Cell[CellGroupData[{ Cell[4818633, 102913, 420, 6, 37, "Subsubsection",ExpressionUUID->"d22c8811-c281-5f4e-9a65-bb5efbd6c8ba"], Cell[4819056, 102921, 4182, 107, 295, "Input",ExpressionUUID->"c90e0340-2a35-4942-b2d8-b13f8cdc2bc1"] }, Closed]], Cell[CellGroupData[{ Cell[4823275, 103033, 585, 9, 37, "Subsubsection",ExpressionUUID->"f5ebcaac-7d32-b745-8f7b-526b194a91cb"], Cell[4823863, 103044, 5009, 112, 295, "Input",ExpressionUUID->"14da74e5-7f12-e742-a346-fe2a93ffbf2c"] }, Closed]], Cell[CellGroupData[{ Cell[4828909, 103161, 585, 9, 37, "Subsubsection",ExpressionUUID->"8148549e-9da7-1946-bac9-4c8f5be51476"], Cell[4829497, 103172, 4804, 109, 295, "Input",ExpressionUUID->"98019c9b-cb0f-fb47-95ee-903372ed2f7a"] }, Closed]] }, Open ]] }, Open ]] } ] *)